diff --git a/.github/workflows/stale.yml b/.github/workflows/stale.yml index c5b8f3e1e..4635a4419 100644 --- a/.github/workflows/stale.yml +++ b/.github/workflows/stale.yml @@ -22,7 +22,7 @@ jobs: with: repo-token: ${{ secrets.GITHUB_TOKEN }} stale-issue-label: 'stale' - exempt-issue-labels: ['category: Discussion','category: Feature Request','deferred','help needed: Open Research Problem','help needed: Request Input from Community','never stale','TODO: Documentation'] + exempt-issue-labels: 'category: Discussion,category: Feature Request,deferred,help needed: Open Research Problem,help needed: Request Input from Community,never stale,TODO: Documentation' days-before-issue-stale: 30 days-before-issue-close: 7 stale-issue-message: 'This issue has been automatically marked as stale because it has not had recent activity. If there are no updates within 7 days it will be closed. You can add the "never stale" tag to prevent the issue from closing this issue.' diff --git a/CHANGELOG.md b/CHANGELOG.md index 860e97617..6e9e4f551 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -4,8 +4,46 @@ 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 vectors `State_Chm%KPP_AbsTol` and `State_Chm%KPP_RelTol` +- Added setting `KPP_AbsTol` to 1e5 for dummy species in `species_database.yml` and `species_database_hg.yml` +- Implemented PPN photolysis from Horner et al (2024) +- Added four new species ALK4N1, ALK4N2, ALK4O2, and ALK4P to address issues in ALK4 and R4N2 chemistry following Brewer et al. (2023, JGR) +- Added new species ALK4N1 and ALK4N2 to Ox family in KPP +- Added Cloud-J input parameters to geoschem_config.yml in new photolysis sub-menu called cloud-j +- Added computation of water concentration to use in photolysis for application of UV absorption by water in Cloud-J v8 +- Added ACO3, ACR, ACRO2, ALK4N{1,2,O}2, ALK4P, ALK6, APAN, APINN, APINO2, APINP, AROCMCHO, AROMCO3, AROMPN, BPINN, BPINO2, BPINON, BPINOO2, BPINOOH, BPINP, BUTN, BUTO2, C4H6, C96N, C96O2, C9602H, EBZ, GCO3, HACTA, LIMAL, LIMKB, LIMKET, LIMKO2, LIMN, LIMNB, LIMO2H, LIMO3, LIMO3H, LIMPAN, MEKCO3, MEKPN, MYRCO, PHAN, PIN, PINAL, PINO3, PINONIC, PINPAN, R7N{1,2}, R7O2, R7P, RNO3, STYR, TLFUO2, TLFUONE, TMB, ZRO2 to `species_database.yml` following Travis et al. 2024 +- Added TSOIL1 field to `State_Met` for use in HEMCO soil NOx extension. This should only be read in when the `UseSoilTemperature` option is true in HEMCO config + +### Changed +- Copied values from `State_Chm%KPP_AbsTol` to `ATOL` and `State_Chm%KPP_RelTol` to `RTOL` for fullchem and Hg simulations +- Introduced seasalt Ca, K, Mg back to aerosol thermodynamics via HETP. +- Updated `HEMCO_Config.rc.fullchem` (GCClassic + GCHP) and `ExtData.rc` to add emissons of new species from Travis et al 2023 +- Activated the `DryDep` collection for GCClassic & GCHP fullchem benchmarks +- Reduced the GCHP `DryDep` collection to only the necessary species for benchmarks +- Removed unused `VDIFFAR` routine from `vdiff_mod.F90` +- Updated MW for CH4 and OH in `global_ch4_mod.F90` +- Added fix to not convert from kg/kg to mol/mol before passing State_Chm to PBL mixing in `vdiff_mod.F90` +- Updated GC-Classic and GCHP run scripts and environment files for NASA discover cluster +- Updated `GFED4_Climatology` entries to point to the climatology file for 2010-2023 +- Moved aerosol optical properties files to a new data directory specified in geoschem_config.yml rather than specifying in photolysis input files +- Moved calls to `RD_AOD` and `CALC_AOD` from `Init_Aerosol` rather than `Init_Photolysis` +- Updated ResME CH4 reservoir emissions to apply seasonality via mask file + +### Fixed +- Simplified SOA representations and fixed related AOD and TotalOA/OC calculations in benchmark +- Changed mass conservation adjustment in `vdiff_mod.F90` to use a mass tendency with units of `kg species/kg dry air` +- Converted the top pressure edge from hPa to Pa in `vdiff_mod.F90` +- Updated `Jval_` entries in `run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem` +- Updated species database Is_Photolysis entries to remove J-value diagnostics with all zeros in full chemistry simulation +- Removed EDGAR8_CH4_AWB emissions from CH4 and carbon simulations to avoid double counting with GFED +- Fixed formatting error in `.github/workflows/stale.yml` that caused the Mark Stale Issues action not to run +- Fixed emissions in GCHP carbon ExtData.rc so that data in molecules/cm2/s are converted to kg/m2/s + ## [14.4.3] - 2024-08-13 ### Added +- Added tropopause pressure field in the satellite diagnostic (by @eamarais) - Added ModelEe.2 (GCAP 2.0) simulation to integration tests for GCClassic - Added simulation with all diagnostics on in HISTORY.rc to integration tests for GCClassic (including Planeflight + ObsPack) and GCHP - Added descriptive error message in `Interfaces/GCHP/gchp_historyexportsmod.F90` @@ -28,10 +66,12 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), - Update rundir creation scripts to turn off the MEGAN extension for "standard" fullchem simulations - Updated emissions used in CESM to match standard emissions used in the 14.4 offline model - Disable support For FAST-JX for all simulations except Hg +- Only read photolysis data in `Init_Photolysis` in first instance of GEOS-Chem on each PET in CESM as PIO requires it - Replace calls to `GEOS_CHEM_STOP` with calls to `GC_Error` in `planeflight_mod.F90` - Script `test/integration/GCHP/integrationTestExecute.sh` now resets `cap_restart` time to `000000`, to facilitate manual restart ### Fixed +- In `Headers/roundoff_mod.F90`, first cast and then only round off if `places > 0` - Typo in `setCommonRunSettings.sh` that made GCHP always choose mass fluxes for meteorology - Fixed bug in # levels with cloud used in photolysis when using GCAP met or CESM - Fixed typos for `SatDiagnEdge` collection in `HISTORY.rc` templates @@ -46,9 +86,6 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), ### Removed - Entry `SatDiagnPEDGE` from the `SatDiagn` collection; This needs to go into the `SatDiagnEdge` collection. -### Changed -- Only read photolysis data in `Init_Photolysis` in first instance of GEOS-Chem on each PET in CESM as PIO requires it - ## [14.4.1] - 2024-06-28 ### Added - Added initialization of PHOTDELTA in `ucx_h2so4phot` to avoid run-time error in CESM @@ -73,6 +110,9 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), - Removed MPI broadcasts in CESM-only UCX code; MPI broadcast done at coupler level - Remove enabling O-server in GCHP for high core counts +### Fixed +- In `Headers/roundoff_mod.F90`, first cast and then only round off if `places > 0` + ## [14.4.0] - 2024-05-30 ### Added - Added `SpcConc%Units` for species-specific unit conversion @@ -188,7 +228,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), ### Removed - Removed MPI broadcasts in CESM-only photolysis code; will read on all cores -- Removed State_Chm%CH4_EMIS +- Removed `State_Chm%CH4_EMIS` ## [14.3.0] - 2024-02-07 ### Added @@ -443,16 +483,11 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), - Fixed a bug in routine GET_IJ where X and Y were swapped in an IF comparison. - Fixed bug in GFAS pFe by applying work-around in config files - ### Removed - Removed `intTest*_slurm.sh`, `intTest_*lsf.sh`, and `intTest*_interactive.sh` integration test scripts - Removed State_Met%LWI and input meteorology LWI from carbon simulation run config files - Removed function `CLEANUP_UCX`; deallocations are now done in `state_chm_mod.F90` -## [14.4.3] - 2024-08-13 -### Added -- Tropopause pressure field in the satellite diagnostic (by @eamarais) - ## [14.1.0] - 2023-02-01 ### Added - Added dry deposition updates to Hg0 from Feinberg22 ESPI publication + AMAP emissions diff --git a/GeosCore/aerosol_mod.F90 b/GeosCore/aerosol_mod.F90 index b8dc32b59..58cdd5adc 100644 --- a/GeosCore/aerosol_mod.F90 +++ b/GeosCore/aerosol_mod.F90 @@ -27,6 +27,8 @@ MODULE AEROSOL_MOD PUBLIC :: INIT_AEROSOL PUBLIC :: AEROSOL_CONC PUBLIC :: RDAER + PUBLIC :: RD_AOD ! Public for use in legacy FAST-JX initialization + PUBLIC :: CALC_AOD ! needed for Hg simulation ! ! !PUBLIC DATA MEMBERS: ! @@ -763,39 +765,31 @@ SUBROUTINE AEROSOL_CONC( Input_Opt, State_Chm, State_Diag, & ! Use simple SOA by default over complex SOA in calculations IF ( Is_SimpleSOA ) THEN - State_Chm%AerMass%OCPISOA(I,J,L) = ( Spc(id_OCPI)%Conc(I,J,L) * State_chm%AerMass%OCFOPOA(I,J) + & - Spc(id_SOAS)%Conc(I,J,L) ) / AIRVOL(I,J,L) + State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPI(I,J,L) + & + State_Chm%AerMass%SOAS(I,J,L) ELSEIF ( Is_ComplexSOA ) THEN - State_Chm%AerMass%OCPISOA(I,J,L) = ( Spc(id_TSOA1)%Conc(I,J,L) & - + Spc(id_TSOA2)%Conc(I,J,L) & - + Spc(id_TSOA3)%Conc(I,J,L) & - + Spc(id_TSOA0)%Conc(I,J,L) & - + Spc(id_ASOAN)%Conc(I,J,L) & - + Spc(id_ASOA1)%Conc(I,J,L) & - + Spc(id_ASOA2)%Conc(I,J,L) & - + Spc(id_ASOA3)%Conc(I,J,L) ) & - / AIRVOL(I,J,L) - - IF ( IS_OPOA ) THEN ! hotp 7/28/10 - State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + & - ( Spc(id_OPOA1)%Conc(I,J,L) & - + Spc(id_OPOA2)%Conc(I,J,L) ) & - * State_chm%AerMass%OCFOPOA(I,J) / AIRVOL(I,J,L) - ENDIF + State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%TSOA(I,J,L) + & + State_Chm%AerMass%ASOA(I,J,L) IF ( IS_OCPI ) THEN ! hotp 7/28/10 - State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + Spc(id_OCPI)%Conc(I,J,L) & - * State_chm%AerMass%OCFOPOA(I,J) / AIRVOL(I,J,L) + State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + & + State_Chm%AerMass%OCPI(I,J,L) ENDIF - ENDIF + IF ( IS_OPOA ) THEN ! hotp 7/28/10 + State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + & + State_Chm%AerMass%OPOA(I,J,L) + ENDIF - ! Add mechanistic isoprene OA (eam, 08/2015) - ! Skip adding this for Simple SOA (jaf, clh, bmy, 5/17/18) - IF ( Is_ComplexSOA ) THEN + ! Add mechanistic isoprene OA (eam, 08/2015) + ! Skip adding this for Simple SOA (jaf, clh, bmy, 5/17/18) + ! benchmark OCPISOA follows simpleSOA and + ! should exculde ISOAAQ to avoid double-counting + ! (yuanjianz, 8 Jun 2024) State_Chm%AerMass%OCPISOA(I,J,L) = State_Chm%AerMass%OCPISOA(I,J,L) + State_Chm%AerMass%ISOAAQ(I,J,L) + ENDIF ! Now avoid division by zero (bmy, 4/20/04) @@ -825,20 +819,18 @@ SUBROUTINE AEROSOL_CONC( Input_Opt, State_Chm, State_Diag, & State_Chm%AerMass%BCPI(I,J,L) + & State_Chm%AerMass%BCPO(I,J,L) + & State_Chm%AerMass%OCPO(I,J,L) + & - State_Chm%AerMass%OCPI(I,J,L) * ORG_GROWTH + & State_Chm%AerMass%SALA(I,J,L) * SSA_GROWTH + & SOILDUST(I,J,L,1) + & SOILDUST(I,J,L,2) + & SOILDUST(I,J,L,3) + & SOILDUST(I,J,L,4) + & SOILDUST(I,J,L,5) * 0.3_fp ! + 30% of DST2 - - ! Particulate matter < 10um [kg/m3] - State_Chm%AerMass%PM10(I,J,L) = State_Chm%AerMass%PM25(I,J,L) + & ! PM2.5 - SOILDUST(I,J,L,5) * 0.7_fp + & ! + 70% of DST2 - SOILDUST(I,J,L,6) + & ! + 100% of DST3 - SOILDUST(I,J,L,7) * 0.9_fp + & ! + 90% of DST4 - State_Chm%AerMass%SALC(I,J,L) * SSA_GROWTH + ! OCPI is not present in SVPOA simulation + ! OCPO represents all POA intead (factor*POA) + IF ( Is_OCPI ) THEN + State_Chm%AerMass%PM25(I,J,L) = State_Chm%AerMass%PM25(I,J,L) + & + State_Chm%AerMass%OCPI(I,J,L) * ORG_GROWTH + ENDIF ! Include either simple SOA (default) or Complex SOA in ! PM2.5 calculation. In simulations where both Simple SOA and @@ -847,7 +839,6 @@ SUBROUTINE AEROSOL_CONC( Input_Opt, State_Chm, State_Diag, & ! to avoid double-counting. (bmy, 03 Nov 2021) IF ( Is_SimpleSOA ) THEN State_Chm%AerMass%PM25(I,J,L) = State_Chm%AerMass%PM25(I,J,L) + ( State_Chm%AerMass%SOAS(I,J,L) * ORG_GROWTH ) - State_Chm%AerMass%PM10(I,J,L) = State_Chm%AerMass%PM10(I,J,L) + ( State_Chm%AerMass%SOAS(I,J,L) * ORG_GROWTH ) ELSE IF ( Is_ComplexSOA ) THEN State_Chm%AerMass%PM25(I,J,L) = State_Chm%AerMass%PM25(I,J,L) + & @@ -855,19 +846,20 @@ SUBROUTINE AEROSOL_CONC( Input_Opt, State_Chm, State_Diag, & State_Chm%AerMass%ASOA(I,J,L) * ORG_GROWTH + & State_Chm%AerMass%ISOAAQ(I,J,L) * ORG_GROWTH ! Includes SOAGX - State_Chm%AerMass%PM10(I,J,L) = State_Chm%AerMass%PM10(I,J,L) + & - State_Chm%AerMass%TSOA(I,J,L) * ORG_GROWTH + & - State_Chm%AerMass%ASOA(I,J,L) * ORG_GROWTH + & - State_Chm%AerMass%ISOAAQ(I,J,L) * ORG_GROWTH ! Includes SOAGX - ! Need to add OPOA to PM2.5 for complexSOA_SVPOA simulations ! -- Maggie Marvin (15 Jul 2020) IF ( Is_OPOA ) THEN State_Chm%AerMass%PM25(I,J,L) = State_Chm%AerMass%PM25(I,J,L) + ( State_Chm%AerMass%OPOA(I,J,L) * ORG_GROWTH ) - State_Chm%AerMass%PM10(I,J,L) = State_Chm%AerMass%PM10(I,J,L) + ( State_Chm%AerMass%OPOA(I,J,L) * ORG_GROWTH ) ENDIF ENDIF + ! Particulate matter < 10um [kg/m3] + State_Chm%AerMass%PM10(I,J,L) = State_Chm%AerMass%PM25(I,J,L) + & ! PM2.5 + SOILDUST(I,J,L,5) * 0.7_fp + & ! + 70% of DST2 + SOILDUST(I,J,L,6) + & ! + 100% of DST3 + SOILDUST(I,J,L,7) * 0.9_fp + & ! + 90% of DST4 + State_Chm%AerMass%SALC(I,J,L) * SSA_GROWTH + ! Apply STP correction factor based on ideal gas law State_Chm%AerMass%PM25(I,J,L) = State_Chm%AerMass%PM25(I,J,L) * ( 1013.25_fp / PMID(I,J,L) ) * & ( T(I,J,L) / 298.0_fp ) @@ -881,19 +873,16 @@ SUBROUTINE AEROSOL_CONC( Input_Opt, State_Chm, State_Diag, & ! Parameterized dry effective radius for SNA and OM !=========================================================== IF ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) > 0e+0_fp ) THEN - IF ( Is_SimpleSOA ) THEN - ! dry SNA and OM mass, in unit of ug/m3 - State_Chm%AerMass%SNAOM(I,J,L) = ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) + State_Chm%AerMass%OCPO(I,J,L) + State_Chm%AerMass%OCPI(I,J,L) + State_Chm%AerMass%SOAS(I,J,L) )*1.0e+9_fp - ! ratio between OM and SNA, unitless - State_Chm%AerMass%R_OMSNA(I,J,L) = (State_Chm%AerMass%OCPO(I,J,L) + State_Chm%AerMass%OCPI(I,J,L) + State_Chm%AerMass%SOAS(I,J,L)) / State_Chm%AerMass%SO4_NH4_NIT(I,J,L) - - ELSE IF ( Is_ComplexSOA ) THEN - ! dry SNA and OM mass, in unit of ug/m3 - State_Chm%AerMass%SNAOM(I,J,L) = ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) + State_Chm%AerMass%OCPO(I,J,L) + State_Chm%AerMass%OCPI(I,J,L) + State_Chm%AerMass%TSOA(I,J,L) + State_Chm%AerMass%ASOA(I,J,L) + State_Chm%AerMass%ISOAAQ(I,J,L) ) * 1.0e+9_fp - ! ratio between OM and SNA, unitless - State_Chm%AerMass%R_OMSNA(I,J,L) = (State_Chm%AerMass%OCPO(I,J,L) + State_Chm%AerMass%OCPI(I,J,L) + State_Chm%AerMass%TSOA(I,J,L) + State_Chm%AerMass%ASOA(I,J,L) + State_Chm%AerMass%ISOAAQ(I,J,L) )/ State_Chm%AerMass%SO4_NH4_NIT(I,J,L) - - ENDIF + ! dry SNA and OM mass, in unit of ug/m3 + State_Chm%AerMass%SNAOM(I,J,L) = ( State_Chm%AerMass%SO4_NH4_NIT(I,J,L) + & + State_Chm%AerMass%OCPO(I,J,L) + & + State_Chm%AerMass%OCPISOA(I,J,L) ) * 1.0e+9_fp + + ! ratio between OM and SNA, unitless + State_Chm%AerMass%R_OMSNA(I,J,L) = ( State_Chm%AerMass%OCPO(I,J,L) + & + State_Chm%AerMass%OCPISOA(I,J,L) ) / & + State_Chm%AerMass%SO4_NH4_NIT(I,J,L) + ! Parameterized dry effective radius, in unit of um State_Chm%AerMass%PDER(I,J,L) = (exp( 4.36_fp + 0.20_fp*log(State_Chm%AerMass%SNAOM(I,J,L)) + 0.065_fp*log(State_Chm%AerMass%R_OMSNA(I,J,L)) ) *0.001_fp )/0.9_fp ; @@ -2512,6 +2501,594 @@ SUBROUTINE Init_Aerosol( Input_Opt, State_Chm, State_Diag, State_Grid, RC ) ENDDO + !------------------------------------------------------------------------ + ! Read in AOD data + !------------------------------------------------------------------------ + CALL RD_AOD( Input_Opt, State_Chm, RC ) + IF ( RC /= GC_SUCCESS ) THEN + ErrMsg = 'Error encountered in routine "RD_AOD"!' + CALL GC_Error( ErrMsg, RC, ThisLoc ) + RETURN + ENDIF + IF (Input_Opt%amIRoot) WRITE(6,*) 'Wavelength optics read successfully' + + !------------------------------------------------------------------------ + ! Compute the required wavelengths in the LUT to calculate requested AOD + !------------------------------------------------------------------------ + CALL CALC_AOD( Input_Opt, State_Chm, RC ) + IF ( RC /= GC_SUCCESS ) THEN + ErrMsg = 'Error encountered in routine "CALC_AOD"!' + CALL GC_Error( ErrMsg, RC, ThisLoc ) + RETURN + ENDIF + END SUBROUTINE INIT_AEROSOL !EOC +!------------------------------------------------------------------------------ +! GEOS-Chem Global Chemical Transport Model ! +!------------------------------------------------------------------------------ +!BOP +! +! !IROUTINE: rd_aod +! +! !DESCRIPTION: Subroutine RD\_AOD reads aerosol phase functions that are +! used to scale diagnostic output to an arbitrary wavelengh. This +! facilitates comparing with satellite observations. +!\\ +!\\ +! !INTERFACE: +! + SUBROUTINE RD_AOD( Input_Opt, State_Chm, RC ) +! +! !USES: +! + USE ErrCode_Mod + USE Input_Opt_Mod, ONLY : OptInput + USE InquireMod, ONLY : FindFreeLUN + USE State_Chm_Mod, ONLY : ChmState +#if defined( MODEL_CESM ) + USE UNITS, ONLY : freeUnit +#endif +! +! !INPUT PARAMETERS: +! + TYPE(OptInput), INTENT(IN) :: Input_Opt ! Input Options object +! +! !INPUT/OUTPUT PARAMETERS: +! + TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object +! +! !OUTPUT PARAMETERS: +! + INTEGER, INTENT(OUT) :: RC ! Success or failure? +! +! !REMARKS: +! The .dat files for each species contain the optical properties +! at multiple wavelengths to be used in the online calculation of the aerosol +! optical depth diagnostics. +! These properties have been calculated using the same size and optical +! properties as the FJX_spec.dat file used for the FAST-J photolysis +! calculations (which is now redundant for aerosols, the values in the .dat +! files here are now used). The file currently contains 11 wavelengths +! for Fast-J and other commonly used wavelengths for satellite and +! AERONET retrievals. 30 wavelengths follow that map onto RRTMG +! wavebands for radiaitive flux calculations (not used if RRTMG is off). +! A complete set of optical properties from 250-2000 nm for aerosols is +! available at: +! ftp://ftp.as.harvard.edu/geos-chem/data/aerosol_optics/hi_spectral_res +! . +! -- Colette L. Heald, 05/10/10) +! -- David A. Ridley, 05/10/13 (update for new optics files) +! +! !REVISION HISTORY: +! 10 May 2010 - C. Heald - Initial version +! See https://github.com/geoschem/geos-chem for complete history +!EOP +!------------------------------------------------------------------------------ +!BOC +! +! !LOCAL VARIABLES +! + ! Scalars + INTEGER :: I, J, K, N, g + INTEGER :: IOS, NJ1 + LOGICAL :: LBRC, FileExists + + ! Strings + CHARACTER(LEN=78 ) :: TITLE0 + CHARACTER(LEN=255) :: DATA_DIR + CHARACTER(LEN=255) :: THISFILE + CHARACTER(LEN=255) :: FileMsg + CHARACTER(LEN=255) :: ErrMsg + CHARACTER(LEN=255) :: ThisLoc + + ! String arrays + CHARACTER(LEN=30) :: SPECFIL(8) + + ! Pointers + REAL*8, POINTER :: WVAA (:,:) + REAL*8, POINTER :: RHAA (:,:) + REAL*8, POINTER :: RDAA (:,:,:) + REAL*8, POINTER :: RWAA (:,:,:) + REAL*8, POINTER :: SGAA (:,:) + REAL*8, POINTER :: REAA (:,:,:) + REAL*8, POINTER :: NCMAA (:,:,:) + REAL*8, POINTER :: NRLAA (:,:,:) + REAL*8, POINTER :: QQAA (:,:,:,:) + REAL*8, POINTER :: ALPHAA(:,:,:,:) + REAL*8, POINTER :: SSAA (:,:,:,:) + REAL*8, POINTER :: ASYMAA(:,:,:,:) + REAL*8, POINTER :: PHAA (:,:,:,:,:) + + !================================================================ + ! RD_AOD begins here! + !================================================================ + + ! Initialize + RC = GC_SUCCESS + ErrMsg = '' + ThisLoc = ' -> at RD_AOD (in module GeosCore/photolysis_mod.F90)' + LBRC = Input_Opt%LBRC + DATA_DIR = TRIM( Input_Opt%AER_OPTICS_DIR ) + + ! Set Pointers + WVAA => State_Chm%Phot%WVAA + RHAA => State_Chm%Phot%RHAA + RDAA => State_Chm%Phot%RDAA + RWAA => State_Chm%Phot%RWAA + SGAA => State_Chm%Phot%SGAA + REAA => State_Chm%Phot%REAA + NRLAA => State_Chm%Phot%NRLAA + NCMAA => State_Chm%Phot%NCMAA + QQAA => State_Chm%Phot%QQAA + ALPHAA => State_Chm%Phot%ALPHAA + SSAA => State_Chm%Phot%SSAA + ASYMAA => State_Chm%Phot%ASYMAA + PHAA => State_Chm%Phot%PHAA + + ! Get a free LUN + NJ1 = findFreeLUN() + + ! IMPORTANT: aerosol_mod.F and dust_mod.F expect aerosols in this order + ! + ! Treating strat sulfate with GADS data but modified to match + ! the old Fast-J values size (r=0.09um, sg=0.6) - I think there's + ! evidence that this is too smale and narrow e.g. Deshler et al. 2003 + ! NAT should really be associated with something like cirrus cloud + ! but for now we are just treating the NAT like the sulfate... limited + ! info but ref index is similar e.g. Scarchilli et al. (2005) + !(DAR 05/2015) + DATA SPECFIL /"so4.dat","soot.dat","org.dat", & + "ssa.dat","ssc.dat", & + "h2so4.dat","h2so4.dat", & + "dust.dat"/ + + ! Loop over the array of filenames + DO k = 1, State_Chm%Phot%NSPAA + + ! Choose different set of input files for standard (trop+strat chenm) + ! and tropchem (trop-only chem) simulations + THISFILE = TRIM( DATA_DIR ) // '/' // TRIM( SPECFIL(k) ) + + !-------------------------------------------------------------- + ! In dry-run mode, print file path to dryrun log and cycle. + ! Otherwise, print file path to stdout and continue. + !-------------------------------------------------------------- + + ! Test if the file exists + INQUIRE( FILE=TRIM( ThisFile ), EXIST=FileExists ) + + ! Test if the file exists and define an output string + IF ( FileExists ) THEN + FileMsg = 'PHOTOLYSIS (RD_AOD): Opening' + ELSE + FileMsg = 'PHOTOLYSIS (RD_AOD): REQUIRED FILE NOT FOUND' + ENDIF + + ! Write to stdout for both regular and dry-run simulations + IF ( Input_Opt%amIRoot ) THEN + WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( ThisFile ) +300 FORMAT( a, ' ', a ) + ENDIF + + ! For dry-run simulations, cycle to next file. + ! For regular simulations, throw an error if we can't find the file. + IF ( Input_Opt%DryRun ) THEN + CYCLE + ELSE + IF ( .not. FileExists ) THEN + WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( ThisFile ) + CALL GC_Error( ErrMsg, RC, ThisLoc ) + RETURN + ENDIF + ENDIF + + !-------------------------------------------------------------- + ! If not a dry-run, read data from each species file + !-------------------------------------------------------------- + + ! Open file + OPEN( NJ1, FILE=TRIM( THISFILE ), STATUS='OLD', IOSTAT=RC ) + + ! Error check + IF ( RC /= 0 ) THEN + ErrMsg = 'Error opening file: ' // TRIM( ThisFile ) + CALL GC_Error( ErrMsg, RC, ThisLoc ) + RETURN + ENDIF + + ! Read header lines + READ( NJ1, '(A)' ) TITLE0 + IF ( Input_Opt%amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0 + + ! Second header line added for more info + READ( NJ1, '(A)' ) TITLE0 + IF ( Input_Opt%amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0 + + READ( NJ1, '(A)' ) TITLE0 +110 FORMAT( 3x, a20 ) + + IF (k == 1 .OR. k == 3) THEN + ! for SO4 and ORGANICS, dry aerosol size varies, therefore all + ! opt properties vary. + DO g = 1, State_Chm%Phot%NDRg + DO i = 1, State_Chm%Phot%NRAA + DO j = 1, State_Chm%Phot%NWVAA + + READ(NJ1,*) WVAA(j,k),RHAA(i,k),NRLAA(j,i,k),NCMAA(j,i,k), & + RDAA(i,k,g),RWAA(i,k,g),SGAA(i,k),QQAA(j,i,k,g), & + ALPHAA(j,i,k,g),REAA(i,k,g),SSAA(j,i,k,g), & + ASYMAA(j,i,k,g),(PHAA(j,i,k,n,g),n=1,8) + + ! make note of where 1000nm is for FAST-J calcs + IF (WVAA(j,k).EQ.1000.0) State_Chm%Phot%IWV1000=J + + ENDDO + ENDDO + ENDDO + + ELSE + ! For other species, keep g = default Rg (DRg) + g = State_Chm%Phot%DRg + DO i = 1, State_Chm%Phot%NRAA + DO j = 1, State_Chm%Phot%NWVAA + + READ(NJ1,*) WVAA(j,k),RHAA(i,k),NRLAA(j,i,k),NCMAA(j,i,k), & + RDAA(i,k,g),RWAA(i,k,g),SGAA(i,k),QQAA(j,i,k,g), & + ALPHAA(j,i,k,g),REAA(i,k,g),SSAA(j,i,k,g), & + ASYMAA(j,i,k,g),(PHAA(j,i,k,n,g),n=1,8) + + ! make note of where 1000nm is for FAST-J calcs + IF (WVAA(j,k).EQ.1000.0) State_Chm%Phot%IWV1000=J + + ENDDO + ENDDO + + ENDIF + + ! Close file + CLOSE( NJ1 ) + + ENDDO + +#if defined( MODEL_CESM ) + CALL freeUnit(NJ1) +#endif + + ! Free pointers + WVAA => NULL() + RHAA => NULL() + RDAA => NULL() + RWAA => NULL() + SGAA => NULL() + REAA => NULL() + NCMAA => NULL() + NRLAA => NULL() + QQAA => NULL() + ALPHAA => NULL() + SSAA => NULL() + ASYMAA => NULL() + PHAA => NULL() + + END SUBROUTINE RD_AOD +!EOC +!------------------------------------------------------------------------------ +! GEOS-Chem Global Chemical Transport Model ! +!------------------------------------------------------------------------------ +!BOP +! +! !IROUTINE: calc_aod +! +! !DESCRIPTION: Subroutine CALC\_AOD works out the closest tie points +! in the optics LUT wavelengths and the coefficients required to +! calculate the angstrom exponent for interpolating optics to the requested +! wavelength. If the wavelength requested matches a standard wavelength +! in the LUT then we skip the interpolation (DAR 09/2013) +!\\ +!\\ +! !INTERFACE: +! + SUBROUTINE CALC_AOD( Input_Opt, State_Chm, RC ) +! +! !USES: +! + USE Input_Opt_Mod, ONLY : OptInput +#ifdef RRTMG + USE PARRRTM, ONLY : NBNDLW +#endif + USE State_Chm_Mod, ONLY : ChmState +! +! !INPUT PARAMETERS: +! + TYPE(OptInput), INTENT(IN) :: Input_Opt +! +! !INPUT/OUTPUT PARAMETERS: +! + TYPE(ChmState), INTENT(INOUT) :: State_Chm +! +! !OUTPUT PARAMETERS: +! + INTEGER, INTENT(IN) :: RC +! +! !REMARKS: +! Now the user is able to select any 3 wavelengths for optics +! output in the geoschem_config.yml file we need to be able to interpolate +! to those wavelengths based on what is available in the optics +! look-up table. +! . +! The standard lookup table currently has values for +! 11 common wavelengths followed by 30 that are required by RRTMG. +! Only those required to interpolate to user requested +! wavelengths are selected from the standard wavelengths. RRTMG +! wavelengths are not used in the interpolation for AOD output +! (DAR 10/2013) +! . +! UPDATE: because the RT optics output doesnt have access to the +! standard wavelengths we now calculate two sets of values: one +! for the ND21 and diag3 outputs that use the standard wavelengths +! and one for RRTMG diagnostics that interpolate the optics from RRTMG +! wavelengths. Perhaps a switch needs adding to switch off the RT +! optics output (and interpolation) if this ends up costing too +! much and is not used, but it is ideal to have an optics output +! that matches exactly what RRTMG uses to calculate the fluxes +! +! !REVISION HISTORY: +! 18 Jun 2013 - D. Ridley - Initial version +! See https://github.com/geoschem/geos-chem for complete history +!EOP +!------------------------------------------------------------------------------ +!BOC +! +! !LOCAL VARIABLES +! + INTEGER :: MINWV, MAXWV, N, N0, N1, W, NSTEP + INTEGER :: NWVAA, NWVAA0, NWVREQUIRED, NRTWVREQUIRED + REAL(fp) :: WVDIF + + ! Pointers + INTEGER, POINTER :: IWVREQUIRED (:) + INTEGER, POINTER :: IRTWVREQUIRED(:) + INTEGER, POINTER :: IWVSELECT (:,:) + INTEGER, POINTER :: IRTWVSELECT (:,:) + REAL*8, POINTER :: ACOEF_WV (:) + REAL*8, POINTER :: BCOEF_WV (:) + REAL*8, POINTER :: CCOEF_WV (:) + REAL*8, POINTER :: ACOEF_RTWV (:) + REAL*8, POINTER :: BCOEF_RTWV (:) + REAL*8, POINTER :: CCOEF_RTWV (:) + REAL*8, POINTER :: WVAA (:,:) + + !================================================================ + ! CALC_AOD begins here! + !================================================================ + + ! Constants State_Chm%Phot + NWVAA = State_Chm%Phot%NWVAA + NWVAA0 = State_Chm%Phot%NWVAA0 + + ! Scalars in State_Chm%Phot that will be set in this subroutine + NWVREQUIRED = State_Chm%Phot%NWVREQUIRED + NRTWVREQUIRED = State_Chm%Phot%NRTWVREQUIRED + + ! Set pointers + IWVREQUIRED => State_Chm%Phot%IWVREQUIRED + IRTWVREQUIRED => State_Chm%Phot%IRTWVREQUIRED + IWVSELECT => State_Chm%Phot%IWVSELECT + IRTWVSELECT => State_Chm%Phot%IRTWVSELECT + ACOEF_WV => State_Chm%Phot%ACOEF_WV + BCOEF_WV => State_Chm%Phot%BCOEF_WV + CCOEF_WV => State_Chm%Phot%CCOEF_WV + ACOEF_RTWV => State_Chm%Phot%ACOEF_RTWV + BCOEF_RTWV => State_Chm%Phot%BCOEF_RTWV + CCOEF_RTWV => State_Chm%Phot%CCOEF_RTWV + WVAA => State_Chm%Phot%WVAA + + !cycle over standard wavelengths + N0=1 + N1=NWVAA0 + NSTEP=1 + NWVREQUIRED=0 + DO W=1,Input_Opt%NWVSELECT + MINWV = -999 + MAXWV = 999 + DO N=N0,N1,NSTEP ! 1 to 11 + WVDIF = WVAA(N,1)-Input_Opt%WVSELECT(W) + IF ((WVDIF.LE.0).AND.(WVDIF.GT.MINWV)) THEN + MINWV = WVDIF + IWVSELECT(1,W)=N + ENDIF + IF ((WVDIF.GE.0).AND.(WVDIF.LT.MAXWV)) THEN + MAXWV = WVDIF + IWVSELECT(2,W)=N + ENDIF + ENDDO + IF (IWVSELECT(2,W).EQ.IWVSELECT(1,W)) THEN + !we have a match! + MINWV=0 + MAXWV=0 + !add this wavelength to those for output + NWVREQUIRED=NWVREQUIRED+1 + IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) + ELSE + !we are going to have to interpolate to the requested wavelength + NWVREQUIRED=NWVREQUIRED+1 + IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) + NWVREQUIRED=NWVREQUIRED+1 + IWVREQUIRED(NWVREQUIRED)=IWVSELECT(2,W) + ENDIF + + !Error check - ensure we have a match or requested wavelength + !falls within two LUT tie points + IF (MINWV.EQ.-999) THEN + ! requested wavelength is shorter than min wv in LUT + ! set to min + write(6,*) 'ERROR requested wavelength is too short!!' + write(6,*) 'Defaulting to LUT min: ',WVAA(1,1) + IWVSELECT(1,W)=1 + IWVSELECT(2,W)=1 !300nm + NWVREQUIRED=NWVREQUIRED-1 + IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) + ENDIF + IF (MAXWV.EQ.999) THEN + ! requested wavelength is longer than min wv in LUT + ! set to max + write(6,*) 'ERROR requested wavelength is too long!!' + write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA0,1) + IWVSELECT(1,W)=NWVAA0 + IWVSELECT(2,W)=NWVAA0 !1020nm + NWVREQUIRED=NWVREQUIRED-1 + IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) + ENDIF + + !now calcualte the angstrom exponent coefs for interpolation - + !this is done here to save time and repetition in aerosol_mod.F + IF (IWVSELECT(1,W).NE.IWVSELECT(2,W)) THEN + ACOEF_WV(W) = WVAA(IWVSELECT(2,W),1)/Input_Opt%WVSELECT(W) + BCOEF_WV(W) =1.0d0/(LOG(WVAA(IWVSELECT(2,W),1)/ & + WVAA(IWVSELECT(1,W),1))) + !relative location of selected wavelength between tie points + !for interpolating SSA and ASYM for output in aerosol_mod.F and + !dust_mod.F + CCOEF_WV(W) =(Input_Opt%WVSELECT(W)-WVAA(IWVSELECT(1,W),1))/ & + (WVAA(IWVSELECT(2,W),1)-WVAA(IWVSELECT(1,W),1)) + ENDIF + IF ( Input_Opt%amIRoot ) THEN + write(6,*) 'N WAVELENGTHS: ',Input_Opt%NWVSELECT + write(6,*) 'WAVELENGTH REQUESTED:',Input_Opt%WVSELECT(W) + write(6,*) 'WAVELENGTH REQUIRED:', NWVREQUIRED + !write(6,*) IWVSELECT(1,W),WVAA(IWVSELECT(1,W),1) + !write(6,*) IWVSELECT(2,W),WVAA(IWVSELECT(2,W),1) + !write(6,*) ACOEF_WV(W),BCOEF_WV(W),CCOEF_WV(W) + write(6,*) '*********************************' + ENDIF + ENDDO !Input_Opt%NWVSELECT +#ifdef RRTMG + !repeat for RRTMG wavelengths to get the closest wavelength + !indices and the interpolation coefficients + !Indices are relative to all wavelengths in the LUT i.e. the RRTMG + !wavelengths start at NWVAA0+1 + N0=NWVAA0+1 + N1=NWVAA + NSTEP=1 + NRTWVREQUIRED=0 + DO W=1,Input_Opt%NWVSELECT + MINWV = -999 + MAXWV = 999 + DO N=N0,N1,NSTEP + WVDIF = WVAA(N,1)-Input_Opt%WVSELECT(W) + IF ((WVDIF.LE.0).AND.(WVDIF.GT.MINWV)) THEN + MINWV = WVDIF + IRTWVSELECT(1,W)=N + ENDIF + IF ((WVDIF.GE.0).AND.(WVDIF.LT.MAXWV)) THEN + MAXWV = WVDIF + IRTWVSELECT(2,W)=N + ENDIF + ENDDO + IF (IRTWVSELECT(2,W).EQ.IRTWVSELECT(1,W)) THEN + !we have a match! + MINWV=0 + MAXWV=0 + !add this wavelength to those for output + NRTWVREQUIRED=NRTWVREQUIRED+1 + IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) + ELSE + !we are going to have to interpolate to the requested + !wavelength + NRTWVREQUIRED=NRTWVREQUIRED+1 + IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) + NRTWVREQUIRED=NRTWVREQUIRED+1 + IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(2,W) + ENDIF + + !Error check - ensure we have a match or requested wavelength + !falls within two LUT tie points + IF (MINWV.EQ.-999) THEN + ! requested wavelength is shorter than min wv in LUT + ! set to min + write(6,*) 'ERROR requested wavelength is too short!!' + write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA-1,1) + IRTWVSELECT(1,W)=NWVAA-1 + IRTWVSELECT(2,W)=NWVAA-1 + NRTWVREQUIRED=NRTWVREQUIRED-1 + IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) + ENDIF + IF (MAXWV.EQ.999) THEN + ! requested wavelength is longer than min wv in LUT + ! set to max + write(6,*) 'ERROR requested wavelength is too long!!' + write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA0+1,1) + IRTWVSELECT(1,W)=NWVAA0+1 + IRTWVSELECT(2,W)=NWVAA0+1 + NRTWVREQUIRED=NRTWVREQUIRED-1 + IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) + ENDIF + + !now calcualte the angstrom exponent coefs for interpolation - + !this is done here to save time and repetition in aerosol_mod.F + IF (IRTWVSELECT(1,W).NE.IRTWVSELECT(2,W)) THEN + ACOEF_RTWV(W) = WVAA(IRTWVSELECT(2,W),1)/Input_Opt%WVSELECT(W) + BCOEF_RTWV(W) =1.0d0/(LOG(WVAA(IRTWVSELECT(2,W),1)/ & + WVAA(IRTWVSELECT(1,W),1))) + !relative location of selected wavelength between tie points + !for interpolating SSA and ASYM for output in aerosol_mod.F and + !dust_mod.F + CCOEF_RTWV(W) =(Input_Opt%WVSELECT(W)-WVAA(IRTWVSELECT(1,W),1))/ & + (WVAA(IRTWVSELECT(2,W),1)-WVAA(IRTWVSELECT(1,W),1)) + ENDIF + !convert wavelength index to that required by rrtmg_rad_transfer + !i.e. without the standard and LW wavelengths + IRTWVSELECT(1,W) = IRTWVSELECT(1,W) - NWVAA0 - NBNDLW + IRTWVSELECT(2,W) = IRTWVSELECT(2,W) - NWVAA0 - NBNDLW + IF ( Input_Opt%amIRoot ) THEN + write(6,*) 'N RT WAVELENGTHS: ',Input_Opt%NWVSELECT + write(6,*) 'RT WAVELENGTH REQUESTED:',Input_Opt%WVSELECT(W) + write(6,*) 'RT WAVELENGTH REQUIRED:', NRTWVREQUIRED + write(6,*) IRTWVSELECT(1,W),WVAA(IRTWVSELECT(1,W)+NWVAA0+NBNDLW,1) + write(6,*) IRTWVSELECT(2,W),WVAA(IRTWVSELECT(2,W)+NWVAA0+NBNDLW,1) + write(6,*) ACOEF_WV(W),BCOEF_WV(W),CCOEF_WV(W) + write(6,*) '*********************************' + ENDIF + ENDDO !Input_Opt%NWVSELECT +#endif + + ! Copy values back into State_Chm + State_Chm%Phot%NWVREQUIRED = NWVREQUIRED + State_Chm%Phot%NRTWVREQUIRED = NRTWVREQUIRED + + ! Free pointers + IWVREQUIRED => NULL() + IRTWVREQUIRED => NULL() + IWVSELECT => NULL() + IRTWVSELECT => NULL() + ACOEF_WV => NULL() + BCOEF_WV => NULL() + CCOEF_WV => NULL() + ACOEF_RTWV => NULL() + BCOEF_RTWV => NULL() + CCOEF_RTWV => NULL() + WVAA => NULL() + + END SUBROUTINE CALC_AOD +!EOC END MODULE AEROSOL_MOD diff --git a/GeosCore/aerosol_thermodynamics_mod.F90 b/GeosCore/aerosol_thermodynamics_mod.F90 index a5a1559e8..dcf99d83d 100644 --- a/GeosCore/aerosol_thermodynamics_mod.F90 +++ b/GeosCore/aerosol_thermodynamics_mod.F90 @@ -642,7 +642,9 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & ! Total Na+ (30.61% by weight of seasalt) [mole/m3] ! increase to account for all cations, xnw 11/26/17 - TNA = Spc(id_SALA)%Conc(I,J,L) * 0.397_fp * 1.0e+3_fp & + ! Reverted Na:SS ratio from 0.397 to 0.3061 since + ! cations are no longer excluded (Ca, Mg, K), 9/19/24 + TNA = Spc(id_SALA)%Conc(I,J,L) * 0.3061_fp * 1.0e+3_fp & * AlkR / ( 23.0_fp * VOL ) ! Total Cl- (55.04% by weight of seasalt) [mole/m3] @@ -655,7 +657,8 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & ( 35.45_fp * VOL ) ELSE - TNA = Spc(id_SALC)%Conc(I,J,L) * 0.378_fp * 1.0e+3_fp & + ! Changed 0.378 to 0.3061 (dry mass fraction of seasalt) + TNA = Spc(id_SALC)%Conc(I,J,L) * 0.3061_fp * 1.0e+3_fp & * AlkR / ( 23.0_fp * VOL ) ACL = Spc(id_SALCCL)%Conc(I,J,L) * 1.0e+3_fp * AlkR / & ( 35.45_fp * VOL ) @@ -673,29 +676,35 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & ! Total Cl- [mole/m3] TCL = ACL + GCL - !==================================================================== - ! NOTE: As of 11/2007, ISORROPIAII does not conserve mass when Ca,K,Mg - ! are non-zero. If you would like to consider Ca, K, Mg from seasalt - ! and dust, then ISORROPIA II ISRP4F routines must be debugged. - ! (hotp, bmy, 2/1/10) - ! This still applies in HETP (ewl, 4/22/2024) - ! - ! ! Total Ca2+ (1.16% by weight of seasalt) [mole/m3] - ! TCA = Spc(id_SALA)%Conc(I,J,L) * 0.0116e+0_fp * 1.d3 / - ! ( 40.08e+0_fp * VOL ) - ! - ! ! Total K+ (1.1% by weight of seasalt) [mole/m3] - ! TK = Spc(id_SALA)%Conc(I,J,L) * 0.0110e+0_fp * 1.d3 / - ! ( 39.102e+0_fp * VOL ) - ! - ! ! Total Mg+ (3.69% by weight of seasalt) [mole/m3] - ! TMG = Spc(id_SALA)%Conc(I,J,L) * 0.0369e+0_fp * 1.d3 / - ! ( 24.312e+0_fp * VOL ) - !==================================================================== - !! Set Ca, K, Mg to zero for time being (hotp, bmy, 2/1/10) - !TCA = 0e+0_fp - !TK = 0e+0_fp - !TMG = 0e+0_fp + ! Assume all Ca2+, K+, and Mg+ originate from seasalt aerosols + IF (N == 1) THEN + + ! Total Ca2+ (1.16% by weight of fine-mode seasalt) [mole/m3] + TCA = Spc(id_SALA)%Conc(I,J,L) * 0.0116e+0_fp * 1.0e+3_fp * AlkR / & + ( 40.08e+0_fp * VOL ) + + ! Total K+ (1.1% by weight of fine-mode seasalt) [mole/m3] + TK = Spc(id_SALA)%Conc(I,J,L) * 0.0110e+0_fp * 1.0e+3_fp * AlkR / & + ( 39.102e+0_fp * VOL ) + + ! Total Mg+ (3.69% by weight of fine-mode seasalt) [mole/m3] + TMG = Spc(id_SALA)%Conc(I,J,L) * 0.0369e+0_fp * 1.0e+3_fp * AlkR / & + ( 24.312e+0_fp * VOL ) + ELSE + + ! Total Ca2+ (1.16% by weight of coarse-mode seasalt) [mole/m3] + TCA = Spc(id_SALC)%Conc(I,J,L) * 0.0116e+0_fp * 1.0e+3_fp * AlkR / & + ( 40.08e+0_fp * VOL ) + + ! Total K+ (1.1% by weight of coarse-mode seasalt) [mole/m3] + TK = Spc(id_SALC)%Conc(I,J,L) * 0.0110e+0_fp * 1.0e+3_fp * AlkR / & + ( 39.102e+0_fp * VOL ) + + ! Total Mg+ (3.69% by weight of coarse-mode seasalt) [mole/m3] + TMG = Spc(id_SALC)%Conc(I,J,L) * 0.0369e+0_fp * 1.0e+3_fp * AlkR / & + ( 24.312e+0_fp * VOL ) + + ENDIF ! Compute gas-phase NO3 IF ( id_HNO3 > 0 ) THEN diff --git a/GeosCore/airs_ch4_mod.F90 b/GeosCore/airs_ch4_mod.F90 index 3b2ad056d..85cb66d16 100644 --- a/GeosCore/airs_ch4_mod.F90 +++ b/GeosCore/airs_ch4_mod.F90 @@ -371,7 +371,7 @@ SUBROUTINE CALC_AIRS_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & USE State_Grid_Mod, ONLY : GrdState USE State_Met_Mod, ONLY : MetState USE Timers_Mod, ONLY : Timer_End, Timer_Start - USE UnitConv_Mod + USE UnitConv_Mod, ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR ! ! !INPUT PARAMETERS: ! @@ -517,33 +517,13 @@ SUBROUTINE CALC_AIRS_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & print*, ' for hour range: ', GET_HOUR(), GET_HOUR()+1 print*, ' found # AIRS observations: ', NOBS - ! Halt diagnostics timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "Diagnostics", RC ) - ENDIF - - ! Convert species units to [v/v] (mps, 6/12/2020) - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - mapping = State_Chm%Map_Advect, & - new_units = MOLES_SPECIES_PER_MOLES_DRY_AIR, & - previous_units = previous_units, & - RC = RC ) - - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Unit conversion error (kg/kg dry -> v/v dry)' + ! Verify that incoming State_Chm%Species units are mol/mol dry air. + IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN + ErrMsg = 'Not all species are in "mol/mol dry" units!' CALL GC_Error( ErrMsg, RC, ThisLoc ) RETURN ENDIF - ! Start diagnostics timer again - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "Diagnostics", RC ) - ENDIF - !! need to update this in order to do i/o with this loop parallel !! ! Now do a parallel loop for analyzing data !!$OMP PARALLEL DO @@ -705,33 +685,6 @@ SUBROUTINE CALC_AIRS_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & ENDDO ! NT !!$OMP END PARALLEL DO - ! Halt diagnostics timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "Diagnostics", RC ) - ENDIF - - ! Convert species units back to original unit (mps, 6/12/2020) - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - mapping = State_Chm%Map_Advect, & - new_units = previous_units, & - RC = RC ) - - ! Trap errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Unit conversion error' - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - - ! Start diagnostics timer - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "Diagnostics", RC ) - ENDIF - 283 FORMAT( I10,2x,I4,2x,I4,2x,F8.3,2x,F8.4,2x,I4,2x,I2,2x,I2,2x,I2, & 2x,I2,2x,I2,2x,F12.3,2x,E12.6,2x,E12.6,2x,E12.6, & 2x, E12.6,2x, E12.6,2x, F12.3, 2x,E12.6, 2x, E12.6, 2x, & diff --git a/GeosCore/cldj_interface_mod.F90 b/GeosCore/cldj_interface_mod.F90 index 0351434f8..87770dc1e 100644 --- a/GeosCore/cldj_interface_mod.F90 +++ b/GeosCore/cldj_interface_mod.F90 @@ -131,9 +131,22 @@ SUBROUTINE INIT_CLOUDJ( Input_Opt, State_Grid, State_Diag, State_Chm, RC ) ! Initialize Cloud-J. Includes reading input data files ! FJX_spec.dat (RD_XXX), FJX_scat-aer.dat (RD_MIE), and ! FJX_j2j.dat (RD_JS_JX) - CALL Init_CldJ(Input_Opt%amIRoot, Input_Opt%CloudJ_Dir, & - State_Grid%NZ, Input_Opt%Nlevs_Phot_Cloud, & - TITLEJXX, JVN_, NJXX, RC) + CALL Init_CldJ(Input_Opt%amIRoot, & + Input_Opt%CloudJ_Dir, & + State_Grid%NZ, & + Input_Opt%Nlevs_Phot_Cloud, & + TITLEJXX, & + JVN_, & + Input_Opt%OD_Increase_Factor, & + Input_Opt%Min_Cloud_OD, & + Input_Opt%Num_WV_Bins, & + Input_Opt%Cloud_Flag, & + Input_Opt%Cloud_Corr, & + Input_Opt%Num_Max_Overlap, & + Input_Opt%Sphere_Correction, & + Input_Opt%Use_H2O_UV_Abs, & + NJXX, & + RC) IF ( RC /= GC_SUCCESS ) THEN ErrMsg = 'Error encountered in subroutine Init_Cldj within Cloud-J photolysis' CALL GC_Error( ErrMsg, RC, ThisLoc ) @@ -170,7 +183,7 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & USE Cmn_Size_Mod, ONLY : NRHAER, NRH, NDUST USE ErrCode_Mod USE Input_Opt_Mod, ONLY : OptInput - USE PhysConstants, ONLY : AVO, H2OMW, AIRMW, G0_100, PI, PI_180 + USE PhysConstants, ONLY : AVO, H2OMW, G0_100, PI, PI_180 USE State_Chm_Mod, ONLY : ChmState, Ind_ USE State_Diag_Mod, ONLY : DgnState USE State_Grid_Mod, ONLY : GrdState @@ -283,7 +296,7 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & REAL(8) :: VALJXX(L_,JVN_) !------------------------------------------------------------------------ - ! For diagnostics + ! Other local variables !------------------------------------------------------------------------ ! These are currently never set. Should they be output from Cloud-J? @@ -297,7 +310,13 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & REAL(fp) :: FDIFFUSE(L1_) REAL(fp) :: UVX_CONST + ! For computing water concentration from specific humidity + REAL(fp) :: SPHU_kgkg + REAL(fp) :: H2O_kgkgdry + REAL(fp) :: MW_kg + ! Species ids + INTEGER, SAVE :: id_H2O INTEGER, SAVE :: id_O3 INTEGER, SAVE :: id_SO4 @@ -370,10 +389,11 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & ! Set species ids for use in diagnostics IF ( FIRST ) THEN + id_H2O = Ind_('H2O') id_O3 = Ind_('O3') id_SO4 = Ind_('SO4') - IF ( id_O3 < 0 ) THEN - ErrMsg = 'O3 is not a defined species!' + IF ( id_O3 <= 0 ) THEN + ErrMsg = 'O3 is not a defined species but is required for Cloud-J photolysis!' CALL GC_Error( ErrMsg, RC, ThisLoc ) RETURN ENDIF @@ -404,7 +424,7 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & !$OMP DEFAULT( SHARED ) & !$OMP PRIVATE( A, I, J, L, K, N, S, MW_g, BoxHt, RH_ind ) & !$OMP PRIVATE( S_rh0, S_rhx, K_rh0, K_rhx, FRAC, RAA_eff, QAA_eff, SAA_eff ) & - !$OMP PRIVATE( dry_to_wet_factor ) & + !$OMP PRIVATE( dry_to_wet_factor, SPHU_kgkg, H2O_kgkgdry, MW_kg ) & !$OMP PRIVATE( R_interp_factor, Q_interp_factor ) & !$OMP PRIVATE( U0, SZA, SOLF, T_CTM, P_CTM, O3_CTM ) & !$OMP PRIVATE( T_CLIM, O3_CLIM, AIR_CLIM, Z_CLIM ) & @@ -539,7 +559,38 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & ENDDO !----------------------------------------------------------------- - ! Compute concentrations per aerosol [g/m2] + ! Water concentration [molecules/cm2] for UV absorption by H2O + !----------------------------------------------------------------- + IF ( id_H2O > 0 ) THEN + + ! Set water concentration from species concentration currently in [molecules/cm3] + DO L= 1, State_Grid%NZ + HHH(L) = State_Chm%Species(id_H2O)%Conc(I,J,L) * State_Met%BXHEIGHT(I,J,L) * 1.0e+2_fp + ENDDO + + ELSE + + DO L= 1, State_Grid%NZ + + ! Convert specific humidity from [g H2O/kg total air] to [kg H2O/kg total air] + SPHU_kgkg = State_Met%SPHU(I,J,L) * 1.e-3_fp + + ! Compute H2O concentration as [kg/kg dry air] + H2O_kgkgdry = SPHU_kgkg / ( 1.0e+0_fp - SPHU_kgkg ) + + ! Compute H2O molecular weight as [kg/mol] + MW_kg = H2OMW * 1.e-3_fp + + ! Convert [kg/kg dry] to [molecules/cm2] + HHH(L) = H2O_kgkgdry * State_Met%AIRDEN(I,J,L) * State_Met%BXHEIGHT(I,J,L) & + * 1.0e-4_fp * AVO / MW_kg + + ENDDO + ENDIF + HHH(State_Grid%NZ+1) = HHH(State_Grid%NZ) + + !----------------------------------------------------------------- + ! Compute aerosol concentrations [g/m2] !----------------------------------------------------------------- ! AERSP is column concentration in g/m2 for each aerosol. The array currently ! includes entries for clouds but these are not used in Cloud-J and can be @@ -853,7 +904,6 @@ SUBROUTINE Run_CloudJ( Input_Opt, State_Chm, State_Diag, & IRAN = 1 ! Required variables that are not used - HHH = 0.d0 CCC = 0.d0 !----------------------------------------------------------------- diff --git a/GeosCore/diagnostics_mod.F90 b/GeosCore/diagnostics_mod.F90 index 200a995c3..4a8729ea3 100644 --- a/GeosCore/diagnostics_mod.F90 +++ b/GeosCore/diagnostics_mod.F90 @@ -26,6 +26,7 @@ MODULE Diagnostics_mod ! PUBLIC :: Set_AerMass_Diagnostic PUBLIC :: Set_Diagnostics_EndofTimestep + PUBLIC :: Set_SpcConc_Diags_VVDry PUBLIC :: Zero_Diagnostics_StartofTimestep PUBLIC :: Compute_Budget_Diagnostics #ifdef ADJOINT @@ -34,7 +35,6 @@ MODULE Diagnostics_mod ! ! !PRIVATE MEMBER FUNCTIONS ! - PRIVATE :: Set_SpcConc_Diags_VVDry PRIVATE :: Set_SpcConc_Diags_MND ! ! !REVISION HISTORY: @@ -121,20 +121,6 @@ SUBROUTINE Set_Diagnostics_EndofTimestep( Input_Opt, State_Chm, & ThisLoc = & ' -> at Set_Diagnostics_EndofTimestep (in GeosCore/diagnostics_mod.F90)' - !------------------------------------------------------------------------ - ! Set species concentration for diagnostics in units of - ! v/v dry air = mol/mol dry air - !------------------------------------------------------------------------ - CALL Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & - State_Grid, State_Met, RC ) - - ! Trap potential errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountered setting SpeciesConcVV diagnostic' - CALL GC_ERROR( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - !----------------------------------------------------------------------- ! Set species concentration for diagnostics in units of ! molec/cm3 (hplin, 11/21/21) @@ -464,7 +450,6 @@ SUBROUTINE Set_SpcAdj_Diagnostic( Input_Opt, State_Chm, State_Diag, & ! !LOCAL VARIABLES: ! ! Scalars - LOGICAL :: Found INTEGER :: N, S REAL(fp) :: LT, GOOD @@ -480,7 +465,6 @@ SUBROUTINE Set_SpcAdj_Diagnostic( Input_Opt, State_Chm, State_Diag, & ! Assume success RC = GC_SUCCESS - Found = .FALSE. ThisLoc = ' -> Set_SpcAdj_Diagnostic (in GeosCore/diagnostics_mod.F90)' ! Make sure all units are in kg/kg dry @@ -580,14 +564,13 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! !USES: ! USE Input_Opt_Mod, ONLY : OptInput - USE PhysConstants, ONLY : AIRMW USE State_Met_Mod, ONLY : MetState USE State_Chm_Mod, ONLY : ChmState USE State_Diag_Mod, ONLY : DgnMap USE State_Diag_Mod, ONLY : DgnState USE State_Grid_Mod, ONLY : GrdState USE Time_Mod, ONLY : Get_LocalTime - USE UnitConv_Mod, ONLY : Check_Units, KG_SPECIES_PER_KG_DRY_AIR + USE UnitConv_Mod, ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR ! ! !INPUT PARAMETERS: ! @@ -614,7 +597,6 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! !LOCAL VARIABLES: ! ! Scalars - LOGICAL :: Found INTEGER :: D, I, J, L, N, S REAL(fp) :: TmpVal, Conv, LT, GOOD @@ -624,52 +606,22 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! Objects TYPE(DgnMap), POINTER :: mapData - ! Arrays - REAL(fp) :: TmpSpcArr(State_Grid%NX,State_Grid%NY, & - State_Grid%NZ,State_Chm%nSpecies) - !==================================================================== ! Set_SpcConc_Diags_VVDry begins here! !==================================================================== ! Assume success RC = GC_SUCCESS - Found = .FALSE. ThisLoc = & ' -> at Set_SpcConc_Diags_VVDry (in GeosCore/diagnostics_mod.F90)' - ! Verify that incoming State_Chm%Species units are kg/kg dry air. - IF ( .not. Check_Units( State_Chm, KG_SPECIES_PER_KG_DRY_AIR ) ) THEN - ErrMsg = 'Not all species are in "kg/kg dry" units!' + ! Verify that incoming State_Chm%Species units are mol/mol dry air. + IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN + ErrMsg = 'Not all species are in "mol/mol dry" units!' CALL GC_Error( ErrMsg, RC, ThisLoc ) RETURN ENDIF - ! Store species in v/v dry as temporary variable if diagnostics on - IF ( State_Diag%Archive_SpeciesConcVV .or. & - State_Diag%Archive_SpeciesBC .or. & - State_Diag%Archive_SpeciesRst .or. & - State_Diag%Archive_ConcAboveSfc .or. & - State_Diag%Archive_SatDiagnConc ) THEN - - !$OMP PARALLEL DO & - !$OMP DEFAULT( SHARED )& - !$OMP PRIVATE( I, J, L, N )& - !$OMP COLLAPSE( 4 ) - DO N = 1, State_Chm%nSpecies - DO L = 1, State_Grid%NZ - DO J = 1, State_Grid%NY - DO I = 1, State_Grid%NX - TmpSpcArr(I,J,L,N) = State_Chm%Species(N)%Conc(I,J,L) * & - ( AIRMW / State_Chm%SpcData(N)%Info%MW_g ) - ENDDO - ENDDO - ENDDO - ENDDO - !$OMP END PARALLEL DO - - ENDIF - !======================================================================= ! Copy species to SpeciesConc (concentrations diagnostic) [v/v dry] !======================================================================= @@ -683,7 +635,7 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & !$OMP PRIVATE( N, S ) DO S = 1, mapData%nSlots N = mapData%slot2id(S) - State_Diag%SpeciesConcVV(:,:,:,S) = TmpSpcArr(:,:,:,N) + State_Diag%SpeciesConcVV(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:) ENDDO !$OMP END PARALLEL DO @@ -716,7 +668,8 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! Archie into SatDiagnConc diagnostic array DO S = 1, State_Diag%Map_SatDiagnConc%nSlots N = State_Diag%Map_SatDiagnConc%slot2id(S) - State_Diag%SatDiagnConc(I,:,:,S) = TmpSpcArr(I,:,:,N) * GOOD + State_Diag%SatDiagnConc(I,:,:,S) = & + State_Chm%Species(N)%Conc(I,:,:) * GOOD ENDDO ENDDO !$OMP END PARALLEL DO @@ -735,7 +688,7 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & !$OMP PRIVATE( N, S ) DO S = 1, mapData%nSlots N = mapData%slot2id(S) - State_Diag%SpeciesBC(:,:,:,S) = TmpSpcArr(:,:,:,N) + State_Diag%SpeciesBC(:,:,:,S) = State_Chm%Species(N)%Conc(:,:,:) ENDDO !$OMP END PARALLEL DO @@ -748,8 +701,14 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! Copy species to SpeciesRst (restart file output) [v/v dry] !======================================================================= IF ( State_Diag%Archive_SpeciesRst ) THEN - State_Diag%SpeciesRst(:,:,:,:) = TmpSpcArr(:,:,:,:) - ENDIF + !$OMP PARALLEL DO & + !$OMP DEFAULT( SHARED ) & + !$OMP PRIVATE( N ) + DO N = 1, State_Chm%nSpecies + State_Diag%SpeciesRst(:,:,:,N) = State_Chm%Species(N)%Conc(:,:,:) + ENDDO + !$OMP END PARALLEL DO + ENDIF !======================================================================= ! Diagnostic for correcting species concentrations from the height @@ -784,9 +743,9 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! Loop over the number of drydep species that we wish ! to save at a user-specified altitude above the surface - !$OMP PARALLEL DO & - !$OMP DEFAULT( SHARED ) & - !$OMP PRIVATE( D, N, I, J, TmpVal, Conv ) + !$OMP PARALLEL DO & + !$OMP DEFAULT( SHARED ) & + !$OMP PRIVATE( D, N, I, J, Conv ) DO D = 1, State_Chm%nDryAlt ! Get the corresponding species index and drydep index @@ -796,9 +755,6 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & DO J = 1, State_Grid%NY DO I = 1, State_Grid%NX - ! Species concentration [v/v dry] - TmpVal = TmpSpcArr(I,J,1,N) - ! Conversion factor used to translate from ! lowest model layer (~60m) to the surface Conv = ( 1.0_fp & @@ -810,7 +766,8 @@ SUBROUTINE Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & ! Save concentration at the user-defined altitude ! as defined in geoschem_config.yml (usually 10m). - State_Diag%SpeciesConcALT1(I,J,D) = TmpVal * Conv + State_Diag%SpeciesConcALT1(I,J,D) = & + State_Chm%Species(N)%Conc(I,J,1) * Conv ENDDO ENDDO @@ -830,7 +787,7 @@ END SUBROUTINE Set_SpcConc_Diags_VVDry ! ! !DESCRIPTION: Subroutine Set_SpcConc\_Diags\_MND sets several species ! concentration diagnostic arrays stored in State_Diag to the instantaneous -! State_Chm%Species values (in units of "v/v, dry air"). +! State_Chm%Species values (in units of "molecules/cm3 air"). !\\ !\\ ! !INTERFACE: @@ -1778,7 +1735,8 @@ SUBROUTINE Set_AerMass_Diagnostic( Input_Opt, State_Chm, State_Diag, & ! ! !USES: ! - USE Aerosol_Mod, ONLY : IS_POA, IS_OPOA + USE Aerosol_Mod, ONLY : Is_POA, Is_OPOA, Is_OCPO, Is_OCPI + USE Aerosol_Mod, ONLY : Is_ComplexSOA, Is_SimpleSOA USE ErrCode_Mod USE Input_Opt_Mod, ONLY : OptInput USE Species_Mod, ONLY : Species, SpcConc @@ -2097,7 +2055,7 @@ SUBROUTINE Set_AerMass_Diagnostic( Input_Opt, State_Chm, State_Diag, & IF ( State_Diag%Archive_AerMassPOA ) THEN IF ( Is_POA ) THEN State_Diag%AerMassPOA(I,J,L) = OCPO(I,J,L) * kgm3_to_ugm3 - ELSE + ELSEIF ( Is_OCPO ) THEN State_Diag%AerMassPOA(I,J,L) = ( OCPI(I,J,L) + OCPO(I,J,L) ) * & kgm3_to_ugm3 ENDIF @@ -2168,12 +2126,13 @@ SUBROUTINE Set_AerMass_Diagnostic( Input_Opt, State_Chm, State_Diag, & ! PDER [nm] !-------------------------------------- IF ( State_Diag%Archive_PDER ) THEN - State_Diag%PDER(I,J,L) = PDER(I,J,L) + State_Diag%PDER(I,J,L) = PDER(I,J,L) ENDIF !-------------------------------------- ! Sum of all biogenic organic aerosol !-------------------------------------- + ! ComplexSOA only IF ( State_Diag%Archive_TotalBiogenicOA ) THEN State_Diag%TotalBiogenicOA(I,J,L) = ( TSOA(I,J,L) + ISOAAQ(I,J,L) ) & * kgm3_to_ugm3 @@ -2182,34 +2141,47 @@ SUBROUTINE Set_AerMass_Diagnostic( Input_Opt, State_Chm, State_Diag, & !-------------------------------------- ! Sum of all organic aerosol [ug/m3] !-------------------------------------- + ! Now TotalOA also works for simpleSOA IF ( State_Diag%Archive_TotalOA ) THEN - State_Diag%TotalOA(I,J,L) = ( TSOA(I,J,L) + & - ASOA(I,J,L) + & - OCPO(I,J,L) + & - OCPI(I,J,L) + & - OPOA(I,J,L) + & - ISOAAQ(I,J,L) ) * kgm3_to_ugm3 + State_Diag%TotalOA(I,J,L) = ( OCPO(I,J,L) + & + OCPISOA(I,J,L) ) * kgm3_to_ugm3 ENDIF !-------------------------------------- ! Sum of all organic carbon [ug/m3] !-------------------------------------- + ! ComplexSOA only + ! since OM/OC ratio is not available for SOAS + ! consistent with aerosol_mod.F90 IF ( State_Diag%Archive_TotalOC ) THEN + ! Hydrophobic OC IF ( Is_POA ) THEN State_Diag%TotalOC(I,J,L) = & - ( ( TSOA(I,J,L) + ASOA(I,J,L) & - + OCPI(I,J,L) + OPOA(I,J,L) ) / OCFOPOA(I,J) & + ( ( TSOA(I,J,L) + ASOA(I,J,L) ) / OCFOPOA(I,J) & + OCPO(I,J,L) / OCFPOA(I,J) ) * kgm3_to_ugm3 - - ELSE IF ( Is_OPOA ) THEN + ELSE IF ( Is_OCPO ) THEN State_Diag%TotalOC(I,J,L) = & ( ( TSOA(I,J,L) + ASOA(I,J,L) & - + OCPO(I,J,L) + OCPI(I,J,L) + OPOA(I,J,L) ) & - / OCFOPOA(I,J) ) * kgm3_to_ugm3 + + OCPO(I,J,L) ) / OCFOPOA(I,J) ) * kgm3_to_ugm3 + ENDIF + + ! Hydrophilic OC + IF (Is_OCPI) THEN + State_Diag%TotalOC(I,J,L) = State_Diag%TotalOC(I,J,L) + & + ( OCPI(I,J,L) / OCFOPOA(I,J) * & + kgm3_to_ugm3 ) + ENDIF + + ! OPOA OC + IF (Is_OPOA) THEN + State_Diag%TotalOC(I,J,L) = State_Diag%TotalOC(I,J,L) + & + ( OPOA(I,J,L) / OCFOPOA(I,J) * & + kgm3_to_ugm3 ) ENDIF - IF ( Input_Opt%LSOA ) THEN + ! Isoprene SOA OC + IF ( Is_ComplexSOA ) THEN State_Diag%TotalOC(I,J,L) = State_Diag%TotalOC(I,J,L) + & ( ( Spc(id_SOAIE )%Conc(I,J,L) * Fac_SOAIE ) + & ( Spc(id_INDIOL)%Conc(I,J,L) * Fac_INDIOL ) + & diff --git a/GeosCore/fjx_interface_mod.F90 b/GeosCore/fjx_interface_mod.F90 index f23bae94f..ddddb5a18 100644 --- a/GeosCore/fjx_interface_mod.F90 +++ b/GeosCore/fjx_interface_mod.F90 @@ -57,6 +57,7 @@ SUBROUTINE Init_FastJX( Input_Opt, State_Diag, State_Chm, RC ) ! ! !USES: ! + USE Aerosol_Mod, ONLY : RD_AOD, CALC_AOD USE CMN_FJX_Mod, ONLY : JVN_, NJX, NRATJ, W_, WL USE CMN_FJX_Mod, ONLY : TITLEJX, JLABEL, RNAMES, JFACTA USE ErrCode_Mod @@ -202,6 +203,27 @@ SUBROUTINE Init_FastJX( Input_Opt, State_Diag, State_Chm, RC ) ENDIF #endif + !------------------------------------------------------------------------ + ! Read in AOD data + !------------------------------------------------------------------------ + CALL RD_AOD( Input_Opt, State_Chm, RC ) + IF ( RC /= GC_SUCCESS ) THEN + ErrMsg = 'Error encountered in routine "RD_AOD"!' + CALL GC_Error( ErrMsg, RC, ThisLoc ) + RETURN + ENDIF + IF (Input_Opt%amIRoot) WRITE(6,*) 'Wavelength optics read successfully' + + !------------------------------------------------------------------------ + ! Compute the required wavelengths in the LUT to calculate requested AOD + !------------------------------------------------------------------------ + CALL CALC_AOD( Input_Opt, State_Chm, RC ) + IF ( RC /= GC_SUCCESS ) THEN + ErrMsg = 'Error encountered in routine "CALC_AOD"!' + CALL GC_Error( ErrMsg, RC, ThisLoc ) + RETURN + ENDIF + END SUBROUTINE Init_FastJX !EOC !------------------------------------------------------------------------------ diff --git a/GeosCore/flexgrid_read_mod.F90 b/GeosCore/flexgrid_read_mod.F90 index 43624359c..93ea8cbc0 100644 --- a/GeosCore/flexgrid_read_mod.F90 +++ b/GeosCore/flexgrid_read_mod.F90 @@ -500,6 +500,18 @@ SUBROUTINE FlexGrid_Read_A1( YYYYMMDD, HHMMSS, Input_Opt, State_Grid, & CALL Get_Met_2D( Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index ) State_Met%Z0 = Q + !====================================================================== + ! Get fields for soil NOX extension only when needed + !====================================================================== + IF ( Input_Opt%LSOILNOX .and. Input_Opt%UseSoilTemp ) THEN + + ! Read TSOIL1 + v_name = "TSOIL1" + CALL Get_Met_2D(Input_Opt, State_Grid, Q, TRIM(v_name), t_index=t_index) + State_Met%TSOIL1 = Q + + ENDIF + ! Echo info stamp = TimeStamp_String( YYYYMMDD, HHMMSS ) WRITE( 6, 10 ) stamp diff --git a/GeosCore/fullchem_mod.F90 b/GeosCore/fullchem_mod.F90 index 0bbe52b9a..ecdda088d 100644 --- a/GeosCore/fullchem_mod.F90 +++ b/GeosCore/fullchem_mod.F90 @@ -468,10 +468,10 @@ SUBROUTINE Do_FullChem( Input_Opt, State_Chm, State_Diag, & !%%%%% CONVERGENCE CRITERIA %%%%% ! Absolute tolerance - ATOL = 1e-2_dp + ATOL = State_Chm%KPP_AbsTol ! Relative tolerance - RTOL = 0.5e-2_dp + RTOL = State_Chm%KPP_RelTol !======================================================================= ! %%%%% SOLVE CHEMISTRY -- This is the main KPP solver loop %%%%% @@ -2822,6 +2822,19 @@ SUBROUTINE Init_FullChem( Input_Opt, State_Chm, State_Diag, RC ) State_Diag%Archive_O1DconcAfterChem .or. & State_Diag%Archive_O3PconcAfterChem ) + + !======================================================================= + ! Assign default values for KPP absolute and relative tolerances + ! for species where these have not been explicitly defined. + !======================================================================= + WHERE( State_Chm%KPP_AbsTol == MISSING_DBLE ) + State_Chm%KPP_AbsTol = 1.0e-2_f8 + ENDWHERE + + WHERE( State_Chm%KPP_RelTol == MISSING_DBLE ) + State_Chm%KPP_RelTol = 0.5e-2_f8 + ENDWHERE + !======================================================================= ! Save physical parameters from the species database into KPP arrays ! in gckpp_Global.F90. These are for the hetchem routines. @@ -2835,7 +2848,6 @@ SUBROUTINE Init_FullChem( Input_Opt, State_Chm, State_Diag, RC ) HENRY_CR(KppId) = State_Chm%SpcData(N)%Info%Henry_CR ENDIF ENDDO - !======================================================================= ! Allocate arrays !======================================================================= diff --git a/GeosCore/gc_environment_mod.F90 b/GeosCore/gc_environment_mod.F90 index 4057e1699..2aad174fc 100644 --- a/GeosCore/gc_environment_mod.F90 +++ b/GeosCore/gc_environment_mod.F90 @@ -608,8 +608,8 @@ SUBROUTINE GC_Init_Extra( Diag_List, Input_Opt, State_Chm, & !----------------------------------------------------------------- ! Initialize "aerosol_mod.F90" !----------------------------------------------------------------- - IF ( Input_Opt%LSULF .or. Input_Opt%LCARB .or. & - Input_Opt%LDUST .or. Input_Opt%LSSALT ) THEN + IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. & + Input_Opt%ITS_AN_AEROSOL_SIM ) THEN CALL Init_Aerosol( Input_Opt, State_Chm, State_Diag, State_Grid, RC ) IF ( RC /= GC_SUCCESS ) THEN ErrMsg = 'Error encountered in "Init_Aerosol"!' diff --git a/GeosCore/get_ndep_mod.F90 b/GeosCore/get_ndep_mod.F90 index c4f663d58..6edcf9ed9 100644 --- a/GeosCore/get_ndep_mod.F90 +++ b/GeosCore/get_ndep_mod.F90 @@ -77,7 +77,7 @@ MODULE GET_NDEP_MOD !\\ ! !INTERFACE: ! - SUBROUTINE SOIL_DRYDEP( I, J, L, NN, TDRYFX, State_Chm ) + SUBROUTINE SOIL_DRYDEP( I, J, NN, TDRYFX, State_Chm ) ! ! !USES: ! @@ -87,7 +87,6 @@ SUBROUTINE SOIL_DRYDEP( I, J, L, NN, TDRYFX, State_Chm ) ! INTEGER, INTENT(IN) :: I ! I INTEGER, INTENT(IN) :: J ! J - INTEGER, INTENT(IN) :: L ! Level INTEGER, INTENT(IN) :: NN ! Dry Dep Tracer # REAL(fp), INTENT(IN) :: TDRYFX ! Dry dep flux [molec/cm2/s] ! @@ -126,7 +125,7 @@ END SUBROUTINE SOIL_DRYDEP !\\ ! !INTERFACE: ! - SUBROUTINE SOIL_WETDEP( I, J, L, NN, TWETFX, State_Chm ) + SUBROUTINE SOIL_WETDEP( I, J, NN, TWETFX, State_Chm ) ! ! !USES: ! @@ -136,7 +135,6 @@ SUBROUTINE SOIL_WETDEP( I, J, L, NN, TWETFX, State_Chm ) ! INTEGER, INTENT(IN) :: I ! I INTEGER, INTENT(IN) :: J ! J - INTEGER, INTENT(IN) :: L ! Level INTEGER, INTENT(IN) :: NN ! Wet Dep Tracer # REAL(fp), INTENT(IN) :: TWETFX ! Wet dep flux [kg/s] ! diff --git a/GeosCore/global_ch4_mod.F90 b/GeosCore/global_ch4_mod.F90 index 64dc749ee..3077177d4 100644 --- a/GeosCore/global_ch4_mod.F90 +++ b/GeosCore/global_ch4_mod.F90 @@ -28,7 +28,7 @@ MODULE GLOBAL_CH4_MOD ! ! !PUBLIC DATA MEMBERS: ! - REAL(fp), PARAMETER, PUBLIC :: XNUMOL_CH4 = AVO / 16d-3 ! hard-coded MW + REAL(fp), PARAMETER, PUBLIC :: XNUMOL_CH4 = AVO / 16.04e-3_fp ! hard-coded MW ! ! !REVISION HISTORY: ! 17 Jan 2001- J. Wang, B. Duncan, R. Yantosca -- Initial version @@ -43,8 +43,8 @@ MODULE GLOBAL_CH4_MOD ! XNUMOL_CH4 : Molecules CH4 / kg CH4 [molec/kg] !======================================================================== - REAL(fp), PARAMETER :: XNUMOL_OH = AVO / 17e-3_fp ! molec OH / kg OH - ! hard-coded MW + REAL(fp), PARAMETER :: XNUMOL_OH = AVO / 17.01e-3_fp ! molec OH / kg OH + ! hard-coded MW REAL(fp), PARAMETER :: CM3PERM3 = 1.e+6_fp ! ! !LOCAL VARIABLES: diff --git a/GeosCore/gosat_ch4_mod.F90 b/GeosCore/gosat_ch4_mod.F90 index 2d8737c09..f22215a44 100644 --- a/GeosCore/gosat_ch4_mod.F90 +++ b/GeosCore/gosat_ch4_mod.F90 @@ -367,7 +367,7 @@ SUBROUTINE CALC_GOSAT_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & USE State_Grid_Mod, ONLY : GrdState USE State_Met_Mod, ONLY : MetState USE Timers_Mod, ONLY : Timer_End, Timer_Start - USE UnitConv_Mod + USE UnitConv_Mod, ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR ! ! !INPUT PARAMETERS: ! @@ -400,7 +400,6 @@ SUBROUTINE CALC_GOSAT_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & INTEGER :: IIJJ(2), I, J, N INTEGER :: L, LL, LGOS INTEGER :: JLOOP, NOBS, IND - INTEGER :: previous_units INTEGER :: INDS(MAXGOS) REAL(fp) :: REF_DATE, TIME REAL(fp) :: GC_PRES(State_Grid%NZ) @@ -583,33 +582,13 @@ SUBROUTINE CALC_GOSAT_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & print*, ' for hour range: ', GET_HOUR(), GET_HOUR()+1 print*, ' found # GOSAT observations: ', NOBS - ! Halt diagnostics timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "Diagnostics", RC ) - ENDIF - - ! Convert species units to [v/v dry] aka [mol/mol dry] - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - mapping = State_Chm%Map_Advect, & - new_units = MOLES_SPECIES_PER_MOLES_DRY_AIR, & - previous_units = previous_units, & - RC = RC ) - - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Unit conversion error (kg/kg dry -> v/v dry)' + ! Verify that incoming State_Chm%Species units are mol/mol dry air. + IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN + ErrMsg = 'Not all species are in "mol/mol dry" units!' CALL GC_Error( ErrMsg, RC, ThisLoc ) RETURN ENDIF - ! Start diagnostics timer again - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "Diagnostics", RC ) - ENDIF - !! need to update this in order to do i/o with this loop parallel !! ! Now do a parallel loop for analyzing data !!!$OMP PARALLEL DO & @@ -951,32 +930,6 @@ SUBROUTINE CALC_GOSAT_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & ! Update cost function COST_FUNC = COST_FUNC + SUM(NEW_COST(:)) - ! Halt diagnostics timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "Diagnostics", RC ) - ENDIF - - ! Convert species units back to original unit (mps, 6/12/2020) - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - mapping = State_Chm%Map_Advect, & - new_units = previous_units, & - RC = RC ) - - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Unit conversion error' - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - - ! Start diagnostics timer - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "Diagnostics", RC ) - ENDIF - 283 FORMAT( I10,2x,I4,2x,I4,2x,F8.3,2x,F8.4,2x,I4,2x, & I2,2x,I2,2x,I2,2x,I2,2x,I2,2x, & F12.3,2x,E12.6,2x,E12.6,2x,E12.6,2x, & diff --git a/GeosCore/hco_interface_gc_mod.F90 b/GeosCore/hco_interface_gc_mod.F90 index 0a778a1df..aae32785b 100644 --- a/GeosCore/hco_interface_gc_mod.F90 +++ b/GeosCore/hco_interface_gc_mod.F90 @@ -674,6 +674,7 @@ SUBROUTINE HCOI_GC_Init( Input_Opt, State_Chm, State_Grid, & ! Soil NOx Input_Opt%LSOILNOX = ( ExtState%SoilNOx > 0 ) + Input_Opt%UseSoilTemp = ExtState%TSOIL1%DoUse ! Ginoux dust emissions IF ( ExtState%DustGinoux > 0 ) THEN @@ -2286,6 +2287,23 @@ SUBROUTINE ExtState_SetFields( Input_Opt, State_Chm, State_Grid, State_Met, HcoS RETURN ENDIF + ! TSOIL1 +#if defined( MODEL_CLASSIC ) + CALL ExtDat_Set( HcoState, ExtState%TSOIL1, 'TSOIL', & + HMRC, FIRST ) +#else + CALL ExtDat_Set( HcoState, ExtState%TSOIL1, 'TSOIL1_FOR_EMIS', & + HMRC, FIRST, State_Met%TSOIL1 ) +#endif + + ! Trap potential errors + IF ( HMRC /= HCO_SUCCESS ) THEN + RC = HMRC + ErrMsg = 'Error encountered in "ExtDat_Set( TSOIL1_FOR_EMIS )"!' + CALL GC_Error( ErrMsg, RC, ThisLoc, Instr ) + RETURN + ENDIF + ! GWETROOT #if defined( MODEL_CLASSIC ) CALL ExtDat_Set( HcoState, ExtState%GWETROOT, 'GWETROOT', & @@ -4382,22 +4400,6 @@ SUBROUTINE Get_Met_Fields( Input_Opt, State_Chm, State_Grid, & D = GET_FIRST_I3_TIME() CALL FlexGrid_Read_I3_1( D(1), D(2), Input_Opt, State_Grid, State_Met ) - ! Get delta pressure per grid box stored in restart file to allow - ! mass conservation across consecutive runs. - v_name = 'DELPDRY' - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name), Ptr3D, RC, FOUND=FOUND ) - IF ( FOUND ) THEN - State_Met%DELP_DRY = Ptr3D - IF ( Input_Opt%amIRoot ) THEN - WRITE(6,*) 'Initialize DELP_DRY from restart file' - ENDIF - ELSE - IF ( Input_Opt%amIRoot ) THEN - WRITE(6,*) 'DELP_DRY not found in restart, set to zero' - ENDIF - ENDIF - Ptr3D => NULL() - ! Set dry surface pressure (PS1_DRY) from State_Met%PS1_WET ! and compute avg dry pressure near polar caps CALL Set_Dry_Surface_Pressure( State_Grid, State_Met, 1 ) @@ -4956,9 +4958,6 @@ SUBROUTINE Compute_Sflx_for_Vdiff( Input_Opt, State_Chm, State_Diag, & ! Loop over only the drydep species ! If drydep is turned off, nDryDep=0 and the loop won't execute - !$OMP PARALLEL DO & - !$OMP DEFAULT( SHARED )& - !$OMP PRIVATE( ND, N, ThisSpc, MW_kg, tmpFlx, S ) DO ND = 1, State_Chm%nDryDep ! Get the species ID from the drydep ID @@ -5005,22 +5004,24 @@ SUBROUTINE Compute_Sflx_for_Vdiff( Input_Opt, State_Chm, State_Diag, & !----------------------------------------------------------------- IF ( Input_Opt%LSOILNOX ) THEN tmpFlx = 0.0_fp + !$OMP PARALLEL DO & + !$OMP DEFAULT( SHARED )& + !$OMP PRIVATE( I, J, tmpFlx ) DO J = 1, State_Grid%NY DO I = 1, State_Grid%NX - tmpFlx = dflx(I,J,N) & - / MW_kg & - * AVO * 1.e-4_fp & + tmpFlx = dflx(I,J,N) / MW_kg * AVO * 1.e-4_fp & * GET_TS_CONV() / GET_TS_EMIS() - - CALL Soil_DryDep( I, J, 1, N, tmpFlx, State_Chm ) + CALL Soil_DryDep( I, J, N, tmpFlx, State_Chm ) ENDDO ENDDO + !$OMP END PARALLEL DO ENDIF ! Free species database pointer ThisSpc => NULL() + ENDDO - !$OMP END PARALLEL DO + ENDIF !======================================================================= diff --git a/GeosCore/hco_utilities_gc_mod.F90 b/GeosCore/hco_utilities_gc_mod.F90 index 3b3853099..76c10ca31 100644 --- a/GeosCore/hco_utilities_gc_mod.F90 +++ b/GeosCore/hco_utilities_gc_mod.F90 @@ -1559,8 +1559,7 @@ END SUBROUTINE HCO_GC_GetDiagn_2D ! !IROUTINE: get_gc_restart ! ! !DESCRIPTION: Subroutine GET\_GC\_RESTART reads species concentrations -! [mol/mol] from the GEOS-Chem restart file and uses them to initialize -! species concentrations in [kg/kg dry]. If species data are missing from +! [mol/mol] from the GEOS-Chem restart file. If species data are missing from ! the restart file, pre-configured background values are used. If using the ! mercury simulation, additional restart data are read from file. !\\ @@ -1584,7 +1583,7 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & USE State_Met_Mod, ONLY : MetState USE Time_Mod, ONLY : Expand_Date USE Timers_Mod, ONLY : Timer_End, Timer_Start - USE UnitConv_Mod + USE UnitConv_Mod, ONLY : MOLES_SPECIES_PER_MOLES_DRY_AIR #ifdef APM USE APM_Init_Mod, ONLY : APMIDS #endif @@ -1619,8 +1618,8 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & CHARACTER(LEN=60) :: Prefix ! utility string CHARACTER(LEN=255) :: LOC ! routine location CHARACTER(LEN=255) :: MSG ! message - CHARACTER(LEN=255) :: v_name ! variable name - REAL(fp) :: MW_g ! species molecular weight + CHARACTER(LEN=255) :: v_name_in_hemco ! variable name in HEMCO + CHARACTER(LEN=255) :: v_name_in_file ! variable name in restart file REAL(fp) :: SMALL_NUM ! small number threshold ! Temporary arrays and pointers @@ -1661,6 +1660,13 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & ! Set pointer to species concentrations Spc => State_Chm%Species + ! FORMAT strings +500 FORMAT( a ) +510 FORMAT( a21, ': Min = ', es15.9, ' Max = ', es15.9, ' Sum = ',es15.9 ) +520 FORMAT( a21, ': not found in GEOS-Chem restart file, setting to zero' ) +530 FORMAT( 'Species ', i3, ', ', a9, ': Min = ', es15.9, ', Max = ', es15.9, ' Sum = ',es15.9 ) +540 FORMAT( 'Species ', i3, ', ', a9, ': not found in restart, setting to background = ', es15.9) + !================================================================= ! Open GEOS-Chem restart file !================================================================= @@ -1671,12 +1677,12 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !================================================================= ! Read species concentrations from NetCDF or use default - ! background [mol/mol]; store in State_Chm%Species%Conc in [kg/kg dry] + ! background [mol/mol] !================================================================= ! Print header for min/max concentration to log WRITE( 6, 110 ) -110 FORMAT( 'Min and Max of each species in restart file [mol/mol]:' ) +110 FORMAT( 'Min, max, and sum of each species in restart file [mol/mol]:' ) ! Loop over species DO N = 1, State_Chm%nSpecies @@ -1686,17 +1692,17 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & ! Get info about this species from the species database SpcInfo => State_Chm%SpcData(N)%Info - MW_g = SpcInfo%MW_g ! Define variable name - v_name = 'SPC_' // TRIM( SpcInfo%Name ) + v_name_in_hemco = 'SPC_' // TRIM( SpcInfo%Name ) + v_name_in_file = 'SpeciesRst_' // TRIM( SpcInfo%Name ) ! Initialize temporary array for this species and point to it Temp3D = 0.0_fp Ptr3D => Temp3D ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name_in_hemco), & Ptr3D, RC, FOUND=FOUND ) ! Check if species data is in file @@ -1706,31 +1712,27 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & SpcInfo%Is_InRestart = .FALSE. ENDIF - ! If data is in file, read in as [mol/mol] and convert to - ! [kg/kg dry]. Otherwise, set to background value [mol/mol] - ! either stored in species database (advected species all levels and - ! non-advected species levels in the chemistry grid) or a small number - ! (non-advected species levels above the chemistry grid) converted to - ! [kg/kg dry] + ! If data is in file, read in as [mol/mol]. Otherwise, set to + ! background value [mol/mol] either stored in species database + ! (advected species all levels and non-advected species levels + ! in the chemistry grid) or a small number (non-advected species + ! levels above the chemistry grid). IF ( SpcInfo%Is_InRestart ) THEN - ! Print the min & max of each species as it is read from + ! Print the min, max, and sum of each species as it is read from ! the restart file in mol/mol IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 120 ) N, TRIM( SpcInfo%Name ), & + WRITE( 6, 530 ) N, TRIM( SpcInfo%Name ), & MINVAL( Ptr3D ), MAXVAL( Ptr3D ), SUM ( Ptr3D(:,:,1:State_Grid%NZ) ) -120 FORMAT( 'Species ', i3, ', ', a8, ': Min = ', es15.9, & - ' Max = ',es15.9, ' Sum = ',es15.9) ENDIF - ! Convert file value [mol/mol] to [kg/kg dry] for storage !$OMP PARALLEL DO & !$OMP DEFAULT( SHARED ) & !$OMP PRIVATE( I, J, L ) DO L = 1, State_Grid%NZ DO J = 1, State_Grid%NY DO I = 1, State_Grid%NX - Spc(N)%Conc(I,J,L) = Ptr3D(I,J,L) * MW_g / AIRMW + Spc(N)%Conc(I,J,L) = Ptr3D(I,J,L) ENDDO ENDDO ENDDO @@ -1738,7 +1740,7 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & ELSE - ! Set species to the background value converted to [kg/kg dry] + ! Set species to the background value !$OMP PARALLEL DO & !$OMP DEFAULT( SHARED ) & !$OMP PRIVATE( I, J, L ) @@ -1752,21 +1754,18 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & IF ( L > State_Grid%MaxChemLev .and. & .NOT. SpcInfo%Is_Advected ) THEN - Spc(N)%Conc(I,J,L) = SMALL_NUM * MW_g / AIRMW + Spc(N)%Conc(I,J,L) = SMALL_NUM ! For all other cases, use the background value ! stored in the species database ELSE - Spc(N)%Conc(I,J,L) = SpcInfo%BackgroundVV & - * MW_g / AIRMW + Spc(N)%Conc(I,J,L) = SpcInfo%BackgroundVV - ! Print to log if debugging is on + ! Print to log a warning that background values will be used IF ( Input_Opt%amIRoot .AND. & I == 1 .AND. J == 1 .AND. L == 1 ) THEN - WRITE( 6, 140 ) N, TRIM( SpcInfo%Name ), SpcInfo%BackgroundVV -140 FORMAT('Species ', i3, ', ', a9, & - ': Use background = ', es15.9) + WRITE( 6, 540 ) N, TRIM( SpcInfo%Name ), SpcInfo%BackgroundVV ENDIF @@ -1897,85 +1896,40 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & ENDIF ! Set the initial unit flags - State_Chm%Species(N)%Units = KG_SPECIES_PER_KG_DRY_AIR + State_Chm%Species(N)%Units = MOLES_SPECIES_PER_MOLES_DRY_AIR ! Free pointer SpcInfo => NULL() ENDDO - ! If in debug mode, print out species min and max in [molec/cm3] - IF ( Input_Opt%Verbose ) THEN - - ! Convert units - PRINT *, " " - PRINT *, "Species min and max in molec/cm3" - - ! Halt HEMCO timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "HEMCO", RC ) - ENDIF - - ! Convert units - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - new_units = MOLECULES_SPECIES_PER_CM3, & - previous_units = previous_units, & - RC = RC ) - - ! Trap error - IF ( RC /= GC_SUCCESS ) THEN - Msg = 'Error returned from Convert_Spc_Units, call #1!' - CALL GC_Error( Msg, RC, Loc ) - RETURN - ENDIF - - ! Start HEMCO timer again - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "HEMCO", RC ) - ENDIF - - ! Print values - DO N = 1, State_Chm%nSpecies - SpcInfo => State_Chm%SpcData(N)%Info - WRITE(6,150) N, TRIM( SpcInfo%Name ), & - MINVAL( Spc(N)%Conc(:,:,:) ), & - MAXVAL( Spc(N)%Conc(:,:,:) ) -150 FORMAT( 'Species ', i3, ', ', a9, & - ': Min = ', es15.9, ', Max = ', es15.9 ) - SpcInfo => NULL() - ENDDO - - ! Halt HEMCO timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "HEMCO", RC ) - ENDIF - - ! Convert units back - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - new_units = previous_units, & - RC = RC ) - - ! Trap error - IF ( RC /= GC_SUCCESS ) THEN - Msg = 'Error returned from Convert_Spc_Units, call #2!' - CALL GC_Error( Msg, RC, Loc ) - RETURN - ENDIF - - ! Start HEMCO timer again - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "HEMCO", RC ) + !========================================================================= + ! Get delta pressure per grid box stored in restart file to allow mass + ! conservation across consecutive runs + !======================================================================== + v_name_in_hemco = 'DELPDRY' + v_name_in_file = 'Met_DELPDRY' + + ! Get variable from HEMCO and store in local array + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & + Ptr3D, RC, FOUND=FOUND ) + + IF ( FOUND ) THEN + State_Met%DELP_DRY = Ptr3D + IF ( Input_Opt%amIRoot ) THEN + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & + MINVAL( State_Met%DELP_DRY ), & + MAXVAL( State_Met%DELP_DRY ), & + SUM( State_Met%DELP_DRY ) ENDIF + ELSE + State_Met%DELP_DRY = 0.0_fp + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF + ! Nullify pointer + Ptr3D => NULL() + !========================================================================= ! Get variables for KPP mechanisms (right now just fullchem and Hg) !========================================================================= @@ -1985,34 +1939,30 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! KPP_HVALUE (count of internal timesteps at each grid box) !---------------------------------------------------------------------- - v_name = 'KPP_HVALUE' + v_name_in_hemco = 'KPP_HVALUE' + v_name_in_file = 'Chem_KPPHvalue' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr3D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%KPPHvalue = Ptr3D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%KPPHvalue ), & MAXVAL( State_Chm%KPPHvalue ), & SUM( State_Chm%KPPHvalue ) ENDIF ELSE State_Chm%KPPHvalue = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer Ptr3D => NULL() - ! FORMAT strings -500 FORMAT( a ) -510 FORMAT( a21, ': Min = ', es15.9, ' Max = ', es15.9, ' Sum = ',es15.9 ) -520 FORMAT( a21, ': not found in restart, set to zero' ) - ENDIF !========================================================================= @@ -2023,24 +1973,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! WETDEP_N (wet-deposited nitrogen) !---------------------------------------------------------------------- - v_name = 'WETDEP_N' + v_name_in_hemco = 'WETDEP_N' + v_name_in_file = 'Chem_WetDepNitrogen' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr2D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%WetDepNitrogen = Ptr2D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%WetDepNitrogen ), & MAXVAL( State_Chm%WetDepNitrogen ), & SUM( State_Chm%WetDepNitrogen ) ENDIF ELSE State_Chm%WetDepNitrogen = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) TRIM( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) TRIM( v_name_in_file ) ENDIF ! Nullify pointer @@ -2049,24 +2000,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! DRYDEP_N (dry-deposited nitrogen) !---------------------------------------------------------------------- - v_name = 'DRYDEP_N' + v_name_in_hemco = 'DRYDEP_N' + v_name_in_file = 'Chem_WetDepNitrogen' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr2D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%DryDepNitrogen = Ptr2D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%DryDepNitrogen ), & MAXVAL( State_Chm%DryDepNitrogen ), & SUM( State_Chm%DryDepNitrogen ) ENDIF ELSE State_Chm%DryDepNitrogen = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer @@ -2083,24 +2035,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! H2O2_AFTERCHEM !---------------------------------------------------------------------- - v_name = 'H2O2_AFTERCHEM' + v_name_in_hemco = 'H2O2_AFTERCHEM' + v_name_in_file = 'Chem_H2O2AfterChem' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr3D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%H2O2AfterChem = Ptr3D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%H2O2AfterChem ), & MAXVAL( State_Chm%H2O2AfterChem ), & SUM( State_Chm%H2O2AfterChem ) ENDIF ELSE State_Chm%H2O2AfterChem = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer @@ -2109,24 +2062,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! SO2_AFTERCHEM !---------------------------------------------------------------------- - v_name = 'SO2_AFTERCHEM' + v_name_in_hemco = 'SO2_AFTERCHEM' + v_name_in_file = 'Chem_SO2AfterChem' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr3D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%SO2AfterChem = Ptr3D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%SO2AfterChem ), & MAXVAL( State_Chm%SO2AfterChem ), & SUM( State_Chm%SO2AfterChem ) ENDIF ELSE State_Chm%SO2AfterChem = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer @@ -2135,24 +2089,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! AeroH2O_SNA !---------------------------------------------------------------------- - v_name = 'AEROH2O_SNA' + v_name_in_hemco = 'AEROH2O_SNA' + v_name_in_file = 'Chem_AeroH2OSNA' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr3D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%AeroH2O(:,:,:,NDUST+1) = Ptr3D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%AeroH2O(:,:,:,NDUST+1) ), & MAXVAL( State_Chm%AeroH2O(:,:,:,NDUST+1) ), & SUM( State_Chm%AeroH2O(:,:,:,NDUST+1) ) ENDIF ELSE State_Chm%AeroH2O(:,:,:,NDUST+1) = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer @@ -2163,24 +2118,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- IF ( Input_Opt%LCARB .AND. Input_Opt%LSOA ) THEN - v_name = 'ORVCSESQ' + v_name_in_hemco = 'ORVCSESQ' + v_name_in_file = 'Chem_ORVCsesq' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & - Ptr3D, RC, FOUND=FOUND ) + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & + Ptr3D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%ORVCsesq(:,:,:) = Ptr3D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%ORVCsesq(:,:,:) ), & MAXVAL( State_Chm%ORVCsesq(:,:,:) ), & SUM( State_Chm%ORVCsesq(:,:,:) ) ENDIF ELSE State_Chm%ORVCsesq(:,:,:) = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer @@ -2198,17 +2154,18 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! STATE_PSC (needed to initialize UCX) !---------------------------------------------------------------------- - v_name = 'STATE_PSC' + v_name_in_hemco = 'STATE_PSC' + v_name_in_file = 'Chem_StatePSC' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr3D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%STATE_PSC = Ptr3D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%STATE_PSC ), & MAXVAL( State_Chm%STATE_PSC ), & SUM( State_Chm%STATE_PSC ) @@ -2240,24 +2197,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! JOH (needed to initialize PARANOx) !---------------------------------------------------------------------- - v_name = 'JOH' + v_name_in_hemco = 'JOH' + v_name_in_file = 'Chem_JOH' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr2D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%JOH = Ptr2D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%JOH ), & MAXVAL( State_Chm%JOH ), & SUM( State_Chm%JOH ) ENDIF ELSE State_Chm%JOH = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer @@ -2266,24 +2224,25 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & !---------------------------------------------------------------------- ! JNO2 (needed to initialize PARANOx) !---------------------------------------------------------------------- - v_name = 'JNO2' + v_name_in_hemco = 'JNO2' + v_name_in_file = 'Chem_JNO2' ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr2D, RC, FOUND=FOUND ) ! Check if variable is in file IF ( FOUND ) THEN State_Chm%JNO2 = Ptr2D IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 510 ) ADJUSTL( v_name ), & + WRITE( 6, 510 ) ADJUSTL( v_name_in_file ), & MINVAL( State_Chm%JNO2 ), & MAXVAL( State_Chm%JNO2 ), & SUM( State_Chm%JNO2 ) ENDIF ELSE State_Chm%JNO2 = 0.0_fp - IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name ) + IF ( Input_Opt%amIRoot ) WRITE( 6, 520 ) ADJUSTL( v_name_in_file ) ENDIF ! Nullify pointer Ptr2D => NULL() @@ -2313,10 +2272,10 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & CASE ( 3 ) HgSpc = 'HgP' END SELECT - v_name = 'OCEAN_' // TRIM( HgSpc ) + v_name_in_hemco = 'OCEAN_' // TRIM( HgSpc ) ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr2D, RC, FOUND=FOUND ) ! Check if variable is in file @@ -2335,20 +2294,20 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & SELECT CASE( M ) CASE ( 1 ) State_Chm%OceanHg0 = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%OceanHg0 ), 'kg' CASE ( 2 ) State_Chm%OceanHg2 = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%OceanHg2 ), 'kg' CASE ( 3 ) State_Chm%OceanHgP = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%OceanHgP ), 'kg' END SELECT ELSE - WRITE( 6, 230 ) TRIM( v_name ) + WRITE( 6, 230 ) TRIM( v_name_in_hemco ) ENDIF ! Nullify pointer @@ -2373,10 +2332,10 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & Prefix = 'SNOW_HG_LAND_STORED' ! Non-reducible on land END SELECT - v_name = TRIM( Prefix ) + v_name_in_hemco = TRIM( Prefix ) ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name ), & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM( v_name_in_hemco ), & Ptr2D, RC, FOUND=FOUND ) ! Check if variable is in file @@ -2386,24 +2345,24 @@ SUBROUTINE Get_GC_Restart( Input_Opt, State_Chm, State_Grid, & SELECT CASE( M ) CASE ( 1 ) State_Chm%SnowHgOcean = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%SnowHgOcean ), 'kg' CASE ( 2 ) State_Chm%SnowHgOceanStored = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%SnowHgOceanStored ),'kg' CASE ( 3 ) State_Chm%SnowHgLand = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%SnowHgLand ), 'kg' CASE ( 4 ) State_Chm%SnowHgLandStored = Ptr2D - WRITE( 6, 240 ) TRIM( v_name ), & + WRITE( 6, 240 ) TRIM( v_name_in_hemco ), & SUM( State_Chm%SnowHgLandStored ), 'kg' END SELECT ELSE - WRITE( 6, 230 ) TRIM( v_name ) + WRITE( 6, 230 ) TRIM( v_name_in_hemco ) ENDIF ENDDO @@ -2488,8 +2447,7 @@ SUBROUTINE Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, & CHARACTER(LEN=60) :: Prefix ! utility string CHARACTER(LEN=255) :: LOC ! routine location CHARACTER(LEN=255) :: MSG ! message - CHARACTER(LEN=255) :: v_name ! variable name - REAL(fp) :: MW_g ! species molecular weight + CHARACTER(LEN=255) :: v_name_in_hemco ! variable name CHARACTER(LEN=16) :: STAMP ! Temporary arrays and pointers @@ -2530,7 +2488,7 @@ SUBROUTINE Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, & !================================================================= ! Read species concentrations from NetCDF [mol/mol] and - ! store in State_Chm%BoundaryCond in [kg/kg dry] + ! store in State_Chm%BoundaryCond !================================================================= ! Print header for min/max concentration to log @@ -2550,17 +2508,16 @@ SUBROUTINE Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, & ! Get info about this species from the species database SpcInfo => State_Chm%SpcData(N)%Info - MW_g = SpcInfo%MW_g ! Define variable name - v_name = 'BC_' // TRIM( SpcInfo%Name ) + v_name_in_hemco = 'BC_' // TRIM( SpcInfo%Name ) ! Initialize temporary array for this species and point to it Temp3D = 0.0_fp Ptr3D => Temp3D ! Get variable from HEMCO and store in local array - CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name), Ptr3D, RC, & + CALL HCO_GC_GetPtr( Input_Opt, State_Grid, TRIM(v_name_in_hemco), Ptr3D, RC, & TIDX=t_index, FOUND=FOUND ) ! Check if BCs are found @@ -2577,9 +2534,8 @@ SUBROUTINE Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, & ENDIF ENDIF - ! Copy data from file to State_Chm%BoundaryCond - ! and convert from [mol/mol] to [kg/kg dry] - State_Chm%BoundaryCond(:,:,:,N) = Ptr3D(:,:,:) * MW_g / AIRMW + ! Copy data from file to State_Chm%BoundaryCond [mol/mol] + State_Chm%BoundaryCond(:,:,:,N) = Ptr3D(:,:,:) ! Debug ! Print*, 'BCs found for ', TRIM( SpcInfo%Name ), & @@ -2597,9 +2553,8 @@ SUBROUTINE Get_Boundary_Conditions( Input_Opt, State_Chm, State_Grid, & ENDIF ENDIF - ! Use the background value stored in the species database - State_Chm%BoundaryCond(:,:,:,N) = SpcInfo%BackgroundVV & - * MW_g / AIRMW + ! Use the background value stored in the species database [mol/mol] + State_Chm%BoundaryCond(:,:,:,N) = SpcInfo%BackgroundVV ENDIF diff --git a/GeosCore/input_mod.F90 b/GeosCore/input_mod.F90 index 6294d010f..451ccc431 100644 --- a/GeosCore/input_mod.F90 +++ b/GeosCore/input_mod.F90 @@ -1586,6 +1586,20 @@ SUBROUTINE Config_Aerosol( Config, Input_Opt, RC ) errMsg = '' thisLoc = ' -> at Config_Aerosol (in module GeosCore/input_mod.F90)' + !------------------------------------------------------------------------ + ! Directories with aerosol optical property input files + !------------------------------------------------------------------------ + + key = "aerosols%optics%input_dir" + v_str = MISSING_STR + CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%AER_OPTICS_DIR = TRIM( v_str ) + !------------------------------------------------------------------------ ! Use online carbon aerosols? !------------------------------------------------------------------------ @@ -1910,6 +1924,7 @@ SUBROUTINE Config_Aerosol( Config, Input_Opt, RC ) IF ( Input_Opt%amIRoot ) THEN WRITE( 6, 90 ) 'AEROSOL SETTINGS' WRITE( 6, 95 ) '----------------' + WRITE( 6, 125 ) 'Aerosol optical property dir: ', Input_Opt%AER_OPTICS_DIR WRITE( 6, 100 ) 'Online SULFATE AEROSOLS? : ', Input_Opt%LSULF WRITE( 6, 100 ) 'Metal catalyzed SO2 ox.? : ', Input_Opt%LMETALCATSO2 WRITE( 6, 100 ) 'Online CARBON AEROSOLS? : ', Input_Opt%LCARB @@ -1946,6 +1961,7 @@ SUBROUTINE Config_Aerosol( Config, Input_Opt, RC ) 105 FORMAT( A, f8.2 ) 110 FORMAT( A, f8.2, ' - ', f8.2 ) 120 FORMAT( A, f8.2, 'K' ) +125 FORMAT( A, A ) END SUBROUTINE Config_Aerosol !EOC @@ -2795,9 +2811,9 @@ SUBROUTINE Config_Photolysis( Config, Input_Opt, RC ) Input_Opt%Do_Photolysis = v_bool !------------------------------------------------------------------------ - ! Number levels with clouds to use in photolysis + ! Number levels with clouds to use in photolysis (Cloud-J var LWEPAR) !------------------------------------------------------------------------ - key = "operations%photolysis%num_levs_with_cloud" + key = "operations%photolysis%cloud-j%num_levs_with_cloud" v_int = MISSING_INT CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, "", RC ) IF ( RC /= GC_SUCCESS ) THEN @@ -2807,6 +2823,125 @@ SUBROUTINE Config_Photolysis( Config, Input_Opt, RC ) ENDIF Input_Opt%NLevs_Phot_Cloud = v_int + !------------------------------------------------------------------------ + ! Cloud-J cloud scheme flag (Cloud-J var CLDFLAG) + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%cloud_scheme_flag" + v_int = MISSING_INT + CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%Cloud_Flag = v_int + + !------------------------------------------------------------------------ + ! Factor increase in cloud OD from layer to next below (Cloud-J var ATAU) + ! - used for inserting extra cloud layers in Cloud-J + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%opt_depth_increase_factor" + v_str = MISSING_STR + CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%OD_Increase_Factor = Cast_and_RoundOff( v_str, places=4 ) + + !------------------------------------------------------------------------ + ! Minimum cloud OD in uppermost inserted layer (Cloud-J var ATAU0) + ! - used for inserting extra cloud layers in Cloud-J + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%min_top_inserted_cloud_OD" + v_str = MISSING_STR + CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%Min_Cloud_OD = Cast_and_RoundOff( v_str, places=4 ) + + !------------------------------------------------------------------------ + ! Cloud correlation between max-overlap blocks (will set Cloud-J var CLDCOR) + ! NOTE: + ! - only used for cloud schemes 5 and above + ! - 0.00 = random + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%cloud_overlap_correlation" + v_str = MISSING_STR + CALL QFYAML_Add_Get( Config, TRIM( key ), v_str, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%Cloud_Corr = Cast_and_RoundOff( v_str, places=3 ) + + !------------------------------------------------------------------------ + ! Number of blocks with correlated cloud overlap (will set Cloud-J var LNRG) + ! - only used for cloud schemes 5 and above + ! - limited values possible: 0 = max-ran @ gaps, 3 = alt blocks, 6 = max-overlap + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%num_cloud_overlap_blocks" + v_int = MISSING_INT + CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%Num_Max_Overlap = v_int + + !------------------------------------------------------------------------ + ! Spherical Earth atmospheric correction (will set Cloud-J var ATM0) + ! 0 = flag + ! 1 = spherical (standard) + ! 2 = refractive + ! 3 = geometric + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%sphere_correction" + v_int = MISSING_INT + CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%Sphere_Correction = v_int + + !------------------------------------------------------------------------ + ! Number of wavelength bins in UV-Vis (will set Cloud-J var NWBIN) + ! - limited values possible + ! 18 = standard full Fast-J + ! 12 = trop-only (0% err in trop, 33% performance savings) + ! 8 = trop-only (1-2% error in J-02 and J-OCS in upper trop, big savings) + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%num_wavelength_bins" + v_int = MISSING_INT + CALL QFYAML_Add_Get( Config, TRIM( key ), v_int, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%Num_WV_Bins = v_int + + !------------------------------------------------------------------------ + ! Whether to use absorption of UV by water vapor + !------------------------------------------------------------------------ + key = "operations%photolysis%cloud-j%use_H2O_UV_absorption" + v_bool = MISSING_BOOL + CALL QFYAML_Add_Get( Config, TRIM( key ), v_bool, "", RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = 'Error parsing ' // TRIM( key ) // '!' + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + Input_Opt%USE_H2O_UV_Abs = v_bool + !------------------------------------------------------------------------ ! Directories with photolysis input files !------------------------------------------------------------------------ @@ -3014,12 +3149,20 @@ SUBROUTINE Config_Photolysis( Config, Input_Opt, RC ) WRITE( 6,90 ) 'PHOTOLYSIS SETTINGS' WRITE( 6,95 ) '-------------------' WRITE( 6,100 ) 'Turn on photolysis? : ', Input_Opt%Do_Photolysis - WRITE( 6,130 ) 'Number levels with cloud : ', & - Input_Opt%Nlevs_Phot_Cloud WRITE( 6,120 ) 'FAST-JX input directory : ', & TRIM( Input_Opt%FAST_JX_DIR ) WRITE( 6,120 ) 'Cloud-J input directory : ', & TRIM( Input_Opt%CloudJ_Dir ) + WRITE( 6,130 ) 'Number levels with cloud : ', & + Input_Opt%Nlevs_Phot_Cloud + WRITE( 6,130 ) 'Cloud-J cloud flag : ', Input_Opt%Cloud_Flag + WRITE( 6,105 ) 'Layer OD increase factor : ', Input_Opt%OD_Increase_Factor + WRITE( 6,105 ) 'Min cloud OD at top : ', Input_Opt%Min_Cloud_OD + WRITE( 6,105 ) 'Cloud correlation : ', Input_Opt%Cloud_Corr + WRITE( 6,130 ) 'Max # of overlap bins : ', Input_Opt%Num_Max_Overlap + WRITE( 6,130 ) 'Sphere correction : ', Input_Opt%Sphere_Correction + WRITE( 6,130 ) 'Number of wavelength bins : ', Input_Opt%Num_WV_Bins + WRITE( 6,100 ) 'Use H2O UV absorption? : ', Input_Opt%USE_H2O_UV_Abs WRITE( 6,100 ) 'Use online ozone? : ', Input_Opt%USE_ONLINE_O3 WRITE( 6,100 ) 'Use ozone from met? : ', & Input_Opt%USE_O3_FROM_MET diff --git a/GeosCore/mercury_mod.F90 b/GeosCore/mercury_mod.F90 index 741879cf1..68aa04a32 100644 --- a/GeosCore/mercury_mod.F90 +++ b/GeosCore/mercury_mod.F90 @@ -969,10 +969,10 @@ SUBROUTINE ChemMercury( Input_Opt, State_Chm, State_Diag, & !%%%%% CONVERGENCE CRITERIA %%%%% ! Absolute tolerance - ATOL = 1e-2_dp + ATOL = State_Chm%KPP_AbsTol ! Relative tolerance - RTOL = 1e-2_dp + RTOL = State_Chm%KPP_RelTol !%%%%% SOLVER OPTIONS %%%%% @@ -3886,6 +3886,18 @@ SUBROUTINE Init_Mercury( Input_Opt, State_Grid, State_Chm, State_Diag, RC ) ENDIF ENDDO + !======================================================================= + ! Assign default values for KPP absolute and relative tolerances + ! for species where these have not been explicitly defined. + !======================================================================= + WHERE( State_Chm%KPP_AbsTol == MISSING_DBLE ) + State_Chm%KPP_AbsTol = 1.0e-2_f8 + ENDWHERE + + WHERE( State_Chm%KPP_RelTol == MISSING_DBLE ) + State_Chm%KPP_RelTol = 1.0e-2_f8 + ENDWHERE + !======================================================================== ! Various Settings (not sure how many of these still work) !======================================================================== diff --git a/GeosCore/mixing_mod.F90 b/GeosCore/mixing_mod.F90 index 399acebec..c3372b4ed 100644 --- a/GeosCore/mixing_mod.F90 +++ b/GeosCore/mixing_mod.F90 @@ -713,7 +713,7 @@ SUBROUTINE DO_TEND( Input_Opt, State_Chm, State_Diag, State_Grid, & ! Eventually add to SOIL_DRYDEP IF ( Input_Opt%LSOILNOX ) THEN - CALL SOIL_DRYDEP( I, J, L, N, FLUX, State_Chm ) + CALL SOIL_DRYDEP( I, J, N, FLUX, State_Chm ) ENDIF !-------------------------------------------------------- diff --git a/GeosCore/photolysis_mod.F90 b/GeosCore/photolysis_mod.F90 index 4281a7ced..c3f4056a1 100644 --- a/GeosCore/photolysis_mod.F90 +++ b/GeosCore/photolysis_mod.F90 @@ -29,8 +29,6 @@ MODULE PHOTOLYSIS_MOD ! ! !PRIVATE MEMBER FUNCTIONS: ! - PRIVATE :: RD_AOD - PRIVATE :: CALC_AOD PRIVATE :: SET_AER PRIVATE :: RD_PROF_NC ! @@ -161,19 +159,9 @@ SUBROUTINE INIT_PHOTOLYSIS( Input_Opt, State_Grid, State_Chm, State_Diag, RC ) RETURN ENDIF #endif + ENDIF - !------------------------------------------------------------------------ - ! Read in AOD data even if photolysis disabled - ! (or just print file name if in dry-run mode) - !------------------------------------------------------------------------ - CALL RD_AOD( Input_Opt, State_Chm, RC ) - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountered in routine "RD_AOD"!' - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - !-------------------------------------------------------------------- ! Read in T & O3 climatology to fill e.g. upper layers or if O3 not calc. !-------------------------------------------------------------------- @@ -192,19 +180,9 @@ SUBROUTINE INIT_PHOTOLYSIS( Input_Opt, State_Grid, State_Chm, State_Diag, RC ) !------------------------------------------------------------------------ ! Exit without doing any computations if we are doing a dry-run - !------------------------------------------------------------------------ - IF ( Input_Opt%DryRun ) RETURN - - !------------------------------------------------------------------------ - ! Compute the required wavelengths in the LUT to calculate requested AOD - !------------------------------------------------------------------------ - IF (Input_Opt%amIRoot) WRITE(6,*) 'Wavelength optics read successfully' - CALL CALC_AOD( Input_Opt, State_Chm, RC ) - - !------------------------------------------------------------------------ ! Exit if photolysis disabled (zero J-values) !------------------------------------------------------------------------ - IF ( .NOT. Input_Opt%Do_Photolysis ) RETURN + IF ( Input_Opt%DryRun .OR. .NOT. Input_Opt%Do_Photolysis ) RETURN !-------------------------------------------------------------------- ! Set up MIEDX array to interpret between GC and FJX aerosol indexing @@ -797,573 +775,6 @@ END SUBROUTINE PHOTRATE_ADJ !------------------------------------------------------------------------------ !BOP ! -! !IROUTINE: rd_aod -! -! !DESCRIPTION: Subroutine RD\_AOD reads aerosol phase functions that are -! used to scale diagnostic output to an arbitrary wavelengh. This -! facilitates comparing with satellite observations. -!\\ -!\\ -! !INTERFACE: -! - SUBROUTINE RD_AOD( Input_Opt, State_Chm, RC ) -! -! !USES: -! - USE ErrCode_Mod - USE Input_Opt_Mod, ONLY : OptInput - USE InquireMod, ONLY : FindFreeLUN - USE State_Chm_Mod, ONLY : ChmState -#if defined( MODEL_CESM ) - USE UNITS, ONLY : freeUnit -#endif -! -! !INPUT PARAMETERS: -! - TYPE(OptInput), INTENT(IN) :: Input_Opt ! Input Options object -! -! !INPUT/OUTPUT PARAMETERS: -! - TYPE(ChmState), INTENT(INOUT) :: State_Chm ! Chemistry State object -! -! !OUTPUT PARAMETERS: -! - INTEGER, INTENT(OUT) :: RC ! Success or failure? -! -! !REMARKS: -! The .dat files for each species contain the optical properties -! at multiple wavelengths to be used in the online calculation of the aerosol -! optical depth diagnostics. -! These properties have been calculated using the same size and optical -! properties as the FJX_spec.dat file used for the FAST-J photolysis -! calculations (which is now redundant for aerosols, the values in the .dat -! files here are now used). The file currently contains 11 wavelengths -! for Fast-J and other commonly used wavelengths for satellite and -! AERONET retrievals. 30 wavelengths follow that map onto RRTMG -! wavebands for radiaitive flux calculations (not used if RRTMG is off). -! A complete set of optical properties from 250-2000 nm for aerosols is -! available at: -! ftp://ftp.as.harvard.edu/geos-chem/data/aerosol_optics/hi_spectral_res -! . -! -- Colette L. Heald, 05/10/10) -! -- David A. Ridley, 05/10/13 (update for new optics files) -! -! !REVISION HISTORY: -! 10 May 2010 - C. Heald - Initial version -! See https://github.com/geoschem/geos-chem for complete history -!EOP -!------------------------------------------------------------------------------ -!BOC -! -! !LOCAL VARIABLES -! - ! Scalars - INTEGER :: I, J, K, N, g - INTEGER :: IOS, NJ1 - LOGICAL :: LBRC, FileExists - - ! Strings - CHARACTER(LEN=78 ) :: TITLE0 - CHARACTER(LEN=255) :: DATA_DIR - CHARACTER(LEN=255) :: THISFILE - CHARACTER(LEN=255) :: FileMsg - CHARACTER(LEN=255) :: ErrMsg - CHARACTER(LEN=255) :: ThisLoc - - ! String arrays - CHARACTER(LEN=30) :: SPECFIL(8) - - ! Pointers - REAL*8, POINTER :: WVAA (:,:) - REAL*8, POINTER :: RHAA (:,:) - REAL*8, POINTER :: RDAA (:,:,:) - REAL*8, POINTER :: RWAA (:,:,:) - REAL*8, POINTER :: SGAA (:,:) - REAL*8, POINTER :: REAA (:,:,:) - REAL*8, POINTER :: NCMAA (:,:,:) - REAL*8, POINTER :: NRLAA (:,:,:) - REAL*8, POINTER :: QQAA (:,:,:,:) - REAL*8, POINTER :: ALPHAA(:,:,:,:) - REAL*8, POINTER :: SSAA (:,:,:,:) - REAL*8, POINTER :: ASYMAA(:,:,:,:) - REAL*8, POINTER :: PHAA (:,:,:,:,:) - - !================================================================ - ! RD_AOD begins here! - !================================================================ - - ! Initialize - RC = GC_SUCCESS - ErrMsg = '' - ThisLoc = ' -> at RD_AOD (in module GeosCore/photolysis_mod.F90)' - LBRC = Input_Opt%LBRC - DATA_DIR = TRIM( Input_Opt%FAST_JX_DIR ) - - ! Set Pointers - WVAA => State_Chm%Phot%WVAA - RHAA => State_Chm%Phot%RHAA - RDAA => State_Chm%Phot%RDAA - RWAA => State_Chm%Phot%RWAA - SGAA => State_Chm%Phot%SGAA - REAA => State_Chm%Phot%REAA - NRLAA => State_Chm%Phot%NRLAA - NCMAA => State_Chm%Phot%NCMAA - QQAA => State_Chm%Phot%QQAA - ALPHAA => State_Chm%Phot%ALPHAA - SSAA => State_Chm%Phot%SSAA - ASYMAA => State_Chm%Phot%ASYMAA - PHAA => State_Chm%Phot%PHAA - - ! Get a free LUN - NJ1 = findFreeLUN() - - ! IMPORTANT: aerosol_mod.F and dust_mod.F expect aerosols in this order - ! - ! Treating strat sulfate with GADS data but modified to match - ! the old Fast-J values size (r=0.09um, sg=0.6) - I think there's - ! evidence that this is too smale and narrow e.g. Deshler et al. 2003 - ! NAT should really be associated with something like cirrus cloud - ! but for now we are just treating the NAT like the sulfate... limited - ! info but ref index is similar e.g. Scarchilli et al. (2005) - !(DAR 05/2015) - DATA SPECFIL /"so4.dat","soot.dat","org.dat", & - "ssa.dat","ssc.dat", & - "h2so4.dat","h2so4.dat", & - "dust.dat"/ - - ! Loop over the array of filenames - DO k = 1, State_Chm%Phot%NSPAA - - ! Choose different set of input files for standard (trop+strat chenm) - ! and tropchem (trop-only chem) simulations - THISFILE = TRIM( DATA_DIR ) // '/' // TRIM( SPECFIL(k) ) - - !-------------------------------------------------------------- - ! In dry-run mode, print file path to dryrun log and cycle. - ! Otherwise, print file path to stdout and continue. - !-------------------------------------------------------------- - - ! Test if the file exists - INQUIRE( FILE=TRIM( ThisFile ), EXIST=FileExists ) - - ! Test if the file exists and define an output string - IF ( FileExists ) THEN - FileMsg = 'PHOTOLYSIS (RD_AOD): Opening' - ELSE - FileMsg = 'PHOTOLYSIS (RD_AOD): REQUIRED FILE NOT FOUND' - ENDIF - - ! Write to stdout for both regular and dry-run simulations - IF ( Input_Opt%amIRoot ) THEN - WRITE( 6, 300 ) TRIM( FileMsg ), TRIM( ThisFile ) -300 FORMAT( a, ' ', a ) - ENDIF - - ! For dry-run simulations, cycle to next file. - ! For regular simulations, throw an error if we can't find the file. - IF ( Input_Opt%DryRun ) THEN - CYCLE - ELSE - IF ( .not. FileExists ) THEN - WRITE( ErrMsg, 300 ) TRIM( FileMsg ), TRIM( ThisFile ) - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - ENDIF - - !-------------------------------------------------------------- - ! If not a dry-run, read data from each species file - !-------------------------------------------------------------- - - ! Open file - OPEN( NJ1, FILE=TRIM( THISFILE ), STATUS='OLD', IOSTAT=RC ) - - ! Error check - IF ( RC /= 0 ) THEN - ErrMsg = 'Error opening file: ' // TRIM( ThisFile ) - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - - ! Read header lines - READ( NJ1, '(A)' ) TITLE0 - IF ( Input_Opt%amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0 - - ! Second header line added for more info - READ( NJ1, '(A)' ) TITLE0 - IF ( Input_Opt%amIRoot ) WRITE( 6, '(1X,A)' ) TITLE0 - - READ( NJ1, '(A)' ) TITLE0 -110 FORMAT( 3x, a20 ) - - IF (k == 1 .OR. k == 3) THEN - ! for SO4 and ORGANICS, dry aerosol size varies, therefore all - ! opt properties vary. - DO g = 1, State_Chm%Phot%NDRg - DO i = 1, State_Chm%Phot%NRAA - DO j = 1, State_Chm%Phot%NWVAA - - READ(NJ1,*) WVAA(j,k),RHAA(i,k),NRLAA(j,i,k),NCMAA(j,i,k), & - RDAA(i,k,g),RWAA(i,k,g),SGAA(i,k),QQAA(j,i,k,g), & - ALPHAA(j,i,k,g),REAA(i,k,g),SSAA(j,i,k,g), & - ASYMAA(j,i,k,g),(PHAA(j,i,k,n,g),n=1,8) - - ! make note of where 1000nm is for FAST-J calcs - IF (WVAA(j,k).EQ.1000.0) State_Chm%Phot%IWV1000=J - - ENDDO - ENDDO - ENDDO - - ELSE - ! For other species, keep g = default Rg (DRg) - g = State_Chm%Phot%DRg - DO i = 1, State_Chm%Phot%NRAA - DO j = 1, State_Chm%Phot%NWVAA - - READ(NJ1,*) WVAA(j,k),RHAA(i,k),NRLAA(j,i,k),NCMAA(j,i,k), & - RDAA(i,k,g),RWAA(i,k,g),SGAA(i,k),QQAA(j,i,k,g), & - ALPHAA(j,i,k,g),REAA(i,k,g),SSAA(j,i,k,g), & - ASYMAA(j,i,k,g),(PHAA(j,i,k,n,g),n=1,8) - - ! make note of where 1000nm is for FAST-J calcs - IF (WVAA(j,k).EQ.1000.0) State_Chm%Phot%IWV1000=J - - ENDDO - ENDDO - - ENDIF - - ! Close file - CLOSE( NJ1 ) - - ENDDO - -#if defined( MODEL_CESM ) - CALL freeUnit(NJ1) -#endif - - ! Free pointers - WVAA => NULL() - RHAA => NULL() - RDAA => NULL() - RWAA => NULL() - SGAA => NULL() - REAA => NULL() - NCMAA => NULL() - NRLAA => NULL() - QQAA => NULL() - ALPHAA => NULL() - SSAA => NULL() - ASYMAA => NULL() - PHAA => NULL() - - END SUBROUTINE RD_AOD -!EOC -!------------------------------------------------------------------------------ -! GEOS-Chem Global Chemical Transport Model ! -!------------------------------------------------------------------------------ -!BOP -! -! !IROUTINE: calc_aod -! -! !DESCRIPTION: Subroutine CALC\_AOD works out the closest tie points -! in the optics LUT wavelengths and the coefficients required to -! calculate the angstrom exponent for interpolating optics to the requested -! wavelength. If the wavelength requested matches a standard wavelength -! in the LUT then we skip the interpolation (DAR 09/2013) -!\\ -!\\ -! !INTERFACE: -! - SUBROUTINE CALC_AOD( Input_Opt, State_Chm, RC ) -! -! !USES: -! - USE Input_Opt_Mod, ONLY : OptInput -#ifdef RRTMG - USE PARRRTM, ONLY : NBNDLW -#endif - USE State_Chm_Mod, ONLY : ChmState -! -! !INPUT PARAMETERS: -! - TYPE(OptInput), INTENT(IN) :: Input_Opt -! -! !INPUT/OUTPUT PARAMETERS: -! - TYPE(ChmState), INTENT(INOUT) :: State_Chm -! -! !OUTPUT PARAMETERS: -! - INTEGER, INTENT(IN) :: RC -! -! !REMARKS: -! Now the user is able to select any 3 wavelengths for optics -! output in the geoschem_config.yml file we need to be able to interpolate -! to those wavelengths based on what is available in the optics -! look-up table. -! . -! The standard lookup table currently has values for -! 11 common wavelengths followed by 30 that are required by RRTMG. -! Only those required to interpolate to user requested -! wavelengths are selected from the standard wavelengths. RRTMG -! wavelengths are not used in the interpolation for AOD output -! (DAR 10/2013) -! . -! UPDATE: because the RT optics output doesnt have access to the -! standard wavelengths we now calculate two sets of values: one -! for the ND21 and diag3 outputs that use the standard wavelengths -! and one for RRTMG diagnostics that interpolate the optics from RRTMG -! wavelengths. Perhaps a switch needs adding to switch off the RT -! optics output (and interpolation) if this ends up costing too -! much and is not used, but it is ideal to have an optics output -! that matches exactly what RRTMG uses to calculate the fluxes -! -! !REVISION HISTORY: -! 18 Jun 2013 - D. Ridley - Initial version -! See https://github.com/geoschem/geos-chem for complete history -!EOP -!------------------------------------------------------------------------------ -!BOC -! -! !LOCAL VARIABLES -! - INTEGER :: MINWV, MAXWV, N, N0, N1, W, NSTEP - INTEGER :: NWVAA, NWVAA0, NWVREQUIRED, NRTWVREQUIRED - REAL(fp) :: WVDIF - - ! Pointers - INTEGER, POINTER :: IWVREQUIRED (:) - INTEGER, POINTER :: IRTWVREQUIRED(:) - INTEGER, POINTER :: IWVSELECT (:,:) - INTEGER, POINTER :: IRTWVSELECT (:,:) - REAL*8, POINTER :: ACOEF_WV (:) - REAL*8, POINTER :: BCOEF_WV (:) - REAL*8, POINTER :: CCOEF_WV (:) - REAL*8, POINTER :: ACOEF_RTWV (:) - REAL*8, POINTER :: BCOEF_RTWV (:) - REAL*8, POINTER :: CCOEF_RTWV (:) - REAL*8, POINTER :: WVAA (:,:) - - !================================================================ - ! CALC_AOD begins here! - !================================================================ - - ! Constants State_Chm%Phot - NWVAA = State_Chm%Phot%NWVAA - NWVAA0 = State_Chm%Phot%NWVAA0 - - ! Scalars in State_Chm%Phot that will be set in this subroutine - NWVREQUIRED = State_Chm%Phot%NWVREQUIRED - NRTWVREQUIRED = State_Chm%Phot%NRTWVREQUIRED - - ! Set pointers - IWVREQUIRED => State_Chm%Phot%IWVREQUIRED - IRTWVREQUIRED => State_Chm%Phot%IRTWVREQUIRED - IWVSELECT => State_Chm%Phot%IWVSELECT - IRTWVSELECT => State_Chm%Phot%IRTWVSELECT - ACOEF_WV => State_Chm%Phot%ACOEF_WV - BCOEF_WV => State_Chm%Phot%BCOEF_WV - CCOEF_WV => State_Chm%Phot%CCOEF_WV - ACOEF_RTWV => State_Chm%Phot%ACOEF_RTWV - BCOEF_RTWV => State_Chm%Phot%BCOEF_RTWV - CCOEF_RTWV => State_Chm%Phot%CCOEF_RTWV - WVAA => State_Chm%Phot%WVAA - - !cycle over standard wavelengths - N0=1 - N1=NWVAA0 - NSTEP=1 - NWVREQUIRED=0 - DO W=1,Input_Opt%NWVSELECT - MINWV = -999 - MAXWV = 999 - DO N=N0,N1,NSTEP ! 1 to 11 - WVDIF = WVAA(N,1)-Input_Opt%WVSELECT(W) - IF ((WVDIF.LE.0).AND.(WVDIF.GT.MINWV)) THEN - MINWV = WVDIF - IWVSELECT(1,W)=N - ENDIF - IF ((WVDIF.GE.0).AND.(WVDIF.LT.MAXWV)) THEN - MAXWV = WVDIF - IWVSELECT(2,W)=N - ENDIF - ENDDO - IF (IWVSELECT(2,W).EQ.IWVSELECT(1,W)) THEN - !we have a match! - MINWV=0 - MAXWV=0 - !add this wavelength to those for output - NWVREQUIRED=NWVREQUIRED+1 - IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) - ELSE - !we are going to have to interpolate to the requested wavelength - NWVREQUIRED=NWVREQUIRED+1 - IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) - NWVREQUIRED=NWVREQUIRED+1 - IWVREQUIRED(NWVREQUIRED)=IWVSELECT(2,W) - ENDIF - - !Error check - ensure we have a match or requested wavelength - !falls within two LUT tie points - IF (MINWV.EQ.-999) THEN - ! requested wavelength is shorter than min wv in LUT - ! set to min - write(6,*) 'ERROR requested wavelength is too short!!' - write(6,*) 'Defaulting to LUT min: ',WVAA(1,1) - IWVSELECT(1,W)=1 - IWVSELECT(2,W)=1 !300nm - NWVREQUIRED=NWVREQUIRED-1 - IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) - ENDIF - IF (MAXWV.EQ.999) THEN - ! requested wavelength is longer than min wv in LUT - ! set to max - write(6,*) 'ERROR requested wavelength is too long!!' - write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA0,1) - IWVSELECT(1,W)=NWVAA0 - IWVSELECT(2,W)=NWVAA0 !1020nm - NWVREQUIRED=NWVREQUIRED-1 - IWVREQUIRED(NWVREQUIRED)=IWVSELECT(1,W) - ENDIF - - !now calcualte the angstrom exponent coefs for interpolation - - !this is done here to save time and repetition in aerosol_mod.F - IF (IWVSELECT(1,W).NE.IWVSELECT(2,W)) THEN - ACOEF_WV(W) = WVAA(IWVSELECT(2,W),1)/Input_Opt%WVSELECT(W) - BCOEF_WV(W) =1.0d0/(LOG(WVAA(IWVSELECT(2,W),1)/ & - WVAA(IWVSELECT(1,W),1))) - !relative location of selected wavelength between tie points - !for interpolating SSA and ASYM for output in aerosol_mod.F and - !dust_mod.F - CCOEF_WV(W) =(Input_Opt%WVSELECT(W)-WVAA(IWVSELECT(1,W),1))/ & - (WVAA(IWVSELECT(2,W),1)-WVAA(IWVSELECT(1,W),1)) - ENDIF - IF ( Input_Opt%amIRoot ) THEN - write(6,*) 'N WAVELENGTHS: ',Input_Opt%NWVSELECT - write(6,*) 'WAVELENGTH REQUESTED:',Input_Opt%WVSELECT(W) - write(6,*) 'WAVELENGTH REQUIRED:', NWVREQUIRED - !write(6,*) IWVSELECT(1,W),WVAA(IWVSELECT(1,W),1) - !write(6,*) IWVSELECT(2,W),WVAA(IWVSELECT(2,W),1) - !write(6,*) ACOEF_WV(W),BCOEF_WV(W),CCOEF_WV(W) - write(6,*) '*********************************' - ENDIF - ENDDO !Input_Opt%NWVSELECT -#ifdef RRTMG - !repeat for RRTMG wavelengths to get the closest wavelength - !indices and the interpolation coefficients - !Indices are relative to all wavelengths in the LUT i.e. the RRTMG - !wavelengths start at NWVAA0+1 - N0=NWVAA0+1 - N1=NWVAA - NSTEP=1 - NRTWVREQUIRED=0 - DO W=1,Input_Opt%NWVSELECT - MINWV = -999 - MAXWV = 999 - DO N=N0,N1,NSTEP - WVDIF = WVAA(N,1)-Input_Opt%WVSELECT(W) - IF ((WVDIF.LE.0).AND.(WVDIF.GT.MINWV)) THEN - MINWV = WVDIF - IRTWVSELECT(1,W)=N - ENDIF - IF ((WVDIF.GE.0).AND.(WVDIF.LT.MAXWV)) THEN - MAXWV = WVDIF - IRTWVSELECT(2,W)=N - ENDIF - ENDDO - IF (IRTWVSELECT(2,W).EQ.IRTWVSELECT(1,W)) THEN - !we have a match! - MINWV=0 - MAXWV=0 - !add this wavelength to those for output - NRTWVREQUIRED=NRTWVREQUIRED+1 - IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) - ELSE - !we are going to have to interpolate to the requested - !wavelength - NRTWVREQUIRED=NRTWVREQUIRED+1 - IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) - NRTWVREQUIRED=NRTWVREQUIRED+1 - IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(2,W) - ENDIF - - !Error check - ensure we have a match or requested wavelength - !falls within two LUT tie points - IF (MINWV.EQ.-999) THEN - ! requested wavelength is shorter than min wv in LUT - ! set to min - write(6,*) 'ERROR requested wavelength is too short!!' - write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA-1,1) - IRTWVSELECT(1,W)=NWVAA-1 - IRTWVSELECT(2,W)=NWVAA-1 - NRTWVREQUIRED=NRTWVREQUIRED-1 - IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) - ENDIF - IF (MAXWV.EQ.999) THEN - ! requested wavelength is longer than min wv in LUT - ! set to max - write(6,*) 'ERROR requested wavelength is too long!!' - write(6,*) 'Defaulting to LUT min: ',WVAA(NWVAA0+1,1) - IRTWVSELECT(1,W)=NWVAA0+1 - IRTWVSELECT(2,W)=NWVAA0+1 - NRTWVREQUIRED=NRTWVREQUIRED-1 - IRTWVREQUIRED(NRTWVREQUIRED)=IRTWVSELECT(1,W) - ENDIF - - !now calcualte the angstrom exponent coefs for interpolation - - !this is done here to save time and repetition in aerosol_mod.F - IF (IRTWVSELECT(1,W).NE.IRTWVSELECT(2,W)) THEN - ACOEF_RTWV(W) = WVAA(IRTWVSELECT(2,W),1)/Input_Opt%WVSELECT(W) - BCOEF_RTWV(W) =1.0d0/(LOG(WVAA(IRTWVSELECT(2,W),1)/ & - WVAA(IRTWVSELECT(1,W),1))) - !relative location of selected wavelength between tie points - !for interpolating SSA and ASYM for output in aerosol_mod.F and - !dust_mod.F - CCOEF_RTWV(W) =(Input_Opt%WVSELECT(W)-WVAA(IRTWVSELECT(1,W),1))/ & - (WVAA(IRTWVSELECT(2,W),1)-WVAA(IRTWVSELECT(1,W),1)) - ENDIF - !convert wavelength index to that required by rrtmg_rad_transfer - !i.e. without the standard and LW wavelengths - IRTWVSELECT(1,W) = IRTWVSELECT(1,W) - NWVAA0 - NBNDLW - IRTWVSELECT(2,W) = IRTWVSELECT(2,W) - NWVAA0 - NBNDLW - IF ( Input_Opt%amIRoot ) THEN - write(6,*) 'N RT WAVELENGTHS: ',Input_Opt%NWVSELECT - write(6,*) 'RT WAVELENGTH REQUESTED:',Input_Opt%WVSELECT(W) - write(6,*) 'RT WAVELENGTH REQUIRED:', NRTWVREQUIRED - write(6,*) IRTWVSELECT(1,W),WVAA(IRTWVSELECT(1,W)+NWVAA0+NBNDLW,1) - write(6,*) IRTWVSELECT(2,W),WVAA(IRTWVSELECT(2,W)+NWVAA0+NBNDLW,1) - write(6,*) ACOEF_WV(W),BCOEF_WV(W),CCOEF_WV(W) - write(6,*) '*********************************' - ENDIF - ENDDO !Input_Opt%NWVSELECT -#endif - - ! Copy values back into State_Chm - State_Chm%Phot%NWVREQUIRED = NWVREQUIRED - State_Chm%Phot%NRTWVREQUIRED = NRTWVREQUIRED - - ! Free pointers - IWVREQUIRED => NULL() - IRTWVREQUIRED => NULL() - IWVSELECT => NULL() - IRTWVSELECT => NULL() - ACOEF_WV => NULL() - BCOEF_WV => NULL() - CCOEF_WV => NULL() - ACOEF_RTWV => NULL() - BCOEF_RTWV => NULL() - CCOEF_RTWV => NULL() - WVAA => NULL() - - END SUBROUTINE CALC_AOD -!EOC -!------------------------------------------------------------------------------ -! GEOS-Chem Global Chemical Transport Model ! -!------------------------------------------------------------------------------ -!BOP -! ! !IROUTINE: set_aer ! ! !DESCRIPTION: Subroutine SET\_AER fills out the array MIEDX. diff --git a/GeosCore/planeflight_mod.F90 b/GeosCore/planeflight_mod.F90 index c9fb51fa5..24e72513c 100644 --- a/GeosCore/planeflight_mod.F90 +++ b/GeosCore/planeflight_mod.F90 @@ -1574,7 +1574,6 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & LOGICAL :: CHEMSTEP REAL(f8) :: FLTGMT ! eam (06/2015) REAL(f8) :: XRH ! MET field RH (eam, 08/2015) - REAL(fp) :: MW_g, MW_kg CHARACTER(LEN=63) :: OrigUnit CHARACTER(LEN=7) :: NAME CHARACTER(LEN=255) :: errMsg, thisLoc @@ -1744,13 +1743,10 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & ! Only archive where chemistry is done IF ( State_Met%InChemGrid(I,J,L) ) THEN - ! Species concentration [kg/kg dry] -> [molec/cm3] + ! Species concentration [v/v dry] -> [molec/cm3] N = PVAR(V) - MW_kg = State_Chm%SpcData(N)%Info%MW_g * 1.0e-3_fp - VARI(V) = Spc(N)%Conc(I,J,L) & - * State_Met%AIRDEN(I,J,L) & - * ( AVO / MW_kg ) & - / 1e+6_fp + VARI(V) = Spc(N)%Conc(I,J,L) / AIRMW * State_Met%AIRDEN(I,J,L) & + * AVO * 1.0e-9_fp ENDIF !--------------------------------------------------------------- @@ -1762,12 +1758,10 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & ! Sum all AN contributions, save as [v/v dry] VARI(V) = 0e+0_fp - ! Convert species conc from [kg/kg dry] -> [v/v dry] + ! Species concentration is in [v/v dry] IF ( IS_FULLCHEM .and. State_Met%InChemGrid(I,J,L) ) THEN DO N = 1, NPNOY - MW_g = State_Chm%SpcData(PNOY(N))%Info%MW_g - VARI(V) = VARI(V) & - + ( Spc(PNOY(N))%Conc(I,J,L) * ( AIRMW / MW_g ) ) + VARI(V) = VARI(V) + Spc(PNOY(N))%Conc(I,J,L) ENDDO ENDIF @@ -1780,12 +1774,10 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & ! Sum all AN contributions, save as [v/v dry] VARI(V) = 0e+0_fp - ! Convert species conc from [kg/kg dry] -> [v/v dry] + ! Species concentration is in [v/v dry] IF ( IS_FULLCHEM .and. State_Met%InChemGrid(I,J,L) ) THEN DO N = 1, NPAN - MW_g = State_Chm%SpcData(P_AN(N))%Info%MW_g - VARI(V) = VARI(V) + & - + ( Spc(P_AN(N))%Conc(I,J,L) * ( AIRMW / MW_g ) ) + VARI(V) = VARI(V) + Spc(P_AN(N))%Conc(I,J,L) ENDDO ENDIF @@ -1798,12 +1790,10 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & ! Sum all RO2 contributions, save as [v/v dry] VARI(V) = 0e+0_fp - ! Convert species conc from [kg/kg dry] -> [v/v dry] + ! Species concentration is in [v/v dry] IF ( IS_FULLCHEM .and. State_Met%InChemGrid(I,J,L) ) THEN DO N = 1, NPRO2 - MW_g = State_Chm%SpcData(PRO2(N))%Info%MW_g - VARI(V) = VARI(V) & - + ( Spc(PRO2(N))%Conc(I,J,L) * ( AIRMW / MW_g ) ) + VARI(V) = VARI(V) + Spc(PRO2(N))%Conc(I,J,L) ENDDO ENDIF @@ -2291,9 +2281,8 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & ! Remove offset from PVAR N = PVAR(V) - 100000 - ! Convert [kg/kg dry] -> [v/v dry] - MW_g = State_Chm%SpcData(N)%Info%MW_g - VARI(V) = Spc(N)%Conc(I,J,L) * ( AIRMW / MW_g ) + ! Species concentration is in [v/v dry] + VARI(V) = Spc(N)%Conc(I,J,L) IF ( VARI(V) < TINY ) VARI(V) = 0.0_fp diff --git a/GeosCore/tccon_ch4_mod.F90 b/GeosCore/tccon_ch4_mod.F90 index a71f0c273..143e8b865 100644 --- a/GeosCore/tccon_ch4_mod.F90 +++ b/GeosCore/tccon_ch4_mod.F90 @@ -741,10 +741,8 @@ SUBROUTINE CALC_TCCON_CH4_FORCE( Input_Opt, State_Chm, State_Grid, & GC_CH4_NATIVE(:) = 0.0_fp GC_H2O_NATIVE(:) = 0.0_fp - ! Get species concentrations - ! Convert from [kg/box] --> [v/v] - GC_CH4_NATIVE(:) = State_Chm%Species(id_CH4)%Conc(I,J,:) * ( AIRMW / & - State_Chm%SpcData(id_CH4)%Info%MW_g ) + ! Get species concentrations [v/v] + GC_CH4_NATIVE(:) = State_Chm%Species(id_CH4)%Conc(I,J,:) GC_H2O_NATIVE(:) = State_Met%AVGW(I,J,:) diff --git a/GeosCore/ucx_mod.F90 b/GeosCore/ucx_mod.F90 index a6d316f77..66cf6bf50 100644 --- a/GeosCore/ucx_mod.F90 +++ b/GeosCore/ucx_mod.F90 @@ -622,7 +622,6 @@ SUBROUTINE GET_NOXCOEFF( TARG_MONTH, Input_Opt, State_Grid, State_Chm, State_Met ! ! !LOCAL VARIABLES: ! - INTEGER :: IOS INTEGER :: ILEV INTEGER :: I, J, L, ITRAC INTEGER :: JJNOX @@ -630,10 +629,7 @@ SUBROUTINE GET_NOXCOEFF( TARG_MONTH, Input_Opt, State_Grid, State_Chm, State_Met REAL(fp) :: CURRVAL INTEGER :: VERTCOUNT, AS LOGICAL :: FOUNDLEV,EXTRAP - INTEGER :: IU_FILE, fId - INTEGER :: st3d(3), ct3d(3) ! Start/count LOGICAL :: ISRATE - CHARACTER(LEN=255) :: NOX_FILE CHARACTER(LEN=255) :: TARG_TRAC CHARACTER(LEN=255) :: DBGMSG REAL(fp), DIMENSION(:,:,:), POINTER :: NOXDATA2D => NULL() diff --git a/GeosCore/vdiff_mod.F90 b/GeosCore/vdiff_mod.F90 index 237702aab..05a1d1e9e 100644 --- a/GeosCore/vdiff_mod.F90 +++ b/GeosCore/vdiff_mod.F90 @@ -111,8 +111,8 @@ subroutine vdiff( lat, ip, uwnd, vwnd, & sflx, thp_arg, pblh_arg, & kvh_arg, kvm_arg, tpert_arg, qpert_arg, & cgs_arg, shp, wvflx_arg, plonl, & - Input_Opt, State_Met, State_Chm, State_Diag, & - taux_arg, tauy_arg, ustar_arg, RC ) + Input_Opt, State_Met, State_Grid, State_Chm, & + State_Diag, taux_arg, tauy_arg, ustar_arg, RC ) ! ! !USES: ! @@ -122,6 +122,7 @@ subroutine vdiff( lat, ip, uwnd, vwnd, & USE State_Chm_Mod, ONLY : ChmState USE State_Diag_Mod, ONLY : DgnState USE State_Met_Mod, ONLY : MetState + USE State_Grid_Mod, ONLY : GrdState implicit none ! @@ -145,6 +146,7 @@ subroutine vdiff( lat, ip, uwnd, vwnd, & wvflx_arg(:,:) ! water vapor flux (kg/m2/s) TYPE(OptInput), INTENT(IN) :: Input_Opt ! Input Options object TYPE(MetState), INTENT(IN) :: State_Met ! Meteorology State object + TYPE(GrdState), INTENT(IN) :: State_Grid ! Grid State object ! ! !INPUT/OUTPUT PARAMETERS: ! @@ -683,7 +685,7 @@ subroutine vdiff( lat, ip, uwnd, vwnd, & ! including pre-mixing mass and surface flux (emis+drydep) sum_qp0 = sum(qp0(I,ntopfl:plev,M) * & State_Met%AD(I,lat,plev-ntopfl+1:1:-1)) & - + dqbot(I,M) * State_Met%AD(I,lat,1) + + (cflx(I,M) * State_Grid%AREA_M2(I,lat) * ztodt) ! total mass in the PBL (ignoring the v/v -> m/m conversion) sum_qp1 = sum(qp1(I,ntopfl:plev,M) * & @@ -1379,255 +1381,6 @@ end subroutine qvdiff !------------------------------------------------------------------------------ !BOP ! -! !IROUTINE: vdiffar -! -! !DESCRIPTION: Subroutine VDIFFAR is the driver routine to compute vertical -! diffusion of trace constituents using archived coefficients for cgs and kvh. -! This is a gutted version of vdiff. -!\\ -!\\ -! !INTERFACE: -! - SUBROUTINE VDIFFAR( lat ,tadv , & - pmid ,pint ,rpdel_arg ,rpdeli_arg ,ztodt, & - sflx ,as2 ,kvh_arg ,cgs_arg ,plonl ) -! -! !USES: -! - implicit none -! -! !INPUT PARAMETERS: -! - integer, intent(in) :: lat ! latitude index - integer, intent(in) :: plonl ! lon tile dim - real(fp), intent(in) :: & - ztodt , & ! 2 delta-t - tadv(:,:,:), & ! temperature input - pmid(:,:,:), & ! midpoint pressures - pint(:,:,:), & ! interface pressures - rpdel_arg(:,:,:), & ! 1./pdel (thickness bet interfaces) - rpdeli_arg(:,:,:), & ! 1./pdeli (thickness bet midpoints) - sflx(:,:,:), & ! surface constituent flux (kg/m2/s) - kvh_arg(:,:,:), & ! coefficient for heat and tracers - cgs_arg(:,:,:) ! counter-grad star (cg/flux) -! -! !INPUT/OUTPUT PARAMETERS: -! - real(fp), intent(inout) :: & - as2(:,:,:,:) ! moist, tracers after vert. diff -! -! !REVISION HISTORY: -! See https://github.com/geoschem/geos-chem for complete history -!EOP -!------------------------------------------------------------------------------ -!BOC -! -! !LOCAL VARIABLES: -! - real(fp) :: & - cah(plonl,plev), & ! -upper diag for heat and constituts - cch(plonl,plev), & ! -lower diag for heat and constits - cgq(plonl,plevp,nspcmix),&! countergrad term for constituent - potbar(plonl,plevp), & ! pintm1(k)/(.5*(tm1(k)+tm1(k-1)) - tmp1(plonl), & ! temporary storage - tmp2, & ! temporary storage - ztodtgor, & ! ztodt*gravit/rair - gorsq, & ! (gravit/rair)**2 - dqbot(plonl,nspcmix), & ! lowest layer q change from const flx - qmx(plonl,plev,nspcmix),& ! constituents input + counter grad - zeh(plonl,plev), & ! term in tri-diag. matrix system (t & q) - termh(plonl,plev) ! 1./(1. + cah(k) + cch(k) - cch(k)*zeh(k-1)) - integer :: & - indx(plonl), & ! array of indices of potential q<0 - ilogic(plonl), & ! 1 => adjust vertical profile - nval, & ! num of values which meet criteria - ii ! longitude index of found points - integer :: & - i, & ! longitude index - k, & ! vertical index - m ! constituent index - - real(fp) :: & - tm1(plonl,plev), & ! temperature input - pmidm1(plonl,plev), & ! midpoint pressures - pintm1(plonl,plevp), & ! interface pressures - rpdel(plonl,plev), & ! 1./pdel (thickness bet interfaces) - rpdeli(plonl,plev), & ! 1./pdeli (thickness bet midpoints) - cflx(plonl,nspcmix), & ! surface constituent flux (kg/m2/s) - kvh(plonl,plevp), & ! coefficient for heat and tracers - cgs(plonl,plevp) ! counter-grad star (cg/flux) - real(fp) :: & - qp1(plonl,plev,nspcmix) ! moist, tracers after vert. diff - !================================================================= - ! vdiffar begins here! - !================================================================= - - ! Zero/initialize local variables for safety's sake - indx = 0 - ilogic = 0 - cah = 0.0_fp - cch = 0.0_fp - cgq = 0.0_fp - potbar = 0.0_fp - tmp1 = 0.0_fp - dqbot = 0.0_fp - qmx = 0.0_fp - zeh = 0.0_fp - termh = 0.0_fp - tm1 = tadv(:,lat,:) - pmidm1 = pmid(:,lat,:) - pintm1 = pint(:,lat,:) - rpdel = rpdel_arg(:,lat,:) - rpdeli = rpdeli_arg(:,lat,:) - cflx = sflx(:,lat,:) - kvh = kvh_arg(:,lat,:) - cgs = cgs_arg(:,lat,:) - qp1 = as2(:,lat,:,:) - -!----------------------------------------------------------------------- -! ... convert the surface fluxes to lowest level tendencies -!----------------------------------------------------------------------- - do i = 1,plonl - tmp1(i) = ztodt*gravit*rpdel(i,plev) - end do - do m = 1,nspcmix - do i = 1,plonl - dqbot(i,m) = cflx(i,m)*tmp1(i) - end do - end do - -!----------------------------------------------------------------------- -! ... counter gradient terms: -!----------------------------------------------------------------------- - call pbldifar( tm1, pmidm1, cflx, cgs, cgq, plonl ) - -!----------------------------------------------------------------------- -! ... add the counter grad terms to potential temp, specific humidity -! and other constituents in the bdry layer. note, npbl gives the max -! num of levels which are permitted to be within the boundary layer. -!----------------------------------------------------------------------- -!----------------------------------------------------------------------- -! ... first set values above boundary layer -!----------------------------------------------------------------------- - do k = 1,plev-npbl - do m = 1,nspcmix - qmx(:,k,m) = qp1(:,k,m) - end do - end do - do k = 2,plev - potbar(:,k) = pintm1(:,k)/(0.5_fp*(tm1(:,k) + tm1(:,k-1))) - end do - potbar(:,plevp) = pintm1(:,plevp)/tm1(:,plev) - -!----------------------------------------------------------------------- -! ... now focus on the boundary layer -!----------------------------------------------------------------------- - ztodtgor = ztodt*gravit/rair - do k = plev-npbl+1,plev - do i = 1,plonl - tmp1(i) = ztodtgor*rpdel(i,k) - end do - do m = 1,nspcmix - do i = 1,plonl - qmx(i,k,m) = qp1(i,k,m) + tmp1(i)*(potbar(i,k+1)*kvh(i,k+1)* & - cgq(i,k+1,m) - potbar(i,k)*kvh(i,k)*cgq(i,k,m)) - end do - end do - end do - -!----------------------------------------------------------------------- -! ... check for neg qs in each constituent and put the original vertical -! profile back if a neg value is found. a neg value implies that the -! quasi-equilibrium conditions assumed for the countergradient term are -! strongly violated. -! original code rewritten by rosinski 7/8/91 to vectorize in longitude. -!----------------------------------------------------------------------- - do m = 1,nspcmix - ilogic(:plonl) = 0 - do k = plev-npbl+1,plev - do i = 1,plonl - if( qmx(i,k,m) < qmincg(m) ) then - ilogic(i) = 1 - end if - end do - end do -!----------------------------------------------------------------------- -! ... find long indices of those columns for which negatives were found -!----------------------------------------------------------------------- - nval = count( ilogic(:plonl) == 1 ) - -!----------------------------------------------------------------------- -! ... replace those columns with original values -!----------------------------------------------------------------------- - if( nval > 0 ) then - do k = plev-npbl+1,plev - where( ilogic(:plonl) == 1 ) - qmx(:plonl,k,m) = qp1(:plonl,k,m) - endwhere - end do - end if - end do - -!----------------------------------------------------------------------- -! ... determine superdiagonal (ca(k)) and subdiagonal (cc(k)) coeffs -! of the tridiagonal diffusion matrix. the diagonal elements are a -! combination of ca and cc; they are not explicitly provided to the -! solver -!----------------------------------------------------------------------- - gorsq = (gravit/rair)**2 - do k = ntopfl,plev-1 - do i = 1,plonl - tmp2 = ztodt*gorsq*rpdeli(i,k)*(potbar(i,k+1)**2) - cah(i,k ) = kvh(i,k+1)*tmp2*rpdel(i,k ) - cch(i,k+1) = kvh(i,k+1)*tmp2*rpdel(i,k+1) - end do - end do -!----------------------------------------------------------------------- -! ... the last element of the upper diagonal is zero. -!----------------------------------------------------------------------- - do i = 1,plonl - cah(i,plev) = 0.0_fp - end do -!----------------------------------------------------------------------- -! ... calculate e(k) for heat vertical diffusion. this term is -! required in solution of tridiagonal matrix defined by implicit -! diffusion eqn. -!----------------------------------------------------------------------- - do i = 1,plonl - termh(i,ntopfl) = 1.0_fp/(1.0_fp + cah(i,ntopfl)) - zeh(i,ntopfl) = cah(i,ntopfl)*termh(i,ntopfl) - end do - do k = ntopfl+1,plev-1 - do i = 1,plonl - termh(i,k) = 1.0_fp/(1.0_fp + cah(i,k) + cch(i,k) & - - cch(i,k)*zeh(i,k-1)) - zeh(i,k) = cah(i,k)*termh(i,k) - end do - end do -!----------------------------------------------------------------------- -! ... diffuse constituents -!----------------------------------------------------------------------- - call qvdiff( nspcmix, qmx, dqbot, cch, zeh, & - termh, qp1, plonl ) -!----------------------------------------------------------------------- -! ... identify and correct constituents exceeding user defined bounds -!----------------------------------------------------------------------- -! call qneg3( 'vdiff ', lat, qp1(1,1,1), plonl ) -! simplified treatment - where (qp1 < 0.0_fp) - qp1 = 0.0_fp - endwhere - - !Output values from local variables to arguments.(ccc, 11/17/09) - as2(:,lat,:,:) = qp1 - - END SUBROUTINE VDIFFAR -!EOC -!------------------------------------------------------------------------------ -! GEOS-Chem Global Chemical Transport Model ! -!------------------------------------------------------------------------------ -!BOP -! ! !IROUTINE: pbldifar ! ! !DESCRIPTION: Subroutine PBLDIFAR is a modified version of pbldif which only @@ -2062,7 +1815,8 @@ SUBROUTINE VDIFFDR( Input_Opt, State_Chm, State_Diag, & ENDDO ! PEDGE at the top of the atmosphere - pint(I,J,State_Grid%NZ+1) = State_Met%PEDGE(I,J,State_Grid%NZ+1) + pint(I,J,State_Grid%NZ+1) = State_Met%PEDGE(I,J,State_Grid%NZ+1) & + * 100.0_fp ! Corrected calculation of zm. ! Box height calculation now uses virtual temperature. @@ -2112,12 +1866,6 @@ SUBROUTINE VDIFFDR( Input_Opt, State_Chm, State_Diag, & p_kvm => kvm (:, :, State_Grid%NZ+1:1:-1 ) p_cgs => cgs (:, :, State_Grid%NZ+1:1:-1 ) - ! Convert v/v -> m/m (i.e., kg/kg) - DO NA = 1, nAdvect - State_Chm%Species(NA)%Conc(:,:,:) = State_Chm%Species(NA)%Conc(:,:,:) & - / ( AIRMW / State_Chm%SpcData(NA)%Info%MW_g ) - ENDDO - ! Convert g/kg -> kg/kg p_shp = p_shp * 1.e-3_fp @@ -2130,14 +1878,15 @@ SUBROUTINE VDIFFDR( Input_Opt, State_Chm, State_Diag, & !$OMP DEFAULT( SHARED ) & !$OMP PRIVATE( J, EC ) DO J = 1, State_Grid%NY - CALL Vdiff( J, 1, p_um1, p_vm1, & - p_tadv, p_pmid, p_pint, p_rpdel, & - p_rpdeli, dtime, p_zm, p_hflux, & - p_sflx, p_thp, p_pblh, & - p_kvh, p_kvm, tpert, qpert, & - p_cgs, p_shp, shflx, State_Grid%NX, & - Input_Opt, State_Met, State_Chm, State_Diag, & - ustar_arg=p_ustar, RC=EC ) + CALL Vdiff( J, 1, p_um1, p_vm1, & + p_tadv, p_pmid, p_pint, p_rpdel, & + p_rpdeli, dtime, p_zm, p_hflux, & + p_sflx, p_thp, p_pblh, & + p_kvh, p_kvm, tpert, qpert, & + p_cgs, p_shp, shflx, State_Grid%NX, & + Input_Opt, State_Met, State_Grid, & + State_Chm, State_Diag, & + ustar_arg=p_ustar, RC=EC ) ENDDO !$OMP END PARALLEL DO @@ -2146,12 +1895,6 @@ SUBROUTINE VDIFFDR( Input_Opt, State_Chm, State_Diag, & CALL DEBUG_MSG( '### VDIFFDR: after vdiff' ) ENDIF - ! Convert kg/kg -> v/v - DO NA = 1, nAdvect - State_Chm%Species(NA)%Conc(:,:,:) = State_Chm%Species(NA)%Conc(:,:,:) & - * ( AIRMW / State_Chm%SpcData(NA)%Info%MW_g ) - ENDDO - ! Convert kg/kg -> g/kg p_shp = p_shp * 1.0e+3_fp @@ -2301,41 +2044,6 @@ SUBROUTINE Do_Vdiff( Input_Opt, State_Chm, State_Diag, & ENDIF ENDIF - !======================================================================= - ! Unit conversion #1 - !======================================================================= - - ! Halt mixing timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "Boundary layer mixing", RC ) - ENDIF - - ! Convert species concentration to [v/v dry] aka [mol/mol dry] - ! NOTE: Convert units for all all species because we will later - ! update mixing ratios after recomputing air quantities with AIRQNT. - ! This is needed in order to ensure mass conservation. - ! -- Bob Yantosca, Lizzie Lundgren (15 Feb 2024) - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - new_units = MOLES_SPECIES_PER_MOLES_DRY_AIR, & - previous_units = previous_units, & - RC = RC ) - - ! Trap potential errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountred in "Convert_Spc_Units" (to mol.mol dry)!' - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - - ! Start mixng timer again - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "Boundary layer mixing", RC ) - ENDIF - !======================================================================= ! PBL mixing !======================================================================= @@ -2377,36 +2085,6 @@ SUBROUTINE Do_Vdiff( Input_Opt, State_Chm, State_Diag, & CALL DEBUG_MSG( '### DO_PBL_MIX_2: after AIRQNT' ) ENDIF - !======================================================================= - ! Unit conversion #2 - !======================================================================= - - ! Halt mixing timer (so that unit conv can be timed separately) - IF ( Input_Opt%useTimers ) THEN - CALL Timer_End( "Boundary layer mixing", RC ) - ENDIF - - ! Convert species back to the original units - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - new_units = previous_units, & - RC = RC ) - - ! Trap potential errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountred in "Convert_Spc_Units"!' - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - - ! Start mixng timer again - IF ( Input_Opt%useTimers ) THEN - CALL Timer_Start( "Boundary layer mixing", RC ) - ENDIF - !======================================================================= ! Non-local PBL mixing budget diagnostics - Part 2 of 2 !======================================================================= diff --git a/GeosCore/wetscav_mod.F90 b/GeosCore/wetscav_mod.F90 index 021117017..326c7960c 100644 --- a/GeosCore/wetscav_mod.F90 +++ b/GeosCore/wetscav_mod.F90 @@ -4202,7 +4202,7 @@ SUBROUTINE DO_RAINOUT_ONLY( LS, I, J, L, IDX, & ! Archive wet loss in kg/m2/s IF ( LSOILNOX ) THEN - CALL SOIL_WETDEP ( I, J, L, N, WETLOSS / DT, State_Chm ) + CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm ) ENDIF !--------------------------------------------------------------------- @@ -4761,7 +4761,7 @@ SUBROUTINE DO_WASHOUT_ONLY( LS, I, J, L, & ! Archive wet loss in kg/m2/s IF ( LSOILNOX ) THEN - CALL SOIL_WETDEP ( I, J, L, N, WETLOSS / DT, State_Chm ) + CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm ) ENDIF !--------------------------------------------------------------------- @@ -5035,7 +5035,7 @@ SUBROUTINE DO_COMPLETE_REEVAP( LS, I, J, & ! Archive wet loss in kg/m2/s IF ( LSOILNOX ) THEN - CALL SOIL_WETDEP ( I, J, L, N, WETLOSS / DT, State_Chm ) + CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm ) ENDIF !-------------------------------------------------------------------- @@ -5319,10 +5319,10 @@ SUBROUTINE DO_WASHOUT_AT_SFC( LS, I, J, & ENDIF - ! Archive wet loss in kg/m2/s (check source code for this routine - ewl ) - !IF ( LSOILNOX ) THEN - CALL SOIL_WETDEP ( I, J, L, N, WETLOSS / DT, State_Chm ) - !ENDIF + ! Archive wet loss in kg/m2/s + IF ( LSOILNOX ) THEN + CALL SOIL_WETDEP ( I, J, N, WETLOSS / DT, State_Chm ) + ENDIF !-------------------------------------------------------------------- ! Dirty kludge to prevent wet deposition from removing diff --git a/GeosUtil/CMakeLists.txt b/GeosUtil/CMakeLists.txt index e2ac006c1..573e12941 100755 --- a/GeosUtil/CMakeLists.txt +++ b/GeosUtil/CMakeLists.txt @@ -13,6 +13,7 @@ add_library(GeosUtil STATIC EXCLUDE_FROM_ALL henry_mod.F90 ifort_errmsg.F90 pressure_mod.F90 + print_mod.F90 regrid_a2a_mod.F90 time_mod.F90 timers_mod.F90 diff --git a/GeosUtil/print_mod.F90 b/GeosUtil/print_mod.F90 new file mode 100644 index 000000000..e9eebe912 --- /dev/null +++ b/GeosUtil/print_mod.F90 @@ -0,0 +1,128 @@ +!------------------------------------------------------------------------------ +! GEOS-Chem Global Chemical Transport Model ! +!------------------------------------------------------------------------------ +!BOP +! +! !MODULE: print_mod.F90 +! +! !DESCRIPTION: Module PRINT\_MOD contains routines which are used as a +! general utility to print various quantities to log for debugging +! or informational purposes. +!\\ +!\\ +! !INTERFACE: +! +MODULE Print_Mod +! +! !USES: +! + USE ErrCode_Mod + USE Error_Mod + USE PhysConstants + USE Precision_Mod + USE Input_Opt_Mod, ONLY : OptInput + USE State_Chm_Mod, ONLY : ChmState + USE State_Chm_Mod, ONLY : Ind_ + USE State_Grid_Mod, ONLY : GrdState + USE State_Met_Mod, ONLY : MetState + USE UnitConv_Mod + + IMPLICIT NONE + PRIVATE +! +! !PUBLIC MEMBER FUNCTIONS: +! + PUBLIC :: Print_Species_Min_Max_Sum +! +! !REMARKS: +! +! +! !REVISION HISTORY: +! 15 Oct 20324 - E. Lundgren - Initial version +! See https://github.com/geoschem/geos-chem for complete history +!EOP +!------------------------------------------------------------------------------ +!BOC +CONTAINS +!EOC +!------------------------------------------------------------------------------ +! GEOS-Chem Global Chemical Transport Model ! +!------------------------------------------------------------------------------ +!BOP +! +! !IROUTINE: Print_Species_Min_Max_Sum +! +! !DESCRIPTION: Subroutine Print\_Species\_Min\_Max\_Sum prints the +! minimum, maximum, and sum of species concentrations on the root thread +! to log. The default is to write all species. Arguments can be passed to +! to specify start index and stop index of State_Chm%Species array to +! limit species to one species or a consecutive sequence. +!\\ +!\\ +! !INTERFACE: +! + SUBROUTINE Print_Species_Min_Max_Sum( msg, Input_Opt, State_Chm, & + RC, nStart, nStop ) +! +! !INPUT PARAMETERS: +! + + CHARACTER(LEN=*), INTENT(IN) :: msg ! Message to print + TYPE(OptInput), INTENT(IN) :: Input_Opt ! Input Options object + TYPE(ChmState), INTENT(IN) :: State_Chm ! Chemistry State object + INTEGER, INTENT(IN), OPTIONAL :: nStart ! Index of 1st species to print + INTEGER, INTENT(IN), OPTIONAL :: nStop ! Index of last species to print +! +! !OUTPUT PARAMETERS: +! + INTEGER, INTENT(OUT) :: RC ! Success or failure? +! +! !REMARKS: +! +! !REVISION HISTORY: +! 07 Oct 2024 - E. Lundgren - Initial version +! See https://github.com/geoschem/geos-chem for complete history +!EOP +!------------------------------------------------------------------------------ +!BOC +! +! !LOCAL VARIABLES: +! + ! Scalars + INTEGER :: N, N_Start, N_Stop + + ! Strings + CHARACTER(LEN=255) :: errMsg, errLoc, units + + !======================================================================== + ! Print_Species_Min_Max_Sum begins here! + !======================================================================== + + RC = GC_SUCCESS + errMsg = '' + errLoc = ' -> at Print_Species_Min_Max_Sum (in GeosUtil/print_mod.F90)' + + ! Set defaults + N_START = 1 + N_STOP = State_Chm%nSpecies + + ! Override with optional args + IF ( PRESENT(nStart) ) N_START = nStart + IF ( PRESENT(nStop ) ) N_STOP = nStop + + ! Write to log + IF ( Input_Opt%amIRoot ) THEN + WRITE(6,*) TRIM(msg) // ' (' // TRIM(UNIT_STR(State_Chm%Species(1)%Units)) // ')' + DO N = N_START, N_STOP + WRITE( 6, 120 ) N, TRIM( State_Chm%SpcData(N)%Info%Name ), & + MINVAL( State_Chm%Species(N)%Conc(:,:,:) ), & + MAXVAL( State_Chm%Species(N)%Conc(:,:,:) ), & + SUM ( State_Chm%Species(N)%Conc(:,:,:) ) + ENDDO + ENDIF +120 FORMAT( ' Species ', i3, ', ', a8, ': Min = ', es15.9, & + ' Max = ',es15.9, ' Sum = ',es15.9) + + END SUBROUTINE Print_Species_Min_Max_Sum +!EOC +END MODULE Print_Mod diff --git a/Headers/CMN_FJX_MOD.F90 b/Headers/CMN_FJX_MOD.F90 index f5bcffe6c..940fc296c 100644 --- a/Headers/CMN_FJX_MOD.F90 +++ b/Headers/CMN_FJX_MOD.F90 @@ -31,7 +31,7 @@ MODULE CMN_FJX_MOD ! Parameters !----------------------------------------------------------------------- - INTEGER, PARAMETER :: JVN_ = 166 ! Max number of J-values + INTEGER, PARAMETER :: JVN_ = 167 ! Max number of J-values INTEGER, PARAMETER :: WX_ = 18 ! # wavelengths in file FJX_spec.dat diff --git a/Headers/input_opt_mod.F90 b/Headers/input_opt_mod.F90 index 8b4623e70..9d60405c9 100644 --- a/Headers/input_opt_mod.F90 +++ b/Headers/input_opt_mod.F90 @@ -96,6 +96,7 @@ MODULE Input_Opt_Mod !---------------------------------------- ! AEROSOL MENU fields !---------------------------------------- + CHARACTER(LEN=255) :: AER_OPTICS_DIR LOGICAL :: LSULF LOGICAL :: LMETALCATSO2 LOGICAL :: LCARB @@ -135,6 +136,7 @@ MODULE Input_Opt_Mod LOGICAL :: LHCodedOrgHal LOGICAL :: LCMIP6OrgHal LOGICAL :: DoLightNOx ! Shadow for LightNOX extension + LOGICAL :: UseSoilTemp ! For HEMCO "intermediate" grid (hplin, 6/2/20) LOGICAL :: LIMGRID ! Use different grid resolution for HEMCO? @@ -183,7 +185,15 @@ MODULE Input_Opt_Mod LOGICAL :: Do_Photolysis CHARACTER(LEN=255) :: FAST_JX_DIR CHARACTER(LEN=255) :: CloudJ_Dir - INTEGER :: Nlevs_Phot_Cloud + INTEGER :: Nlevs_Phot_Cloud ! Cloud-J var LWEPAR + INTEGER :: Cloud_Flag ! Cloud-J var CLDFLAG + REAL(fp) :: OD_Increase_Factor ! Cloud-J var ATAU + REAL(fp) :: Min_Cloud_OD ! Cloud-J var ATAU0 + REAL(fp) :: Cloud_Corr ! Cloud-J var CLDCOR + INTEGER :: Num_Max_Overlap ! Cloud-J var LNRG + INTEGER :: Sphere_Correction ! Cloud-J var ATM0 + INTEGER :: Num_WV_Bins ! Cloud-J var NWBIN + LOGICAL :: USE_H2O_UV_Abs ! Cloud-J var USEH2OUV LOGICAL :: USE_ONLINE_O3 LOGICAL :: USE_O3_FROM_MET LOGICAL :: USE_TOMS_O3 @@ -593,6 +603,7 @@ SUBROUTINE Set_Input_Opt( am_I_Root, Input_Opt, RC ) CALL GC_CheckVar( arrayId, 0, RC ) IF ( RC /= GC_SUCCESS ) RETURN + Input_Opt%AER_OPTICS_DIR = '' Input_Opt%LSULF = .FALSE. Input_Opt%LMETALCATSO2 = .FALSE. Input_Opt%LCARB = .FALSE. @@ -626,6 +637,7 @@ SUBROUTINE Set_Input_Opt( am_I_Root, Input_Opt, RC ) Input_Opt%LHCodedOrgHal = .FALSE. Input_Opt%LCMIP6OrgHal = .FALSE. Input_Opt%DoLightNOx = .FALSE. + Input_Opt%UseSoilTemp = .FALSE. Input_Opt%LIMGRID = .FALSE. Input_Opt%IMGRID_XSCALE = 1 Input_Opt%IMGRID_YSCALE = 1 @@ -673,6 +685,14 @@ SUBROUTINE Set_Input_Opt( am_I_Root, Input_Opt, RC ) Input_Opt%FAST_JX_DIR = '' Input_Opt%CloudJ_Dir = '' Input_Opt%Nlevs_Phot_Cloud = 0 + Input_Opt%Cloud_Flag = 0 + Input_Opt%OD_Increase_Factor = 0.0_fp + Input_Opt%Min_Cloud_OD = 0.0_fp + Input_Opt%Cloud_Corr = 0 + Input_Opt%Num_Max_Overlap = 0 + Input_Opt%Sphere_Correction = 0 + Input_Opt%Num_WV_Bins = 0 + Input_Opt%USE_H2O_UV_Abs = .FALSE. Input_Opt%USE_ONLINE_O3 = .FALSE. Input_Opt%USE_O3_FROM_MET = .FALSE. Input_Opt%USE_TOMS_O3 = .FALSE. diff --git a/Headers/roundoff_mod.F90 b/Headers/roundoff_mod.F90 index c1730e7f3..d1d7172fa 100644 --- a/Headers/roundoff_mod.F90 +++ b/Headers/roundoff_mod.F90 @@ -167,7 +167,10 @@ FUNCTION Cast_and_RoundOff_Real2Dble( v_real, places ) RESULT( v_dble ) ENDIF ! Cast to real*8 and roundoff (if the number isn't too large) - v_dble = RoundOff( DBLE( v_real ), places ) + v_dble = DBLE( v_real ) + IF ( places > 0 ) THEN + v_dble = RoundOff( v_dble, places ) + ENDIF END FUNCTION Cast_And_RoundOff_Real2Dble !EOC diff --git a/Headers/species_database_mod.F90 b/Headers/species_database_mod.F90 index abc0c08c6..36357df61 100644 --- a/Headers/species_database_mod.F90 +++ b/Headers/species_database_mod.F90 @@ -157,7 +157,7 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) REAL(f4) :: wd_rainouteff_luo(3) ! String arrays - CHARACTER(LEN=17) :: tags(64) + CHARACTER(LEN=17) :: tags(66) CHARACTER(LEN=QFYAML_StrLen):: a_str(2) ! Objects @@ -208,6 +208,11 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) "Density ", & "Formula ", & "FullName ", & + "Henry_CR ", & + "Henry_CR_Luo ", & + "Henry_K0 ", & + "Henry_K0_Luo ", & + "Henry_pKa ", & "Is_Aerosol ", & "Is_DryAlt ", & "Is_DryDep ", & @@ -218,13 +223,10 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) "Is_HgP ", & "Is_Photolysis ", & "Is_RadioNuclide ", & - "Is_Tracer ", & "Is_WetDep ", & - "Henry_CR ", & - "Henry_CR_Luo ", & - "Henry_K0 ", & - "Henry_K0_Luo ", & - "Henry_pKa ", & + "Is_Tracer ", & + "KPP_AbsTol ", & + "KPP_RelTol ", & "MP_SizeResAer ", & "MP_SizeResNum ", & "MW_g ", & @@ -611,6 +613,16 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) ThisSpc%Is_WetDep = v_bool ENDIF + ELSE IF ( INDEX( key, "%KPP_AbsTol" ) > 0 ) THEN + CALL QFYAML_Add_Get( yml, key, v_str, "", RC ) + IF ( RC /= GC_SUCCESS ) GOTO 999 + ThisSpc%KPP_AbsTol = Cast_and_RoundOff( v_str, -1 ) + + ELSE IF ( INDEX( key, "%KPP_RelTol" ) > 0 ) THEN + CALL QFYAML_Add_Get( yml, key, v_real, "", RC ) + IF ( RC /= GC_SUCCESS ) GOTO 999 + ThisSpc%KPP_RelTol = Cast_and_RoundOff( v_str, -1 ) + ELSE IF ( INDEX( key, "%MP_SizeResAer" ) > 0 ) THEN CALL QFYAML_Add_Get( yml, key, v_bool, "", RC ) IF ( RC /= GC_SUCCESS ) GOTO 999 @@ -640,8 +652,8 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) a_str = MISSING_STR CALL QFYAML_Add_Get( yml, TRIM( key ), a_str, "", RC ) IF ( RC /= GC_SUCCESS ) GOTO 999 - ThisSpc%Snk_LatMin = Cast_and_RoundOff( a_str(1), places=4 ) - ThisSpc%Snk_LatMax = Cast_and_RoundOff( a_str(2), places=4 ) + ThisSpc%Snk_LatMin = Cast_and_RoundOff( a_str(1), 4 ) + ThisSpc%Snk_LatMax = Cast_and_RoundOff( a_str(2), 4 ) ELSE IF ( INDEX( key, "%Snk_Mode" ) > 0 ) THEN CALL QFYAML_Add_Get( yml, key, v_str, "", RC ) @@ -677,8 +689,8 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) a_str = MISSING_STR CALL QFYAML_Add_Get( yml, TRIM( key ), a_str, "", RC ) IF ( RC /= GC_SUCCESS ) GOTO 999 - ThisSpc%Src_LatMin = Cast_and_RoundOff( a_str(1), places=4 ) - ThisSpc%Src_LatMax = Cast_and_RoundOff( a_str(2), places=4 ) + ThisSpc%Src_LatMin = Cast_and_RoundOff( a_str(1), 4 ) + ThisSpc%Src_LatMax = Cast_and_RoundOff( a_str(2), 4 ) ELSE IF ( INDEX( key, "%Src_Mode" ) > 0 ) THEN CALL QFYAML_Add_Get( yml, key, v_str, "", RC ) @@ -689,8 +701,8 @@ SUBROUTINE Init_Species_Database( Input_Opt, SpcData, SpcCount, RC ) a_str = MISSING_STR CALL QFYAML_Add_Get( yml, TRIM( key ), a_str, "", RC ) IF ( RC /= GC_SUCCESS ) GOTO 999 - ThisSpc%Src_PresMin = Cast_and_RoundOff( a_str(1), places=4 ) - ThisSpc%Src_PresMax = Cast_and_RoundOff( a_str(2), places=4 ) + ThisSpc%Src_PresMin = Cast_and_RoundOff( a_str(1), 4 ) + ThisSpc%Src_PresMax = Cast_and_RoundOff( a_str(2), 4 ) ELSE IF ( INDEX( key, "%Src_Units" ) > 0 ) THEN CALL QFYAML_Add_Get( yml, key, v_str, "", RC ) @@ -1359,8 +1371,8 @@ SUBROUTINE Unique_Species_Names( Input_Opt, nSpecies, RC ) ENDDO !======================================================================= - ! For specialty simulations, we do not have KPP species. Thus, the - ! of species is just the list of advected species from geoschem_config.yml + ! For speciality simulations that do not use KPP-built mechanisms, + ! we can just use the advected species list from geoschem_config.yml !======================================================================= ELSE diff --git a/Headers/species_mod.F90 b/Headers/species_mod.F90 index ebcbfb2fe..46a6ba7c1 100644 --- a/Headers/species_mod.F90 +++ b/Headers/species_mod.F90 @@ -194,6 +194,10 @@ MODULE Species_Mod LOGICAL :: Is_Hg2 ! Is a Hg2 species? LOGICAL :: Is_HgP ! Is a HgP species? + ! KPP solver parameters + REAL(f8) :: KPP_AbsTol ! Absolute tolerance + REAL(f8) :: KPP_RelTol ! Relative tolerance + END TYPE Species ! ! !DEFINED PARAMETERS: @@ -454,6 +458,8 @@ SUBROUTINE Spc_Zero( Spc ) Spc%Henry_CR = MISSING_DBLE Spc%Henry_K0 = MISSING_DBLE Spc%Henry_PKA = MISSING_DBLE + Spc%KPP_AbsTol = MISSING_DBLE + Spc%KPP_RelTol = MISSING_DBLE ! Strings Spc%Formula = MISSING_STR @@ -597,6 +603,9 @@ SUBROUTINE Spc_Print( Input_Opt, ThisSpc, RC ) WRITE( 6, 130 ) "Is_FixedChem ", ThisSpc%Is_FixedChem WRITE( 6, 100 ) "KppFixId ", ThisSpc%KppFixId ENDIF + + WRITE( 6, 120 ) "KPP_AbsTol ", ThisSpc%KPP_AbsTol + WRITE( 6, 120 ) "KPP_RelTol ", ThisSpc%KPP_RelTol ENDIF !-------------------------------------------------------------------- diff --git a/Headers/state_chm_mod.F90 b/Headers/state_chm_mod.F90 index 4a013f1a6..185026785 100644 --- a/Headers/state_chm_mod.F90 +++ b/Headers/state_chm_mod.F90 @@ -91,6 +91,8 @@ MODULE State_Chm_Mod !----------------------------------------------------------------------- ! Mapping vectors to subset types of species !----------------------------------------------------------------------- + REAL(f8), POINTER :: KPP_AbsTol (: ) ! KPP absolute tolerance + REAL(f8), POINTER :: KPP_RelTol (: ) ! KPP relative tolerance INTEGER, POINTER :: Map_Advect (: ) ! Advected species IDs INTEGER, POINTER :: Map_Aero (: ) ! Aerosol species IDs INTEGER, POINTER :: Map_All (: ) ! All species IDs @@ -644,6 +646,10 @@ SUBROUTINE Zero_State_Chm( State_Chm, RC ) State_Chm%PSO4_SO2APM2 => NULL() #endif + ! KPP integrator quantities + State_Chm%KPP_AbsTol => NULL() + State_Chm%KPP_RelTol => NULL() + END SUBROUTINE Zero_State_Chm !EOC !------------------------------------------------------------------------------ @@ -2525,6 +2531,17 @@ SUBROUTINE Init_Mapping_Vectors( Input_Opt, State_Chm, RC ) CALL GC_CheckVar( 'State_Chm%Map_KppVar', 0, 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 + State_Chm%KPP_AbsTol = 0.0_f8 + + ALLOCATE( State_Chm%KPP_RelTol( N ), STAT=RC ) + CALL GC_CheckVar( 'State_Chm%Kpp_RelTol', 0, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%KPP_RelTol = 0.0_f8 ENDIF N = State_Chm%nKppFix + State_Chm%nOmitted @@ -2683,6 +2700,8 @@ SUBROUTINE Init_Mapping_Vectors( Input_Opt, State_Chm, RC ) IF ( ThisSpc%Is_ActiveChem ) THEN C = ThisSpc%KppVarId State_Chm%Map_KppVar(C) = ThisSpc%ModelId + State_Chm%KPP_AbsTol(C) = ThisSpc%KPP_AbsTol + State_Chm%KPP_RelTol(C) = ThisSpc%KPP_RelTol ENDIF !--------------------------------------------------------------------- @@ -3088,6 +3107,20 @@ SUBROUTINE Cleanup_State_Chm( State_Chm, RC ) State_Chm%Phot => NULL() ENDIF + IF ( ASSOCIATED( State_Chm%KPP_AbsTol ) ) THEN + DEALLOCATE( State_Chm%KPP_AbsTol, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%KPP_AbsTol', 2, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%KPP_AbsTol => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%KPP_RelTol ) ) THEN + DEALLOCATE( State_Chm%KPP_RelTol, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%KPP_RelTol', 2, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%KPP_RelTol => NULL() + ENDIF + IF ( ASSOCIATED( State_Chm%Map_Advect ) ) THEN DEALLOCATE( State_Chm%Map_Advect, STAT=RC ) CALL GC_CheckVar( 'State_Chm%Map_Advect', 2, RC ) @@ -4481,6 +4514,7 @@ SUBROUTINE Get_Metadata_State_Chm( am_I_Root, metadataID, Found, & // ' et al 2011, GMD)' IF ( isUnits ) Units = 'count' IF ( isRank ) Rank = 3 + IF ( isType ) Type = KINDVAL_F4 CASE ( 'KHETISLAN2O5H2O' ) IF ( isDesc ) Desc = 'Sticking coefficient for N2O5 + H2O reaction' @@ -4741,6 +4775,7 @@ SUBROUTINE Get_Metadata_State_Chm( am_I_Root, metadataID, Found, & IF ( isUnits ) Units = 'm s-1' IF ( isRank ) Rank = 2 IF ( isSpc ) perSpc = 'DRY' + IF ( isType ) type = KINDVAL_F8 #ifdef MODEL_GEOS CASE( 'DRYDEPRA2M' ) @@ -5711,6 +5746,7 @@ SUBROUTINE Register_ChmField_R4_2D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( desc ), & Units = TRIM( units ), & Data2d_4 = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -5850,6 +5886,7 @@ SUBROUTINE Register_ChmField_R4_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data2d_4 = Ptr2Data(:,:,nCat), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -5899,6 +5936,7 @@ SUBROUTINE Register_ChmField_R4_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data2d_4 = Ptr2Data(:,:,N), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -5937,6 +5975,7 @@ SUBROUTINE Register_ChmField_R4_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & Data3d_4 = Ptr2Data, & OnLevelEdges = onEdges, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6081,6 +6120,7 @@ SUBROUTINE Register_ChmField_R4_4D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data3d_4 = Ptr2Data(:,:,:,Ncat), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6130,6 +6170,7 @@ SUBROUTINE Register_ChmField_R4_4D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data3d_4 = Ptr2Data(:,:,:,N), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6272,6 +6313,7 @@ SUBROUTINE Register_ChmField_R8_2D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( desc ), & Units = TRIM( units ), & Data2d_8 = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6414,6 +6456,7 @@ SUBROUTINE Register_ChmField_R8_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data2d_8 = Ptr2Data(:,:,nCat), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6463,6 +6506,7 @@ SUBROUTINE Register_ChmField_R8_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data2d_8 = Ptr2Data(:,:,N), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6501,6 +6545,7 @@ SUBROUTINE Register_ChmField_R8_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & Data3d_8 = Ptr2Data, & OnLevelEdges = onEdges, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6643,6 +6688,7 @@ SUBROUTINE Register_ChmField_R8_4D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data3d_8 = Ptr2Data(:,:,:,Ncat), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6684,6 +6730,7 @@ SUBROUTINE Register_ChmField_R8_4D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( units ), & OnLevelEdges = onEdges, & Data3d_8 = Ptr2Data(:,:,:,N), & + Output_KindVal = type, & RC = RC ) ! Trap potential errors diff --git a/Headers/state_diag_mod.F90 b/Headers/state_diag_mod.F90 index 209d31734..27465c085 100644 --- a/Headers/state_diag_mod.F90 +++ b/Headers/state_diag_mod.F90 @@ -14557,12 +14557,7 @@ SUBROUTINE Get_Metadata_State_Diag( am_I_Root, metadataID, Found, & IF ( isRank ) Rank = 3 IF ( isTagged ) TagId = 'ALL' IF ( isSrcType ) SrcType = KINDVAL_F8 - !-------------------------------------------------------------------- - ! NOTE: We will eventually want restart file variables to be written - ! to netCDF as REAL*8, but HEMCO cannot yet read this. For now - ! we will keep writing out restart files as REAL*4. (bmy, 8/14/20) - IF ( isOutType ) OutType = KINDVAL_F4 - !-------------------------------------------------------------------- + IF ( isOutType ) OutType = KINDVAL_F8 ELSE IF ( TRIM( Name_AllCaps ) == 'SPECIESBC' ) THEN IF ( isDesc ) Desc = 'Dry mixing ratio of species' diff --git a/Headers/state_met_mod.F90 b/Headers/state_met_mod.F90 index 0e611f723..2f3c328cc 100644 --- a/Headers/state_met_mod.F90 +++ b/Headers/state_met_mod.F90 @@ -145,6 +145,7 @@ MODULE State_Met_Mod REAL(fp), POINTER :: TropHt (:,: ) ! Tropopause height [km] REAL(fp), POINTER :: TS (:,: ) ! Surface temperature [K] REAL(fp), POINTER :: TSKIN (:,: ) ! Surface skin temperature [K] + REAL(fp), POINTER :: TSOIL1 (:,: ) ! Soil temperature [K] REAL(fp), POINTER :: U10M (:,: ) ! E/W wind speed @ 10m ht [m/s] REAL(fp), POINTER :: USTAR (:,: ) ! Friction velocity [m/s] REAL(fp), POINTER :: UVALBEDO (:,: ) ! UV surface albedo [1] @@ -435,6 +436,7 @@ SUBROUTINE Zero_State_Met( State_Met, RC ) State_Met%TropHt => NULL() State_Met%TS => NULL() State_Met%TSKIN => NULL() + State_Met%TSOIL1 => NULL() State_Met%U10M => NULL() State_Met%USTAR => NULL() State_Met%UVALBEDO => NULL() @@ -1837,6 +1839,24 @@ SUBROUTINE Init_State_Met( Input_Opt, State_Grid, State_Met, RC ) RETURN ENDIF + !------------------------------------------------------------------------ + ! TSOIL1 [K] + !------------------------------------------------------------------------ + metId = 'TSOIL1' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Met = State_Met, & + State_Grid = State_Grid, & + metId = metId, & + Ptr2Data = State_Met%TSOIL1, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( metId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !------------------------------------------------------------------------ ! U10M [m s-1] !------------------------------------------------------------------------ @@ -3700,6 +3720,13 @@ SUBROUTINE Cleanup_State_Met( State_Met, RC ) State_Met%TSKIN => NULL() ENDIF + IF ( ASSOCIATED( State_Met%TSOIL1 ) ) THEN + DEALLOCATE( State_Met%TSOIL1, STAT=RC ) + CALL GC_CheckVar( 'State_Met%TSOIL1', 2, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Met%TSOIL1 => NULL() + ENDIF + IF ( ASSOCIATED( State_Met%TO3 ) ) THEN DEALLOCATE( State_Met%TO3, STAT=RC ) CALL GC_CheckVar( 'State_Met%TO3', 2, RC ) @@ -4844,6 +4871,11 @@ SUBROUTINE Get_Metadata_State_Met( am_I_Root, metadataID, Found, RC, & IF ( isUnits ) Units = 'K' IF ( isRank ) Rank = 2 + CASE ( 'TSOIL1' ) + IF ( isDesc ) Desc = 'Soil temperature' + IF ( isUnits ) Units = 'K' + IF ( isRank ) Rank = 2 + CASE ( 'U10M' ) IF ( isDesc ) Desc = 'East-west wind at 10 meter height' IF ( isUnits ) Units = 'm s-1' @@ -6311,6 +6343,7 @@ SUBROUTINE Register_MetField_R4_2D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( Units ), & Description = TRIM( Desc ), & Data2d_4 = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6444,6 +6477,7 @@ SUBROUTINE Register_MetField_R4_3D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( thisDesc ), & Units = TRIM( Units ), & Data2d_4 = Ptr2Data(:,:,N), & + Output_KindVal = type, & RC = RC ) ENDDO @@ -6470,6 +6504,7 @@ SUBROUTINE Register_MetField_R4_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( Units ), & OnLevelEdges = onEdges, & Data3d_4 = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6584,6 +6619,7 @@ SUBROUTINE Register_MetField_R8_2D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( Desc ), & Units = TRIM( Units ), & Data2d_8 = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6717,6 +6753,7 @@ SUBROUTINE Register_MetField_R8_3D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( thisDesc ), & Units = TRIM( units ), & Data2d_8 = Ptr2Data(:,:,N), & + Output_KindVal = type, & RC = RC ) ENDDO @@ -6744,6 +6781,7 @@ SUBROUTINE Register_MetField_R8_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( Units ), & OnLevelEdges = onEdges, & Data3d_8 = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6858,6 +6896,7 @@ SUBROUTINE Register_MetField_Int_2D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( Desc ), & Units = TRIM( Units ), & Data2d_I = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors @@ -6987,6 +7026,7 @@ SUBROUTINE Register_MetField_Int_3D( Input_Opt, metadataID, Ptr2Data, & Description = TRIM( thisDesc ), & Units = TRIM( Units ), & Data2d_I = Ptr2Data(:,:,N), & + Output_KindVal = type, & RC = RC ) ENDDO @@ -7014,6 +7054,7 @@ SUBROUTINE Register_MetField_Int_3D( Input_Opt, metadataID, Ptr2Data, & Units = TRIM( Units ), & OnLevelEdges = onEdges, & Data3d_I = Ptr2Data, & + Output_KindVal = type, & RC = RC ) ! Trap potential errors diff --git a/Interfaces/GCClassic/main.F90 b/Interfaces/GCClassic/main.F90 index 6a0c87ff0..f3cd20968 100644 --- a/Interfaces/GCClassic/main.F90 +++ b/Interfaces/GCClassic/main.F90 @@ -205,6 +205,7 @@ PROGRAM GEOS_Chem INTEGER :: ELAPSED_SEC, NHMSb, RC INTEGER :: ELAPSED_TODAY, HOUR, MINUTE, SECOND INTEGER :: id_H2O, id_CH4, id_CLOCK + INTEGER :: previous_units ! Reals REAL(f8) :: TAU, TAUb @@ -661,7 +662,9 @@ PROGRAM GEOS_Chem ENDIF ! Run HEMCO phase 0 as simplfied phase 1 to get initial met fields - ! and restart file fields + ! and restart file fields. State_Chm%Species fields are populated in + ! this step and set to either values from file or background values + ! in mol/mol dry air. TimeForEmis = .FALSE. CALL Emissions_Run( Input_Opt, State_Chm, State_Diag, State_Grid, & State_Met, TimeForEmis, 0, RC ) @@ -883,6 +886,20 @@ PROGRAM GEOS_Chem ENDIF ENDIF + !--------------------------------------------------------------------- + ! Convert species concentrations from v/v dry to kg/kg dry so that + ! the State_Chm%Species(:)%Conc unit is the same for most of the dynamic + ! timestep as the unit used in GCHP/GEOS GEOS-Chem Run method. + !--------------------------------------------------------------------- + CALL Convert_Spc_Units( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + State_Met = State_Met, & + new_units = KG_SPECIES_PER_KG_DRY_AIR, & + previous_units = previous_units, & + RC = RC ) + !===================================================================== ! ***** R U N H E M C O P H A S E 1 ***** ! @@ -1100,26 +1117,6 @@ PROGRAM GEOS_Chem ENDIF ENDIF - ! Prescribe methane surface concentrations throughout PBL - IF ( Input_Opt%ITS_A_FULLCHEM_SIM .and. & - id_CH4 > 0 .and. & - notDryRun ) THEN - - IF ( VerboseAndRoot ) THEN - CALL DEBUG_MSG( '### MAIN: Setting PBL CH4 conc') - ENDIF - - ! Set CH4 concentrations - CALL SET_CH4( Input_Opt, State_Chm, State_Diag, State_Grid, & - State_Met, RC ) - - ! Trap potential errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountered in call to "SET_CH4"!' - CALL Error_Stop( ErrMsg, ThisLoc ) - ENDIF - ENDIF - !===================================================================== ! ***** T R A N S P O R T ***** !===================================================================== @@ -1350,6 +1347,27 @@ PROGRAM GEOS_Chem ENDIF ENDIF + ! Also prescribe methane surface concentrations throughout PBL + ! (currently done outside emissions) + IF ( Input_Opt%ITS_A_FULLCHEM_SIM .and. & + id_CH4 > 0 .and. & + notDryRun ) THEN + + IF ( VerboseAndRoot ) THEN + CALL DEBUG_MSG( '### MAIN: Setting PBL CH4 conc') + ENDIF + + ! Set CH4 concentrations + CALL SET_CH4( Input_Opt, State_Chm, State_Diag, State_Grid, & + State_Met, RC ) + + ! Trap potential errors + IF ( RC /= GC_SUCCESS ) THEN + ErrMsg = 'Error encountered in call to "SET_CH4"!' + CALL Error_Stop( ErrMsg, ThisLoc ) + ENDIF + ENDIF + !--------------------------------------------------------------------- ! Test for convection timestep !--------------------------------------------------------------------- @@ -1706,6 +1724,35 @@ PROGRAM GEOS_Chem CALL Error_Stop( ErrMsg, ThisLoc ) ENDIF + !------------------------------------------------------------------------ + ! Set species concentration back to v/v dry air (mol/mol dry air) + ! prior to setting restart file arrays. Doing this conversion every + ! timestep is required for bit-for-bit reproducibility when breaking up + ! runs in time. + !------------------------------------------------------------------------ + ! Turn off diagnostics timer + IF ( Input_Opt%useTimers ) THEN + CALL Timer_End( "Diagnostics", RC ) + ENDIF + + ! Convert units + CALL Convert_Spc_Units( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + State_Met = State_Met, & + new_units = previous_units, & + RC = RC ) + + ! Turn timer back on + IF ( Input_Opt%useTimers ) THEN + CALL Timer_Start( "Diagnostics", RC ) + ENDIF + + ! Set diagnostics arrays in State_Diag that are in mol/mol + CALL Set_SpcConc_Diags_VVDry( Input_Opt, State_Chm, State_Diag, & + State_Grid, State_Met, RC ) + ! Increment the timestep values by the heartbeat time ! This is because we need to write out data with the timestamp ! at the end of the heartbeat timestep (i.e. at end of run) diff --git a/KPP/custom/custom.eqn b/KPP/custom/custom.eqn index 890e15c53..94e99c44d 100644 --- a/KPP/custom/custom.eqn +++ b/KPP/custom/custom.eqn @@ -11,18 +11,17 @@ GEOS-Chem KPP file containing species and equations for the full chemistry FILE HISTORY =============================================================================== -Version: 14.2.0 +Version: 14.5.0 Please see "CHANGELOG_fullchem.md" in this folder for the revision history -of the fullchem mechanism, which the "custom" mechanism is based on. - -You may list updates specific to the "custom" mechanism below: +of the fullchem mechanism. =============================================================================== DEVELOPERS (initials and email/GitHub) =============================================================================== * BA : Becky Alexander : @beckyalexander +* BH : Rebekah (Bex) Horner : @bexhorner * BHH : Barron Henderson : @barronh * BMY : Bob Yantosca : @yantosca * CCM : Christopher Chan Miller : cmiller@fas.harvard.edu @@ -36,6 +35,7 @@ DEVELOPERS (initials and email/GitHub) * HOTP : Havala Pye : pye.havala@epa.gov * JAF : Jenny Fisher : @jennyfisher * JAS : Johan Schmidt : johanalbrechtschmidt@gmail.com +* JFB : Jared Brewer : @JFBrewer * JMAO : Jingqiu Mao : @jingqiumao * JMM : Jonathan Moch : jmoch@g.harvard.edu * JPP : Justin Parrella : justin.parrella@gmail.com @@ -64,6 +64,7 @@ REFERENCES (alphabetical order) * Bates2019 : https://doi.org/10.5194/acp-19-9613-2019 * Bates2021a : https://doi.org/10.1029/2020JD033439 * Bates2021b : https://doi.org/10.5194/acp-2021-605 +* Brewer2023 : https://doi.org/10.1029/2022JD037257 * Browne2011 : https://doi.org/10.5194/acp-11-4209-2011 * Browne2014 : https://doi.org/10.5194/acp-14-1225-2014 * Carter2022 : https://doi.org/10.5194/acp-22-12093-2022 @@ -86,6 +87,7 @@ REFERENCES (alphabetical order) * Kwon2020 : https://doi.org/10.1525/elementa.2021.00109 * Lee2014 : https://doi.org/10.1021/jp4107603 * Marais2016 : https://doi.org/10.5194/acp-16-1603-2016 +* MCMv3.3 : https://mcm.york.ac.uk/MCM/ * Miller2017 : https://doi.org/10.5194/acp-2016-1042 * Millet2015 : https://doi.org/10.5194/acp-15-6283-2015 * Moch2020 : https;//doi.org/10.1029/2020JD032706, 2020. @@ -101,6 +103,7 @@ 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 * Wolfe2012 : https://doi.org/ 10.1039/C2CP40388A, 2012 * Xie2013 : https://doi.org/10.5194/acp-13-8439-2013 @@ -118,15 +121,27 @@ Comment format is #DEFVAR A3O2 = IGNORE; {CH3CH2CH2OO; Primary RO2 from C3H8} +ACR = IGNORE; {C3H4O, Acrolein} +ACRO2 = IGNORE; {C3H5O4} +ACO3 = IGNORE; {C3H3O3} ACET = IGNORE; {CH3C(O)CH3; Acetone} ACTA = IGNORE; {CH3C(O)OH; Acetic acid} AERI = IGNORE; {I; Dissolved iodine} ALD2 = IGNORE; {CH3CHO; Acetaldehyde} ALK4 = IGNORE; {>= C4 alkanes} +ALK4N1 = IGNORE; {RO2 from ALKN2} +ALK4N2 = IGNORE; {RO2NO; >= C4 alkylnitrates from ALK4} +ALK4O2 = IGNORE; {RO2 from ALK4} +ALK4P = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from ALK4O2} +ALK6 = IGNORE; {>= C6 alkanes} AONITA = IGNORE; {Aerosol-phase organic nitrate from aromatic precursors} +APAN = IGNORE; {C3H3NO5; Acryloyl peroxynitrate} +AROMCHO = IGNORE; {C5H6O4} AROMRO2 = IGNORE; {generic peroxy radical from aromatic oxidation} AROMP4 = IGNORE; {Generic C4 product from aromatic oxidation} AROMP5 = IGNORE; {Generic C5 product from aromatic oxidation} +AROMPN = IGNORE; {Lumped aromatic PN} +AROMCO3 = IGNORE; {Lumped aromatic acyl peroxy radical} ATO2 = IGNORE; {CH3C(O)CH2O2; RO2 from acetone} ATOOH = IGNORE; {CH3C(O)CH2OOH; ATO2 peroxide} B3O2 = IGNORE; {CH3CH(OO)CH3; Secondary RO2 from C3H8} @@ -145,6 +160,8 @@ BRO2 = IGNORE; {C6H5O2 ; Peroxy radical from BENZ oxidation} BrSALA = IGNORE; {Br; Fine sea salt bromine} BrSALC = IGNORE; {Br; Course sea salt bromine} BUTDI = IGNORE; {Butenedial} +BUTN = IGNORE; {BUTN; alkyl nitrate from C4H6} +BUTO2 = IGNORE; {C4H7O3} BZCO3 = IGNORE; {benzoylperoxy radical} BZCO3H = IGNORE; {perbenzoic acid} BZPAN = IGNORE; {peroxybenzoyl nitrate} @@ -152,6 +169,7 @@ C2H2 = IGNORE; {C2H2; Ethyne} C2H4 = IGNORE; {Ethylene} C2H6 = IGNORE; {C2H6; Ethane} C3H8 = IGNORE; {C3H8; Propane} +C4H6 = IGNORE; {C4H6; 1,4 butadiene} C4HVP1 = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs} C4HVP2 = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs} CCl4 = IGNORE; {CCl4; Carbon tetrachloride} @@ -186,6 +204,7 @@ CO = IGNORE; {CO; Carbon monoxide} CO2 = IGNORE; {CO2; Carbon dioxide} CSL = IGNORE; {cresols and xylols} DMS = IGNORE; {(CH3)2S; Dimethylsulfide} +EBZ = IGNORE; {C6H5CH2CH3; Ethylbenzene} EOH = IGNORE; {C2H5OH; Ethanol} ETHLN = IGNORE; {CHOCH2ONO2; Ethanal nitrate} ETHN = IGNORE; {stable hydroxy-nitrooxy-ethane} @@ -196,6 +215,7 @@ ETOO = IGNORE; {hydroxy-peroxy-ethane radical, formed from ethene + OH} ETO2 = IGNORE; {CH3CH2OO; Ethylperoxy radical} ETP = IGNORE; {CH3CH2OOH; Ethylhydroperoxide} FURA = IGNORE; {FURAN conglomerate} +GCO3 = IGNORE; {HOCH2CO3: PHAN peroxyacetyl radical} GLYC = IGNORE; {HOCH2CHO; Glycoaldehyde} GLYX = IGNORE; {CHOCHO; Glyoxal} H = IGNORE; {H; Atomic hydrogen} @@ -205,6 +225,7 @@ H2402 = IGNORE; {C2Br2F4; H-2402} H2O = IGNORE; {H2O; Water vapor} H2O2 = IGNORE; {H2O2; Hydrogen peroxide} HAC = IGNORE; {HOCH2C(O)CH3; Hydroxyacetone} +HACTA = IGNORE; {HOCH2CO2H; hydroxyacetic acid} HBr = IGNORE; {HBr; Hypobromic acid} HC5A = IGNORE; {C5H8O2; Isoprene-4,1-hydroxyaldehyde} HCFC123 = IGNORE; {C2HCl2F3; HCFC-123, R-123, Freon 123} @@ -293,6 +314,36 @@ LBRO2H = IGNORE; {Dummy spc to track oxidation of BRO2 by HO2} LBRO2N = IGNORE; {Dummy spc to track oxidation of BRO2 by NO} LIMO = IGNORE; {C10H16; Limonene} LIMO2 = IGNORE; {RO2 from LIMO} +APINP = IGNORE; +APINN = IGNORE; +PINAL = IGNORE; +PINPAN = IGNORE; +PINONIC = IGNORE; +PINO3H = IGNORE; +C96O2H = IGNORE; +C96N = IGNORE; +BPINO = IGNORE; +BPINN = IGNORE; +BPINP = IGNORE; +BPINOOH = IGNORE; +BPINON = IGNORE; +LIMAL = IGNORE; +LIMN = IGNORE; +LIMKET = IGNORE; +LIMKB = IGNORE; +LIMNB = IGNORE; +LIMPAN = IGNORE; +LIMO2H = IGNORE; +LIMO3H = IGNORE; +MYRCO = IGNORE; +PIN = IGNORE; +APINO2 = IGNORE; +PINO3 = IGNORE; +C96O2 = IGNORE; +BPINO2 = IGNORE; +BPINOO2 = IGNORE; +LIMKO2 = IGNORE; +LIMO3 = IGNORE; LISOPOH = IGNORE; {Dummy spc to track oxidation of ISOP by OH} LISOPNO3 = IGNORE; {Dummy spc to track oxidation of ISOP by NO3} LNRO2H = IGNORE; {Dummy spc to track oxidation of NRO2 by HO2} @@ -316,7 +367,9 @@ MCRHNB = IGNORE; {O2NOCH2C(OH)(CH3)CHO; Hydroxynitrate from MACR} MCRHP = IGNORE; {HOCH2C(OOH)(CH3)CHO; Hydroxy-hydroperoxy-MACR} MCROHOO = IGNORE; {peroxy radical from MACR + OH} MCT = IGNORE; {methylcatechols} +MEKCO3 = IGNORE; {MEK peroxyacetyl radical} MEK = IGNORE; {RC(O)R; Methyl ethyl ketone} +MEKPN = IGNORE; {MEK peroxynitrate, C3PAN1 from MCM} MENO3 = IGNORE; {CH3ONO2; methyl nitrate} MGLY = IGNORE; {CH3COCHO; Methylglyoxal} MO2 = IGNORE; {CH3O2; Methylperoxy radical} @@ -363,6 +416,7 @@ OLND = IGNORE; {Monoterpene-derived NO3-alkene adduct} OLNN = IGNORE; {Monoterpene-derived NO3 adduct} OTHRO2 = IGNORE; {Other C2 RO2 not from C2H6 oxidation} PAN = IGNORE; {CH3C(O)OONO2; Peroxyacetylnitrate} +PHAN = IGNORE; {OCC(=O)OON(=O)=O; peroxyhydroxyacetic nitric anhydride} PHEN = IGNORE; {phenol} PIO2 = IGNORE; {RO2 from MTPA} PIP = IGNORE; {Peroxides from MTPA} @@ -376,16 +430,22 @@ PRPN = IGNORE; {O2NOCH2CH(OOH)CH3; Peroxide from PRN1} PYAC = IGNORE; {CH3COCOOH; Pyruvic acid} R4N1 = IGNORE; {RO2 from R4N2} R4N2 = IGNORE; {RO2NO; >= C4 alkylnitrates} -R4O2 = IGNORE; {RO2 from ALK4} +R4O2 = IGNORE; {RO2 from >= C4 biogenic organics} R4P = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from R4O2} +R7O2 = IGNORE; {RO2 from ALK6} +R7N1 = IGNORE; {RO2 from R7N2} +R7P = IGNORE; {Peroxide from R7O2} +R7N2 = IGNORE; {RO2NO; >= C6 alkylnitrates} RA3P = IGNORE; {CH3CH2CH2OOH; Peroxide from A3O2} RB3P = IGNORE; {CH3CH(OOH)CH3; Peroxide from B3O2} RCHO = IGNORE; {CH3CH2CHO; >= C3 aldehydes} RCO3 = IGNORE; {CH3CH2C(O)OO; Peroxypropionyl radical} +RCOOH = IGNORE; {C2H5C(O)OH; > C2 organic acids} RIPA = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 1,2-ISOPOOH} RIPB = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 4,3-ISOPOOH} RIPC = IGNORE; {C5H10O3; d(1,4)-ISOPOOH} RIPD = IGNORE; {C5H10O3; d(4,1)-ISOPOOH} +RNO3 = IGNORE; {C7H9NO6; lumped aromatic alkyl nitrate} ROH = IGNORE; {C3H7OH; > C2 alcohols} RP = IGNORE; {CH3CH2C(O)OOH; Peroxide from RCO3} SALAAL = IGNORE; {Accumulation mode seasalt aerosol alkalinity} @@ -401,19 +461,22 @@ SO4 = IGNORE; {SO4; Sulfate} SO4s = IGNORE; {SO4 on sea-salt; Sulfate} SOAGX = IGNORE; {CHOCHO; Aerosol-phase glyoxal} SOAIE = IGNORE; {C5H10O3; Aerosol-phase IEPOX} +STYR = IGNORE; {C6H5CHCH2; Styrene} +TLFUONE = IGNORE; {C5H6O2; lumped furanones} +TLFUO2 = IGNORE; {C5H7O5; RO2 from TLFUONE} +TMB = IGNORE; {C6H3(CH3)3; Trimethylbenzenes} TOLU = IGNORE; {C7H8; Toluene} TRO2 = IGNORE; {Peroxy radical from TOLU oxidation} XYLE = IGNORE; {C8H10; Xylene} XRO2 = IGNORE; {Peroxy radical from XYLE oxidation} PH2SO4 = IGNORE; {SO4 from gas-phase chemistry} PSO4AQ = IGNORE; {SO4 from cloud chemistry} - +ZRO2 = IGNORE; {Lumped RO2 from aromatics} #DEFFIX H2 = IGNORE; {H2; Molecular hydrogen} N2 = IGNORE; {N2; Molecular nitrogen} O2 = IGNORE; {O2; Molecular oxygen} -RCOOH = IGNORE; {C2H5C(O)OH; > C2 organic acids} #EQUATIONS // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -430,9 +493,9 @@ HNO3 + SALCAL = NITs : K_MT(6); // // Cloud // S(IV) --> S(VI) -SO2 + H2O2 = SO4 + PSO4AQ : K_CLD(1); -SO2 + O3 = SO4 + PSO4AQ : K_CLD(2) + SRO3; {Jan 2023; Added SRO3 here; BA} -SO2 {+O2} = SO4 + PSO4AQ : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} +SO2 + H2O2 = SO4 : K_CLD(1); +SO2 + O3 = SO4 : K_CLD(2); +SO2 {+O2} = SO4 : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} // // HMS CH2O + SO2 = HMS : K_CLD(4); {Sep 2021; Moch2020; MSL} @@ -511,6 +574,7 @@ ALD2 + OH = 0.950MCO3 + 0.050CH2O + ALD2 + NO3 = HNO3 + MCO3 : GCARR_ac(1.40d-12, -1900.0d0); MCO3 + NO2 {+M} = PAN : GCJPLPR_abab(7.30d-29, 4.1d+00, 9.5d-12, 1.6d0, 0.6d0); {2023/04/18; JPL 19-5; KHB} PAN = MCO3 + NO2 : GCJPLEQ_acabab(9.00d-29, 14000.0d0, 7.3d-29, 4.1d0, 9.5d-12, 1.6d0, 0.6d0); {2023/04/18; JPL 19-5; KHB} +PAN + OH = CH2O + CO + NO2 : 3.00d-14 ; MCO3 + NO = MO2 + NO2 + CO2 : GCARR_ac(8.10d-12, 270.0d0); C2H6 + OH = ETO2 + H2O : GCARR_ac(7.66d-12, -1020.0d0); {2013/02/12; JPL 10-6; BHH,JMAO,EAM} ETO2 + NO = ALD2 + NO2 + HO2 : GC_RO2NO_B2_aca(2.60d-12, 365.0d0, 2.0d0); {2019/05/10; Fisher2018; JAF} @@ -521,7 +585,47 @@ C3H8 + OH = A3O2 : GCARR_abc(1.97d-12,1.23d0,-675.0d0) A3O2 + NO = NO2 + HO2 + RCHO : GC_RO2NO_B2_aca(2.90d-12, 350.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} A3O2 + NO = NPRNO3 : GC_RO2NO_A2_aca(2.90d-12, 350.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} PO2 + NO = NO2 + HO2 + CH2O + ALD2 : GCARR_ac(2.70d-12, 350.0d0); +// --- ALK6 chemistry from Lurman et al., 1986 +ALK6 + OH = R7O2 : GCARR_ac(2.00d-11, -359.0d0); +ALK6 + NO3 = HNO3 + R7O2 : 6.0d-17; +R7O2 + NO = NO2 + 0.750RCHO + 0.250R4O2 + + 0.250MEK + 0.750HO2 : GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 7.0d0); +R7O2 + NO = R7N2 : GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 7.0d0); +R7O2 + HO2 = R7P : 3.0d-12; +R7P + OH = 0.500OH + 0.500R7O2 + 0.500RCHO : 1.00d-11; {} +R7N2 + OH = R7N1 + H2O : 4.00d-12; +R7N1 + NO = 2.000NO2 + 0.980CH2O + + 0.650ALD2 + 1.240RCHO : GCARR_ac(4.20d-12, 180.0d0); {} +R7N1 + HO2 = R7N2 : GCARR_ac(7.40d-13, 700.0d0); +// ----- C4H6 --> APAN --- currently no RO2 RO2 +C4H6 + OH = BUTO2 : GCARR_ac(1.48d-11, 448.0d0); +C4H6 + NO3 = ACR + CH2O + NO2 : 1.03d-13; +C4H6 + O3 = ACR + CH2O : GCARR_ac(1.34d-14,-2283.0d0); +BUTO2 + NO = 0.058BUTN + 0.730ACR + + 0.603CH2O + 0.513HO2 + 0.942NO2 + + 0.326RCHO : GCARR_ac(2.70d-12, 360.0d0); { krt, MCM} +BUTO2 + HO2 = 0.659GLYC + 0.894RCHO : GCARR_ac(1.82d-13,1300d0); {MCM} +BUTN + OH = GLYC + NO2 + CH2O + HO2 + + CO : 3.59d-11; {krt, MCM} +ACR + OH = 0.680ACO3 + 0.255ACRO2 + + 0.065CH2O + 0.065GLYX + 0.425HO2 : 2.00d-11; {krt, MCM} +ACRO2 + NO = GLYC + NO2 + HO2 + CO : GCARR_ac(2.70d-12,360.0d0) ;{krt, MCM} +ACRO2 + HO2 = GLYC + HO2 + CO : GCARR_ac(1.51d-13,1300.0d0) ;{krt, MCM} +ACO3 + HO2 = CO + CH2O + 0.500GLYC + + 0.250HO2 + 0.250OH : GCARR_ac(5.2d-13, 980.0d0) ; {krt, MCM} +ACO3 + NO = HO2 + CO + CH2O + NO2 : GCARR_ac(7.5d-12, 290.0d0) ; {krt, MCM} +ACO3 + NO2 {+M} = APAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); +APAN = ACO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +APAN + OH = GLYC + CO + NO3 : 1.47d-11 ; {krt, MCM} +// ALK4 + OH = R4O2 : GCARR_ac(9.10d-12, -405.0d0); +ALK4O2 + NO = NO2 + 0.340ACET + 0.190MEK + + 0.190MO2 + 0.270HO2 + 0.340ALD2 + + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + + 0.340OTHRO2 : GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0); {2023/05/14; Brewer2023; JFB} +ALK4O2 + NO = ALK4N2 : GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0); {2023/05/14; Brewer2023; JFB} +ALK4N1 + NO = 2.000NO2 + 0.640RCHO + + 0.970ALD2 + 0.640CH2O : GCARR_ac(2.70d-12, 350.0d0); {2023/05/14; Brewer2023; JFB} R4O2 + NO = NO2 + 0.340ACET + 0.190MEK + 0.190MO2 + 0.270HO2 + 0.340ALD2 + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + @@ -531,16 +635,18 @@ R4N1 + NO = 2.000NO2 + 0.640RCHO + 0.970ALD2 + 0.640CH2O : GCARR_ac(2.70d-12, 350.0d0); {2023/04/18; Bates2023; KHB} ATO2 + NO = NO2 + CH2O + MCO3 : GCARR_ac(2.90d-12, 300.0d0); {2023/04/18; JPL 19-5; KHB} KO2 + NO = 0.928NO2 + 0.919ALD2 + - 0.919MCO3 + 0.072R4N2 : GCARR_ac(2.70d-12, 350.0d0); {2023/04/18; Bates2023; KHB} + 0.919MCO3 + 0.072ALK4N2 : GCARR_ac(2.70d-12, 350.0d0); {2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB} B3O2 + NO = NO2 + HO2 + ACET : GC_RO2NO_B2_aca(2.70d-12, 360.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} B3O2 + NO = IPRNO3 : GC_RO2NO_A2_aca(2.70d-12, 360.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} PRN1 + NO = 2.000NO2 + CH2O + ALD2 : GCARR_ac(2.70d-12, 350.0d0); -ALK4 + NO3 = HNO3 + R4O2 : GCARR_ac(2.80d-12, -3280.0d0); +ALK4 + NO3 = HNO3 + ALK4O2 : GCARR_ac(2.80d-12, -3280.0d0); {2023/05/14; Brewer2023; JFB} R4N2 + OH = R4N1 + H2O : 1.60d-12; +ALK4N2 + OH = ALK4N1 + H2O : 1.60d-12; {2023/05/14; Brewer2023; JFB} ACTA + OH = MO2 + CO2 + H2O : GCARR_ac(3.15d-14, 920.0d0); {2013/02/12; JPL 10-6; BHH,JMAO,EAM} OH + RCHO = RCO3 + H2O : GCARR_ac(6.00d-12, 410.0d0); RCO3 + NO2 {+M} = PPN : GCJPLPR_abab(9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0); {JPL Eval 17} PPN = RCO3 + NO2 : GCJPLEQ_acabab(9.00d-29, 14000.0d0, 9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0); +PPN + OH = ALD2 + CO + NO2 : 1.27d-12 ; RCO3 + NO = NO2 + 0.490OTHRO2 + 0.070A3O2 + 0.270B3O2 + CO2 : GCARR_ac(6.70d-12, 340.0d0); {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB} RCHO + NO3 = HNO3 + RCO3 : 6.50d-15; @@ -552,13 +658,27 @@ PO2 + MO2 = HO2 + 0.500ALD2 + 1.250CH2O + 0.250ROH : 5.92d-13; R4O2 + HO2 = R4P : GCARR_ac(7.40d-13, 700.0d0); R4N1 + HO2 = R4N2 : GCARR_ac(7.40d-13, 700.0d0); +ALK4O2 + HO2 = ALK4P : GCARR_ac(7.40d-13, 700.0d0); {2023/05/14; Brewer2023; JFB} +ALK4N1 + HO2 = ALK4N2 : GCARR_ac(7.40d-13, 700.0d0); {2023/05/14; Brewer2023; JFB} ATO2 + HO2 = 0.150MCO3 + 0.150OH + 0.150CH2O + 0.850ATOOH : GCARR_ac(8.60d-13, 700.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} KO2 + HO2 = 0.150OH + 0.150ALD2 + 0.150MCO3 + 0.850ATOOH + 0.850MO2 : GC_RO2HO2_aca(2.91d-13, 1300.0d0, 4.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB} B3O2 + HO2 = RB3P : GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} PRN1 + HO2 = PRPN : GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} -MEK + OH = KO2 + H2O : GCARR_ac(1.50d-12, -90.0d0); {2023/04/18; Atkinson2006; KHB} +// -------- MEKPN ------------------- +MEK + OH = KO2 + H2O : GCARR_ac(1.50d-12, -90.0d0); {2023/04/18; Atkinson2006; KHB} +KO2 + NO = 0.930NO2 + 0.620ALD2 + + 0.620MCO3 + 0.070R4N2 + + 0.310MEKCO3 + 0.310CH2O : GCARR_ac(2.70d-12, 350.0d0); +MEKCO3 + NO2 {+M} = MEKPN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); {JPL Eval 17} +MEKPN = MEKCO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +MEKPN + OH = GLYC + CO + NO2 : 4.51E-12; +MEKCO3 + NO = NO2 + ETOO + CO2 : GCARR_ac(7.50d-12, 290.0d0); +MEKCO3 + HO2 = 0.150O3 + 0.150RCOOH + + 0.440CO2 + 0.440OH + 0.440ETOO + + 0.410RP : GCARR_ac(5.20d-13, 980.0d0); +// MO2 + ETO2 = 0.750CH2O + 0.750ALD2 + HO2 + 0.250MOH + 0.250EOH : 3.00d-13; MO2 + OTHRO2 = 0.750CH2O + 0.750ALD2 + @@ -572,6 +692,14 @@ R4O2 + MO2 = 0.160ACET + 0.100MEK + R4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 + 0.580RCHO + 0.150R4O2 + 0.500HO2 + 0.250MOH + 0.375ROH : 8.37d-14; {2023/04/18; Bates2023; KHB} +ALK4O2 + MO2 = 0.160ACET + 0.100MEK + + 0.090MO2 + 0.140HO2 + 0.160ALD2 + + 0.130RCHO + 0.030A3O2 + 0.090B3O2 + + 0.160OTHRO2 + 0.250MEK + 0.750CH2O + + 0.250MOH + 0.380ROH + 0.500HO2 : 8.37d-14; {2023/05/14; Brewer2023; JFB} +ALK4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 + + 0.580RCHO + 0.150R4O2 + 0.500HO2 + + 0.250MOH + 0.375ROH : 8.37d-14; {2023/05/14; Brewer2023; JFB} ATO2 + MO2 = 0.300HO2 + 0.500CH2O + 0.300MCO3 + 0.200HAC + 0.500MGLY + 0.500MOH + 0.300CO2 : GCARR_ac(7.50d-13, 500.0d0); {2023/04/18; Bates2023; KHB} @@ -605,6 +733,19 @@ GLYC + OH = 0.732CH2O + 0.361CO2 + 0.505CO + 0.227OH + 0.773HO2 + 0.134GLYX + 0.134HCOOH : GC_GLYCOH_A_a(8.00d-12); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} GLYC + OH = HCOOH + OH + CO : GC_GLYCOH_B_a(8.00d-12); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} +// --- GLYC chemistry --> PHAN - currenty no RO2 RO2 +GLYC + OH = 0.200GLYX + 0.200HO2 + + 0.800GCO3 : 1.0d-11; {krt, MCM} +GLYC + NO3 = GCO3 + HNO3 : GCARR_ac(1.44d-12,-1862.0d0); {krt, MCM} +GCO3 + NO2 {+M} = PHAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); {JPL Eval 17} +PHAN = GCO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +GCO3 + NO = NO2 + HO2 + CH2O : GCARR_ac(7.5d-12,290d0); {krt, MCM} +GCO3 + HO2 = 0.440HO2 + 0.440CH2O + + 0.440OH + 0.560HACTA + 0.150O3 + 0.440CO2 : GCARR_ac(5.2d-13,980d0); {krt,MCM} +GCO3 + NO3 = CH2O + HO2 + NO2 : 4.0d-12; +PHAN + OH = CH2O + CO + NO2 : 1.12d-12; {krt, MCM} +HACTA + OH = CH2O + HO2 : 2.73d-12; {krt, MCM} +// PRPE + NO3 = PRN1 : GCARR_ac(4.59d-13, -1156.0d0); GLYX + OH = HO2 + 2.000CO : GCARR_ac(3.10d-12, 340.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} MGLY + OH = MCO3 + CO : GCARR_ac(1.90d-12, 575.0d0); {2023/04/18; Atkinson2006; KHB} @@ -622,6 +763,8 @@ RA3P + OH = 0.640OH + 0.360A3O2 + RB3P + OH = 0.791OH + 0.209B3O2 + 0.791ACET : GCARR_ac(8.78d-12, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} R4P + OH = 0.790OH + 0.210R4O2 + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB} +ALK4P + OH = 0.790OH + 0.210ALK4O2 + + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0); {2023/05/14; Brewer2023; JFB} RP + OH = RCO3 : GCARR_ac(6.13d-13, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} PP + OH = 0.791OH + 0.209PO2 + 0.791HAC : GCARR_ac(8.78d-12, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} LVOC + OH = OH : GCARR_ac(4.82d-11, -400.0d0); {2017/06/14; Marais2016; EAM} @@ -635,6 +778,10 @@ R4O2 + MCO3 = 0.271MEK + 0.100ACTA + 0.900MO2 + 0.290ACET + 0.243HO2 + 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO + 0.045A3O2 + 0.162B3O2 + 0.900CO2: GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} +ALK4O2 + MCO3 = 0.271MEK + 0.100ACTA + + 0.900MO2 + 0.290ACET + 0.243HO2 + + 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO + + 0.045A3O2 + 0.162B3O2 + 0.900CO2: GCARR_ac(1.87d-12, 500.0d0); {2023/05/14; Brewer2023; JFB} ATO2 + MCO3 = 0.900MO2 + 0.900MCO3 + 0.900CH2O + 0.100MGLY + 0.100ACTA + 0.900CO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} @@ -646,6 +793,9 @@ B3O2 + MCO3 = 0.900MO2 + 0.900HO2 + R4N1 + MCO3 = 0.900MO2 + 0.100ACTA + 0.613RCHO + 0.351CH2O + 0.675ALD2 + 0.270R4O2 + 0.645CO2 + NO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} +ALK4N1 + MCO3 = 0.900MO2 + 0.100ACTA + + 0.613RCHO + 0.351CH2O + 0.675ALD2 + + 0.270R4O2 + 0.645CO2 + NO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/05/14; Brewer2023; JFB} PRN1 + MCO3 = 0.900MO2 + 0.900CH2O + 0.900CO2 + 0.900ALD2 + 0.100RCHO + 0.100ACTA + NO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} @@ -818,7 +968,7 @@ Cl + C3H8 = HCl + B3O2 : GCARR_ac(6.54d-11, 60.0d0); Cl + C3H8 = HCl + A3O2 : GCARR_ac(8.12d-11, -90.0d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE} Cl + ACET = HCl + ATO2 : GCARR_ac(1.63d-11, -610.0d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB} Cl + ISOP = HCl + 0.5IHOO1 + 0.5IHOO4 : GCARR_ac(7.60d-11, 500.0d0); {2019/11/06; Sherwen2016b;KHB,TS,JAS,SDE} -Cl + ALK4 = HCl + R4O2 : 2.05d-10; {2017/09/22; Sherwen2016b;TS,JAS,SDE} +Cl + ALK4 = HCl + ALK4O2 : 2.05d-10; {2023/05/14; Brewer2023; JFB} Cl + PRPE {+M} = HCl + PO2 {+M} : GCJPLPR_aa(4.00d-28, 2.8d-10, 0.6d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE} Br + PRPE = HBr + PO2 : 3.60d-12; {2017/09/22; Sherwen2016b;TS,JAS,SDE} I + NO {+M} = INO {+M} : GCJPLPR_aba(1.80d-32, 1.0d0, 1.70d-11, 0.6d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB} @@ -866,46 +1016,126 @@ CH3CHOO + NO2 = ALD2 + NO3 : 4.25d-12; CH3CHOO + SO2 = ALD2 + SO4 + PH2SO4 : 2.65d-11; {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB} CH3CHOO + H2O = ALD2 + H2O2 : 6.00d-18; {2015/09/25; Millet2015; DBM,EAM} CH3CHOO + H2O = ACTA : 1.00d-17; {2015/09/25; Millet2015; DBM,EAM} -MTPA + OH = PIO2 : GCARR_ac(1.21d-11, 440.0d0); {2017/03/23; IUPAC2010; EVF} -MTPO + OH = PIO2 : GCARR_ac(1.21d-11, 440.0d0); {2017/03/23; IUPAC2010; EVF} -PIO2 + NO = 0.820HO2 + 0.820NO2 + - 0.230CH2O + 0.430RCHO + 0.110ACET + - 0.440MEK + 0.070HCOOH + 0.120MONITS + - 0.060MONITU : 4.00d-12; {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS} -PIO2 + HO2 = PIP : 1.50d-11; {2017/03/23; Roberts1992; EVF} -PIO2 + MO2 = HO2 + 0.750CH2O + 0.250MOH + - 0.250ROH + 0.750RCHO + 0.750MEK : GCARR_ac(3.56d-14, 708.0d0); {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -PIO2 + MCO3 = 0.500HO2 + 0.500MO2 + CO2 + - RCHO + 1.125MEK + RCOOH : GCARR_ac(7.40d-13, 765.0d0); {2017/03/23; Roberts1992; EVF; 2022/07/01; 2023/04/18; Bates2023; KHB} -PIO2 + NO3 = HO2 + NO2 + RCHO + MEK : 1.20d-12; {2017/03/23; Roberts1992; EVF} -MTPA + O3 = 0.850OH + 0.100HO2 + - 0.620KO2 + 0.140CO + 0.020H2O2 + - 0.650RCHO + 0.530MEK : GCARR_ac(5.00d-16, -530.0d0); {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} -MTPO + O3 = 0.850OH + 0.100HO2 + - 0.620KO2 + 0.140CO + 0.020H2O2 + - 0.650RCHO + 0.530MEK : GCARR_ac(5.00d-16, -530.0d0); {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} +// Updated Monoterpene chemistry MTPA + NO3 = 0.100OLNN + 0.900OLND : GCARR_ac(8.33d-13, 490.0d0); {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS} MTPO + NO3 = 0.100OLNN + 0.900OLND : GCARR_ac(8.33d-13, 490.0d0); {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO + OH = LIMO2 : GCARR_ac(4.20d-11, 401.0d0); {2017/07/14; Gill2002; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO + O3 = 0.850OH + 0.100HO2 + - 0.160OTHRO2 + 0.420KO2 + 0.020H2O2 + - 0.140CO + 0.460PRPE + 0.040CH2O + - 0.790MACR + 0.010HCOOH + 0.070RCOOH : GCARR_ac(2.95d-15, -783.0d0); {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} LIMO + NO3 = 0.500OLNN + 0.500OLND : 1.22d-11; {2017/07/14; Fry2014,Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + NO = 0.686HO2 + 0.780NO2 + - 0.220MONITU + 0.289PRPE + 0.231CH2O + - 0.491RCHO + 0.058HAC + 0.289MEK : 4.00d-12; {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + HO2 = PIP : 1.50d-11; {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + MO2 = HO2 + 0.192PRPE + - 1.040CH2O + 0.308MACR + 0.250MOH + - 0.250ROH : GCARR_ac(3.56d-14, 708.0d0); {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + MCO3 = 0.500HO2 + 0.500MO2 + - 0.192PRPE + 0.385CH2O + 0.308MACR + - 0.500RCOOH : GCARR_ac(7.40d-13, 765.0d0); {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + NO3 = HO2 + NO2 + 0.385PRPE + - 0.385CH2O + 0.615MACR : 1.20d-12; {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -PIP + OH = 0.490OH + 0.440R4O2 + - 0.080RCHO + 0.410MEK : GCARR_ac(3.40d-12, 190.0d0); {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS} +LIMO + OH = LIMO2 : GCARR_ac(4.20d-11, 401.0d0); +LIMO + O3 = 0.865OH + 0.15CO + 0.15AROMRO2 + + 0.27LIMAL + 0.715LIMO3 : GCARR_ac(2.95d-15, -783.0d0); +MTPO + OH = 0.15APINO2 + 0.15BPINO2 + + 0.2LIMO2 + 0.5PIO2 : GCARR_ac(1.21d-11, 440.0d0); +MTPO + O3 = 0.5ACET + 0.8OH + 0.1CH2O + + 0.5MEK + 0.15MVK + 0.4MYRCO + 0.5AROMRO2 + + 0.05HO2 + 0.3KO2 + 0.3RCHO : GCARR_ac(2.7d-15, -520.0d0); +MTPA + OH = 0.075LIMO2 + 0.67APINO2 + + 0.255BPINO2 : GCARR_ac(1.34d-11, 410.0d0); +MTPA + O3 = 0.65OH + 0.5APINO2 + + 0.1BPINOO2 + 0.2BPINO + 0.2PINAL + + 0.1CH2OO + 0.1CO + 0.1CH2O : GCARR_ac(8.22d-16, -640.0d0); +APINO2 + HO2 = APINP : GCARR_ac(2.66d-13, 1300.0d0); +APINO2 + NO = 0.25APINN + 0.75PINAL + + 0.75NO2 + 0.75HO2 : GCARR_ac(2.7d-12, 360.0d0); +APINO2 + NO3 = PINAL + NO2 + HO2 : 2.3d-12 ; +APINP + OH = 0.4PINO3 + 0.6APINO2 : 1.83d-11 ; +APINN + OH = 0.5PINAL + 0.5NO2 + 0.5HO2 + + 0.5C96N + 0.5CH2O + 0.5AROMRO2 : 5.50d-12 ; +PINAL + NO3 = HNO3 + PINO3 : 2.0d-14 ; +PINAL + OH = PINO3 : GCARR_ac(5.2d-12, 600.0d0); +PINO3 + HO2 = 0.44OH + 0.15O3 + 0.44C96O2 + + 0.41PINO3H + 0.15PINONIC : GCARR_ac(2.66d-13, 1300.0d0); +PINO3 + NO = NO2 + CO2 + C96O2 : GCARR_ac(2.7d-12, 360.0d0); +PINO3 + NO2 = PINPAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); +PINPAN = PINO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +PINO3 + NO3 = NO2 + CO2 + C96O2 : 2.3d-12 ; +PINO3H + OH = PINO3 : 9.73d-12 ; +PINONIC + OH = CO2 + C96O2 : 6.65d-12 ; +C96O2 + HO2 = C96O2H : GCARR_ac(2.66d-13, 1300.0d0); +C96O2 + NO = 0.16C96N + 0.84NO2 + + 0.84AROMRO2 + 0.84ACET + 0.84CH2O + + 0.84RCO3 + 0.42MEK : GCARR_ac(2.7d-12, 360.0d0); +C96O2 + NO3 = NO2 + AROMRO2 + ACET + CH2O + + RCO3 + 0.5MEK : 2.3d-12 ; +C96O2 + MO2 = HO2 + 0.75CH2O + 0.25MOH + + 0.25C96O2H + 0.75AROMRO2 + 0.75ACET + + 0.75CH2O + 0.75RCO3 + 0.375MEK : GCARR_ac(3.75d-13, 500.0d0); +C96O2H + OH = 0.5C96O2 + 0.5AROMRO2 + + 0.5ACET + 0.5CH2O + 0.5RCO3 + 0.25MEK : 2.6d-11 ; +C96N + OH = 0.5NO2 + 0.5MONITS + + 0.55AROMRO2 + 0.4ACET + 0.4CH2O + 0.4RCO3 + + 0.3MEK : 2.88d-12 ; +BPINO2 + HO2 = BPINP : GCARR_ac(2.66d-13, 1300.0d0); +BPINO2 + NO = 0.25BPINN + 0.75CH2O + + 0.75NO2 + 0.75HO2 + 0.75BPINO : GCARR_ac(2.7d-12, 360.0d0); +BPINO2 + NO3 = CH2O + NO2 + HO2 + BPINO : 2.3d-12 ; +BPINN + OH = 0.5BPINON + 0.5AROMRO2 + CH2O + + 0.5NO2 + 0.5HO2 + 0.5BPINO : 4.7d-12 ; +BPINP + OH = BPINO2 : 1.33d-11 ; +BPINO + OH = BPINOO2 : 1.55d-11 ; +BPINOO2 + HO2 = BPINOOH : GCARR_ac(2.66d-13, 1300.0d0); +BPINOO2 + NO = BPINON : GCARR_ac(4.32d-13, 360.0d0); +BPINOO2 + NO = NO2 + HO2 + 0.27LIMO3 + + 0.6ACET + 0.6RCHO + 0.6R4O2 : GCARR_ac(2.27d-12, 360.0d0); +BPINOO2 + MO2 = HO2 + 0.23LIMO3 + 0.4ACET + + 0.4RCHO + 0.4R4O2 + 0.75CH2O + 0.25MOH + + 0.25BPINOOH : GCARR_ac(3.75d-13, 500.0d0); +BPINOO2 + NO3 = NO2 + HO2 + 0.27LIMO3 + + 0.6ACET + 0.6RCHO + 0.6R4O2 : 2.3d-12 ; +BPINOOH + OH = BPINOO2 : 8.59d-11 ; +BPINON + OH = 0.5MONITS + 0.5NO2 + + 0.085LIMO3 + 0.3ACET + 0.3RCHO + 0.3R4O2 : 3.24d-12 ; +LIMO2 + HO2 = 0.37LIMKET + 0.63LIMAL : GCARR_ac(2.66d-13, 1300.0d0); +LIMO2 + NO = 0.25LIMN + 0.75NO2 + 0.75HO2 + 0.28LIMKET + 0.47LIMAL : GCARR_ac(2.7d-12, 360.0d0); +LIMO2 + NO3 = NO2 + HO2 + 0.37LIMKET + 0.63LIMAL : 2.3d-12 ; +LIMAL + OH = LIMO3 : 1.1d-10 ; +LIMAL + O3 = 0.3LIMKB + 0.33CH2OO + 0.67CH2O + 0.6LIMO3 + 0.6OH : 8.3d-18 ; +LIMAL + NO3 = AROMRO2 + LIMNB : 2.6d-13 ; +LIMKET + OH = LIMKO2 : 9.97d-11 ; +LIMKET + O3 = 0.27LIMKO2 + 0.865OH + 0.73LIMO3 : 1.5d-16 ; +LIMKET + NO3 = LIMNB + AROMRO2 : 9.4d-12 ; +LIMN + OH = 0.5LIMNB + 0.32LIMO3 + 0.18LIMKO2 + 0.5NO2 : 1.1d-10 ; +LIMN + O3 = CH2O + 0.5NO2 + 0.4LIMO3 + 0.5LIMNB : 8.3d-18 ; +LIMN + NO3 = NO2 + LIMNB + AROMRO2 : 2.6d-13 ; +LIMKO2 + NO = 0.16LIMNB + 0.84NO2 + 0.84LIMKB + 0.84HO2 : GCARR_ac(2.7d-12, 360.0d0); +LIMKO2 + HO2 = LIMO3H : GCARR_ac(2.66d-13, 1300.0d0); +LIMKO2 + NO3 = NO2 + LIMKB + HO2 : 2.3d-12 ; +LIMKO2 + MO2 = 0.75LIMKB + 0.25LIMO3H + 0.75CH2O + 0.25MOH + HO2 : GCARR_ac(3.75d-13, 500.0d0); +LIMKB + OH = LIMO3 : 3.6d-11 ; +LIMKB + NO3 = NO2 + LIMO3 : GCARR_ac(1.22d-11, -1862.0d0); +LIMNB + OH = 0.5MONITS + 0.5NO2 + 0.5LIMO3 : 6.3d-12 ; +LIMO3 + HO2 = 0.44OH + 0.15O3 + 0.44CO2 + 0.44MCO3 + 0.44RCHO + 0.176CH2O + 0.352R4O2 + 0.41LIMO3H + 0.15LIMO2H : GCARR_ac(2.66d-13, 1300.0d0); +LIMO3 + NO = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(2.7d-12, 360.0d0); +LIMO3 + NO2 = LIMPAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); +LIMPAN = LIMO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +LIMO3 + NO3 = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 2.3d-12 ; +LIMO3H + OH = LIMO3 : 9.73d-12 ; +LIMO2H + OH = CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 6.65d-12 ; +PIO2 + HO2 = PIP : GCARR_ac(2.66d-13, 1300.0d0); +PIO2 + NO = PIN : GCARR_ac(6.75d-13, 360.0d0); +PIO2 + NO = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : GCARR_ac(2.03d-12, 360.0d0); +PIO2 + NO3 = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : 2.3d-12 ; +PIP + OH = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(6.05d-12, 440.0d0); +PIP + O3 = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(1.35d-15, -520.0d0); +PIP + NO3 = 0.5OLNN + 0.5NO2 + 0.15OH + 0.35AROMRO2 + 0.15MVK + 0.15ACET + 0.05CH2O + 0.39MYRCO : GCARR_ac(1.06d-12, 490.0d0); +PIN + OH = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(6.05d-12, 440.0d0); +PIN + O3 = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(1.35d-15, -520.0d0); +PIN + NO3 = 0.5OLNN + 1.15NO2 + 0.35AROMRO2 + 0.35MONITU + 0.15MYRCO : GCARR_ac(1.06d-12, 490.0d0); +MYRCO + OH = HO2 + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(6.05d-12, 440.0d0); +MYRCO + O3 = OH + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(1.35d-15, -520.0d0); +MYRCO + NO3 = 0.5OLNN + 0.5NO2 + 0.5HO2 + 0.5AROMRO2 + 0.75CH2O + 0.5MEK + 0.25ACET + 0.25MVK + 0.25GLYC: GCARR_ac(1.06d-12, 490.0d0); +APINO2 + MO2 = PINAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0); +APINO2 + MCO3 = PINAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +BPINO2 + MO2 = 1.75HO2 + 0.25MOH + 1.75CH2O + BPINO : GCARR_ac(3.75d-13, 500.0d0); +BPINO2 + MCO3 = BPINO + CH2O + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +LIMO2 + MO2 = 0.37LIMKET + 0.63LIMAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0); +LIMO2 + MCO3 = 0.37LIMKET + 0.63LIMAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +PIO2 + MO2 = 0.45MVK + 0.45ACET + 0.675MYRCO + 1.75HO2 + 0.25MOH + 0.85CH2O : GCARR_ac(3.75d-13, 500.0d0); +PIO2 + MCO3 = 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +PINO3 + MO2 = CH2O + 0.75HO2 + 0.25PINONIC + 0.75C96O2 + 0.75CO2 : GCARR_ac(1.87d-12, 500.0d0); +PINO3 + MCO3 = C96O2 + 2CO2 + MO2 : GCARR_ac(3.75d-14, 500.0d0); +LIMO3 + MO2 = 0.75HO2 + CH2O + 0.75CO2 + 0.75MCO3 + 0.75RCHO + 0.3CH2O + 0.6R4O2 + 0.25LIMO2H : GCARR_ac(1.87d-12, 500.0d0); +LIMO3 + MCO3 = CO2 + MO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(3.75d-14, 500.0d0); +// OLNN + NO = HO2 + NO2 + MONITS : 4.00d-12; {2017/07/14; Browne2014,Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS} OLND + NO = 2.000NO2 + 0.287CH2O + 1.240RCHO + 0.464MEK : 4.00d-12; {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS} @@ -1316,6 +1546,34 @@ NAP + OH = NRO2 + OH : GCARR_ac(1.56d-11, 117.0d0); NRO2 + HO2 = LNRO2H + HO2 : GCARR_ac(1.40d-12, 700.0d0); {2013/08/12; Pye2010; HOTP} NRO2 + NO = LNRO2N + NO : GCARR_ac(2.60d-12, 350.0d0); {2013/08/12; Pye2010; HOTP} // +// --- RCOOH chemistry (KRT) +RCOOH + OH = ETO2 + CO2 + H2O : 1.20d-12; {2024/08/20; Travis2024; KRT} +// +// ----- STYR/EBZ/TMB chemistry (Bates et al., 2021) +STYR + OH = 0.300ZRO2 + 0.700AROMRO2 + + 0.700HO2 + CH2O + 0.700BALD : 5.8d-11; {krt, Bates et al., 2021} +STYR + NO3 = AROMRO2 + NO2 + CH2O + BALD : 1.5d-12; {krt, Bates et al., 2021} +STYR + O3 = 0.500CH2OO + 0.500CH2O + + 0.620BALD + 0.100BENZ + 0.280BENZO2 + + 0.180CO + 0.180OH + 0.100HO2 : 1.7d-17; {krt, Bates et al., 2021} +EBZ + OH = 0.813AROMRO2 + 0.250CH2O + + 0.070ZRO2 + 0.180CSL + 0.400ALD2 + + 0.400AROMP5 + 0.800AROMP4 + 0.1800HO2 : 7.0d-12; {krt, Bates et al., 2021} +EBZ + NO3 = AROMRO2 + HNO3 + CH2O + BALD : 1.2d-16; {krt, Bates et al., 2021} +TMB + OH = 0.930AROMRO2 + 0.120CH2O + + 0.050ZRO2 + 0.030CSL + 0.600AROMP5 + + 0.375AROMP4 + 0.250MGLY + 0.100GLYX + + 0.500RCOOH + 0.120CO + 0.030HO2 + + 0.150TLFUONE : 3.92d-11; {krt, Bates et al., 2021} +TMB + NO3 = AROMRO2 + HNO3 + + 0.400AROMP5 + BALD : 1.4d-15; {krt, Bates et al., 2021} +// +// ------ Lumped aromatic nitrate ---- +ZRO2 + NO = 0.110RNO3 + 0.890BALD + + 0.890NO2 + HO2 : GCARR_ac(2.7d-12,360.0d0);{MCM} +ZRO2 + HO2 = BALD + OH : GCARR_ac(1.5d-13,1310.0d0);{MCM} +RNO3 + OH = BALD + NO2 + HO2 : 7.16d-11;{MCM} +// // --- C2H2 & C2H4 chemistry (per KHB) C2H4 + O3 = CH2O + CH2OO : GCARR_ac(1.20d-14, -2630.0d0); {2021/09/22; Kwon2020; KHB,MSL; 2023/04/18; JPL 19-5; KHB} C2H4 + OH = ETOO : GCJPLPR_abab(1.10d-28, 3.5d+00, 8.4d-12, 1.75d0, 0.5d0); {2021/09/22; Kwon2020; KHB,MSL} @@ -1350,6 +1608,18 @@ AROMRO2 + NO = NO2 + HO2 : GCARR_ac(2.60d-12, 365.0d0); AROMRO2 + NO3 = NO2 + HO2 : 2.30d-12; {2021/09/29; Bates2021b; KHB,MSL} AROMRO2 + MO2 = CH2O + HO2 + HO2 : GCARR_ac(1.70d-14, 220.0d0); {2021/09/29; Bates2021b; KHB,MSL} AROMRO2 + MCO3 = MO2 + HO2 + CO2 : GCARR_ac(4.20d-14, 220.0d0); {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB} +//-----Lumped aromatic PN------ +TLFUONE + OH = TLFUO2 : 6.9d-11; +TLFUO2 + NO = NO2 + AROMCHO + HO2 : GCARR_abc(2.7d-12,0.0d0,360.0d0); +TLFUO2 + HO2 = AROMCHO : GCARR_abc(2.05d-13,0.0d0,1300.0d0); +AROMCHO + OH = AROMCO3 : 7.09E-11; +AROMCO3 + NO = NO2 + RCO3 + 2CO2 : GCARR_abc(7.50d-12,0.0d0,290.0d0); +AROMCO3 + HO2 = 0.15O3 + 0.15RCOOH + + 0.44CO2 + 0.44OH + 0.44RCO3+ 0.41RP : GCARR_abc(5.20d-13,0.0d0,980.0d0); +AROMCO3 + NO2 {+M} = AROMPN : GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0); {Same as BZPAN} +AROMPN = AROMCO3 + NO2 : GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0; {Same as BZPAN} +AROMPN + OH = 2CO + NO2 + MCO3 + CH2O : 1.0d-14; {MCM for ACCOMEPAN} +//------ PHEN + OH = 0.06BENZO + 0.06GLYX + 0.18AROMP4 + 0.14AROMRO2 + 0.8MCT + 0.8HO2 : GCARR_ac(4.70d-13, 1220.0d0); {2021/09/29; Bates2021b; KHB,MSL} @@ -1396,8 +1666,8 @@ AROMP5 + OH = 0.6MGLY + 0.15ACTA + 0.33RCO3 + 0.25CO + 0.52RCOOH : 5.0d-11; {2021/09/29; Bates2021b; KHB,MSL} AROMP5 + O3 = 0.6MGLY + 0.3ACTA + 0.2HCOOH + 0.5CO + 0.95GLYC + 0.1HO2 + 0.1OH : 8.0d-16; {2021/09/29; Bates2021b; KHB,MSL} -AROMP5 = 0.2HO2 + 0.2R4O2 + - 0.2MGLY + 1.15RCHO + 0.05CO : 1.5d-3; {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB} +AROMP5 = 0.2HO2 + 0.2ALK4O2 + + 0.2MGLY + 1.15RCHO + 0.05CO : 1.5d-3; {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB} // // KHB -- "we still need to include the dummy species for aromatic oxidation // to make the complex SOA code work. Hopefully this will be changed @@ -1547,6 +1817,10 @@ ALD2 + hv = 0.880MO2 + HO2 + 0.880CO + ALD2 + hv = CH4 + CO : PHOTOL(62); PAN + hv = 0.700MCO3 + 0.700NO2 + 0.300MO2 + 0.300NO3 + 0.300CO2 : PHOTOL(59); {2014/05/23; Eastham2014; JMAO,SDE; 2023/04/18; Bates2023; KHB} +APAN + hv = ACO3 + NO2 : PHOTOL(59); {2014/05/23; Eastham2014; JMAO,SDE} +ACR + hv = 0.700CO + 0.300HO2 + + 0.300CH2O + 0.400C2H4 + 0.300ACO3 : PHOTOL(66); +AROMCHO + hv = HO2 + CO + MCO3 + CH2O : PHOTOL(70); {2019/05/10; Fisher2018; JAF} RCHO + hv = 0.490OTHRO2 + HO2 + CO + 0.070A3O2 + 0.270B3O2 : PHOTOL(70); {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB} ACET + hv = MCO3 + MO2 : PHOTOL(76); @@ -1570,12 +1844,21 @@ ETP + hv = OH + HO2 + ALD2 : PHOTOL(80); RA3P + hv = OH + HO2 + RCHO : PHOTOL(81); RB3P + hv = OH + HO2 + ACET : PHOTOL(82); R4P + hv = OH + HO2 + 1.500RCHO : PHOTOL(83); {2023/04/18; Bates2023; KHB} +R7P + hv = OH + HO2 + RCHO : PHOTOL(83); +ALK4P + hv = OH + HO2 + 1.500RCHO : PHOTOL(83); {2023/05/14; Brewer2023; JFB} PP + hv = OH + HO2 + ALD2 + CH2O : PHOTOL(84); RP + hv = OH + HO2 + ALD2 + MO2 : PHOTOL(85); {2023/04/18; Bates2023; KHB} R4N2 + hv = NO2 + 0.340ACET + 0.190MEK + 0.190MO2 + 0.270HO2 + 0.340ALD2 + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + 0.340OTHRO2 : PHOTOL(98); {2023/04/18; Bates2023; KHB} +R7N2 + hv = NO2 + 0.348ALD2 + 1.558RCHO + + 0.326MCO3 + 0.326RCO3 + 0.326HO2 : PHOTOL(98); +RNO3 + hv = BALD + NO2 + HO2 + H2O : PHOTOL(98); +ALK4N2 + hv = NO2 + 0.340ACET + 0.190MEK + + 0.190MO2 + 0.270HO2 + 0.340ALD2 + + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + + 0.340OTHRO2 : PHOTOL(98); {2023/05/14; Brewer2023; JFB} MAP + hv = OH + MO2 + CO2 : PHOTOL(99); {2023/04/18; Bates2023; KHB} Br2 + hv = 2.000Br : PHOTOL(23); {2012/06/07; Parrella2012; JPP} BrO + hv = Br + O : PHOTOL(28); {2014/02/03; Eastham2014; SDE} @@ -1728,3 +2011,21 @@ BZCO3H + hv = BENZO2 + OH + CO2 : PHOTOL(164); {2021/09/29; Bates2 BENZP + hv = BENZO : PHOTOL(165); {2021/09/29; Bates2021b; KHB,MSL} NPHEN + hv = HNO2 + CO + CO2 + AROMP4 + HO2 : PHOTOL(166); {2021/09/29; Bates2021b; KHB,MSL} +PPN + hv = 0.700RCO3 + 0.700NO2 + + 0.300NO3 : PHOTOL(167); {2024/07/11; Horner2024, BH} +APINP + hv = PINAL + OH + HO2 : PHOTOL(168); {2024/08/20; Travis2024; KRT} +PINAL + hv = CO + HO2 + C96O2 : PHOTOL(169); {2024/08/20; Travis2024; KRT} +PINO3H + hv = OH + CO2 + C96O2 : PHOTOL(170); {2024/08/20; Travis2024; KRT} +PINONIC + hv = OH + CO2 + C96O2 : PHOTOL(171); {2024/08/20; Travis2024; KRT} +C96O2H + hv = OH + AROMRO2 + ACET + + CH2O + RCO3 + 0.5MEK : PHOTOL(172); {2024/08/20; Travis2024; KRT} +BPINP + hv = OH + CH2O + HO2 + BPINO : PHOTOL(173); {2024/08/20; Travis2024; KRT} +BPINOOH + hv = OH + HO2 + 0.27LIMO3 + + 0.6ACET + 0.6RCHO + 0.6R4O2 : PHOTOL(174); {2024/08/20; Travis2024; KRT} +LIMO3H + hv = OH + CO2 + MCO3 + RCHO + + 0.4CH2O + 0.8R4O2 : PHOTOL(175); {2024/08/20; Travis2024; KRT} +LIMO2H + hv = OH + CO2 + MCO3 + RCHO + + 0.4CH2O + 0.8R4O2 : PHOTOL(176); {2024/08/20; Travis2024; KRT} +PIP + hv = OH + HO2 + 0.450MVK + 0.45ACET + + 0.100CH2O + 0.675MYRCO : PHOTOL(105); {2024/08/20; Travis2024; KRT} +LIMAL + hv = CO + HO2 + 0.900LIMO3 : PHOTOL(177); {2024/08/20; Travis2024; KRT} diff --git a/KPP/fullchem/CHANGELOG_fullchem.md b/KPP/fullchem/CHANGELOG_fullchem.md index 50eba3202..086efe3d6 100644 --- a/KPP/fullchem/CHANGELOG_fullchem.md +++ b/KPP/fullchem/CHANGELOG_fullchem.md @@ -4,6 +4,13 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), # Mechanism history +## [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) +- Added ALK4N1 and ALK4N2 to Ox family in KPP +- Added new monoterpene mechanism, RCOOH oxidation, chemistry for new PNs (PHAN, AROMPN, MEKPN, APAN, LIMPAN, PINPAN) and aromatic AN (RNO3) per Travis et al., 2024 +- Photolysis of PPN from Horner2024 (BH) +- PPN+OH and PAN+OH based on the structure activity relationship approach (BH) + ## [14.4.0] - 2024-05-30 - Bug fix: Change `3.4.e-31` to `3.4.d-31` in `NO2 + O = NO + O2` rxn - Update rxns with zero Arrhenius `B` parameters to use function `GCARR_ac` instead of `GCARR_abc` @@ -119,3 +126,4 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), ## [v11-01g] - Sep 2016 ### Added - Initial version for FlexChem (MSL,MJE,MPS,EWL) + diff --git a/KPP/fullchem/fullchem.eqn b/KPP/fullchem/fullchem.eqn index 9d7ea2b2e..4f3b0a307 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.2.0 +Version: 14.5.0 Please see "CHANGELOG_fullchem.md" in this folder for the revision history of the fullchem mechanism. @@ -21,6 +21,7 @@ DEVELOPERS (initials and email/GitHub) =============================================================================== * BA : Becky Alexander : @beckyalexander +* BH : Rebekah (Bex) Horner : @bexhorner * BHH : Barron Henderson : @barronh * BMY : Bob Yantosca : @yantosca * CCM : Christopher Chan Miller : cmiller@fas.harvard.edu @@ -34,6 +35,7 @@ DEVELOPERS (initials and email/GitHub) * HOTP : Havala Pye : pye.havala@epa.gov * JAF : Jenny Fisher : @jennyfisher * JAS : Johan Schmidt : johanalbrechtschmidt@gmail.com +* JFB : Jared Brewer : @JFBrewer * JMAO : Jingqiu Mao : @jingqiumao * JMM : Jonathan Moch : jmoch@g.harvard.edu * JPP : Justin Parrella : justin.parrella@gmail.com @@ -62,6 +64,7 @@ REFERENCES (alphabetical order) * Bates2019 : https://doi.org/10.5194/acp-19-9613-2019 * Bates2021a : https://doi.org/10.1029/2020JD033439 * Bates2021b : https://doi.org/10.5194/acp-2021-605 +* Brewer2023 : https://doi.org/10.1029/2022JD037257 * Browne2011 : https://doi.org/10.5194/acp-11-4209-2011 * Browne2014 : https://doi.org/10.5194/acp-14-1225-2014 * Carter2022 : https://doi.org/10.5194/acp-22-12093-2022 @@ -84,6 +87,7 @@ REFERENCES (alphabetical order) * Kwon2020 : https://doi.org/10.1525/elementa.2021.00109 * Lee2014 : https://doi.org/10.1021/jp4107603 * Marais2016 : https://doi.org/10.5194/acp-16-1603-2016 +* MCMv3.3 : https://mcm.york.ac.uk/MCM/ * Miller2017 : https://doi.org/10.5194/acp-2016-1042 * Millet2015 : https://doi.org/10.5194/acp-15-6283-2015 * Moch2020 : https;//doi.org/10.1029/2020JD032706, 2020. @@ -99,6 +103,7 @@ 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 * Wolfe2012 : https://doi.org/ 10.1039/C2CP40388A, 2012 * Xie2013 : https://doi.org/10.5194/acp-13-8439-2013 @@ -116,15 +121,27 @@ Comment format is #DEFVAR A3O2 = IGNORE; {CH3CH2CH2OO; Primary RO2 from C3H8} +ACR = IGNORE; {C3H4O, Acrolein} +ACRO2 = IGNORE; {C3H5O4} +ACO3 = IGNORE; {C3H3O3} ACET = IGNORE; {CH3C(O)CH3; Acetone} ACTA = IGNORE; {CH3C(O)OH; Acetic acid} AERI = IGNORE; {I; Dissolved iodine} ALD2 = IGNORE; {CH3CHO; Acetaldehyde} ALK4 = IGNORE; {>= C4 alkanes} +ALK4N1 = IGNORE; {RO2 from ALKN2} +ALK4N2 = IGNORE; {RO2NO; >= C4 alkylnitrates from ALK4} +ALK4O2 = IGNORE; {RO2 from ALK4} +ALK4P = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from ALK4O2} +ALK6 = IGNORE; {>= C6 alkanes} AONITA = IGNORE; {Aerosol-phase organic nitrate from aromatic precursors} +APAN = IGNORE; {C3H3NO5; Acryloyl peroxynitrate} +AROMCHO = IGNORE; {C5H6O4} AROMRO2 = IGNORE; {generic peroxy radical from aromatic oxidation} AROMP4 = IGNORE; {Generic C4 product from aromatic oxidation} AROMP5 = IGNORE; {Generic C5 product from aromatic oxidation} +AROMPN = IGNORE; {Lumped aromatic PN} +AROMCO3 = IGNORE; {Lumped aromatic acyl peroxy radical} ATO2 = IGNORE; {CH3C(O)CH2O2; RO2 from acetone} ATOOH = IGNORE; {CH3C(O)CH2OOH; ATO2 peroxide} B3O2 = IGNORE; {CH3CH(OO)CH3; Secondary RO2 from C3H8} @@ -143,6 +160,8 @@ BRO2 = IGNORE; {C6H5O2 ; Peroxy radical from BENZ oxidation} BrSALA = IGNORE; {Br; Fine sea salt bromine} BrSALC = IGNORE; {Br; Course sea salt bromine} BUTDI = IGNORE; {Butenedial} +BUTN = IGNORE; {BUTN; alkyl nitrate from C4H6} +BUTO2 = IGNORE; {C4H7O3} BZCO3 = IGNORE; {benzoylperoxy radical} BZCO3H = IGNORE; {perbenzoic acid} BZPAN = IGNORE; {peroxybenzoyl nitrate} @@ -150,6 +169,7 @@ C2H2 = IGNORE; {C2H2; Ethyne} C2H4 = IGNORE; {Ethylene} C2H6 = IGNORE; {C2H6; Ethane} C3H8 = IGNORE; {C3H8; Propane} +C4H6 = IGNORE; {C4H6; 1,4 butadiene} C4HVP1 = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs} C4HVP2 = IGNORE; {C4 hydroxy-vinyl-peroxy radicals from HPALDs} CCl4 = IGNORE; {CCl4; Carbon tetrachloride} @@ -184,6 +204,7 @@ CO = IGNORE; {CO; Carbon monoxide} CO2 = IGNORE; {CO2; Carbon dioxide} CSL = IGNORE; {cresols and xylols} DMS = IGNORE; {(CH3)2S; Dimethylsulfide} +EBZ = IGNORE; {C6H5CH2CH3; Ethylbenzene} EOH = IGNORE; {C2H5OH; Ethanol} ETHLN = IGNORE; {CHOCH2ONO2; Ethanal nitrate} ETHN = IGNORE; {stable hydroxy-nitrooxy-ethane} @@ -194,6 +215,7 @@ ETOO = IGNORE; {hydroxy-peroxy-ethane radical, formed from ethene + OH} ETO2 = IGNORE; {CH3CH2OO; Ethylperoxy radical} ETP = IGNORE; {CH3CH2OOH; Ethylhydroperoxide} FURA = IGNORE; {FURAN conglomerate} +GCO3 = IGNORE; {HOCH2CO3: PHAN peroxyacetyl radical} GLYC = IGNORE; {HOCH2CHO; Glycoaldehyde} GLYX = IGNORE; {CHOCHO; Glyoxal} H = IGNORE; {H; Atomic hydrogen} @@ -203,6 +225,7 @@ H2402 = IGNORE; {C2Br2F4; H-2402} H2O = IGNORE; {H2O; Water vapor} H2O2 = IGNORE; {H2O2; Hydrogen peroxide} HAC = IGNORE; {HOCH2C(O)CH3; Hydroxyacetone} +HACTA = IGNORE; {HOCH2CO2H; hydroxyacetic acid} HBr = IGNORE; {HBr; Hypobromic acid} HC5A = IGNORE; {C5H8O2; Isoprene-4,1-hydroxyaldehyde} HCFC123 = IGNORE; {C2HCl2F3; HCFC-123, R-123, Freon 123} @@ -291,6 +314,36 @@ LBRO2H = IGNORE; {Dummy spc to track oxidation of BRO2 by HO2} LBRO2N = IGNORE; {Dummy spc to track oxidation of BRO2 by NO} LIMO = IGNORE; {C10H16; Limonene} LIMO2 = IGNORE; {RO2 from LIMO} +APINP = IGNORE; +APINN = IGNORE; +PINAL = IGNORE; +PINPAN = IGNORE; +PINONIC = IGNORE; +PINO3H = IGNORE; +C96O2H = IGNORE; +C96N = IGNORE; +BPINO = IGNORE; +BPINN = IGNORE; +BPINP = IGNORE; +BPINOOH = IGNORE; +BPINON = IGNORE; +LIMAL = IGNORE; +LIMN = IGNORE; +LIMKET = IGNORE; +LIMKB = IGNORE; +LIMNB = IGNORE; +LIMPAN = IGNORE; +LIMO2H = IGNORE; +LIMO3H = IGNORE; +MYRCO = IGNORE; +PIN = IGNORE; +APINO2 = IGNORE; +PINO3 = IGNORE; +C96O2 = IGNORE; +BPINO2 = IGNORE; +BPINOO2 = IGNORE; +LIMKO2 = IGNORE; +LIMO3 = IGNORE; LISOPOH = IGNORE; {Dummy spc to track oxidation of ISOP by OH} LISOPNO3 = IGNORE; {Dummy spc to track oxidation of ISOP by NO3} LNRO2H = IGNORE; {Dummy spc to track oxidation of NRO2 by HO2} @@ -314,7 +367,9 @@ MCRHNB = IGNORE; {O2NOCH2C(OH)(CH3)CHO; Hydroxynitrate from MACR} MCRHP = IGNORE; {HOCH2C(OOH)(CH3)CHO; Hydroxy-hydroperoxy-MACR} MCROHOO = IGNORE; {peroxy radical from MACR + OH} MCT = IGNORE; {methylcatechols} +MEKCO3 = IGNORE; {MEK peroxyacetyl radical} MEK = IGNORE; {RC(O)R; Methyl ethyl ketone} +MEKPN = IGNORE; {MEK peroxynitrate, C3PAN1 from MCM} MENO3 = IGNORE; {CH3ONO2; methyl nitrate} MGLY = IGNORE; {CH3COCHO; Methylglyoxal} MO2 = IGNORE; {CH3O2; Methylperoxy radical} @@ -361,6 +416,7 @@ OLND = IGNORE; {Monoterpene-derived NO3-alkene adduct} OLNN = IGNORE; {Monoterpene-derived NO3 adduct} OTHRO2 = IGNORE; {Other C2 RO2 not from C2H6 oxidation} PAN = IGNORE; {CH3C(O)OONO2; Peroxyacetylnitrate} +PHAN = IGNORE; {OCC(=O)OON(=O)=O; peroxyhydroxyacetic nitric anhydride} PHEN = IGNORE; {phenol} PIO2 = IGNORE; {RO2 from MTPA} PIP = IGNORE; {Peroxides from MTPA} @@ -374,16 +430,22 @@ PRPN = IGNORE; {O2NOCH2CH(OOH)CH3; Peroxide from PRN1} PYAC = IGNORE; {CH3COCOOH; Pyruvic acid} R4N1 = IGNORE; {RO2 from R4N2} R4N2 = IGNORE; {RO2NO; >= C4 alkylnitrates} -R4O2 = IGNORE; {RO2 from ALK4} +R4O2 = IGNORE; {RO2 from >= C4 biogenic organics} R4P = IGNORE; {CH3CH2CH2CH2OOH; Peroxide from R4O2} +R7O2 = IGNORE; {RO2 from ALK6} +R7N1 = IGNORE; {RO2 from R7N2} +R7P = IGNORE; {Peroxide from R7O2} +R7N2 = IGNORE; {RO2NO; >= C6 alkylnitrates} RA3P = IGNORE; {CH3CH2CH2OOH; Peroxide from A3O2} RB3P = IGNORE; {CH3CH(OOH)CH3; Peroxide from B3O2} RCHO = IGNORE; {CH3CH2CHO; >= C3 aldehydes} RCO3 = IGNORE; {CH3CH2C(O)OO; Peroxypropionyl radical} +RCOOH = IGNORE; {C2H5C(O)OH; > C2 organic acids} RIPA = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 1,2-ISOPOOH} RIPB = IGNORE; {HOCH2C(OOH)(CH3)CH=CH2; 4,3-ISOPOOH} RIPC = IGNORE; {C5H10O3; d(1,4)-ISOPOOH} RIPD = IGNORE; {C5H10O3; d(4,1)-ISOPOOH} +RNO3 = IGNORE; {C7H9NO6; lumped aromatic alkyl nitrate} ROH = IGNORE; {C3H7OH; > C2 alcohols} RP = IGNORE; {CH3CH2C(O)OOH; Peroxide from RCO3} SALAAL = IGNORE; {Accumulation mode seasalt aerosol alkalinity} @@ -399,19 +461,22 @@ SO4 = IGNORE; {SO4; Sulfate} SO4s = IGNORE; {SO4 on sea-salt; Sulfate} SOAGX = IGNORE; {CHOCHO; Aerosol-phase glyoxal} SOAIE = IGNORE; {C5H10O3; Aerosol-phase IEPOX} +STYR = IGNORE; {C6H5CHCH2; Styrene} +TLFUONE = IGNORE; {C5H6O2; lumped furanones} +TLFUO2 = IGNORE; {C5H7O5; RO2 from TLFUONE} +TMB = IGNORE; {C6H3(CH3)3; Trimethylbenzenes} TOLU = IGNORE; {C7H8; Toluene} TRO2 = IGNORE; {Peroxy radical from TOLU oxidation} XYLE = IGNORE; {C8H10; Xylene} XRO2 = IGNORE; {Peroxy radical from XYLE oxidation} PH2SO4 = IGNORE; {SO4 from gas-phase chemistry} PSO4AQ = IGNORE; {SO4 from cloud chemistry} - +ZRO2 = IGNORE; {Lumped RO2 from aromatics} #DEFFIX H2 = IGNORE; {H2; Molecular hydrogen} N2 = IGNORE; {N2; Molecular nitrogen} O2 = IGNORE; {O2; Molecular oxygen} -RCOOH = IGNORE; {C2H5C(O)OH; > C2 organic acids} #EQUATIONS // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -428,9 +493,9 @@ HNO3 + SALCAL = NITs : K_MT(6); // // Cloud // S(IV) --> S(VI) -SO2 + H2O2 = SO4 + PSO4AQ : K_CLD(1); -SO2 + O3 = SO4 + PSO4AQ : K_CLD(2) + SRO3; {Jan 2023; Added SRO3 here; BA} -SO2 {+O2} = SO4 + PSO4AQ : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} +SO2 + H2O2 = SO4 : K_CLD(1); +SO2 + O3 = SO4 : K_CLD(2); +SO2 {+O2} = SO4 : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} // // HMS CH2O + SO2 = HMS : K_CLD(4); {Sep 2021; Moch2020; MSL} @@ -509,6 +574,7 @@ ALD2 + OH = 0.950MCO3 + 0.050CH2O + ALD2 + NO3 = HNO3 + MCO3 : GCARR_ac(1.40d-12, -1900.0d0); MCO3 + NO2 {+M} = PAN : GCJPLPR_abab(7.30d-29, 4.1d+00, 9.5d-12, 1.6d0, 0.6d0); {2023/04/18; JPL 19-5; KHB} PAN = MCO3 + NO2 : GCJPLEQ_acabab(9.00d-29, 14000.0d0, 7.3d-29, 4.1d0, 9.5d-12, 1.6d0, 0.6d0); {2023/04/18; JPL 19-5; KHB} +PAN + OH = CH2O + CO + NO2 : 3.00d-14 ; MCO3 + NO = MO2 + NO2 + CO2 : GCARR_ac(8.10d-12, 270.0d0); C2H6 + OH = ETO2 + H2O : GCARR_ac(7.66d-12, -1020.0d0); {2013/02/12; JPL 10-6; BHH,JMAO,EAM} ETO2 + NO = ALD2 + NO2 + HO2 : GC_RO2NO_B2_aca(2.60d-12, 365.0d0, 2.0d0); {2019/05/10; Fisher2018; JAF} @@ -519,7 +585,47 @@ C3H8 + OH = A3O2 : GCARR_abc(1.97d-12,1.23d0,-675.0d0) A3O2 + NO = NO2 + HO2 + RCHO : GC_RO2NO_B2_aca(2.90d-12, 350.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} A3O2 + NO = NPRNO3 : GC_RO2NO_A2_aca(2.90d-12, 350.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} PO2 + NO = NO2 + HO2 + CH2O + ALD2 : GCARR_ac(2.70d-12, 350.0d0); +// --- ALK6 chemistry from Lurman et al., 1986 +ALK6 + OH = R7O2 : GCARR_ac(2.00d-11, -359.0d0); +ALK6 + NO3 = HNO3 + R7O2 : 6.0d-17; +R7O2 + NO = NO2 + 0.750RCHO + 0.250R4O2 + + 0.250MEK + 0.750HO2 : GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 7.0d0); +R7O2 + NO = R7N2 : GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 7.0d0); +R7O2 + HO2 = R7P : 3.0d-12; +R7P + OH = 0.500OH + 0.500R7O2 + 0.500RCHO : 1.00d-11; {} +R7N2 + OH = R7N1 + H2O : 4.00d-12; +R7N1 + NO = 2.000NO2 + 0.980CH2O + + 0.650ALD2 + 1.240RCHO : GCARR_ac(4.20d-12, 180.0d0); {} +R7N1 + HO2 = R7N2 : GCARR_ac(7.40d-13, 700.0d0); +// ----- C4H6 --> APAN --- currently no RO2 RO2 +C4H6 + OH = BUTO2 : GCARR_ac(1.48d-11, 448.0d0); +C4H6 + NO3 = ACR + CH2O + NO2 : 1.03d-13; +C4H6 + O3 = ACR + CH2O : GCARR_ac(1.34d-14,-2283.0d0); +BUTO2 + NO = 0.058BUTN + 0.730ACR + + 0.603CH2O + 0.513HO2 + 0.942NO2 + + 0.326RCHO : GCARR_ac(2.70d-12, 360.0d0); { krt, MCM} +BUTO2 + HO2 = 0.659GLYC + 0.894RCHO : GCARR_ac(1.82d-13,1300d0); {MCM} +BUTN + OH = GLYC + NO2 + CH2O + HO2 + + CO : 3.59d-11; {krt, MCM} +ACR + OH = 0.680ACO3 + 0.255ACRO2 + + 0.065CH2O + 0.065GLYX + 0.425HO2 : 2.00d-11; {krt, MCM} +ACRO2 + NO = GLYC + NO2 + HO2 + CO : GCARR_ac(2.70d-12,360.0d0) ;{krt, MCM} +ACRO2 + HO2 = GLYC + HO2 + CO : GCARR_ac(1.51d-13,1300.0d0) ;{krt, MCM} +ACO3 + HO2 = CO + CH2O + 0.500GLYC + + 0.250HO2 + 0.250OH : GCARR_ac(5.2d-13, 980.0d0) ; {krt, MCM} +ACO3 + NO = HO2 + CO + CH2O + NO2 : GCARR_ac(7.5d-12, 290.0d0) ; {krt, MCM} +ACO3 + NO2 {+M} = APAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); +APAN = ACO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +APAN + OH = GLYC + CO + NO3 : 1.47d-11 ; {krt, MCM} +// ALK4 + OH = R4O2 : GCARR_ac(9.10d-12, -405.0d0); +ALK4O2 + NO = NO2 + 0.340ACET + 0.190MEK + + 0.190MO2 + 0.270HO2 + 0.340ALD2 + + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + + 0.340OTHRO2 : GC_RO2NO_B2_aca(2.70d-12, 350.0d0, 4.5d0); {2023/05/14; Brewer2023; JFB} +ALK4O2 + NO = ALK4N2 : GC_RO2NO_A2_aca(2.70d-12, 350.0d0, 4.5d0); {2023/05/14; Brewer2023; JFB} +ALK4N1 + NO = 2.000NO2 + 0.640RCHO + + 0.970ALD2 + 0.640CH2O : GCARR_ac(2.70d-12, 350.0d0); {2023/05/14; Brewer2023; JFB} R4O2 + NO = NO2 + 0.340ACET + 0.190MEK + 0.190MO2 + 0.270HO2 + 0.340ALD2 + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + @@ -529,16 +635,18 @@ R4N1 + NO = 2.000NO2 + 0.640RCHO + 0.970ALD2 + 0.640CH2O : GCARR_ac(2.70d-12, 350.0d0); {2023/04/18; Bates2023; KHB} ATO2 + NO = NO2 + CH2O + MCO3 : GCARR_ac(2.90d-12, 300.0d0); {2023/04/18; JPL 19-5; KHB} KO2 + NO = 0.928NO2 + 0.919ALD2 + - 0.919MCO3 + 0.072R4N2 : GCARR_ac(2.70d-12, 350.0d0); {2023/04/18; Bates2023; KHB} + 0.919MCO3 + 0.072ALK4N2 : GCARR_ac(2.70d-12, 350.0d0); {2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB} B3O2 + NO = NO2 + HO2 + ACET : GC_RO2NO_B2_aca(2.70d-12, 360.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} B3O2 + NO = IPRNO3 : GC_RO2NO_A2_aca(2.70d-12, 360.0d0, 3.0d0); {2019/05/10; Fisher2018; JAF} PRN1 + NO = 2.000NO2 + CH2O + ALD2 : GCARR_ac(2.70d-12, 350.0d0); -ALK4 + NO3 = HNO3 + R4O2 : GCARR_ac(2.80d-12, -3280.0d0); +ALK4 + NO3 = HNO3 + ALK4O2 : GCARR_ac(2.80d-12, -3280.0d0); {2023/05/14; Brewer2023; JFB} R4N2 + OH = R4N1 + H2O : 1.60d-12; +ALK4N2 + OH = ALK4N1 + H2O : 1.60d-12; {2023/05/14; Brewer2023; JFB} ACTA + OH = MO2 + CO2 + H2O : GCARR_ac(3.15d-14, 920.0d0); {2013/02/12; JPL 10-6; BHH,JMAO,EAM} OH + RCHO = RCO3 + H2O : GCARR_ac(6.00d-12, 410.0d0); RCO3 + NO2 {+M} = PPN : GCJPLPR_abab(9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0); {JPL Eval 17} PPN = RCO3 + NO2 : GCJPLEQ_acabab(9.00d-29, 14000.0d0, 9.00d-28, 8.9d0, 7.7d-12, 0.2d0, 0.6d0); +PPN + OH = ALD2 + CO + NO2 : 1.27d-12 ; RCO3 + NO = NO2 + 0.490OTHRO2 + 0.070A3O2 + 0.270B3O2 + CO2 : GCARR_ac(6.70d-12, 340.0d0); {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB} RCHO + NO3 = HNO3 + RCO3 : 6.50d-15; @@ -550,13 +658,27 @@ PO2 + MO2 = HO2 + 0.500ALD2 + 1.250CH2O + 0.250ROH : 5.92d-13; R4O2 + HO2 = R4P : GCARR_ac(7.40d-13, 700.0d0); R4N1 + HO2 = R4N2 : GCARR_ac(7.40d-13, 700.0d0); +ALK4O2 + HO2 = ALK4P : GCARR_ac(7.40d-13, 700.0d0); {2023/05/14; Brewer2023; JFB} +ALK4N1 + HO2 = ALK4N2 : GCARR_ac(7.40d-13, 700.0d0); {2023/05/14; Brewer2023; JFB} ATO2 + HO2 = 0.150MCO3 + 0.150OH + 0.150CH2O + 0.850ATOOH : GCARR_ac(8.60d-13, 700.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} KO2 + HO2 = 0.150OH + 0.150ALD2 + 0.150MCO3 + 0.850ATOOH + 0.850MO2 : GC_RO2HO2_aca(2.91d-13, 1300.0d0, 4.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB} B3O2 + HO2 = RB3P : GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} PRN1 + HO2 = PRPN : GC_RO2HO2_aca(2.91d-13, 1300.0d0, 3.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} -MEK + OH = KO2 + H2O : GCARR_ac(1.50d-12, -90.0d0); {2023/04/18; Atkinson2006; KHB} +// -------- MEKPN ------------------- +MEK + OH = KO2 + H2O : GCARR_ac(1.50d-12, -90.0d0); {2023/04/18; Atkinson2006; KHB} +KO2 + NO = 0.930NO2 + 0.620ALD2 + + 0.620MCO3 + 0.070R4N2 + + 0.310MEKCO3 + 0.310CH2O : GCARR_ac(2.70d-12, 350.0d0); +MEKCO3 + NO2 {+M} = MEKPN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); {JPL Eval 17} +MEKPN = MEKCO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +MEKPN + OH = GLYC + CO + NO2 : 4.51E-12; +MEKCO3 + NO = NO2 + ETOO + CO2 : GCARR_ac(7.50d-12, 290.0d0); +MEKCO3 + HO2 = 0.150O3 + 0.150RCOOH + + 0.440CO2 + 0.440OH + 0.440ETOO + + 0.410RP : GCARR_ac(5.20d-13, 980.0d0); +// MO2 + ETO2 = 0.750CH2O + 0.750ALD2 + HO2 + 0.250MOH + 0.250EOH : 3.00d-13; MO2 + OTHRO2 = 0.750CH2O + 0.750ALD2 + @@ -570,6 +692,14 @@ R4O2 + MO2 = 0.160ACET + 0.100MEK + R4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 + 0.580RCHO + 0.150R4O2 + 0.500HO2 + 0.250MOH + 0.375ROH : 8.37d-14; {2023/04/18; Bates2023; KHB} +ALK4O2 + MO2 = 0.160ACET + 0.100MEK + + 0.090MO2 + 0.140HO2 + 0.160ALD2 + + 0.130RCHO + 0.030A3O2 + 0.090B3O2 + + 0.160OTHRO2 + 0.250MEK + 0.750CH2O + + 0.250MOH + 0.380ROH + 0.500HO2 : 8.37d-14; {2023/05/14; Brewer2023; JFB} +ALK4N1 + MO2 = NO2 + 0.950CH2O + 0.380ALD2 + + 0.580RCHO + 0.150R4O2 + 0.500HO2 + + 0.250MOH + 0.375ROH : 8.37d-14; {2023/05/14; Brewer2023; JFB} ATO2 + MO2 = 0.300HO2 + 0.500CH2O + 0.300MCO3 + 0.200HAC + 0.500MGLY + 0.500MOH + 0.300CO2 : GCARR_ac(7.50d-13, 500.0d0); {2023/04/18; Bates2023; KHB} @@ -603,6 +733,19 @@ GLYC + OH = 0.732CH2O + 0.361CO2 + 0.505CO + 0.227OH + 0.773HO2 + 0.134GLYX + 0.134HCOOH : GC_GLYCOH_A_a(8.00d-12); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} GLYC + OH = HCOOH + OH + CO : GC_GLYCOH_B_a(8.00d-12); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} +// --- GLYC chemistry --> PHAN - currenty no RO2 RO2 +GLYC + OH = 0.200GLYX + 0.200HO2 + + 0.800GCO3 : 1.0d-11; {krt, MCM} +GLYC + NO3 = GCO3 + HNO3 : GCARR_ac(1.44d-12,-1862.0d0); {krt, MCM} +GCO3 + NO2 {+M} = PHAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); {JPL Eval 17} +PHAN = GCO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +GCO3 + NO = NO2 + HO2 + CH2O : GCARR_ac(7.5d-12,290d0); {krt, MCM} +GCO3 + HO2 = 0.440HO2 + 0.440CH2O + + 0.440OH + 0.560HACTA + 0.150O3 + 0.440CO2 : GCARR_ac(5.2d-13,980d0); {krt,MCM} +GCO3 + NO3 = CH2O + HO2 + NO2 : 4.0d-12; +PHAN + OH = CH2O + CO + NO2 : 1.12d-12; {krt, MCM} +HACTA + OH = CH2O + HO2 : 2.73d-12; {krt, MCM} +// PRPE + NO3 = PRN1 : GCARR_ac(4.59d-13, -1156.0d0); GLYX + OH = HO2 + 2.000CO : GCARR_ac(3.10d-12, 340.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} MGLY + OH = MCO3 + CO : GCARR_ac(1.90d-12, 575.0d0); {2023/04/18; Atkinson2006; KHB} @@ -620,6 +763,8 @@ RA3P + OH = 0.640OH + 0.360A3O2 + RB3P + OH = 0.791OH + 0.209B3O2 + 0.791ACET : GCARR_ac(8.78d-12, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} R4P + OH = 0.790OH + 0.210R4O2 + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE; 2023/04/18; Bates2023; KHB} +ALK4P + OH = 0.790OH + 0.210ALK4O2 + + 1.185RCHO : GCARR_ac(8.78d-12, 200.0d0); {2023/05/14; Brewer2023; JFB} RP + OH = RCO3 : GCARR_ac(6.13d-13, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} PP + OH = 0.791OH + 0.209PO2 + 0.791HAC : GCARR_ac(8.78d-12, 200.0d0); {2013/03/22; Paulot2009; FP,EAM,JMAO,MJE} LVOC + OH = OH : GCARR_ac(4.82d-11, -400.0d0); {2017/06/14; Marais2016; EAM} @@ -633,6 +778,10 @@ R4O2 + MCO3 = 0.271MEK + 0.100ACTA + 0.900MO2 + 0.290ACET + 0.243HO2 + 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO + 0.045A3O2 + 0.162B3O2 + 0.900CO2: GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} +ALK4O2 + MCO3 = 0.271MEK + 0.100ACTA + + 0.900MO2 + 0.290ACET + 0.243HO2 + + 0.290ALD2 + 0.290OTHRO2 + 0.255RCHO + + 0.045A3O2 + 0.162B3O2 + 0.900CO2: GCARR_ac(1.87d-12, 500.0d0); {2023/05/14; Brewer2023; JFB} ATO2 + MCO3 = 0.900MO2 + 0.900MCO3 + 0.900CH2O + 0.100MGLY + 0.100ACTA + 0.900CO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} @@ -644,6 +793,9 @@ B3O2 + MCO3 = 0.900MO2 + 0.900HO2 + R4N1 + MCO3 = 0.900MO2 + 0.100ACTA + 0.613RCHO + 0.351CH2O + 0.675ALD2 + 0.270R4O2 + 0.645CO2 + NO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} +ALK4N1 + MCO3 = 0.900MO2 + 0.100ACTA + + 0.613RCHO + 0.351CH2O + 0.675ALD2 + + 0.270R4O2 + 0.645CO2 + NO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/05/14; Brewer2023; JFB} PRN1 + MCO3 = 0.900MO2 + 0.900CH2O + 0.900CO2 + 0.900ALD2 + 0.100RCHO + 0.100ACTA + NO2 : GCARR_ac(1.87d-12, 500.0d0); {2023/04/18; Bates2023; KHB} @@ -816,7 +968,7 @@ Cl + C3H8 = HCl + B3O2 : GCARR_ac(6.54d-11, 60.0d0); Cl + C3H8 = HCl + A3O2 : GCARR_ac(8.12d-11, -90.0d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE} Cl + ACET = HCl + ATO2 : GCARR_ac(1.63d-11, -610.0d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB} Cl + ISOP = HCl + 0.5IHOO1 + 0.5IHOO4 : GCARR_ac(7.60d-11, 500.0d0); {2019/11/06; Sherwen2016b;KHB,TS,JAS,SDE} -Cl + ALK4 = HCl + R4O2 : 2.05d-10; {2017/09/22; Sherwen2016b;TS,JAS,SDE} +Cl + ALK4 = HCl + ALK4O2 : 2.05d-10; {2023/05/14; Brewer2023; JFB} Cl + PRPE {+M} = HCl + PO2 {+M} : GCJPLPR_aa(4.00d-28, 2.8d-10, 0.6d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE} Br + PRPE = HBr + PO2 : 3.60d-12; {2017/09/22; Sherwen2016b;TS,JAS,SDE} I + NO {+M} = INO {+M} : GCJPLPR_aba(1.80d-32, 1.0d0, 1.70d-11, 0.6d0); {2017/09/22; Sherwen2016b;TS,JAS,SDE; 2023/04/18; JPL 19-5; KHB} @@ -864,46 +1016,126 @@ CH3CHOO + NO2 = ALD2 + NO3 : 4.25d-12; CH3CHOO + SO2 = ALD2 + SO4 + PH2SO4 : 2.65d-11; {2015/09/25; Millet2015; DBM,EAM; 2023/04/18; JPL 19-5; KHB} CH3CHOO + H2O = ALD2 + H2O2 : 6.00d-18; {2015/09/25; Millet2015; DBM,EAM} CH3CHOO + H2O = ACTA : 1.00d-17; {2015/09/25; Millet2015; DBM,EAM} -MTPA + OH = PIO2 : GCARR_ac(1.21d-11, 440.0d0); {2017/03/23; IUPAC2010; EVF} -MTPO + OH = PIO2 : GCARR_ac(1.21d-11, 440.0d0); {2017/03/23; IUPAC2010; EVF} -PIO2 + NO = 0.820HO2 + 0.820NO2 + - 0.230CH2O + 0.430RCHO + 0.110ACET + - 0.440MEK + 0.070HCOOH + 0.120MONITS + - 0.060MONITU : 4.00d-12; {2017/07/14; Browne2014; KRT,JAF,CCM,EAM,KHB,RHS} -PIO2 + HO2 = PIP : 1.50d-11; {2017/03/23; Roberts1992; EVF} -PIO2 + MO2 = HO2 + 0.750CH2O + 0.250MOH + - 0.250ROH + 0.750RCHO + 0.750MEK : GCARR_ac(3.56d-14, 708.0d0); {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -PIO2 + MCO3 = 0.500HO2 + 0.500MO2 + CO2 + - RCHO + 1.125MEK + RCOOH : GCARR_ac(7.40d-13, 765.0d0); {2017/03/23; Roberts1992; EVF; 2022/07/01; 2023/04/18; Bates2023; KHB} -PIO2 + NO3 = HO2 + NO2 + RCHO + MEK : 1.20d-12; {2017/03/23; Roberts1992; EVF} -MTPA + O3 = 0.850OH + 0.100HO2 + - 0.620KO2 + 0.140CO + 0.020H2O2 + - 0.650RCHO + 0.530MEK : GCARR_ac(5.00d-16, -530.0d0); {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} -MTPO + O3 = 0.850OH + 0.100HO2 + - 0.620KO2 + 0.140CO + 0.020H2O2 + - 0.650RCHO + 0.530MEK : GCARR_ac(5.00d-16, -530.0d0); {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} +// Updated Monoterpene chemistry MTPA + NO3 = 0.100OLNN + 0.900OLND : GCARR_ac(8.33d-13, 490.0d0); {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS} MTPO + NO3 = 0.100OLNN + 0.900OLND : GCARR_ac(8.33d-13, 490.0d0); {2017/07/14; Fisher2016; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO + OH = LIMO2 : GCARR_ac(4.20d-11, 401.0d0); {2017/07/14; Gill2002; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO + O3 = 0.850OH + 0.100HO2 + - 0.160OTHRO2 + 0.420KO2 + 0.020H2O2 + - 0.140CO + 0.460PRPE + 0.040CH2O + - 0.790MACR + 0.010HCOOH + 0.070RCOOH : GCARR_ac(2.95d-15, -783.0d0); {2017/07/14; Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} LIMO + NO3 = 0.500OLNN + 0.500OLND : 1.22d-11; {2017/07/14; Fry2014,Atkinson2003; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + NO = 0.686HO2 + 0.780NO2 + - 0.220MONITU + 0.289PRPE + 0.231CH2O + - 0.491RCHO + 0.058HAC + 0.289MEK : 4.00d-12; {2017/07/14; Browne2014,Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + HO2 = PIP : 1.50d-11; {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + MO2 = HO2 + 0.192PRPE + - 1.040CH2O + 0.308MACR + 0.250MOH + - 0.250ROH : GCARR_ac(3.56d-14, 708.0d0); {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + MCO3 = 0.500HO2 + 0.500MO2 + - 0.192PRPE + 0.385CH2O + 0.308MACR + - 0.500RCOOH : GCARR_ac(7.40d-13, 765.0d0); {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -LIMO2 + NO3 = HO2 + NO2 + 0.385PRPE + - 0.385CH2O + 0.615MACR : 1.20d-12; {2017/07/14; Roberts1992; KRT,JAF,CCM,EAM,KHB,RHS} -PIP + OH = 0.490OH + 0.440R4O2 + - 0.080RCHO + 0.410MEK : GCARR_ac(3.40d-12, 190.0d0); {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS} +LIMO + OH = LIMO2 : GCARR_ac(4.20d-11, 401.0d0); +LIMO + O3 = 0.865OH + 0.15CO + 0.15AROMRO2 + + 0.27LIMAL + 0.715LIMO3 : GCARR_ac(2.95d-15, -783.0d0); +MTPO + OH = 0.15APINO2 + 0.15BPINO2 + + 0.2LIMO2 + 0.5PIO2 : GCARR_ac(1.21d-11, 440.0d0); +MTPO + O3 = 0.5ACET + 0.8OH + 0.1CH2O + + 0.5MEK + 0.15MVK + 0.4MYRCO + 0.5AROMRO2 + + 0.05HO2 + 0.3KO2 + 0.3RCHO : GCARR_ac(2.7d-15, -520.0d0); +MTPA + OH = 0.075LIMO2 + 0.67APINO2 + + 0.255BPINO2 : GCARR_ac(1.34d-11, 410.0d0); +MTPA + O3 = 0.65OH + 0.5APINO2 + + 0.1BPINOO2 + 0.2BPINO + 0.2PINAL + + 0.1CH2OO + 0.1CO + 0.1CH2O : GCARR_ac(8.22d-16, -640.0d0); +APINO2 + HO2 = APINP : GCARR_ac(2.66d-13, 1300.0d0); +APINO2 + NO = 0.25APINN + 0.75PINAL + + 0.75NO2 + 0.75HO2 : GCARR_ac(2.7d-12, 360.0d0); +APINO2 + NO3 = PINAL + NO2 + HO2 : 2.3d-12 ; +APINP + OH = 0.4PINO3 + 0.6APINO2 : 1.83d-11 ; +APINN + OH = 0.5PINAL + 0.5NO2 + 0.5HO2 + + 0.5C96N + 0.5CH2O + 0.5AROMRO2 : 5.50d-12 ; +PINAL + NO3 = HNO3 + PINO3 : 2.0d-14 ; +PINAL + OH = PINO3 : GCARR_ac(5.2d-12, 600.0d0); +PINO3 + HO2 = 0.44OH + 0.15O3 + 0.44C96O2 + + 0.41PINO3H + 0.15PINONIC : GCARR_ac(2.66d-13, 1300.0d0); +PINO3 + NO = NO2 + CO2 + C96O2 : GCARR_ac(2.7d-12, 360.0d0); +PINO3 + NO2 = PINPAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); +PINPAN = PINO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +PINO3 + NO3 = NO2 + CO2 + C96O2 : 2.3d-12 ; +PINO3H + OH = PINO3 : 9.73d-12 ; +PINONIC + OH = CO2 + C96O2 : 6.65d-12 ; +C96O2 + HO2 = C96O2H : GCARR_ac(2.66d-13, 1300.0d0); +C96O2 + NO = 0.16C96N + 0.84NO2 + + 0.84AROMRO2 + 0.84ACET + 0.84CH2O + + 0.84RCO3 + 0.42MEK : GCARR_ac(2.7d-12, 360.0d0); +C96O2 + NO3 = NO2 + AROMRO2 + ACET + CH2O + + RCO3 + 0.5MEK : 2.3d-12 ; +C96O2 + MO2 = HO2 + 0.75CH2O + 0.25MOH + + 0.25C96O2H + 0.75AROMRO2 + 0.75ACET + + 0.75CH2O + 0.75RCO3 + 0.375MEK : GCARR_ac(3.75d-13, 500.0d0); +C96O2H + OH = 0.5C96O2 + 0.5AROMRO2 + + 0.5ACET + 0.5CH2O + 0.5RCO3 + 0.25MEK : 2.6d-11 ; +C96N + OH = 0.5NO2 + 0.5MONITS + + 0.55AROMRO2 + 0.4ACET + 0.4CH2O + 0.4RCO3 + + 0.3MEK : 2.88d-12 ; +BPINO2 + HO2 = BPINP : GCARR_ac(2.66d-13, 1300.0d0); +BPINO2 + NO = 0.25BPINN + 0.75CH2O + + 0.75NO2 + 0.75HO2 + 0.75BPINO : GCARR_ac(2.7d-12, 360.0d0); +BPINO2 + NO3 = CH2O + NO2 + HO2 + BPINO : 2.3d-12 ; +BPINN + OH = 0.5BPINON + 0.5AROMRO2 + CH2O + + 0.5NO2 + 0.5HO2 + 0.5BPINO : 4.7d-12 ; +BPINP + OH = BPINO2 : 1.33d-11 ; +BPINO + OH = BPINOO2 : 1.55d-11 ; +BPINOO2 + HO2 = BPINOOH : GCARR_ac(2.66d-13, 1300.0d0); +BPINOO2 + NO = BPINON : GCARR_ac(4.32d-13, 360.0d0); +BPINOO2 + NO = NO2 + HO2 + 0.27LIMO3 + + 0.6ACET + 0.6RCHO + 0.6R4O2 : GCARR_ac(2.27d-12, 360.0d0); +BPINOO2 + MO2 = HO2 + 0.23LIMO3 + 0.4ACET + + 0.4RCHO + 0.4R4O2 + 0.75CH2O + 0.25MOH + + 0.25BPINOOH : GCARR_ac(3.75d-13, 500.0d0); +BPINOO2 + NO3 = NO2 + HO2 + 0.27LIMO3 + + 0.6ACET + 0.6RCHO + 0.6R4O2 : 2.3d-12 ; +BPINOOH + OH = BPINOO2 : 8.59d-11 ; +BPINON + OH = 0.5MONITS + 0.5NO2 + + 0.085LIMO3 + 0.3ACET + 0.3RCHO + 0.3R4O2 : 3.24d-12 ; +LIMO2 + HO2 = 0.37LIMKET + 0.63LIMAL : GCARR_ac(2.66d-13, 1300.0d0); +LIMO2 + NO = 0.25LIMN + 0.75NO2 + 0.75HO2 + 0.28LIMKET + 0.47LIMAL : GCARR_ac(2.7d-12, 360.0d0); +LIMO2 + NO3 = NO2 + HO2 + 0.37LIMKET + 0.63LIMAL : 2.3d-12 ; +LIMAL + OH = LIMO3 : 1.1d-10 ; +LIMAL + O3 = 0.3LIMKB + 0.33CH2OO + 0.67CH2O + 0.6LIMO3 + 0.6OH : 8.3d-18 ; +LIMAL + NO3 = AROMRO2 + LIMNB : 2.6d-13 ; +LIMKET + OH = LIMKO2 : 9.97d-11 ; +LIMKET + O3 = 0.27LIMKO2 + 0.865OH + 0.73LIMO3 : 1.5d-16 ; +LIMKET + NO3 = LIMNB + AROMRO2 : 9.4d-12 ; +LIMN + OH = 0.5LIMNB + 0.32LIMO3 + 0.18LIMKO2 + 0.5NO2 : 1.1d-10 ; +LIMN + O3 = CH2O + 0.5NO2 + 0.4LIMO3 + 0.5LIMNB : 8.3d-18 ; +LIMN + NO3 = NO2 + LIMNB + AROMRO2 : 2.6d-13 ; +LIMKO2 + NO = 0.16LIMNB + 0.84NO2 + 0.84LIMKB + 0.84HO2 : GCARR_ac(2.7d-12, 360.0d0); +LIMKO2 + HO2 = LIMO3H : GCARR_ac(2.66d-13, 1300.0d0); +LIMKO2 + NO3 = NO2 + LIMKB + HO2 : 2.3d-12 ; +LIMKO2 + MO2 = 0.75LIMKB + 0.25LIMO3H + 0.75CH2O + 0.25MOH + HO2 : GCARR_ac(3.75d-13, 500.0d0); +LIMKB + OH = LIMO3 : 3.6d-11 ; +LIMKB + NO3 = NO2 + LIMO3 : GCARR_ac(1.22d-11, -1862.0d0); +LIMNB + OH = 0.5MONITS + 0.5NO2 + 0.5LIMO3 : 6.3d-12 ; +LIMO3 + HO2 = 0.44OH + 0.15O3 + 0.44CO2 + 0.44MCO3 + 0.44RCHO + 0.176CH2O + 0.352R4O2 + 0.41LIMO3H + 0.15LIMO2H : GCARR_ac(2.66d-13, 1300.0d0); +LIMO3 + NO = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(2.7d-12, 360.0d0); +LIMO3 + NO2 = LIMPAN : GCJPLPR_abab(9.70d-29, 5.6d+00, 9.3d-12, 1.5d0, 0.6d0); +LIMPAN = LIMO3 + NO2 : GCJPLEQ_acabab(9.30d-29, 14000.0d0, 9.7d-29, 5.6d0, 9.3d-12, 1.5d0, 0.6d0); +LIMO3 + NO3 = NO2 + CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 2.3d-12 ; +LIMO3H + OH = LIMO3 : 9.73d-12 ; +LIMO2H + OH = CO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : 6.65d-12 ; +PIO2 + HO2 = PIP : GCARR_ac(2.66d-13, 1300.0d0); +PIO2 + NO = PIN : GCARR_ac(6.75d-13, 360.0d0); +PIO2 + NO = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : GCARR_ac(2.03d-12, 360.0d0); +PIO2 + NO3 = NO2 + HO2 + 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO : 2.3d-12 ; +PIP + OH = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(6.05d-12, 440.0d0); +PIP + O3 = 0.3OH + 0.7AROMRO2 + 0.3MVK + 0.3ACET + 0.1CH2O + 0.78MYRCO : GCARR_ac(1.35d-15, -520.0d0); +PIP + NO3 = 0.5OLNN + 0.5NO2 + 0.15OH + 0.35AROMRO2 + 0.15MVK + 0.15ACET + 0.05CH2O + 0.39MYRCO : GCARR_ac(1.06d-12, 490.0d0); +PIN + OH = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(6.05d-12, 440.0d0); +PIN + O3 = 0.7AROMRO2 + 0.7MONITU + 0.3NO2 + 0.3MYRCO : GCARR_ac(1.35d-15, -520.0d0); +PIN + NO3 = 0.5OLNN + 1.15NO2 + 0.35AROMRO2 + 0.35MONITU + 0.15MYRCO : GCARR_ac(1.06d-12, 490.0d0); +MYRCO + OH = HO2 + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(6.05d-12, 440.0d0); +MYRCO + O3 = OH + AROMRO2 + 1.5CH2O + MEK + 0.5ACET + 0.5MVK + 0.5GLYC : GCARR_ac(1.35d-15, -520.0d0); +MYRCO + NO3 = 0.5OLNN + 0.5NO2 + 0.5HO2 + 0.5AROMRO2 + 0.75CH2O + 0.5MEK + 0.25ACET + 0.25MVK + 0.25GLYC: GCARR_ac(1.06d-12, 490.0d0); +APINO2 + MO2 = PINAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0); +APINO2 + MCO3 = PINAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +BPINO2 + MO2 = 1.75HO2 + 0.25MOH + 1.75CH2O + BPINO : GCARR_ac(3.75d-13, 500.0d0); +BPINO2 + MCO3 = BPINO + CH2O + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +LIMO2 + MO2 = 0.37LIMKET + 0.63LIMAL + 1.75HO2 + 0.25MOH + 0.75CH2O : GCARR_ac(3.75d-13, 500.0d0); +LIMO2 + MCO3 = 0.37LIMKET + 0.63LIMAL + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +PIO2 + MO2 = 0.45MVK + 0.45ACET + 0.675MYRCO + 1.75HO2 + 0.25MOH + 0.85CH2O : GCARR_ac(3.75d-13, 500.0d0); +PIO2 + MCO3 = 0.45MVK + 0.45ACET + 0.1CH2O + 0.675MYRCO + HO2 + 0.1ACTA + 0.9CO2 + 0.9MO2 : GCARR_ac(1.87d-12, 500.0d0); +PINO3 + MO2 = CH2O + 0.75HO2 + 0.25PINONIC + 0.75C96O2 + 0.75CO2 : GCARR_ac(1.87d-12, 500.0d0); +PINO3 + MCO3 = C96O2 + 2CO2 + MO2 : GCARR_ac(3.75d-14, 500.0d0); +LIMO3 + MO2 = 0.75HO2 + CH2O + 0.75CO2 + 0.75MCO3 + 0.75RCHO + 0.3CH2O + 0.6R4O2 + 0.25LIMO2H : GCARR_ac(1.87d-12, 500.0d0); +LIMO3 + MCO3 = CO2 + MO2 + MCO3 + RCHO + 0.4CH2O + 0.8R4O2 : GCARR_ac(3.75d-14, 500.0d0); +// OLNN + NO = HO2 + NO2 + MONITS : 4.00d-12; {2017/07/14; Browne2014,Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS} OLND + NO = 2.000NO2 + 0.287CH2O + 1.240RCHO + 0.464MEK : 4.00d-12; {2017/07/14; Goliff2013; KRT,JAF,CCM,EAM,KHB,RHS} @@ -1314,6 +1546,34 @@ NAP + OH = NRO2 + OH : GCARR_ac(1.56d-11, 117.0d0); NRO2 + HO2 = LNRO2H + HO2 : GCARR_ac(1.40d-12, 700.0d0); {2013/08/12; Pye2010; HOTP} NRO2 + NO = LNRO2N + NO : GCARR_ac(2.60d-12, 350.0d0); {2013/08/12; Pye2010; HOTP} // +// --- RCOOH chemistry (KRT) +RCOOH + OH = ETO2 + CO2 + H2O : 1.20d-12; {2024/08/20; Travis2024; KRT} +// +// ----- STYR/EBZ/TMB chemistry (Bates et al., 2021) +STYR + OH = 0.300ZRO2 + 0.700AROMRO2 + + 0.700HO2 + CH2O + 0.700BALD : 5.8d-11; {krt, Bates et al., 2021} +STYR + NO3 = AROMRO2 + NO2 + CH2O + BALD : 1.5d-12; {krt, Bates et al., 2021} +STYR + O3 = 0.500CH2OO + 0.500CH2O + + 0.620BALD + 0.100BENZ + 0.280BENZO2 + + 0.180CO + 0.180OH + 0.100HO2 : 1.7d-17; {krt, Bates et al., 2021} +EBZ + OH = 0.813AROMRO2 + 0.250CH2O + + 0.070ZRO2 + 0.180CSL + 0.400ALD2 + + 0.400AROMP5 + 0.800AROMP4 + 0.1800HO2 : 7.0d-12; {krt, Bates et al., 2021} +EBZ + NO3 = AROMRO2 + HNO3 + CH2O + BALD : 1.2d-16; {krt, Bates et al., 2021} +TMB + OH = 0.930AROMRO2 + 0.120CH2O + + 0.050ZRO2 + 0.030CSL + 0.600AROMP5 + + 0.375AROMP4 + 0.250MGLY + 0.100GLYX + + 0.500RCOOH + 0.120CO + 0.030HO2 + + 0.150TLFUONE : 3.92d-11; {krt, Bates et al., 2021} +TMB + NO3 = AROMRO2 + HNO3 + + 0.400AROMP5 + BALD : 1.4d-15; {krt, Bates et al., 2021} +// +// ------ Lumped aromatic nitrate ---- +ZRO2 + NO = 0.110RNO3 + 0.890BALD + + 0.890NO2 + HO2 : GCARR_ac(2.7d-12,360.0d0);{MCM} +ZRO2 + HO2 = BALD + OH : GCARR_ac(1.5d-13,1310.0d0);{MCM} +RNO3 + OH = BALD + NO2 + HO2 : 7.16d-11;{MCM} +// // --- C2H2 & C2H4 chemistry (per KHB) C2H4 + O3 = CH2O + CH2OO : GCARR_ac(1.20d-14, -2630.0d0); {2021/09/22; Kwon2020; KHB,MSL; 2023/04/18; JPL 19-5; KHB} C2H4 + OH = ETOO : GCJPLPR_abab(1.10d-28, 3.5d+00, 8.4d-12, 1.75d0, 0.5d0); {2021/09/22; Kwon2020; KHB,MSL} @@ -1348,6 +1608,18 @@ AROMRO2 + NO = NO2 + HO2 : GCARR_ac(2.60d-12, 365.0d0); AROMRO2 + NO3 = NO2 + HO2 : 2.30d-12; {2021/09/29; Bates2021b; KHB,MSL} AROMRO2 + MO2 = CH2O + HO2 + HO2 : GCARR_ac(1.70d-14, 220.0d0); {2021/09/29; Bates2021b; KHB,MSL} AROMRO2 + MCO3 = MO2 + HO2 + CO2 : GCARR_ac(4.20d-14, 220.0d0); {2021/09/29; Bates2021b; KHB,MSL; 2022/07/01; fix C accounting; KHB} +//-----Lumped aromatic PN------ +TLFUONE + OH = TLFUO2 : 6.9d-11; +TLFUO2 + NO = NO2 + AROMCHO + HO2 : GCARR_abc(2.7d-12,0.0d0,360.0d0); +TLFUO2 + HO2 = AROMCHO : GCARR_abc(2.05d-13,0.0d0,1300.0d0); +AROMCHO + OH = AROMCO3 : 7.09E-11; +AROMCO3 + NO = NO2 + RCO3 + 2CO2 : GCARR_abc(7.50d-12,0.0d0,290.0d0); +AROMCO3 + HO2 = 0.15O3 + 0.15RCOOH + + 0.44CO2 + 0.44OH + 0.44RCO3+ 0.41RP : GCARR_abc(5.20d-13,0.0d0,980.0d0); +AROMCO3 + NO2 {+M} = AROMPN : GC_PAN_acac(3.28d-28, -6.87d0, 1.125d-11, -1.105d0, 0.3d0); {Same as BZPAN} +AROMPN = AROMCO3 + NO2 : GC_PAN_abab(1.10d-5, -10100.0d0, 1.90d+17, -14100.0d0, 0.3d0)*0.67d0; {Same as BZPAN} +AROMPN + OH = 2CO + NO2 + MCO3 + CH2O : 1.0d-14; {MCM for ACCOMEPAN} +//------ PHEN + OH = 0.06BENZO + 0.06GLYX + 0.18AROMP4 + 0.14AROMRO2 + 0.8MCT + 0.8HO2 : GCARR_ac(4.70d-13, 1220.0d0); {2021/09/29; Bates2021b; KHB,MSL} @@ -1394,8 +1666,8 @@ AROMP5 + OH = 0.6MGLY + 0.15ACTA + 0.33RCO3 + 0.25CO + 0.52RCOOH : 5.0d-11; {2021/09/29; Bates2021b; KHB,MSL} AROMP5 + O3 = 0.6MGLY + 0.3ACTA + 0.2HCOOH + 0.5CO + 0.95GLYC + 0.1HO2 + 0.1OH : 8.0d-16; {2021/09/29; Bates2021b; KHB,MSL} -AROMP5 = 0.2HO2 + 0.2R4O2 + - 0.2MGLY + 1.15RCHO + 0.05CO : 1.5d-3; {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB} +AROMP5 = 0.2HO2 + 0.2ALK4O2 + + 0.2MGLY + 1.15RCHO + 0.05CO : 1.5d-3; {2021/09/29; Bates2021b; KHB,MSL; 2023/04/18; Bates2023; KHB},{2023/05/14; Brewer2023; JFB} // // KHB -- "we still need to include the dummy species for aromatic oxidation // to make the complex SOA code work. Hopefully this will be changed @@ -1545,6 +1817,10 @@ ALD2 + hv = 0.880MO2 + HO2 + 0.880CO + ALD2 + hv = CH4 + CO : PHOTOL(62); PAN + hv = 0.700MCO3 + 0.700NO2 + 0.300MO2 + 0.300NO3 + 0.300CO2 : PHOTOL(59); {2014/05/23; Eastham2014; JMAO,SDE; 2023/04/18; Bates2023; KHB} +APAN + hv = ACO3 + NO2 : PHOTOL(59); {2014/05/23; Eastham2014; JMAO,SDE} +ACR + hv = 0.700CO + 0.300HO2 + + 0.300CH2O + 0.400C2H4 + 0.300ACO3 : PHOTOL(66); +AROMCHO + hv = HO2 + CO + MCO3 + CH2O : PHOTOL(70); {2019/05/10; Fisher2018; JAF} RCHO + hv = 0.490OTHRO2 + HO2 + CO + 0.070A3O2 + 0.270B3O2 : PHOTOL(70); {2019/05/10; Fisher2018; JAF; 2023/04/18; Bates2023; KHB} ACET + hv = MCO3 + MO2 : PHOTOL(76); @@ -1568,12 +1844,21 @@ ETP + hv = OH + HO2 + ALD2 : PHOTOL(80); RA3P + hv = OH + HO2 + RCHO : PHOTOL(81); RB3P + hv = OH + HO2 + ACET : PHOTOL(82); R4P + hv = OH + HO2 + 1.500RCHO : PHOTOL(83); {2023/04/18; Bates2023; KHB} +R7P + hv = OH + HO2 + RCHO : PHOTOL(83); +ALK4P + hv = OH + HO2 + 1.500RCHO : PHOTOL(83); {2023/05/14; Brewer2023; JFB} PP + hv = OH + HO2 + ALD2 + CH2O : PHOTOL(84); RP + hv = OH + HO2 + ALD2 + MO2 : PHOTOL(85); {2023/04/18; Bates2023; KHB} R4N2 + hv = NO2 + 0.340ACET + 0.190MEK + 0.190MO2 + 0.270HO2 + 0.340ALD2 + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + 0.340OTHRO2 : PHOTOL(98); {2023/04/18; Bates2023; KHB} +R7N2 + hv = NO2 + 0.348ALD2 + 1.558RCHO + + 0.326MCO3 + 0.326RCO3 + 0.326HO2 : PHOTOL(98); +RNO3 + hv = BALD + NO2 + HO2 + H2O : PHOTOL(98); +ALK4N2 + hv = NO2 + 0.340ACET + 0.190MEK + + 0.190MO2 + 0.270HO2 + 0.340ALD2 + + 0.150RCHO + 0.050A3O2 + 0.190B3O2 + + 0.340OTHRO2 : PHOTOL(98); {2023/05/14; Brewer2023; JFB} MAP + hv = OH + MO2 + CO2 : PHOTOL(99); {2023/04/18; Bates2023; KHB} Br2 + hv = 2.000Br : PHOTOL(23); {2012/06/07; Parrella2012; JPP} BrO + hv = Br + O : PHOTOL(28); {2014/02/03; Eastham2014; SDE} @@ -1726,3 +2011,21 @@ BZCO3H + hv = BENZO2 + OH + CO2 : PHOTOL(164); {2021/09/29; Bates2 BENZP + hv = BENZO : PHOTOL(165); {2021/09/29; Bates2021b; KHB,MSL} NPHEN + hv = HNO2 + CO + CO2 + AROMP4 + HO2 : PHOTOL(166); {2021/09/29; Bates2021b; KHB,MSL} +PPN + hv = 0.700RCO3 + 0.700NO2 + + 0.300NO3 : PHOTOL(167); {2024/07/11; Horner2024, BH} +APINP + hv = PINAL + OH + HO2 : PHOTOL(168); {2024/08/20; Travis2024; KRT} +PINAL + hv = CO + HO2 + C96O2 : PHOTOL(169); {2024/08/20; Travis2024; KRT} +PINO3H + hv = OH + CO2 + C96O2 : PHOTOL(170); {2024/08/20; Travis2024; KRT} +PINONIC + hv = OH + CO2 + C96O2 : PHOTOL(171); {2024/08/20; Travis2024; KRT} +C96O2H + hv = OH + AROMRO2 + ACET + + CH2O + RCO3 + 0.5MEK : PHOTOL(172); {2024/08/20; Travis2024; KRT} +BPINP + hv = OH + CH2O + HO2 + BPINO : PHOTOL(173); {2024/08/20; Travis2024; KRT} +BPINOOH + hv = OH + HO2 + 0.27LIMO3 + + 0.6ACET + 0.6RCHO + 0.6R4O2 : PHOTOL(174); {2024/08/20; Travis2024; KRT} +LIMO3H + hv = OH + CO2 + MCO3 + RCHO + + 0.4CH2O + 0.8R4O2 : PHOTOL(175); {2024/08/20; Travis2024; KRT} +LIMO2H + hv = OH + CO2 + MCO3 + RCHO + + 0.4CH2O + 0.8R4O2 : PHOTOL(176); {2024/08/20; Travis2024; KRT} +PIP + hv = OH + HO2 + 0.450MVK + 0.45ACET + + 0.100CH2O + 0.675MYRCO : PHOTOL(105); {2024/08/20; Travis2024; KRT} +LIMAL + hv = CO + HO2 + 0.900LIMO3 : PHOTOL(177); {2024/08/20; Travis2024; KRT} diff --git a/KPP/fullchem/fullchem.kpp b/KPP/fullchem/fullchem.kpp index 300070eb6..2dfdfae77 100644 --- a/KPP/fullchem/fullchem.kpp +++ b/KPP/fullchem/fullchem.kpp @@ -11,8 +11,8 @@ #INCLUDE fullchem.eqn { Chemical reactions for fullchem mechanism } #FAMILIES { Chemical families for prod/loss diagnostic } -POx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + PRN1 + PRPN + R4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs; -LOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + PRN1 + PRPN + R4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs; +POx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + ALK4N2 + PRN1 + PRPN + R4N1 + ALK4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs; +LOx : O3 + NO2 + 2NO3 + PAN + PPN + MPAN + HNO4 + 3N2O5 + HNO3 + BrO + HOBr + BrNO2 + 2BrNO3 + MPN + ETHLN + MVKN + MCRHN + MCRHNB + PROPNN + R4N2 + ALK4N2 + PRN1 + PRPN + R4N1 + ALK4N1 + HONIT + MONITS + MONITU + OLND + OLNN + IHN1 + IHN2 + IHN3 + IHN4 + INPB + INPD + ICN + 2IDN + ITCN + ITHN + ISOPNOO1 + ISOPNOO2 + INO2B + INO2D + INA + IDHNBOO + IDHNDOO1 + IDHNDOO2 + IHPNBOO + IHPNDOO + ICNOO + 2IDNOO + MACRNO2 + ClO + HOCl + ClNO2 + 2ClNO3 + 2Cl2O2 + 2OClO + O + O1D + IO + HOI + IONO + 2IONO2 + 2OIO + 2I2O2 + 3I2O3 + 4I2O4 + NIT + NITs; PCO : CO; LCO : CO; PSO4 : SO4; diff --git a/KPP/fullchem/gckpp_Function.F90 b/KPP/fullchem/gckpp_Function.F90 index 862ad4cd1..c8cd78dc8 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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,1736 +63,2091 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) ! Computation of equation rates - A(1) = RCT(1)*V(147)*V(276)*V(282) - A(2) = RCT(2)*V(147)*V(275) - A(3) = RCT(3)*V(147)*V(265) - A(4) = RCT(4)*V(138)*V(276)*V(282) - A(5) = RCT(5)*V(138)*V(275) - A(6) = RCT(6)*V(138)*V(265) - A(7) = RCT(7)*V(212)*V(276) - A(8) = RCT(8)*V(276)*V(282) - A(9) = RCT(9)*V(276) - A(10) = RCT(10)*V(263)*V(276) - A(11) = RCT(11)*V(86) - A(12) = RCT(12)*V(86)*V(276)*V(286) - A(13) = RCT(13)*V(279)*V(282) - A(14) = RCT(14)*V(282)*V(286) - A(15) = RCT(15)*V(282)*V(284) - A(16) = RCT(16)*V(282)*V(291) - A(17) = RCT(17)*V(266)*V(282) - A(18) = RCT(18)*V(286)*V(286) - A(19) = RCT(19)*V(286)*V(286) - A(20) = RCT(20)*V(284)*V(286) - A(21) = RCT(21)*V(212)*V(286) - A(22) = RCT(22)*V(279)*V(284) - A(23) = RCT(23)*V(284)*V(284) - A(24) = RCT(24)*V(267)*V(286) - A(25) = RCT(25)*V(190)*V(286) - A(26) = RCT(26)*V(266)*V(279) - A(27) = RCT(27)*V(266)*V(279) - A(28) = RCT(28)*V(266)*V(284) - A(29) = RCT(29)*V(266)*V(266) - A(30) = RCT(30)*V(266)*V(266) - A(31) = RCT(31)*V(266)*V(286) - A(32) = RCT(32)*V(137)*V(286) - A(33) = RCT(33)*V(196)*V(286) - A(34) = RCT(34)*V(263)*V(286) - A(35) = RCT(35)*V(286)*V(291) - A(36) = RCT(36)*V(265)*V(286) - A(37) = RCT(37)*V(279)*V(286) - A(38) = RCT(38)*V(193)*V(286) - A(39) = RCT(39)*V(284)*V(291) - A(40) = RCT(40)*V(102) - A(41) = RCT(41)*V(102)*V(286) - A(42) = RCT(42)*V(281)*V(284) - A(43) = RCT(43)*V(279)*V(281) - A(44) = RCT(44)*V(281)*V(286) - A(45) = RCT(45)*V(281)*V(291) - A(46) = RCT(46)*V(173) - A(47) = RCT(47)*V(211)*V(286) - A(48) = RCT(48)*V(218)*V(286) - A(49) = RCT(49)*V(281)*V(291) - A(50) = RCT(50)*V(263)*V(281) - A(51) = RCT(51)*V(264)*V(286) - A(52) = RCT(52)*V(264)*V(281) - A(53) = RCT(53)*V(261)*V(291) - A(54) = RCT(54)*V(67) - A(55) = RCT(55)*V(261)*V(279) - A(56) = RCT(56)*V(161)*V(286) - A(57) = RCT(57)*V(217)*V(279) - A(58) = RCT(58)*V(217)*V(279) - A(59) = RCT(59)*V(239)*V(279) - A(60) = RCT(60)*V(124)*V(286) - A(61) = RCT(61)*V(124)*V(286) - A(62) = RCT(62)*V(237)*V(279) - A(63) = RCT(63)*V(237)*V(279) - A(64) = RCT(64)*V(209)*V(279) - A(65) = RCT(65)*V(114)*V(286) - A(66) = RCT(66)*V(256)*V(279) - A(67) = RCT(67)*V(256)*V(279) - A(68) = RCT(68)*V(257)*V(279) - A(69) = RCT(69)*V(252)*V(279) - A(70) = RCT(70)*V(254)*V(279) - A(71) = RCT(71)*V(258)*V(279) - A(72) = RCT(72)*V(258)*V(279) - A(73) = RCT(73)*V(201)*V(279) - A(74) = RCT(74)*V(114)*V(281) - A(75) = RCT(75)*V(202)*V(286) - A(76) = RCT(76)*V(219)*V(286) - A(77) = RCT(77)*V(259)*V(286) - A(78) = RCT(78)*V(255)*V(291) - A(79) = RCT(79)*V(50) - A(80) = RCT(80)*V(255)*V(279) - A(81) = RCT(81)*V(259)*V(281) - A(82) = RCT(82)*V(221)*V(286) - A(83) = RCT(83)*V(237)*V(266) - A(84) = RCT(84)*V(209)*V(266) - A(85) = RCT(85)*V(256)*V(284) - A(86) = RCT(86)*V(257)*V(284) - A(87) = RCT(87)*V(252)*V(284) - A(88) = RCT(88)*V(254)*V(284) - A(89) = RCT(89)*V(258)*V(284) - A(90) = RCT(90)*V(201)*V(284) - A(91) = RCT(91)*V(226)*V(286) - A(92) = RCT(92)*V(217)*V(266) - A(93) = RCT(93)*V(239)*V(266) - A(94) = RCT(94)*V(226)*V(281) - A(95) = RCT(95)*V(256)*V(266) - A(96) = RCT(96)*V(257)*V(266) - A(97) = RCT(97)*V(252)*V(266) - A(98) = RCT(98)*V(254)*V(266) - A(99) = RCT(99)*V(258)*V(266) - A(100) = RCT(100)*V(201)*V(266) - A(101) = RCT(101)*V(133)*V(286) - A(102) = RCT(102)*V(158)*V(286) - A(103) = RCT(103)*V(217)*V(217) - A(104) = RCT(104)*V(239)*V(239) - A(105) = RCT(105)*V(217)*V(284) - A(106) = RCT(106)*V(239)*V(284) - A(107) = RCT(107)*V(237)*V(284) - A(108) = RCT(108)*V(209)*V(284) - A(109) = RCT(109)*V(255)*V(284) - A(110) = RCT(110)*V(253)*V(286) - A(111) = RCT(111)*V(253)*V(282) - A(112) = RCT(112)*V(236)*V(286) - A(113) = RCT(113)*V(236)*V(286) - A(114) = RCT(114)*V(253)*V(281) - A(115) = RCT(115)*V(223)*V(286) - A(116) = RCT(116)*V(233)*V(286) - A(117) = RCT(117)*V(223)*V(281) - A(118) = RCT(118)*V(233)*V(281) - A(119) = RCT(119)*V(250)*V(286) - A(120) = RCT(120)*V(250)*V(286) - A(121) = RCT(121)*V(113)*V(286) - A(122) = RCT(122)*V(110)*V(286) - A(123) = RCT(123)*V(94)*V(286) - A(124) = RCT(124)*V(95)*V(286) - A(125) = RCT(125)*V(93)*V(286) - A(126) = RCT(126)*V(106)*V(286) - A(127) = RCT(127)*V(112)*V(286) - A(128) = RCT(128)*V(24)*V(286) - A(129) = RCT(129)*V(88)*V(286) - A(130) = RCT(130)*V(161)*V(281) - A(131) = RCT(131)*V(261)*V(261) - A(132) = RCT(132)*V(261)*V(266) - A(133) = RCT(133)*V(256)*V(261) - A(134) = RCT(134)*V(252)*V(261) - A(135) = RCT(135)*V(254)*V(261) - A(136) = RCT(136)*V(258)*V(261) - A(137) = RCT(137)*V(257)*V(261) - A(138) = RCT(138)*V(201)*V(261) - A(139) = RCT(139)*V(217)*V(261) - A(140) = RCT(140)*V(239)*V(261) - A(141) = RCT(141)*V(209)*V(261) - A(142) = RCT(142)*V(237)*V(261) - A(143) = RCT(143)*V(255)*V(261) - A(144) = RCT(144)*V(255)*V(266) - A(145) = RCT(145)*V(281)*V(281) - A(146) = RCT(146)*V(266)*V(291) - A(147) = RCT(147)*V(74) - A(148) = RCT(148)*V(90)*V(286) - A(149) = RCT(149)*V(90)*V(286) - A(150) = RCT(150)*V(90)*V(281) - A(151) = RCT(151)*V(276)*V(286) - A(152) = RCT(152)*V(273)*V(282) - A(153) = RCT(153)*V(274)*V(284) - A(154) = RCT(154)*V(273)*V(284) - A(155) = RCT(155)*V(286)*V(289) - A(156) = RCT(156)*V(274)*V(274) - A(157) = RCT(157)*V(274)*V(274) - A(158) = RCT(158)*V(274)*V(279) - A(159) = RCT(159)*V(176)*V(273) - A(160) = RCT(160)*V(128)*V(286) - A(161) = RCT(161)*V(260)*V(288) - A(162) = RCT(162)*V(288)*V(289) - A(163) = RCT(163)*V(274)*V(286) - A(164) = RCT(164)*V(273)*V(281) - A(165) = RCT(165)*V(263)*V(273) - A(166) = RCT(166)*V(264)*V(273) - A(167) = RCT(167)*V(221)*V(273) - A(168) = RCT(168)*V(161)*V(273) - A(169) = RCT(169)*V(124)*V(273) - A(170) = RCT(170)*V(273)*V(291) - A(171) = RCT(171)*V(274)*V(291) - A(172) = RCT(172)*V(77)*V(286) - A(173) = RCT(173)*V(71)*V(286) - A(174) = RCT(174)*V(100)*V(286) - A(175) = RCT(175)*V(272)*V(278) - A(176) = RCT(176)*V(272)*F(2) - A(177) = RCT(177)*V(272)*F(3) - A(178) = RCT(178)*V(272)*F(1) - A(179) = RCT(179)*V(61)*V(272) - A(180) = RCT(180)*V(190)*V(272) - A(181) = RCT(181)*V(288)*F(3) - A(182) = RCT(182)*V(282)*V(288) - A(183) = RCT(183)*V(286)*F(1) - A(184) = RCT(184)*V(286)*V(288) - A(185) = RCT(185)*V(284)*V(288) - A(186) = RCT(186)*V(272)*V(282) - A(187) = RCT(187)*V(66)*V(288) - A(188) = RCT(188)*V(66)*V(286) - A(189) = RCT(189)*V(288)*V(291) - A(190) = RCT(190)*V(281)*V(288) - A(191) = RCT(191)*V(279)*V(288) - A(192) = RCT(192)*V(288)*V(291) - A(193) = RCT(193)*V(212)*V(288) - A(194) = RCT(194)*V(177)*F(3) - A(195) = RCT(195)*V(177)*V(282) - A(196) = RCT(196)*V(177)*V(284) - A(197) = RCT(197)*V(65)*F(3) - A(198) = RCT(198)*V(65)*V(279) - A(199) = RCT(199)*V(65)*V(291) - A(200) = RCT(200)*V(274)*V(288) - A(201) = RCT(201)*V(263)*V(288) - A(202) = RCT(202)*V(272)*V(275) - A(203) = RCT(203)*V(272)*V(289) - A(204) = RCT(204)*V(197)*V(272) - A(205) = RCT(205)*V(52)*V(272) - A(206) = RCT(206)*V(149)*V(272) - A(207) = RCT(207)*V(100)*V(272) - A(208) = RCT(208)*V(71)*V(272) - A(209) = RCT(209)*V(77)*V(272) - A(210) = RCT(210)*V(84)*V(272) - A(211) = RCT(211)*V(53)*V(272) - A(212) = RCT(212)*V(54)*V(272) - A(213) = RCT(213)*V(59)*V(272) - A(214) = RCT(214)*V(47)*V(272) - A(215) = RCT(215)*V(82)*V(272) - A(216) = RCT(216)*V(83)*V(272) - A(217) = RCT(217)*V(81)*V(272) - A(218) = RCT(218)*V(55)*V(272) - A(219) = RCT(219)*V(56)*V(272) - A(220) = RCT(220)*V(57)*V(272) - A(221) = RCT(221)*V(48)*V(272) - A(222) = RCT(222)*V(197)*V(286) - A(223) = RCT(223)*V(266)*V(285) - A(224) = RCT(224)*V(285)*V(286) - A(225) = RCT(225)*V(285)*V(286) - A(226) = RCT(226)*V(111)*V(286) - A(227) = RCT(227)*V(75)*V(286) - A(228) = RCT(228)*V(275)*V(286) - A(229) = RCT(229)*V(271)*V(286) - A(230) = RCT(230)*V(235)*V(286) - A(231) = RCT(231)*V(262)*V(286) - A(232) = RCT(232)*V(149)*V(286) - A(233) = RCT(233)*V(72)*V(286) - A(234) = RCT(234)*V(78)*V(286) - A(235) = RCT(235)*V(43)*V(286) - A(236) = RCT(236)*V(84)*V(286) - A(237) = RCT(237)*V(82)*V(286) - A(238) = RCT(238)*V(83)*V(286) - A(239) = RCT(239)*V(81)*V(286) - A(240) = RCT(240)*V(190)*V(290) - A(241) = RCT(241)*V(263)*V(290) - A(242) = RCT(242)*V(282)*V(290) - A(243) = RCT(243)*V(290)*F(1) - A(244) = RCT(244)*V(212)*V(290) - A(245) = RCT(245)*V(284)*V(290) - A(246) = RCT(246)*V(284)*V(290) - A(247) = RCT(247)*V(285)*V(288) - A(248) = RCT(248)*V(284)*V(285) - A(249) = RCT(249)*V(279)*V(285) - A(250) = RCT(250)*V(285)*V(291) - A(251) = RCT(251)*V(285)*V(285) - A(252) = RCT(252)*V(285)*V(285) - A(253) = RCT(253)*V(285)*V(285) - A(254) = RCT(254)*V(290)*F(3) - A(255) = RCT(255)*V(103) - A(256) = RCT(256)*V(285)*V(285) - A(257) = RCT(257)*V(75) - A(258) = RCT(258)*V(103)*V(290) - A(259) = RCT(259)*V(274)*V(285) - A(260) = RCT(260)*V(274)*V(285) - A(261) = RCT(261)*V(274)*V(285) - A(262) = RCT(262)*V(262)*V(288) - A(263) = RCT(263)*V(262)*V(290) - A(264) = RCT(264)*V(149)*V(290) - A(265) = RCT(265)*V(72)*V(290) - A(266) = RCT(266)*V(78)*V(290) - A(267) = RCT(267)*V(211)*V(290) - A(268) = RCT(268)*V(266)*V(290) - A(269) = RCT(269)*V(137)*V(290) - A(270) = RCT(270)*V(161)*V(290) - A(271) = RCT(271)*V(217)*V(290) - A(272) = RCT(272)*V(239)*V(290) - A(273) = RCT(273)*V(218)*V(290) - A(274) = RCT(274)*V(133)*V(290) - A(275) = RCT(275)*V(219)*V(290) - A(276) = RCT(276)*V(124)*V(290) - A(277) = RCT(277)*V(124)*V(290) - A(278) = RCT(278)*V(221)*V(290) - A(279) = RCT(279)*V(224)*V(290) - A(280) = RCT(280)*V(114)*V(290) - A(281) = RCT(281)*V(253)*V(290) - A(282) = RCT(282)*V(253)*V(273) - A(283) = RCT(283)*V(269)*V(279) - A(284) = RCT(284)*V(60)*V(60) - A(285) = RCT(285)*V(269)*V(291) - A(286) = RCT(286)*V(203) - A(287) = RCT(287)*V(203)*V(203) - A(288) = RCT(288)*V(143)*V(281) - A(289) = RCT(289)*V(227)*V(291) - A(290) = RCT(290)*V(270) - A(291) = RCT(291)*V(269)*V(270) - A(292) = RCT(292)*V(269)*V(274) - A(293) = RCT(293)*V(227)*V(274) - A(294) = RCT(294)*V(92)*V(227) - A(295) = RCT(295)*V(92)*V(92) - A(296) = RCT(296)*V(42) - A(297) = RCT(297)*V(92)*V(279) - A(298) = RCT(298)*V(227)*V(285) - A(299) = RCT(299)*V(269)*V(282) - A(300) = RCT(300)*V(269)*V(284) - A(301) = RCT(301)*V(143)*V(286) - A(302) = RCT(302)*V(69)*V(286) - A(303) = RCT(303)*V(268)*V(286) - A(304) = RCT(304)*V(227)*V(284) - A(305) = RCT(305)*V(227)*V(279) - A(306) = RCT(306)*V(227)*V(227) - A(307) = RCT(307)*V(44) - A(308) = RCT(308)*V(46)*V(286) - A(309) = RCT(309)*V(208)*V(286) - A(310) = RCT(310)*V(198)*V(286) - A(311) = RCT(311)*V(234)*V(267) - A(312) = RCT(312)*V(234)*V(279) - A(313) = RCT(313)*V(234)*V(291) - A(314) = RCT(314)*V(234)*V(278) - A(315) = RCT(315)*V(234)*V(278)*V(278) - A(316) = RCT(316)*V(234)*V(282) - A(317) = RCT(317)*V(234)*V(276) - A(318) = RCT(318)*V(195)*V(267) - A(319) = RCT(319)*V(195)*V(279) - A(320) = RCT(320)*V(195)*V(291) - A(321) = RCT(321)*V(195)*V(276) - A(322) = RCT(322)*V(195)*V(278) - A(323) = RCT(323)*V(195)*V(278) - A(324) = RCT(324)*V(154)*V(286) - A(325) = RCT(325)*V(155)*V(286) - A(326) = RCT(326)*V(238)*V(279) - A(327) = RCT(327)*V(238)*V(284) - A(328) = RCT(328)*V(238)*V(266) - A(329) = RCT(329)*V(238)*V(261) - A(330) = RCT(330)*V(238)*V(281) - A(331) = RCT(331)*V(154)*V(282) - A(332) = RCT(332)*V(155)*V(282) - A(333) = RCT(333)*V(154)*V(281) - A(334) = RCT(334)*V(155)*V(281) - A(335) = RCT(335)*V(170)*V(286) - A(336) = RCT(336)*V(170)*V(282) - A(337) = RCT(337)*V(170)*V(281) - A(338) = RCT(338)*V(225)*V(279) - A(339) = RCT(339)*V(225)*V(284) - A(340) = RCT(340)*V(225)*V(266) - A(341) = RCT(341)*V(225)*V(261) - A(342) = RCT(342)*V(225)*V(281) - A(343) = RCT(343)*V(119)*V(286) - A(344) = RCT(344)*V(215)*V(279) - A(345) = RCT(345)*V(216)*V(279) - A(346) = RCT(346)*V(215)*V(284) - A(347) = RCT(347)*V(216)*V(284) - A(348) = RCT(348)*V(215)*V(266) - A(349) = RCT(349)*V(216)*V(266) - A(350) = RCT(350)*V(215)*V(261) - A(351) = RCT(351)*V(216)*V(261) - A(352) = RCT(352)*V(215)*V(281) - A(353) = RCT(353)*V(216)*V(281) - A(354) = RCT(354)*V(215)*V(215) - A(355) = RCT(355)*V(215)*V(216) - A(356) = RCT(356)*V(216)*V(216) - A(357) = RCT(357)*V(178)*V(286) - A(358) = RCT(358)*V(199)*V(286) - A(359) = RCT(359)*V(199)*V(282) - A(360) = RCT(360)*V(199)*V(281) - A(361) = RCT(361)*V(178)*V(281) - A(362) = RCT(362)*V(98) - A(363) = RCT(363)*V(45) - A(364) = RCT(364)*V(134)*V(286) - A(365) = RCT(365)*V(89)*V(286) - A(366) = RCT(366)*V(96)*V(286) - A(367) = RCT(367)*V(87)*V(286) - A(368) = RCT(368)*V(91)*V(286) - A(369) = RCT(369)*V(224)*V(282) - A(370) = RCT(370)*V(224)*V(286) - A(371) = RCT(371)*V(224)*V(286) - A(372) = RCT(372)*V(224)*V(286) - A(373) = RCT(373)*V(224)*V(286) - A(374) = RCT(374)*V(245)*V(284) - A(375) = RCT(375)*V(245)*V(284) - A(376) = RCT(376)*V(244)*V(284) - A(377) = RCT(377)*V(244)*V(284) - A(378) = RCT(378)*V(245) - A(379) = RCT(379)*V(245) - A(380) = RCT(380)*V(244) - A(381) = RCT(381)*V(244) - A(382) = RCT(382)*V(245)*V(245) - A(383) = RCT(383)*V(244)*V(244) - A(384) = RCT(384)*V(244)*V(245) - A(385) = RCT(385)*V(245)*V(245) - A(386) = RCT(386)*V(244)*V(244) - A(387) = RCT(387)*V(244)*V(245) - A(388) = RCT(388)*V(245)*V(266) - A(389) = RCT(389)*V(245)*V(266) - A(390) = RCT(390)*V(244)*V(266) - A(391) = RCT(391)*V(244)*V(266) - A(392) = RCT(392)*V(245)*V(279) - A(393) = RCT(393)*V(245)*V(279) - A(394) = RCT(394)*V(245)*V(279) - A(395) = RCT(395)*V(245)*V(279) - A(396) = RCT(396)*V(244)*V(279) - A(397) = RCT(397)*V(244)*V(279) - A(398) = RCT(398)*V(244)*V(279) - A(399) = RCT(399)*V(244)*V(279) - A(400) = RCT(400)*V(186)*V(286) - A(401) = RCT(401)*V(188)*V(286) - A(402) = RCT(402)*V(129)*V(286) - A(403) = RCT(403)*V(127)*V(286) - A(404) = RCT(404)*V(192)*V(286) - A(405) = RCT(405)*V(174)*V(286) - A(406) = RCT(406)*V(109)*V(286) - A(407) = RCT(407)*V(157)*V(286) - A(408) = RCT(408)*V(157)*V(286) - A(409) = RCT(409)*V(162)*V(286) - A(410) = RCT(410)*V(162)*V(286) - A(411) = RCT(411)*V(157)*V(286) - A(412) = RCT(412)*V(162)*V(286) - A(413) = RCT(413)*V(171)*V(286) - A(414) = RCT(414)*V(165)*V(286) - A(415) = RCT(415)*V(182) - A(416) = RCT(416)*V(182)*V(279) - A(417) = RCT(417)*V(182)*V(279) - A(418) = RCT(418)*V(182)*V(284) - A(419) = RCT(419)*V(183) - A(420) = RCT(420)*V(183)*V(279) - A(421) = RCT(421)*V(183)*V(279) - A(422) = RCT(422)*V(183)*V(284) - A(423) = RCT(423)*V(187) - A(424) = RCT(424)*V(187)*V(279) - A(425) = RCT(425)*V(187)*V(279) - A(426) = RCT(426)*V(187)*V(284) - A(427) = RCT(427)*V(116)*V(286) - A(428) = RCT(428)*V(130)*V(286) - A(429) = RCT(429)*V(130)*V(286) - A(430) = RCT(430)*V(131)*V(286) - A(431) = RCT(431)*V(131)*V(286) - A(432) = RCT(432)*V(228) - A(433) = RCT(433)*V(228) - A(434) = RCT(434)*V(228)*V(284) - A(435) = RCT(435)*V(228)*V(279) - A(436) = RCT(436)*V(228)*V(279) - A(437) = RCT(437)*V(229) - A(438) = RCT(438)*V(229) - A(439) = RCT(439)*V(229)*V(279) - A(440) = RCT(440)*V(229)*V(279) - A(441) = RCT(441)*V(229)*V(284) - A(442) = RCT(442)*V(194)*V(284) - A(443) = RCT(443)*V(194)*V(279) - A(444) = RCT(444)*V(194)*V(279) - A(445) = RCT(445)*V(194) - A(446) = RCT(446)*V(121)*V(279) - A(447) = RCT(447)*V(121)*V(284) - A(448) = RCT(448)*V(123)*V(279) - A(449) = RCT(449)*V(123)*V(284) - A(450) = RCT(450)*V(139)*V(286) - A(451) = RCT(451)*V(139)*V(286) - A(452) = RCT(452)*V(140)*V(286) - A(453) = RCT(453)*V(140)*V(286) - A(454) = RCT(454)*V(220)*V(286) - A(455) = RCT(455)*V(220)*V(286) - A(456) = RCT(456)*V(214)*V(286) - A(457) = RCT(457)*V(214)*V(286) - A(458) = RCT(458)*V(220)*V(286) - A(459) = RCT(459)*V(214)*V(286) - A(460) = RCT(460)*V(167) - A(461) = RCT(461)*V(167)*V(284) - A(462) = RCT(462)*V(167)*V(279) - A(463) = RCT(463)*V(167)*V(279) - A(464) = RCT(464)*V(152) - A(465) = RCT(465)*V(152)*V(284) - A(466) = RCT(466)*V(152)*V(279) - A(467) = RCT(467)*V(152)*V(279) - A(468) = RCT(468)*V(166) - A(469) = RCT(469)*V(168) - A(470) = RCT(470)*V(166)*V(284) - A(471) = RCT(471)*V(166)*V(279) - A(472) = RCT(472)*V(166)*V(279) - A(473) = RCT(473)*V(168)*V(284) - A(474) = RCT(474)*V(168)*V(279) - A(475) = RCT(475)*V(168)*V(279) - A(476) = RCT(476)*V(232)*V(284) - A(477) = RCT(477)*V(232)*V(279) - A(478) = RCT(478)*V(232)*V(279) - A(479) = RCT(479)*V(224)*V(281) - A(480) = RCT(480)*V(247)*V(284) - A(481) = RCT(481)*V(246)*V(284) - A(482) = RCT(482)*V(247)*V(247) - A(483) = RCT(483)*V(246)*V(247) - A(484) = RCT(484)*V(246)*V(246) - A(485) = RCT(485)*V(246)*V(266) - A(486) = RCT(486)*V(247)*V(266) - A(487) = RCT(487)*V(247)*V(261) - A(488) = RCT(488)*V(246)*V(261) - A(489) = RCT(489)*V(247)*V(281) - A(490) = RCT(490)*V(246)*V(281) - A(491) = RCT(491)*V(247)*V(279) - A(492) = RCT(492)*V(247)*V(279) - A(493) = RCT(493)*V(246)*V(279) - A(494) = RCT(494)*V(246)*V(279) - A(495) = RCT(495)*V(126)*F(3) - A(496) = RCT(496)*V(126) - A(497) = RCT(497)*V(181)*V(286) - A(498) = RCT(498)*V(151)*V(286) - A(499) = RCT(499)*V(181)*V(286) - A(500) = RCT(500)*V(151)*V(286) - A(501) = RCT(501)*V(151)*V(286) - A(502) = RCT(502)*V(181)*V(286) - A(503) = RCT(503)*V(151)*V(286) - A(504) = RCT(504)*V(151)*V(286) - A(505) = RCT(505)*V(189) - A(506) = RCT(506)*V(222) - A(507) = RCT(507)*V(222)*V(284) - A(508) = RCT(508)*V(189)*V(284) - A(509) = RCT(509)*V(222)*V(279) - A(510) = RCT(510)*V(222)*V(279) - A(511) = RCT(511)*V(189)*V(279) - A(512) = RCT(512)*V(189)*V(279) - A(513) = RCT(513)*V(240)*V(286) - A(514) = RCT(514)*V(240)*V(286) - A(515) = RCT(515)*V(150)*V(279) - A(516) = RCT(516)*V(150)*V(284) - A(517) = RCT(517)*V(243)*V(286) - A(518) = RCT(518)*V(146)*V(279) - A(519) = RCT(519)*V(146)*V(284) - A(520) = RCT(520)*V(248)*V(286) - A(521) = RCT(521)*V(248)*V(282) - A(522) = RCT(522)*V(251)*V(286) - A(523) = RCT(523)*V(251)*V(286) - A(524) = RCT(524)*V(251)*V(282) - A(525) = RCT(525)*V(251)*V(281) - A(526) = RCT(526)*V(241)*V(286) - A(527) = RCT(527)*V(230)*V(286) - A(528) = RCT(528)*V(231)*V(286) - A(529) = RCT(529)*V(200)*V(286) - A(530) = RCT(530)*V(175)*V(286) - A(531) = RCT(531)*V(144)*V(279) - A(532) = RCT(532)*V(144)*V(284) - A(533) = RCT(533)*V(144)*V(291) - A(534) = RCT(534)*V(145)*V(279) - A(535) = RCT(535)*V(145)*V(284) - A(536) = RCT(536)*V(145)*V(291) - A(537) = RCT(537)*V(163)*V(286) - A(538) = RCT(538)*V(156)*V(286) - A(539) = RCT(539)*V(117)*V(286) - A(540) = RCT(540)*V(185)*V(286) - A(541) = RCT(541)*V(169)*V(286) - A(542) = RCT(542)*V(132)*V(286) - A(543) = RCT(543)*V(204)*V(284) - A(544) = RCT(544)*V(204)*V(279) - A(545) = RCT(545)*V(204)*V(279) - A(546) = RCT(546)*V(205)*V(284) - A(547) = RCT(547)*V(207)*V(284) - A(548) = RCT(548)*V(136)*V(286) - A(549) = RCT(549)*V(205) - A(550) = RCT(550)*V(205)*V(279) - A(551) = RCT(551)*V(205)*V(279) - A(552) = RCT(552)*V(207)*V(279) - A(553) = RCT(553)*V(207)*V(291) - A(554) = RCT(554)*V(249)*V(284) - A(555) = RCT(555)*V(249)*V(279) - A(556) = RCT(556)*V(249)*V(291) - A(557) = RCT(557)*V(249)*V(281) - A(558) = RCT(558)*V(249)*V(266) - A(559) = RCT(559)*V(153) - A(560) = RCT(560)*V(153)*V(286) - A(561) = RCT(561)*V(105)*V(286) - A(562) = RCT(562)*V(206)*V(286) - A(563) = RCT(563)*V(125)*V(286) - A(564) = RCT(564)*V(141)*V(286) - A(565) = RCT(565)*V(164)*V(286) - A(566) = RCT(566)*V(213)*V(286) - A(567) = RCT(567)*V(242)*V(286) - A(568) = RCT(568)*V(208)*V(281) - A(569) = RCT(569)*V(104)*V(286) - A(570) = RCT(570)*V(85)*V(286) - A(571) = RCT(571)*V(261)*V(284) - A(572) = RCT(572)*V(172)*V(286) - A(573) = RCT(573)*V(172)*V(286) - A(574) = RCT(574)*V(19)*V(286) - A(575) = RCT(575)*V(18)*V(284) - A(576) = RCT(576)*V(18)*V(279) - A(577) = RCT(577)*V(76)*V(282) - A(578) = RCT(578)*V(76)*V(286) - A(579) = RCT(579)*V(58)*V(286) - A(580) = RCT(580)*V(179)*V(284) - A(581) = RCT(581)*V(179)*V(279) - A(582) = RCT(582)*V(179)*V(281) - A(583) = RCT(583)*V(179)*V(266) - A(584) = RCT(584)*V(108) - A(585) = RCT(585)*V(108)*F(3) - A(586) = RCT(586)*V(68)*V(286) - A(587) = RCT(587)*V(120)*V(286) - A(588) = RCT(588)*V(120)*V(286) - A(589) = RCT(589)*V(64)*V(286) - A(590) = RCT(590)*V(79)*V(286) - A(591) = RCT(591)*V(80)*V(286) - A(592) = RCT(592)*V(184)*V(284) - A(593) = RCT(593)*V(184)*V(279) - A(594) = RCT(594)*V(184)*V(281) - A(595) = RCT(595)*V(184)*V(266) - A(596) = RCT(596)*V(184)*V(261) - A(597) = RCT(597)*V(118)*V(286) - A(598) = RCT(598)*V(118)*V(281) - A(599) = RCT(599)*V(115)*V(286) - A(600) = RCT(600)*V(115)*V(281) - A(601) = RCT(601)*V(142)*V(286) - A(602) = RCT(602)*V(142)*V(282) - A(603) = RCT(603)*V(142)*V(281) - A(604) = RCT(604)*V(101)*V(286) - A(605) = RCT(605)*V(101)*V(281) - A(606) = RCT(606)*V(180)*V(284) - A(607) = RCT(607)*V(180)*V(279) - A(608) = RCT(608)*V(180)*V(291) - A(609) = RCT(609)*V(70)*V(286) - A(610) = RCT(610)*V(97) - A(611) = RCT(611)*V(97)*V(286) - A(612) = RCT(612)*V(191)*V(291) - A(613) = RCT(613)*V(191)*V(279) - A(614) = RCT(614)*V(191)*V(281) - A(615) = RCT(615)*V(191)*V(284) - A(616) = RCT(616)*V(107)*V(286) - A(617) = RCT(617)*V(160)*V(282) - A(618) = RCT(618)*V(160)*V(291) - A(619) = RCT(619)*V(210)*V(286) - A(620) = RCT(620)*V(210)*V(281) - A(621) = RCT(621)*V(191)*V(266) - A(622) = RCT(622)*V(180)*V(266) - A(623) = RCT(623)*V(159)*V(286) - A(624) = RCT(624)*V(159)*V(282) - A(625) = RCT(625)*V(159) - A(626) = RCT(626)*V(148)*V(286) - A(627) = RCT(627)*V(148)*V(282) - A(628) = RCT(628)*V(148) - A(629) = RCT(629)*V(13)*V(284) - A(630) = RCT(630)*V(13)*V(279) - A(631) = RCT(631)*V(22)*V(284) - A(632) = RCT(632)*V(22)*V(279) - A(633) = RCT(633)*V(27)*V(284) - A(634) = RCT(634)*V(27)*V(279) - A(635) = RCT(635)*V(266)*V(281) - A(636) = RCT(636)*V(41)*V(286) - A(637) = RCT(637)*V(284) - A(638) = RCT(638)*V(291) - A(639) = RCT(639)*V(281) - A(640) = RCT(640)*V(281) - A(641) = RCT(641)*V(281) - A(642) = RCT(642)*V(173)*V(278) - A(643) = RCT(643)*V(173)*V(275) - A(644) = RCT(644)*V(173) - A(645) = RCT(645)*V(173)*V(280) - A(646) = RCT(646)*V(173)*V(287) - A(647) = RCT(647)*V(280)*V(286) - A(648) = RCT(648)*V(286)*V(287) - A(649) = RCT(649)*V(176)*V(278) - A(650) = RCT(650)*V(176)*V(275) - A(651) = RCT(651)*V(262)*V(278) - A(652) = RCT(652)*V(262)*V(275) - A(653) = RCT(653)*V(262)*V(289) - A(654) = RCT(654)*V(262)*V(283) - A(655) = RCT(655)*V(262)*V(277) - A(656) = RCT(656)*V(262)*V(280) - A(657) = RCT(657)*V(262)*V(287) - A(658) = RCT(658)*V(235)*V(280) - A(659) = RCT(659)*V(235)*V(287) - A(660) = RCT(660)*V(235)*V(275) - A(661) = RCT(661)*V(235)*V(283) - A(662) = RCT(662)*V(235)*V(277) - A(663) = RCT(663)*V(235)*V(289) - A(664) = RCT(664)*V(271)*V(275) - A(665) = RCT(665)*V(271)*V(289) - A(666) = RCT(666)*V(271)*V(280) - A(667) = RCT(667)*V(271)*V(287) - A(668) = RCT(668)*V(271)*V(276) - A(669) = RCT(669)*V(260)*V(289) - A(670) = RCT(670)*V(260)*V(275) - A(671) = RCT(671)*V(260)*V(280) - A(672) = RCT(672)*V(260)*V(287) - A(673) = RCT(673)*V(260)*V(283) - A(674) = RCT(674)*V(260)*V(277) - A(675) = RCT(675)*V(260)*V(276) - A(676) = RCT(676)*V(282)*V(289) - A(677) = RCT(677)*V(282)*V(283) - A(678) = RCT(678)*V(277)*V(282) - A(679) = RCT(679)*V(289) - A(680) = RCT(680)*V(289) - A(681) = RCT(681)*V(69) - A(682) = RCT(682)*V(69) - A(683) = RCT(683)*V(69) - A(684) = RCT(684)*V(268) - A(685) = RCT(685)*V(268) - A(686) = RCT(686)*V(44) - A(687) = RCT(687)*V(44) - A(688) = RCT(688)*V(44) - A(689) = RCT(689)*V(49) - A(690) = RCT(690)*V(49) - A(691) = RCT(691)*V(49) - A(692) = RCT(692)*V(42) - A(693) = RCT(693)*V(42) - A(694) = RCT(694)*V(42) - A(695) = RCT(695)*V(203) - A(696) = RCT(696)*V(203) - A(697) = RCT(697)*V(270) - A(698) = RCT(698)*V(270) - A(699) = RCT(699)*V(270)*V(278) - A(700) = RCT(700)*V(203)*V(283) - A(701) = RCT(701)*V(203)*V(277) - A(702) = RCT(702)*V(203)*V(280) - A(703) = RCT(703)*V(203)*V(287) - A(704) = RCT(704)*V(270)*V(283) - A(705) = RCT(705)*V(270)*V(277) - A(706) = RCT(706)*V(270)*V(280) - A(707) = RCT(707)*V(270)*V(287) - A(708) = RCT(708)*V(268)*V(283) - A(709) = RCT(709)*V(268)*V(277) - A(710) = RCT(710)*V(268)*V(280) - A(711) = RCT(711)*V(268)*V(287) - A(712) = RCT(712)*V(223) - A(713) = RCT(713)*V(233) - A(714) = RCT(714)*V(130) - A(715) = RCT(715)*V(131) - A(716) = RCT(716)*V(116) - A(717) = RCT(717)*V(24) - A(718) = RCT(718)*V(241) - A(719) = RCT(719)*V(202) - A(720) = RCT(720)*V(178) - A(721) = RCT(721)*V(199) - A(722) = RCT(722)*V(134) - A(723) = RCT(723)*V(104) - A(724) = RCT(724)*V(105) - A(725) = RCT(725)*V(220) - A(726) = RCT(726)*V(139) - A(727) = RCT(727)*V(140) - A(728) = RCT(728)*V(214) - A(729) = RCT(729)*V(174) - A(730) = RCT(730)*V(151) - A(731) = RCT(731)*V(181) - A(732) = RCT(732)*V(243) - A(733) = RCT(733)*V(213) - A(734) = RCT(734)*V(242) - A(735) = RCT(735)*V(175) - A(736) = RCT(736)*V(200) - A(737) = RCT(737)*V(210) - A(738) = RCT(738)*V(282) - A(739) = RCT(739)*V(282) - A(740) = RCT(740)*F(3) - A(741) = RCT(741)*V(291) - A(742) = RCT(742)*V(212) - A(743) = RCT(743)*V(137) - A(744) = RCT(744)*V(263) - A(745) = RCT(745)*V(263) - A(746) = RCT(746)*V(265) - A(747) = RCT(747)*V(193) - A(748) = RCT(748)*V(102) - A(749) = RCT(749)*V(102) - A(750) = RCT(750)*V(281) - A(751) = RCT(751)*V(281) - A(752) = RCT(752)*V(173) - A(753) = RCT(753)*V(264) - A(754) = RCT(754)*V(264) - A(755) = RCT(755)*V(67) - A(756) = RCT(756)*V(259) - A(757) = RCT(757)*V(221) - A(758) = RCT(758)*V(221) - A(759) = RCT(759)*V(226) - A(760) = RCT(760)*V(236) - A(761) = RCT(761)*V(223) - A(762) = RCT(762)*V(223) - A(763) = RCT(763)*V(223) - A(764) = RCT(764)*V(233) - A(765) = RCT(765)*V(248) - A(766) = RCT(766)*V(248) - A(767) = RCT(767)*V(248) - A(768) = RCT(768)*V(251) - A(769) = RCT(769)*V(250) - A(770) = RCT(770)*V(113) - A(771) = RCT(771)*V(110) - A(772) = RCT(772)*V(94) - A(773) = RCT(773)*V(95) - A(774) = RCT(774)*V(93) - A(775) = RCT(775)*V(112) - A(776) = RCT(776)*V(106) - A(777) = RCT(777)*V(202) - A(778) = RCT(778)*V(88) - A(779) = RCT(779)*V(128) - A(780) = RCT(780)*V(274) - A(781) = RCT(781)*V(260) - A(782) = RCT(782)*V(176) - A(783) = RCT(783)*V(176) - A(784) = RCT(784)*V(51) - A(785) = RCT(785)*V(77) - A(786) = RCT(786)*V(71) - A(787) = RCT(787)*V(100) - A(788) = RCT(788)*V(149) - A(789) = RCT(789)*V(72) - A(790) = RCT(790)*V(135) - A(791) = RCT(791)*V(197) - A(792) = RCT(792)*V(285) - A(793) = RCT(793)*V(111) - A(794) = RCT(794)*V(75) - A(795) = RCT(795)*V(235) - A(796) = RCT(796)*V(262) - A(797) = RCT(797)*V(262) - A(798) = RCT(798)*V(271) - A(799) = RCT(799)*V(43) - A(800) = RCT(800)*V(52) - A(801) = RCT(801)*V(53) - A(802) = RCT(802)*V(54) - A(803) = RCT(803)*V(55) - A(804) = RCT(804)*V(56) - A(805) = RCT(805)*V(57) - A(806) = RCT(806)*V(81) - A(807) = RCT(807)*V(82) - A(808) = RCT(808)*V(83) - A(809) = RCT(809)*V(84) - A(810) = RCT(810)*V(47) - A(811) = RCT(811)*V(59) - A(812) = RCT(812)*V(48) - A(813) = RCT(813)*V(103) - A(814) = RCT(814)*V(143) - A(815) = RCT(815)*V(268) - A(816) = RCT(816)*V(227) - A(817) = RCT(817)*V(92) - A(818) = RCT(818)*V(60) - A(819) = RCT(819)*V(203) - A(820) = RCT(820)*V(270) - A(821) = RCT(821)*V(44) - A(822) = RCT(822)*V(46) - A(823) = RCT(823)*V(1) - A(824) = RCT(824)*V(3) - A(825) = RCT(825)*V(2) - A(826) = RCT(826)*V(42) - A(827) = RCT(827)*V(49) - A(828) = RCT(828)*V(73) - A(829) = RCT(829)*V(99) - A(830) = RCT(830)*V(74) - A(831) = RCT(831)*V(74) - A(832) = RCT(832)*V(196) - A(833) = RCT(833)*V(61) - A(834) = RCT(834)*V(66) - A(835) = RCT(835)*V(122) - A(836) = RCT(836)*V(279) - A(837) = RCT(837)*V(119) - A(838) = RCT(838)*V(208) - A(839) = RCT(839)*V(178) - A(840) = RCT(840)*V(199) - A(841) = RCT(841)*V(134) - A(842) = RCT(842)*V(63) - A(843) = RCT(843)*V(63) - A(844) = RCT(844)*V(62) - A(845) = RCT(845)*V(62) - A(846) = RCT(846)*V(89) - A(847) = RCT(847)*V(96) - A(848) = RCT(848)*V(87) - A(849) = RCT(849)*V(91) - A(850) = RCT(850)*V(85) - A(851) = RCT(851)*V(172) - A(852) = RCT(852)*V(104) - A(853) = RCT(853)*V(198) - A(854) = RCT(854)*V(169) - A(855) = RCT(855)*V(185) - A(856) = RCT(856)*V(230) - A(857) = RCT(857)*V(156) - A(858) = RCT(858)*V(163) - A(859) = RCT(859)*V(231) - A(860) = RCT(860)*V(136) - A(861) = RCT(861)*V(241) - A(862) = RCT(862)*V(200) - A(863) = RCT(863)*V(175) - A(864) = RCT(864)*V(157) - A(865) = RCT(865)*V(162) - A(866) = RCT(866)*V(171) - A(867) = RCT(867)*V(165) - A(868) = RCT(868)*V(186) - A(869) = RCT(869)*V(188) - A(870) = RCT(870)*V(129) - A(871) = RCT(871)*V(127) - A(872) = RCT(872)*V(220) - A(873) = RCT(873)*V(139) - A(874) = RCT(874)*V(140) - A(875) = RCT(875)*V(214) - A(876) = RCT(876)*V(181) - A(877) = RCT(877)*V(151) - A(878) = RCT(878)*V(151) - A(879) = RCT(879)*V(240) - A(880) = RCT(880)*V(243) - A(881) = RCT(881)*V(206) - A(882) = RCT(882)*V(206) - A(883) = RCT(883)*V(141) - A(884) = RCT(884)*V(164) - A(885) = RCT(885)*V(125) - A(886) = RCT(886)*V(242) - A(887) = RCT(887)*V(242) - A(888) = RCT(888)*V(213) - A(889) = RCT(889)*V(213) - A(890) = RCT(890)*V(120) - A(891) = RCT(891)*V(101) - A(892) = RCT(892)*V(70) - A(893) = RCT(893)*V(107) - A(894) = RCT(894)*V(210) + 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(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(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(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(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(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(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(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(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) !### Use Aout to return equation rates IF ( PRESENT( Aout ) ) Aout = A ! Aggregate function IF (DO_FUN(1)) & - Vdot(1) = -A(823) + Vdot(1) = -A(975) IF (DO_FUN(2)) & - Vdot(2) = -A(825) + Vdot(2) = -A(977) IF (DO_FUN(3)) & - Vdot(3) = -A(824) + Vdot(3) = -A(976) IF (DO_FUN(4)) & - Vdot(4) = A(681)+2*A(686)+2*A(689)+2*A(692) + Vdot(4) = A(825)+2*A(830)+2*A(833)+2*A(836) IF (DO_FUN(5)) & - Vdot(5) = A(737) + Vdot(5) = A(881) IF (DO_FUN(6)) & - Vdot(6) = A(636) + Vdot(6) = A(780) IF (DO_FUN(7)) & - Vdot(7) = A(24)+A(47)+A(55)+A(76)+A(80)+0.3*A(97)+0.43*A(109)+0.1*A(111)+0.361*A(112)+0.5*A(120)+0.22*A(129)+2*A(131)& - &+0.9*A(132)+0.9*A(133)+0.9*A(134)+0.9*A(135)+0.9*A(136)+0.645*A(137)+0.9*A(138)+0.9*A(139)+0.9*A(140)+0.9& - &*A(141)+0.9*A(142)+2*A(143)+A(144)+A(188)+A(267)+A(275)+A(309)+A(311)+A(318)+A(329)+A(350)+0.407*A(369)+0.355& - &*A(404)+A(446)+A(447)+A(448)+A(449)+A(487)+A(488)+0.429*A(515)+0.429*A(516)+0.23*A(528)+0.75*A(530)+0.097& - &*A(537)+0.5*A(547)+0.41*A(548)+A(552)+0.5*A(554)+A(555)+A(557)+0.7*A(558)+A(565)+A(569)+0.5*A(571)+A(596)& - &+0.35*A(606)+A(607)+A(611)+A(622)+0.3*A(755)+A(778)+A(852)+1.238*A(860)+A(892)+A(894) + Vdot(7) = A(24)+A(47)+A(56)+A(104)+A(109)+A(127)+0.44*A(128)+0.3*A(136)+0.43*A(148)+0.1*A(150)+0.361*A(151)+0.44& + &*A(158)+0.5*A(168)+0.22*A(178)+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.645*A(187)+0.645*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+2*A(194)+A(195)+A(239)& + &+A(318)+A(326)+A(360)+A(362)+A(369)+A(392)+A(395)+A(397)+0.44*A(436)+A(437)+A(440)+A(442)+0.9*A(457)+0.9& + &*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) IF (DO_FUN(8)) & - Vdot(8) = A(362)+A(363) + Vdot(8) = A(486)+A(487) IF (DO_FUN(9)) & - Vdot(9) = A(682)+A(684)+2*A(687)+2*A(690)+2*A(693)+A(695)+A(697) + Vdot(9) = A(826)+A(828)+2*A(831)+2*A(834)+2*A(837)+A(839)+A(841) IF (DO_FUN(10)) & - Vdot(10) = A(683)+A(685)+2*A(688)+2*A(691)+2*A(694)+A(696)+A(698) + Vdot(10) = A(827)+A(829)+2*A(832)+2*A(835)+2*A(838)+A(840)+A(842) IF (DO_FUN(11)) & - Vdot(11) = A(629) + Vdot(11) = A(773) IF (DO_FUN(12)) & - Vdot(12) = A(630) + Vdot(12) = A(774) IF (DO_FUN(13)) & - Vdot(13) = A(589)-A(629)-A(630) + Vdot(13) = A(724)-A(773)-A(774) IF (DO_FUN(14)) & - Vdot(14) = A(370)+A(371)+A(372)+A(373) + Vdot(14) = A(494)+A(495)+A(496)+A(497) IF (DO_FUN(15)) & - Vdot(15) = A(479) + Vdot(15) = A(603) IF (DO_FUN(16)) & - Vdot(16) = A(575) + Vdot(16) = A(699) IF (DO_FUN(17)) & - Vdot(17) = A(576) + Vdot(17) = A(700) IF (DO_FUN(18)) & - Vdot(18) = A(574)-A(575)-A(576) + Vdot(18) = A(698)-A(699)-A(700) IF (DO_FUN(19)) & - Vdot(19) = -A(574) + Vdot(19) = -A(698) IF (DO_FUN(20)) & - Vdot(20) = A(631) + Vdot(20) = A(775) IF (DO_FUN(21)) & - Vdot(21) = A(632) + Vdot(21) = A(776) IF (DO_FUN(22)) & - Vdot(22) = A(590)-A(631)-A(632) + Vdot(22) = A(725)-A(775)-A(776) IF (DO_FUN(23)) & - Vdot(23) = A(717) + Vdot(23) = A(861) IF (DO_FUN(24)) & - Vdot(24) = -A(128)+0.005*A(407)+0.005*A(408)+0.005*A(409)+0.005*A(410)+0.005*A(411)+0.005*A(412)+0.005*A(413)+0.005& - &*A(414)-A(717) + Vdot(24) = -A(177)+0.005*A(531)+0.005*A(532)+0.005*A(533)+0.005*A(534)+0.005*A(535)+0.005*A(536)+0.005*A(537)+0.005& + &*A(538)-A(861) IF (DO_FUN(25)) & - Vdot(25) = A(633) + Vdot(25) = A(777) IF (DO_FUN(26)) & - Vdot(26) = A(634) + Vdot(26) = A(778) IF (DO_FUN(27)) & - Vdot(27) = A(591)-A(633)-A(634) + Vdot(27) = A(726)-A(777)-A(778) IF (DO_FUN(28)) & - Vdot(28) = 0.25*A(149) + Vdot(28) = 0.25*A(200) IF (DO_FUN(29)) & Vdot(29) = A(4) IF (DO_FUN(30)) & - Vdot(30) = A(712)+1.5*A(713)+1.5*A(723) + Vdot(30) = A(856)+1.5*A(857)+1.5*A(867) IF (DO_FUN(31)) & - Vdot(31) = A(714)+A(715)+A(716)+0.8*A(724)+A(729) + Vdot(31) = A(858)+A(859)+A(860)+0.8*A(868)+A(873) IF (DO_FUN(32)) & - Vdot(32) = A(151)+A(317)+A(321) + Vdot(32) = A(202)+A(368)+A(372) IF (DO_FUN(33)) & - Vdot(33) = A(7)+A(8)+A(9)+2*A(12) + Vdot(33) = 2*A(12) IF (DO_FUN(34)) & - Vdot(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(55)+A(57)+A(59)+A(62)+A(64)+A(66)+A(67)+A(68)+A(69)+A(70)+A(71)+A(73)+A(80)& - &+0.15*A(109)+A(160)+0.02*A(196)+A(197)+A(198)+A(222)+A(230)+A(231)+A(246)+0.1*A(258)+A(268)+A(271)+A(272)& - &+A(301)+A(312)+A(313)+A(319)+A(320)+A(326)+A(338)+A(344)+A(345)+A(362)+A(363)+A(364)+A(365)+A(366)+A(367)& - &+A(368)+A(392)+A(393)+A(394)+A(395)+A(396)+A(397)+A(398)+A(399)+A(416)+A(417)+A(420)+A(421)+A(424)+A(425)& - &+A(435)+A(436)+A(439)+A(440)+A(443)+A(444)+A(446)+A(448)+A(462)+A(463)+A(466)+A(467)+A(471)+A(472)+A(474)& - &+A(475)+A(477)+A(478)+A(491)+A(492)+A(493)+A(494)+A(509)+A(510)+A(511)+A(512)+A(515)+A(518)+0.69*A(526)& - &+A(531)+A(534)+A(544)+A(545)+0.13*A(547)+A(550)+A(551)+A(552)+0.13*A(554)+A(555)+A(560)+0.13*A(571)+0.995& - &*A(581)+A(586)+A(593)+0.15*A(606)+A(607)+A(610)+A(611)+A(612)+A(613)+A(619)+2*A(740)+A(748)+0.3*A(755)& - &+A(830)+A(833)+A(836)+A(846)+A(847)+A(848)+A(849) + 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)& + &+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& + &*A(388)+0.15*A(391)+A(392)+A(394)+0.84*A(399)+A(403)+0.75*A(405)+0.5*A(407)+A(412)+A(416)+0.75*A(418)+0.5& + &*A(426)+0.84*A(429)+A(435)+0.15*A(436)+A(437)+A(439)+A(445)+A(450)+A(468)+A(469)+A(486)+A(487)+A(488)+A(489)& + &+A(490)+A(491)+A(492)+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)& + &+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(74)+A(81)+A(94)+A(111)+A(114)+A(117)& - &+A(118)+A(130)+2*A(145)+A(150)+2*A(156)+2*A(157)+A(161)+A(162)+A(163)+A(175)+A(178)+A(179)+A(180)+2*A(182)& - &+A(184)+A(185)+A(186)+A(187)+2*A(189)+2*A(190)+A(193)+A(195)+2*A(200)+A(201)+0.66*A(202)+0.6*A(203)+0.44& - &*A(206)+0.56*A(207)+0.19*A(210)+0.1*A(218)+0.05*A(219)+A(223)+A(224)+A(225)+A(226)+A(227)+2*A(247)+2*A(251)& - &+2*A(252)+2*A(260)+2*A(261)+0.4*A(293)+0.88*A(298)+A(316)+A(330)+A(331)+A(332)+A(333)+A(334)+A(336)+A(337)& - &+A(342)+A(352)+A(353)+A(359)+2*A(360)+2*A(361)+A(369)+A(479)+A(489)+A(490)+A(521)+A(524)+A(525)+A(557)& - &+A(568)+A(577)+A(582)+A(594)+1.258*A(598)+1.5*A(600)+A(602)+1.5*A(603)+A(605)+A(608)+A(614)+A(617)+A(618)& - &+A(624)+A(627)+A(635)+0.5*A(638)+A(639)+A(640)+A(641)+A(642)+A(643)+A(644)+A(645)+A(646)+A(650)+A(652)& - &+A(653)+A(654)+A(655)+A(656)+A(657)+A(658)+A(659)+A(660)+A(661)+A(662)+A(663)+A(664)+A(665)+A(666)+A(667)& - &+A(668)+A(669)+A(670)+A(671)+A(672)+A(673)+A(674)+A(675)+A(684)+A(685)+2*A(686)+2*A(687)+2*A(688)+3*A(689)+3& - &*A(690)+3*A(691)+4*A(692)+4*A(693)+4*A(694)+A(695)+A(696)+A(697)+A(698)+A(700)+A(701)+A(702)+A(703)+A(704)& - &+A(705)+A(706)+A(707)+A(708)+A(709)+A(710)+A(711)+A(718)+A(719)+A(720)+A(721)+A(722)+A(725)+A(726)+A(727)& - &+A(728)+A(730)+A(731)+2*A(732)+A(733)+A(734)+A(735)+A(736)+2*A(751)+A(781)+2*A(794)+A(798)+A(815)+2*A(817)& - &+A(842)+A(844) + 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(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& + &*A(270)+A(274)+A(275)+A(276)+A(277)+A(278)+2*A(298)+2*A(302)+2*A(303)+2*A(311)+2*A(312)+0.4*A(344)+0.88& + &*A(349)+A(367)+A(375)+A(376)+A(377)+A(379)+A(381)+A(383)+A(386)+A(389)+A(393)+A(395)+A(400)+A(406)+A(414)& + &+A(419)+A(421)+2*A(422)+A(424)+2*A(425)+0.5*A(427)+A(428)+A(431)+A(434)+A(438)+A(440)+A(446)+A(448)+A(449)& + &+A(454)+A(455)+A(476)+A(477)+A(483)+2*A(484)+2*A(485)+A(493)+A(603)+A(613)+A(614)+A(645)+A(648)+A(649)& + &+A(681)+A(692)+A(703)+A(704)+A(706)+A(708)+A(712)+A(717)+A(729)+A(738)+1.258*A(742)+1.5*A(744)+A(746)+1.5& + &*A(747)+A(749)+A(752)+A(758)+A(761)+A(762)+A(768)+A(771)+A(779)+0.5*A(782)+A(783)+A(784)+A(785)+A(786)& + &+A(787)+A(788)+A(789)+A(790)+A(794)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)+A(802)+A(803)+A(804)+A(805)& + &+A(806)+A(807)+A(808)+A(809)+A(810)+A(811)+A(812)+A(813)+A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(828)& + &+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)+0.56*A(111)+0.505*A(112)+A(113)+2*A(115)+A(116)+2*A(117)+A(118)+0.5*A(120)+A(165)& - &+A(187)+A(201)+A(241)+A(264)+A(265)+A(266)+0.14*A(331)+0.14*A(332)+0.14*A(336)+0.407*A(369)+0.6*A(372)+0.9& - &*A(373)+0.6*A(379)+0.9*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.55*A(395)+0.55*A(399)+0.45*A(400)& - &+0.37*A(401)+0.42*A(402)+0.23*A(403)+0.638*A(404)+1.5*A(405)+A(406)+0.25*A(411)+0.33*A(412)+0.036*A(413)& - &+0.054*A(414)+A(433)+0.13*A(434)+0.2*A(435)+A(438)+0.2*A(439)+0.13*A(441)+0.52*A(442)+0.8*A(444)+2*A(445)& - &+0.6*A(458)+0.6*A(459)+0.539*A(514)+0.33*A(515)+0.33*A(516)+0.28*A(521)+0.036*A(522)+0.12*A(524)+0.68*A(525)& - &+0.77*A(528)+0.25*A(530)+0.75*A(537)+A(538)+A(540)+2*A(541)+0.84*A(542)+0.507*A(546)+0.325*A(547)+0.488& - &*A(548)+A(549)+0.86*A(550)+0.65*A(552)+0.25*A(560)+A(561)+A(562)+0.888*A(563)+A(566)+A(572)+0.364*A(579)+0.2& - &*A(589)+0.27*A(590)+0.3*A(591)+0.15*A(619)+0.15*A(620)+0.26*A(623)+0.5*A(624)+0.25*A(626)+0.5*A(627)+0.05& - &*A(628)+A(744)+A(745)+0.88*A(753)+A(754)+A(756)+A(758)+A(760)+2*A(761)+2*A(762)+A(763)+A(764)+A(765)+A(766)& - &+A(768)+A(834)+A(838)+A(851)+A(854)+0.5*A(855)+0.571*A(857)+0.875*A(858)+0.77*A(859)+A(862)+A(863)+0.888& - &*A(868)+0.818*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.839*A(879)+A(881)+0.163*A(882)+A(885)+A(889)& - &+A(891)+A(894) + 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(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& + &*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)+0.2& + &*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)+0.33& + &*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(311)+A(318) + 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(151)+A(317)+A(321)+A(668)+A(675) + 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(180)+A(240) + Vdot(39) = A(25)+A(231)+A(291) IF (DO_FUN(40)) & - Vdot(40) = A(19)+A(23)+0.06*A(314)+0.06*A(315)+A(322)+0.02*A(331)+0.02*A(332)+0.02*A(336)+0.013*A(369)+0.045*A(521) + Vdot(40) = 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(41)) & - Vdot(41) = -A(636) + Vdot(41) = -A(780) IF (DO_FUN(42)) & - Vdot(42) = A(295)-A(296)-A(692)-A(693)-A(694)-A(826) + Vdot(42) = A(346)-A(347)-A(836)-A(837)-A(838)-A(978) IF (DO_FUN(43)) & - Vdot(43) = -A(235)-A(799) + Vdot(43) = -A(286)-A(951) IF (DO_FUN(44)) & - Vdot(44) = 0.6*A(306)-A(307)-A(686)-A(687)-A(688)-A(821) + Vdot(44) = 0.6*A(357)-A(358)-A(830)-A(831)-A(832)-A(973) IF (DO_FUN(45)) & - Vdot(45) = -A(363)+A(720)+A(721)+A(722) + Vdot(45) = -A(487)+A(864)+A(865)+A(866) IF (DO_FUN(46)) & - Vdot(46) = -A(308)-A(822) + Vdot(46) = -0.79*A(256)-A(952) IF (DO_FUN(47)) & - Vdot(47) = -0.45*A(214)-A(810) + Vdot(47) = -0.9*A(262)-A(953) IF (DO_FUN(48)) & - Vdot(48) = -0.75*A(221)-A(812) + Vdot(48) = -0.86*A(263)-A(954) IF (DO_FUN(49)) & - Vdot(49) = A(294)-A(689)-A(690)-A(691)-A(827) + Vdot(49) = -0.9*A(269)-A(955) IF (DO_FUN(50)) & - Vdot(50) = A(78)-A(79) + Vdot(50) = -0.9*A(270)-A(956) IF (DO_FUN(51)) & - Vdot(51) = A(170)-A(784) + Vdot(51) = -0.86*A(271)-A(957) IF (DO_FUN(52)) & - Vdot(52) = -0.79*A(205)-A(800) + Vdot(52) = -A(359)-A(974) IF (DO_FUN(53)) & - Vdot(53) = -0.9*A(211)-A(801) + Vdot(53) = -0.45*A(265)-A(962) IF (DO_FUN(54)) & - Vdot(54) = -0.86*A(212)-A(802) + Vdot(54) = -0.75*A(272)-A(964) IF (DO_FUN(55)) & - Vdot(55) = -0.9*A(218)-A(803) + Vdot(55) = A(345)-A(833)-A(834)-A(835)-A(979) IF (DO_FUN(56)) & - Vdot(56) = -0.9*A(219)-A(804) + Vdot(56) = A(393)-A(394) IF (DO_FUN(57)) & - Vdot(57) = -0.86*A(220)-A(805) + Vdot(57) = A(438)-A(439) IF (DO_FUN(58)) & - Vdot(58) = -A(579) + Vdot(58) = 0.15*A(707)-A(732) IF (DO_FUN(59)) & - Vdot(59) = -0.65*A(213)-A(811) + Vdot(59) = A(221)-A(936) IF (DO_FUN(60)) & - Vdot(60) = A(283)-2*A(284)-A(818) + Vdot(60) = -A(714) IF (DO_FUN(61)) & - Vdot(61) = -A(179)+A(199)-A(833) + Vdot(61) = -0.65*A(264)-A(963) IF (DO_FUN(62)) & - Vdot(62) = A(3)+A(640)-A(844)-A(845) + Vdot(62) = A(334)-2*A(335)-A(970) IF (DO_FUN(63)) & - Vdot(63) = A(6)+A(641)-A(842)-A(843) + Vdot(63) = -A(230)+A(250)-A(985) IF (DO_FUN(64)) & - Vdot(64) = -A(589) + Vdot(64) = A(3)+A(784)-A(996)-A(997) IF (DO_FUN(65)) & - Vdot(65) = -A(197)-A(198)-A(199)+A(836) + Vdot(65) = A(6)+A(785)-A(994)-A(995) IF (DO_FUN(66)) & - Vdot(66) = -A(187)-A(188)-A(834) + Vdot(66) = 0.15*A(391)-A(397)+0.25*A(464)-A(1051) IF (DO_FUN(67)) & - Vdot(67) = A(53)-A(54)-A(755) + Vdot(67) = -A(248)-A(249)-A(250)+A(988) IF (DO_FUN(68)) & - Vdot(68) = 0.005*A(581)-A(586) + Vdot(68) = -A(238)-A(239)-A(986) IF (DO_FUN(69)) & - Vdot(69) = A(300)-A(302)-A(681)-A(682)-A(683) + Vdot(69) = -A(66)-A(67) IF (DO_FUN(70)) & - Vdot(70) = 0.65*A(606)-A(609)-A(892) + Vdot(70) = 0.005*A(716)-A(721) IF (DO_FUN(71)) & - Vdot(71) = -A(173)-0.95*A(208)-A(786) + Vdot(71) = 0.65*A(750)-A(753)-A(1044) IF (DO_FUN(72)) & - Vdot(72) = -A(233)-A(265)-A(789) + Vdot(72) = 0.56*A(158)-A(161) IF (DO_FUN(73)) & - Vdot(73) = A(700)+A(701)+A(704)+A(705)+A(708)+A(709)-A(828) + Vdot(73) = A(351)-A(353)-A(825)-A(826)-A(827) IF (DO_FUN(74)) & - Vdot(74) = A(146)-A(147)-A(830)-A(831) + Vdot(74) = 0.41*A(391)-A(396)-A(1050) IF (DO_FUN(75)) & - Vdot(75) = -A(227)+A(256)-A(257)-A(794) + Vdot(75) = -A(285)-A(317) IF (DO_FUN(76)) & - Vdot(76) = -A(577)-A(578) + Vdot(76) = -A(278)+A(307)-A(308)-A(946) IF (DO_FUN(77)) & - Vdot(77) = -A(172)-0.7*A(209)-A(785) + Vdot(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853)-A(980) IF (DO_FUN(78)) & - Vdot(78) = -A(234)-A(266) + Vdot(78) = -A(224)-0.95*A(259)-A(938) IF (DO_FUN(79)) & - Vdot(79) = -A(590) + Vdot(79) = -A(284)-A(316)-A(941) IF (DO_FUN(80)) & - Vdot(80) = -A(591) + Vdot(80) = A(197)-A(198)-A(982)-A(983) IF (DO_FUN(81)) & - Vdot(81) = -0.79*A(217)-A(239)-A(806) + Vdot(81) = -A(223)-0.7*A(260)-A(937) IF (DO_FUN(82)) & - Vdot(82) = -0.69*A(215)-A(237)-A(807) + Vdot(82) = -A(725) IF (DO_FUN(83)) & - Vdot(83) = -0.65*A(216)-A(238)-A(808) + Vdot(83) = A(59)-A(490)-A(999) IF (DO_FUN(84)) & - Vdot(84) = -0.75*A(210)-A(236)-A(809) + Vdot(84) = -0.79*A(268)-A(290)-A(958) IF (DO_FUN(85)) & - Vdot(85) = 0.73*A(314)+0.4*A(315)-A(570)-A(850) + Vdot(85) = -0.69*A(266)-A(288)-A(959) IF (DO_FUN(86)) & - Vdot(86) = A(10)-A(11)-A(12) + Vdot(86) = -0.65*A(267)-A(289)-A(960) IF (DO_FUN(87)) & - Vdot(87) = A(72)-A(367)-A(848) + Vdot(87) = -0.75*A(261)-A(287)-A(961) IF (DO_FUN(88)) & - Vdot(88) = -A(129)+0.37*A(571)-A(778) + Vdot(88) = 0.73*A(365)+0.4*A(366)-A(694)-A(1002) IF (DO_FUN(89)) & - Vdot(89) = A(27)-A(365)-A(846) + Vdot(89) = A(10)-A(11)-A(12) IF (DO_FUN(90)) & - Vdot(90) = -A(148)-A(149)-A(150) + Vdot(90) = A(752)-A(754)-A(755) IF (DO_FUN(91)) & - Vdot(91) = A(63)-A(368)-A(849) + Vdot(91) = A(99)-A(491)-A(1000) IF (DO_FUN(92)) & - Vdot(92) = 0.8*A(293)-A(294)-2*A(295)+2*A(296)-A(297)+0.4*A(306)+0.996*A(307)-A(817)+A(821)+2*A(826)+A(827) + Vdot(92) = -A(178)+0.37*A(695)-A(930) IF (DO_FUN(93)) & - Vdot(93) = A(85)-A(125)-A(774) + Vdot(93) = A(27)-A(489)-A(998) IF (DO_FUN(94)) & - Vdot(94) = A(107)-A(123)-A(772) + Vdot(94) = -A(199)-A(200)-A(201) IF (DO_FUN(95)) & - Vdot(95) = A(89)-A(124)-A(773) + Vdot(95) = A(64)-A(492)-A(1001) IF (DO_FUN(96)) & - Vdot(96) = A(58)-A(366)-A(847) + 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) IF (DO_FUN(97)) & - Vdot(97) = A(608)-A(610)-A(611) + Vdot(97) = A(114)-A(173)-A(921) IF (DO_FUN(98)) & - Vdot(98) = -A(362)+A(718)+A(719)+A(725)+A(726)+A(727)+A(728)+A(730)+A(731)+A(732)+A(733)+A(734)+A(735)+A(736) + Vdot(98) = A(70)-A(71)-A(922) IF (DO_FUN(99)) & - Vdot(99) = 0.191*A(298)+A(702)+A(703)+A(706)+A(707)+A(710)+A(711)-A(829) + Vdot(99) = A(146)-A(171)-A(919) IF (DO_FUN(100)) & - Vdot(100) = -A(174)-A(207)-A(787) + Vdot(100) = A(120)-A(172)-A(920) IF (DO_FUN(101)) & - Vdot(101) = 0.06*A(590)+0.06*A(591)-A(604)-A(605)-A(891) + Vdot(101) = -A(726) IF (DO_FUN(102)) & - Vdot(102) = A(39)-A(40)-A(41)-A(748)-A(749) + Vdot(102) = A(116)-A(174)-A(923) IF (DO_FUN(103)) & - Vdot(103) = A(223)+A(227)+A(252)+A(254)-A(255)-A(258)+A(260)+A(794)-A(813) + 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) IF (DO_FUN(104)) & - Vdot(104) = 0.075*A(521)+0.241*A(526)+0.653*A(537)-A(569)-A(723)-A(852)+0.75*A(858) + Vdot(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855)-A(981) IF (DO_FUN(105)) & - Vdot(105) = 0.098*A(548)+0.75*A(560)-A(561)-A(724) + Vdot(105) = -A(225)-A(258)-A(939) IF (DO_FUN(106)) & - Vdot(106) = 0.41*A(109)-A(126)-A(776) + Vdot(106) = 0.995*A(716)+A(717)+0.6*A(718)-A(719)-A(720)+A(1042) IF (DO_FUN(107)) & - Vdot(107) = 0.15*A(606)+A(611)+A(615)-A(616)-A(893) + Vdot(107) = 0.098*A(672)+0.75*A(684)-A(685)-A(868) IF (DO_FUN(108)) & - Vdot(108) = 0.995*A(581)+A(582)+0.6*A(583)-A(584)-A(585)+A(890) + Vdot(108) = A(39)-A(40)-A(41)-A(892)-A(893) IF (DO_FUN(109)) & - Vdot(109) = 0.15*A(400)+0.15*A(401)-A(406)+0.112*A(868)+0.182*A(869)+0.161*A(879) + Vdot(109) = -A(712)-A(713)+0.4*A(901) IF (DO_FUN(110)) & - Vdot(110) = A(105)+A(106)-A(122)-A(771) + Vdot(110) = A(274)+A(278)+A(303)+A(305)-A(306)-A(309)+A(311)+A(946)-A(965) IF (DO_FUN(111)) & - Vdot(111) = -A(226)+A(253)+A(259)+0.56*A(298)-A(793) + Vdot(111) = A(384)-A(387)-A(1048) IF (DO_FUN(112)) & - Vdot(112) = A(108)-A(127)-A(775) + Vdot(112) = A(404)-A(408)-A(1053) IF (DO_FUN(113)) & - Vdot(113) = A(90)-A(121)-A(770) + Vdot(113) = A(124)-A(125)-A(126) IF (DO_FUN(114)) & - Vdot(114) = -A(65)-A(74)-A(280) + Vdot(114) = A(155)-A(156)-A(160) IF (DO_FUN(115)) & - Vdot(115) = 0.19*A(590)+0.15*A(591)-A(599)-A(600) + Vdot(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)-A(693)-A(867)-A(1004)+0.75*A(1010) IF (DO_FUN(116)) & - Vdot(116) = 0.255*A(413)+0.595*A(414)-A(427)+A(454)+A(456)-A(716) + Vdot(116) = 0.11*A(709)-A(711)-A(928) IF (DO_FUN(117)) & - Vdot(117) = A(433)+0.13*A(434)+0.2*A(435)-A(539)+0.35*A(562)+0.35*A(881) + Vdot(117) = 0.15*A(750)+A(755)+A(759)-A(760)-A(1045) IF (DO_FUN(118)) & - Vdot(118) = 0.54*A(589)-A(597)-A(598) + Vdot(118) = A(144)+A(145)-A(170)-A(918) IF (DO_FUN(119)) & - Vdot(119) = A(327)+A(339)-A(343)-A(837) + Vdot(119) = 0.15*A(524)+0.15*A(525)-A(530)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031) IF (DO_FUN(120)) & - Vdot(120) = A(580)+0.2*A(583)-A(587)-A(588)-A(890) + Vdot(120) = -A(277)+A(304)+A(310)+0.56*A(349)-A(945) IF (DO_FUN(121)) & - Vdot(121) = 0.315*A(400)-A(446)-A(447) + Vdot(121) = A(732)-A(733)-A(734) IF (DO_FUN(122)) & - Vdot(122) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(151)+A(317)+A(321)+A(668)+A(675)-A(835) + Vdot(122) = A(738)-A(739)-A(740) IF (DO_FUN(123)) & - Vdot(123) = 0.315*A(401)-A(448)-A(449) + Vdot(123) = A(147)-A(176)-A(924) IF (DO_FUN(124)) & - Vdot(124) = -A(60)-A(61)-A(169)-A(276)-A(277) + Vdot(124) = A(106)-A(107)-A(108)-A(1047) IF (DO_FUN(125)) & - Vdot(125) = A(432)+A(437)-A(563)-A(885) + Vdot(125) = A(121)-A(169)-A(917) IF (DO_FUN(126)) & - Vdot(126) = 0.474*A(483)+0.34*A(484)+0.244*A(485)+0.841*A(488)+0.841*A(490)+0.841*A(493)-A(495)-A(496)+0.841*A(877)& - &+0.222*A(880) + Vdot(126) = A(86)-A(87)-A(88)-A(900) IF (DO_FUN(127)) & - Vdot(127) = 0.15*A(373)+0.15*A(381)-A(403)+0.009*A(414)-A(871) + Vdot(127) = 0.058*A(78)-A(80) IF (DO_FUN(128)) & - Vdot(128) = A(157)+A(159)-A(160)+A(669)+A(673)+A(674)-A(779) + Vdot(128) = 0.255*A(537)+0.595*A(538)-A(551)+A(578)+A(580)-A(860) IF (DO_FUN(129)) & - Vdot(129) = 0.15*A(372)+0.15*A(379)-A(402)+0.009*A(413)-A(870) + Vdot(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)-A(409)+A(458)+A(459)+A(1053) IF (DO_FUN(130)) & - Vdot(130) = 0.67*A(408)+0.68*A(410)-A(428)-A(429)+0.67*A(451)+0.67*A(453)-A(714) + Vdot(130) = 0.15*A(436)-A(442)+0.25*A(466)-A(1056) IF (DO_FUN(131)) & - Vdot(131) = 0.33*A(408)+0.32*A(410)-A(430)-A(431)+0.33*A(451)+0.33*A(453)-A(715) + Vdot(131) = A(557)+0.13*A(558)+0.2*A(559)-A(663)+0.35*A(686)+0.35*A(1033) IF (DO_FUN(132)) & - Vdot(132) = A(438)+0.2*A(439)+0.13*A(441)-A(542)+0.15*A(562)+0.15*A(881)+0.163*A(882) + Vdot(132) = 0.255*A(81)-A(82)-A(83) IF (DO_FUN(133)) & - Vdot(133) = 0.25*A(92)+0.25*A(93)-A(101)+0.4*A(103)+0.4*A(104)-A(274) + Vdot(133) = 0.315*A(524)-A(570)-A(571) IF (DO_FUN(134)) & - Vdot(134) = A(357)+A(358)+A(359)+A(360)+A(361)-A(364)-A(722)-A(841) + 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) IF (DO_FUN(135)) & - Vdot(135) = A(261)+A(650)+A(653)+A(654)+A(655)+A(661)+A(662)+A(663)+A(665)+A(670)+A(671)+A(672)-A(790) + Vdot(135) = 0.315*A(525)-A(572)-A(573) IF (DO_FUN(136)) & - Vdot(136) = 0.5*A(547)-A(548)-0.75*A(860) + Vdot(136) = A(715)+0.2*A(718)-A(722)-A(723)-A(1042) IF (DO_FUN(137)) & - Vdot(137) = A(28)-A(32)-A(269)-A(743) + Vdot(137) = 0.25*A(385)-A(388) IF (DO_FUN(138)) & - Vdot(138) = -2*A(4)-A(5)-A(6) + Vdot(138) = 0.25*A(405)-A(407) IF (DO_FUN(139)) & - Vdot(139) = A(392)-A(450)-A(451)-A(726)-A(873) + Vdot(139) = A(53)-A(54)-A(55)-A(899) IF (DO_FUN(140)) & - Vdot(140) = A(396)-A(452)-A(453)-A(727)-A(874) + Vdot(140) = -A(75)-A(76)-A(77) IF (DO_FUN(141)) & - Vdot(141) = 0.725*A(418)+0.725*A(422)+0.35*A(426)-A(564)-A(883) + Vdot(141) = -A(61)-A(62)-A(220)-A(327)-A(328) IF (DO_FUN(142)) & - Vdot(142) = 0.8*A(597)+0.727*A(599)-A(601)-A(602)-A(603) + Vdot(142) = -A(89)-A(101)-A(331) IF (DO_FUN(143)) & - Vdot(143) = A(284)+A(287)-A(288)+A(291)-A(301)-A(814) + Vdot(143) = 0.1*A(704)-A(724) IF (DO_FUN(144)) & - Vdot(144) = -A(531)-A(532)-A(533)+0.224*A(868)+0.068*A(879) + Vdot(144) = 0.15*A(497)+0.15*A(505)-A(527)+0.009*A(538)-A(1023) IF (DO_FUN(145)) & - Vdot(145) = -A(534)-A(535)-A(536)+0.182*A(869)+0.128*A(879) + 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) IF (DO_FUN(146)) & - Vdot(146) = 0.435*A(517)-A(518)-A(519) + Vdot(146) = A(733)+A(734)-A(735)-A(902) IF (DO_FUN(147)) & - Vdot(147) = -2*A(1)-A(2)-A(3) + Vdot(147) = A(556)+A(561)-A(687)-A(1037) IF (DO_FUN(148)) & - Vdot(148) = 0.3*A(590)+0.56*A(591)+0.44*A(599)+0.44*A(600)-A(626)-A(627)-A(628) + Vdot(148) = A(208)+A(210)-A(211)+A(813)+A(817)+A(818)-A(931) IF (DO_FUN(149)) & - Vdot(149) = -0.9*A(206)-A(232)-A(264)-A(788) + Vdot(149) = -A(705)-A(706) IF (DO_FUN(150)) & - Vdot(150) = 0.461*A(514)-0.33*A(515)-0.33*A(516)+0.041*A(567) + Vdot(150) = 0.15*A(496)+0.15*A(503)-A(526)+0.009*A(537)-A(1022) IF (DO_FUN(151)) & - Vdot(151) = A(481)-A(498)-A(500)-A(501)-A(503)-A(504)-A(730)-A(877)-A(878) + Vdot(151) = 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(152)) & - Vdot(152) = A(452)-A(464)-A(465)-A(466)-A(467) + Vdot(152) = 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(153)) & - Vdot(153) = A(553)+A(556)-A(559)-A(560) + 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) IF (DO_FUN(154)) & - Vdot(154) = -A(324)-A(331)-A(333) + Vdot(154) = A(481)+A(482)+A(483)+A(484)+A(485)-A(488)-A(866)-A(993) IF (DO_FUN(155)) & - Vdot(155) = -A(325)-A(332)-A(334) + Vdot(155) = 0.41*A(128)+0.41*A(148)-A(175)+0.41*A(737)-A(925) IF (DO_FUN(156)) & - Vdot(156) = A(406)-A(538)+0.444*A(563)-A(857)+0.112*A(868)+0.182*A(869)+0.162*A(879)+0.454*A(885) + Vdot(156) = 0.25*A(129)+0.25*A(130)-A(140)+0.4*A(142)+0.4*A(143)-A(325) IF (DO_FUN(157)) & - Vdot(157) = 0.937*A(374)-A(407)-A(408)-A(411)-A(864) + 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) IF (DO_FUN(158)) & - Vdot(158) = 0.25*A(83)+0.25*A(84)+0.38*A(95)+0.375*A(96)+0.25*A(98)+0.25*A(99)+0.25*A(100)-A(102)+0.25*A(328)+0.25& - &*A(340)+0.25*A(349) + Vdot(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726)-A(743)-A(744) IF (DO_FUN(159)) & - Vdot(159) = 0.55*A(589)+0.68*A(590)+0.28*A(591)+0.18*A(597)+1.05*A(601)+A(602)+0.3*A(603)+0.9*A(619)+0.9*A(620)-A(623)& - &-A(624)-A(625)+A(894) + Vdot(159) = 0.5*A(671)-A(672)-0.75*A(1012) IF (DO_FUN(160)) & - Vdot(160) = 0.06*A(597)+0.742*A(598)+0.073*A(599)+0.3*A(600)+0.3*A(601)+0.3*A(603)+A(612)+A(613)+A(614)-A(617)-A(618)& - &+A(621)+A(893) + Vdot(160) = A(398)+0.25*A(401)-A(402)-A(1052) IF (DO_FUN(161)) & - Vdot(161) = -A(56)-A(130)-A(168)-A(270) + Vdot(161) = A(410)+0.25*A(413)-A(415)-A(1054) IF (DO_FUN(162)) & - Vdot(162) = 0.937*A(376)-A(409)-A(410)-A(412)-A(865) + Vdot(162) = 0.5*A(407)+A(411)-A(416) IF (DO_FUN(163)) & - Vdot(163) = -A(537)+0.022*A(567)-A(858)+0.552*A(868)+0.454*A(869)+0.481*A(879) + Vdot(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432)-A(433)-A(434) IF (DO_FUN(164)) & - Vdot(164) = 0.824*A(415)+0.452*A(419)+A(423)+0.667*A(564)-A(565)-A(884) + Vdot(164) = A(28)-A(32)-A(320)-A(887) IF (DO_FUN(165)) & - Vdot(165) = A(377)-A(414)-A(867) + Vdot(165) = A(72)-A(73)-A(74) IF (DO_FUN(166)) & - Vdot(166) = A(455)-A(468)-A(470)-A(471)-A(472) + Vdot(166) = -2*A(4)-A(5)-A(6) IF (DO_FUN(167)) & - Vdot(167) = A(450)-A(460)-A(461)-A(462)-A(463) + Vdot(167) = -A(377)-A(378)-A(379) IF (DO_FUN(168)) & - Vdot(168) = A(457)-A(469)-A(473)-A(474)-A(475) + Vdot(168) = A(520)-A(576)-A(577)-A(871)-A(1026) IF (DO_FUN(169)) & - Vdot(169) = 0.13*A(442)+0.2*A(444)+0.53*A(527)+0.6*A(539)-A(541)+0.255*A(543)+0.318*A(563)-A(854)+0.391*A(885) + Vdot(169) = A(430)+0.25*A(432)+0.41*A(436)-A(441)-A(1055) IF (DO_FUN(170)) & - Vdot(170) = -A(335)-A(336)-A(337) + Vdot(170) = A(335)+A(338)-A(339)+A(342)-A(352)-A(966) IF (DO_FUN(171)) & - Vdot(171) = A(375)-A(413)-A(866) + Vdot(171) = -A(655)-A(656)-A(657)+0.224*A(1020)+0.068*A(1031) IF (DO_FUN(172)) & - Vdot(172) = 0.3*A(372)+0.3*A(379)+0.018*A(413)+0.284*A(416)+0.135*A(418)+0.249*A(507)+0.471*A(508)+0.303*A(509)+0.59& - &*A(511)-A(572)-A(573)-A(851)+0.5*A(887) + Vdot(172) = -A(658)-A(659)-A(660)+0.182*A(1021)+0.128*A(1031) IF (DO_FUN(173)) & - Vdot(173) = A(45)-A(46)-A(642)-A(643)-A(644)-A(645)-A(646)-A(752) + 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) IF (DO_FUN(174)) & - Vdot(174) = 0.085*A(400)+0.165*A(401)+0.58*A(402)+0.77*A(403)-A(405)+0.75*A(427)+A(428)+A(430)+A(501)+A(513)-A(729) + Vdot(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550)-A(688)-A(1035) IF (DO_FUN(175)) & - Vdot(175) = 0.6*A(458)+0.031*A(470)+0.065*A(471)+0.094*A(476)+0.355*A(477)+0.06*A(507)+0.073*A(508)+0.17*A(509)+0.291& - &*A(511)+0.378*A(514)-A(530)+0.13*A(554)+0.3*A(558)-A(735)-A(863) + Vdot(175) = A(516)-A(574)-A(575)-A(870)-A(1025) IF (DO_FUN(176)) & - Vdot(176) = -A(159)+A(171)-A(649)-A(650)-A(782)-A(783) + Vdot(176) = 0.5*A(388)+0.16*A(399)-A(403) IF (DO_FUN(177)) & - Vdot(177) = A(178)+0.2*A(180)+A(183)+A(184)-A(194)-A(195)-A(196)+0.22*A(202)+0.2*A(203)+0.09*A(206)+A(243)+A(744) + Vdot(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429)-A(435) IF (DO_FUN(178)) & - Vdot(178) = 0.12*A(326)+A(344)+0.7*A(346)+0.7*A(347)+0.7*A(348)+0.35*A(349)+0.7*A(350)+0.7*A(352)+1.4*A(354)+1.05& - &*A(355)+0.7*A(356)-A(357)-A(361)-A(720)-A(839) + Vdot(178) = A(66)+A(67)-A(68)-A(69)-A(70)+0.5*A(71) IF (DO_FUN(179)) & - Vdot(179) = A(578)-A(580)-A(581)-A(582)-A(583)+A(587) + Vdot(179) = -2*A(1)-A(2)-A(3) IF (DO_FUN(180)) & - Vdot(180) = A(604)+A(605)-A(606)-A(607)-A(608)+A(609)+A(610)-A(622) + Vdot(180) = 0.435*A(641)-A(642)-A(643) IF (DO_FUN(181)) & - Vdot(181) = 0.473*A(480)+0.07*A(482)+0.399*A(483)+0.355*A(486)-A(497)-A(499)-A(502)-A(731)-A(876) + Vdot(181) = -0.9*A(257)-A(283)-A(315)-A(940) IF (DO_FUN(182)) & - Vdot(182) = 0.345*A(407)+0.595*A(413)-A(415)-A(416)-A(417)-A(418) + Vdot(182) = 0.461*A(638)-0.33*A(639)-0.33*A(640)+0.041*A(691) IF (DO_FUN(183)) & - Vdot(183) = 0.345*A(409)+0.255*A(414)-A(419)-A(420)-A(421)-A(422) + Vdot(183) = -A(57)-A(179)-A(219)-A(321) IF (DO_FUN(184)) & - Vdot(184) = 0.46*A(589)+0.81*A(590)+0.85*A(591)-A(592)-A(593)-A(594)-A(595)-A(596)+0.14*A(597)+0.2*A(599)+0.2*A(600)& - &+0.7*A(601)+0.2*A(603) + Vdot(184) = A(677)+A(680)-A(683)-A(684) IF (DO_FUN(185)) & - Vdot(185) = 0.29*A(526)+0.47*A(527)+0.063*A(537)+0.4*A(539)-A(540)+0.16*A(542)+0.126*A(563)-A(855)+0.133*A(882)+0.155& - &*A(885) + 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) IF (DO_FUN(186)) & - Vdot(186) = 0.25*A(372)+0.25*A(379)-A(400)+0.015*A(413)-A(868) + Vdot(186) = A(605)-A(622)-A(624)-A(625)-A(627)-A(628)-A(874)-A(1029)-A(1030) IF (DO_FUN(187)) & - Vdot(187) = 0.655*A(407)+0.655*A(409)-A(423)-A(424)-A(425)-A(426) + Vdot(187) = 0.937*A(498)-A(531)-A(532)-A(535)-A(1016) IF (DO_FUN(188)) & - Vdot(188) = 0.25*A(373)+0.25*A(381)-A(401)+0.015*A(414)-A(869) + 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) IF (DO_FUN(189)) & - Vdot(189) = A(498)-A(505)-A(508)-A(511)-A(512) + Vdot(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707)-A(709)-A(710) IF (DO_FUN(190)) & - Vdot(190) = -A(25)+0.1*A(111)-A(180)-A(240)+A(754) + Vdot(190) = A(576)-A(588)-A(589)-A(590)-A(591) IF (DO_FUN(191)) & - Vdot(191) = 0.2*A(606)+A(607)-A(612)-A(613)-A(614)-A(615)+A(616)+A(617)-A(621)+A(622)+A(891)+A(892) + Vdot(191) = -A(375)-A(382)-A(383) IF (DO_FUN(192)) & - Vdot(192) = A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.45*A(395)+0.45*A(399)-A(404)+0.06*A(413)+0.06*A(414)+A(866)& - &+A(867)+0.45*A(872)+0.45*A(875) + Vdot(192) = 0.937*A(500)-A(533)-A(534)-A(536)-A(1017) IF (DO_FUN(193)) & - Vdot(193) = A(37)-A(38)+0.5*A(638)+A(658)+A(659)+A(660)+A(661)+A(662)+A(663)+A(695)+A(696)+A(700)+A(701)+A(702)+A(703)& - &-A(747)+A(842)+A(844)+A(894) + Vdot(193) = A(444)-A(450)-A(451)-A(452) IF (DO_FUN(194)) & - Vdot(194) = 0.16*A(412)+0.25*A(427)-A(442)-A(443)-A(444)-A(445) + Vdot(194) = -A(661)+0.022*A(691)-A(1010)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031) IF (DO_FUN(195)) & - Vdot(195) = 0.12*A(111)-A(318)-A(319)-A(320)-A(321)-A(322)-A(323) + Vdot(195) = 0.54*A(724)-A(741)-A(742) IF (DO_FUN(196)) & - Vdot(196) = -A(33)+0.85*A(87)+0.85*A(88)+0.3*A(373)+0.3*A(381)+0.018*A(414)+0.294*A(420)+0.135*A(422)+0.009*A(507)& - &+0.054*A(508)+0.013*A(509)+0.07*A(511)+0.036*A(522)+0.23*A(528)-A(832)+0.05*A(887) + Vdot(196) = A(69)-A(72)+A(74)-A(927) IF (DO_FUN(197)) & - Vdot(197) = -0.75*A(204)-A(222)+A(251)+0.95*A(258)+A(263)+0.5*A(647)+0.5*A(648)+A(652)+A(656)+A(657)+A(658)+A(659)& - &+A(660)+A(664)+A(666)+A(667)-A(791) + Vdot(197) = 0.68*A(81)-A(84)-A(85)-A(86)+A(87)+A(900)+0.3*A(901) IF (DO_FUN(198)) & - Vdot(198) = 0.791*A(121)-A(310)+0.551*A(470)+0.935*A(471)+0.242*A(476)+0.546*A(477)+0.589*A(507)+0.471*A(508)+0.687& - &*A(509)+0.59*A(511)+0.231*A(515)+0.231*A(516)+A(518)+0.82*A(519)+0.68*A(525)+A(530)-A(853)+A(863) + Vdot(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688)-A(689)-A(1036) IF (DO_FUN(199)) & - Vdot(199) = 0.06*A(326)+0.22*A(338)+0.3*A(346)+0.3*A(347)+0.3*A(348)+0.15*A(349)+0.3*A(350)+0.3*A(352)+0.6*A(354)+0.45& - &*A(355)+0.3*A(356)-A(358)-A(359)-A(360)-A(721)-A(840) + Vdot(199) = A(501)-A(538)-A(1019) IF (DO_FUN(200)) & - Vdot(200) = 0.059*A(461)+0.272*A(462)-A(529)+A(536)+A(551)+0.37*A(554)-A(736)-A(862)+0.5*A(886) + Vdot(200) = -A(707)-A(708) IF (DO_FUN(201)) & - Vdot(201) = -A(73)-A(90)-A(100)+A(114)+0.209*A(121)-A(138) + 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) IF (DO_FUN(202)) & - Vdot(202) = A(67)+0.072*A(70)-A(75)+A(86)-A(719)-A(777) + Vdot(202) = 0.8*A(741)+0.727*A(743)-A(745)-A(746)-A(747) IF (DO_FUN(203)) & - Vdot(203) = A(285)-A(286)-2*A(287)-A(695)-A(696)-A(700)-A(701)-A(702)-A(703)-A(819) + 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) IF (DO_FUN(204)) & - Vdot(204) = A(520)+A(531)+A(532)-A(543)-A(544)-A(545) + 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) IF (DO_FUN(205)) & - Vdot(205) = 0.964*A(522)+A(534)+A(535)-A(546)-A(549)-A(550)-A(551) + Vdot(205) = A(574)-A(584)-A(585)-A(586)-A(587) IF (DO_FUN(206)) & - Vdot(206) = 0.176*A(415)+0.548*A(419)+0.35*A(434)+0.35*A(441)+0.35*A(442)-A(562)+0.333*A(564)-A(881)-A(882)+0.75& - &*A(883) + Vdot(206) = A(579)-A(592)-A(594)-A(595)-A(596) IF (DO_FUN(207)) & - Vdot(207) = A(523)+0.32*A(525)-A(547)+0.165*A(548)-A(552)-A(553)+A(559) + Vdot(207) = A(581)-A(593)-A(597)-A(598)-A(599) IF (DO_FUN(208)) & - Vdot(208) = -A(309)+0.441*A(473)+0.858*A(474)+0.033*A(476)+0.071*A(477)+0.051*A(507)+0.054*A(508)+0.064*A(509)+0.07& - &*A(511)+0.099*A(515)+0.099*A(516)+0.89*A(518)+0.73*A(519)-A(568)-A(838)+0.3*A(861)+0.15*A(886) + 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) IF (DO_FUN(209)) & - Vdot(209) = -A(64)-A(84)-A(108)+A(110)+0.209*A(127)-A(141)+A(281)+A(282) + Vdot(209) = A(499)-A(537)-A(1018) IF (DO_FUN(210)) & - Vdot(210) = 0.258*A(598)+0.5*A(600)+0.5*A(603)+A(618)-A(619)-A(620)-A(737)-A(894) + 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) IF (DO_FUN(211)) & - Vdot(211) = -A(47)+0.134*A(112)+A(113)+0.5*A(120)-A(267)+0.21*A(314)+0.54*A(315)+0.07*A(326)+0.01*A(336)+0.449*A(526)& - &+0.187*A(537)+0.3*A(561)+0.5*A(570)+0.364*A(579)+0.26*A(623)+0.5*A(624)+0.1*A(626)+0.2*A(627) + Vdot(211) = 0.25*A(418)-A(426)-A(427)-A(428) IF (DO_FUN(212)) & - Vdot(212) = -A(7)+A(19)-A(21)+A(23)-A(193)-A(244)+0.06*A(314)+0.06*A(315)+A(322)+0.02*A(331)+0.02*A(332)+0.02*A(336)& - &+0.013*A(369)+0.045*A(521)-A(742) + Vdot(212) = A(75)-A(78)-A(79) IF (DO_FUN(213)) & - Vdot(213) = A(436)+A(440)+A(443)+A(460)+A(464)+A(468)+A(469)+A(505)+0.5*A(506)-A(566)+0.9*A(567)-A(733)-A(888)-A(889) + Vdot(213) = 0.8*A(153)+A(154)-A(155)+A(156)-A(157)-A(158)-A(159) IF (DO_FUN(214)) & - Vdot(214) = A(394)-A(456)-A(457)-A(459)+0.127*A(484)+0.057*A(485)-A(728)-A(875) + Vdot(214) = A(45)-A(46)-A(786)-A(787)-A(788)-A(789)-A(790)-A(896) IF (DO_FUN(215)) & - Vdot(215) = 0.1*A(333)+0.1*A(334)+0.5*A(337)-A(344)-A(346)-A(348)-A(350)-A(352)-2*A(354)-A(355) + 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) IF (DO_FUN(216)) & - Vdot(216) = 0.9*A(333)+0.9*A(334)+0.5*A(337)-A(345)-A(347)-A(349)-A(351)-A(353)-A(355)-2*A(356) + 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) IF (DO_FUN(217)) & - Vdot(217) = A(56)-A(57)-A(58)-A(92)-2*A(103)-A(105)+A(130)-A(139)+A(168)+A(270)-A(271) + 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) IF (DO_FUN(218)) & - Vdot(218) = A(29)+0.13*A(31)-A(48)+0.25*A(83)+0.25*A(84)+0.25*A(92)+0.25*A(93)+0.25*A(95)+0.25*A(96)+0.5*A(97)+0.25& - &*A(98)+0.25*A(99)+0.25*A(100)-A(273)+0.25*A(328)+0.25*A(340)+0.25*A(349)+0.355*A(485)+0.034*A(486)+0.2& - &*A(583)+0.1*A(760) + Vdot(218) = -A(210)+A(222)-A(793)-A(794)-A(934)-A(935) IF (DO_FUN(219)) & - Vdot(219) = -A(76)+0.5*A(120)+0.1*A(132)+0.1*A(133)+0.1*A(134)+0.1*A(135)+0.1*A(136)+0.1*A(137)+0.1*A(138)+0.1*A(139)& - &+0.1*A(140)+0.1*A(141)+0.1*A(142)-A(275)+A(323)+0.13*A(571)+0.15*A(626)+0.3*A(627) + Vdot(219) = -A(376)-A(380)-A(381) IF (DO_FUN(220)) & - Vdot(220) = A(398)-A(454)-A(455)-A(458)+0.032*A(483)+0.671*A(484)+0.298*A(485)-A(725)-A(872) + Vdot(220) = -A(702)-A(703)-A(704) IF (DO_FUN(221)) & - Vdot(221) = 0.34*A(66)+A(71)-A(82)+0.16*A(95)+0.75*A(99)+0.791*A(124)+0.29*A(133)+A(136)-A(167)-A(278)+0.11*A(326)& - &+A(367)-A(757)-A(758)+A(773)+0.34*A(777)+A(848) + 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) IF (DO_FUN(222)) & - Vdot(222) = 0.67*A(497)-A(506)-A(507)-A(509)-A(510) + 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) IF (DO_FUN(223)) & - Vdot(223) = 0.134*A(112)-A(115)-A(117)+0.8*A(439)+0.52*A(441)+A(573)+0.636*A(579)+0.18*A(589)+0.12*A(590)+0.1*A(591)& - &+0.06*A(597)+0.6*A(623)+0.6*A(624)+0.2*A(625)-A(712)-A(761)-A(762)-A(763)+0.5*A(855)+0.429*A(857)+0.125& - &*A(858)+0.586*A(882)+0.571*A(884) + Vdot(223) = 0.345*A(531)+0.595*A(537)-A(539)-A(540)-A(541)-A(542) IF (DO_FUN(224)) & - Vdot(224) = -A(279)-A(369)-A(370)-A(371)-A(372)-A(373)-A(479) + Vdot(224) = 0.345*A(533)+0.255*A(538)-A(543)-A(544)-A(545)-A(546) IF (DO_FUN(225)) & - Vdot(225) = A(335)-A(338)-A(339)-A(340)-A(341)-A(342) + 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) IF (DO_FUN(226)) & - Vdot(226) = 0.19*A(66)-A(91)-A(94)+0.35*A(95)+0.25*A(98)+0.271*A(133)+0.1*A(135)+0.44*A(326)+0.75*A(328)+1.125*A(329)& - &+A(330)+0.53*A(331)+0.53*A(332)+0.289*A(338)+0.41*A(343)+0.464*A(345)+0.34*A(349)+0.464*A(351)+0.464*A(353)& - &+0.149*A(355)+0.285*A(356)-A(759)+0.19*A(777)+A(839) + Vdot(226) = A(622)-A(629)-A(632)-A(635)-A(636) IF (DO_FUN(227)) & - Vdot(227) = -A(289)+A(290)+A(292)-A(293)-A(294)+A(297)-A(298)+A(299)+A(303)-A(304)-A(305)-2*A(306)+0.008*A(307)-A(816)& - &+A(827) + 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) IF (DO_FUN(228)) & - Vdot(228) = 0.294*A(404)+0.67*A(429)+0.81*A(431)-A(432)-A(433)-A(434)-A(435)-A(436)+0.08*A(563) + Vdot(228) = -A(25)+0.1*A(150)-A(231)-A(291)+A(898) IF (DO_FUN(229)) & - Vdot(229) = 0.068*A(404)+0.33*A(429)+0.19*A(431)-A(437)-A(438)-A(439)-A(440)-A(441)+0.032*A(563) + Vdot(229) = A(443)-A(447)-A(448)-A(449)-A(989)-A(1057) IF (DO_FUN(230)) & - Vdot(230) = A(385)+0.5*A(387)+0.5*A(389)+0.55*A(395)+0.33*A(400)+0.19*A(402)+0.125*A(404)+0.125*A(411)+0.706*A(420)& - &+0.14*A(422)+0.054*A(507)+0.059*A(509)-A(527)+0.335*A(543)+0.429*A(565)+0.75*A(566)-A(856)+0.55*A(872)+0.5& - &*A(889) + Vdot(230) = 0.25*A(496)+0.25*A(503)-A(524)+0.015*A(537)-A(1020) IF (DO_FUN(231)) & - Vdot(231) = A(386)+0.5*A(387)+0.5*A(391)+0.55*A(399)+0.17*A(401)+0.09*A(403)+0.158*A(404)+0.165*A(412)+0.716*A(416)& - &+0.14*A(418)+0.004*A(507)+0.006*A(509)-A(528)+0.41*A(546)+0.5*A(562)+0.571*A(565)+0.25*A(566)-A(859)+0.55& - &*A(875)+0.5*A(881)+0.15*A(887)+0.5*A(889) + Vdot(231) = 0.25*A(497)+0.25*A(505)-A(525)+0.015*A(538)-A(1021) IF (DO_FUN(232)) & - Vdot(232) = -A(476)-A(477)-A(478)+A(496)+0.33*A(497)+0.037*A(567) + Vdot(232) = 0.655*A(531)+0.655*A(533)-A(547)-A(548)-A(549)-A(550) IF (DO_FUN(233)) & - Vdot(233) = 0.3*A(33)+0.5*A(97)-A(116)-A(118)+A(119)+0.1*A(134)+A(310)+0.3*A(372)+0.3*A(373)+0.3*A(379)+0.3*A(381)& - &+0.085*A(400)+0.165*A(401)+0.355*A(404)+0.5*A(405)+0.018*A(413)+0.018*A(414)+0.52*A(434)+0.8*A(435)+0.545& - &*A(521)+0.88*A(524)+0.449*A(526)+0.187*A(537)+A(538)+A(540)+0.05*A(543)+0.242*A(544)+0.083*A(546)+0.14& - &*A(550)+0.7*A(561)+0.12*A(590)+0.2*A(591)+0.6*A(626)+0.6*A(627)+0.2*A(628)-A(713)-A(764)+0.5*A(855)+0.47& - &*A(856)+0.571*A(857)+0.125*A(858)+0.23*A(859)+0.118*A(882)+0.429*A(884)+A(888) + Vdot(233) = A(76)+A(77)+0.73*A(78)-A(81)-A(901) IF (DO_FUN(234)) & - Vdot(234) = 0.22*A(111)-A(311)-A(312)-A(313)-A(314)-A(315)-A(316)-A(317)+0.58*A(369)+0.5*A(521)+0.88*A(524)+A(577) + Vdot(234) = A(127)+0.44*A(128)+A(713)-A(715)-A(716)-A(717)-A(718)+A(722) IF (DO_FUN(235)) & - Vdot(235) = -A(230)+A(643)+A(645)+A(646)-A(658)-A(659)-A(660)-A(661)-A(662)-A(663)-A(795) + Vdot(235) = A(748)+A(749)-A(750)-A(751)-A(752)+A(753)+A(754)-A(766) IF (DO_FUN(236)) & - Vdot(236) = -A(112)-A(113)+0.294*A(420)+0.135*A(422)+A(424)+0.65*A(426)+0.52*A(434)+0.8*A(435)+0.459*A(461)+0.728& - &*A(462)+0.551*A(470)+0.935*A(471)+0.242*A(476)+0.546*A(477)+0.34*A(507)+0.384*A(509)+0.11*A(518)+0.09& - &*A(519)+0.36*A(543)+0.758*A(544)+0.2*A(583)+A(585)+A(586)+A(588)+A(602)+0.9*A(624)+0.95*A(627)-A(760)+0.53& - &*A(856)+0.69*A(861)+0.5*A(880)+0.118*A(882)+0.25*A(883)+0.429*A(884)+0.3*A(886)+0.35*A(887)+A(888) + 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) IF (DO_FUN(237)) & - Vdot(237) = A(61)-A(62)-A(63)+0.05*A(66)+0.07*A(80)-A(83)+0.03*A(95)-A(107)+0.03*A(109)+0.36*A(123)+0.045*A(133)& - &-A(142)+0.07*A(143)+0.07*A(144)+A(169)+A(277)+0.07*A(756)+0.06*A(759)+0.05*A(777) + 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) IF (DO_FUN(238)) & - Vdot(238) = A(324)+A(325)-A(326)-A(327)-A(328)-A(329)-A(330) + 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) IF (DO_FUN(239)) & - Vdot(239) = -A(59)+0.34*A(66)+0.49*A(80)-A(93)+0.16*A(95)-2*A(104)-A(106)+0.22*A(109)+0.36*A(122)+0.29*A(133)-A(140)& - &+0.49*A(143)+0.49*A(144)-A(272)+0.16*A(336)+0.49*A(756)+0.415*A(759)+0.34*A(777) + 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) IF (DO_FUN(240)) & - Vdot(240) = 0.4*A(458)+0.4*A(459)+0.07*A(482)+0.532*A(483)+0.862*A(484)+0.401*A(485)+0.034*A(486)+0.159*A(488)+0.159& - &*A(490)+0.159*A(493)+A(495)+A(504)-A(513)-A(514)+0.159*A(877)-A(879)+0.223*A(880) + Vdot(240) = A(735)-A(736)-A(737)-A(738)+A(739) IF (DO_FUN(241)) & - Vdot(241) = 0.6*A(459)+0.599*A(465)+A(466)+0.065*A(473)+0.142*A(474)+0.01*A(476)+0.028*A(477)+0.008*A(507)+0.015& - &*A(508)+0.014*A(509)+0.049*A(511)+0.161*A(514)-A(526)+A(533)+A(545)-A(718)-A(861)+0.05*A(886) + Vdot(241) = 0.12*A(150)-A(369)-A(370)-A(371)-A(372)-A(373)-A(374) IF (DO_FUN(242)) & - Vdot(242) = A(417)+A(421)+A(425)+0.482*A(461)+0.401*A(465)+0.418*A(470)+0.494*A(473)+0.621*A(476)+A(499)+A(500)+0.5& - &*A(506)+0.234*A(507)+0.387*A(508)+0.565*A(517)-A(567)-A(734)-A(886)-A(887) + 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) IF (DO_FUN(243)) & - Vdot(243) = A(463)+A(467)+A(472)+A(475)+A(478)+A(492)+A(494)+A(510)+A(512)-A(517)+0.18*A(519)-A(732)-A(880) + Vdot(243) = 0.16*A(536)+0.25*A(551)-A(566)-A(567)-A(568)-A(569) IF (DO_FUN(244)) & - Vdot(244) = 0.5*A(279)+A(371)-A(376)-A(377)-A(380)-A(381)-2*A(383)-A(384)-2*A(386)-A(387)-A(390)-A(391)-A(396)-A(397)& - &-A(398)-A(399)+0.51*A(412)+0.03*A(414)+0.159*A(878) + 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) IF (DO_FUN(245)) & - Vdot(245) = 0.5*A(279)+A(370)-A(374)-A(375)-A(378)-A(379)-2*A(382)-A(384)-2*A(385)-A(387)-A(388)-A(389)-A(392)-A(393)& - &-A(394)-A(395)+0.75*A(411)+0.03*A(413)+0.841*A(878) + 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) IF (DO_FUN(246)) & - Vdot(246) = 0.535*A(479)-A(481)-A(483)-2*A(484)-A(485)-A(488)-A(490)-A(493)-A(494)+A(503) + Vdot(246) = 0.31*A(123)-A(124)+A(125)-A(127)-A(128) IF (DO_FUN(247)) & - Vdot(247) = 0.465*A(479)-A(480)-2*A(482)-A(483)-A(486)-A(487)-A(489)-A(491)-A(492)+A(502) + 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) IF (DO_FUN(248)) & - Vdot(248) = 0.177*A(369)+0.063*A(374)+A(378)+2*A(382)+A(384)+A(388)+A(393)+0.035*A(400)+0.23*A(402)+0.125*A(411)& - &+A(446)+A(447)+0.479*A(480)+1.737*A(482)+0.544*A(483)+0.583*A(486)+0.903*A(487)+0.903*A(489)+0.904*A(491)& - &-A(520)-A(521)+0.04*A(590)+0.04*A(591)-A(765)-A(766)-A(767)+A(864)+A(870)+A(873)+0.903*A(876)+0.05*A(880) + 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) IF (DO_FUN(249)) & - Vdot(249) = A(529)-A(554)-A(555)-A(556)-A(557)-A(558) + Vdot(249) = -A(92)+A(103)-A(117)-A(135)-A(188) IF (DO_FUN(250)) & - Vdot(250) = 0.16*A(84)+0.2*A(97)-A(119)-A(120)+0.791*A(127)+0.065*A(141)+0.058*A(338)+A(364)+0.5*A(405)+0.284*A(416)& - &+0.135*A(418)+A(424)+0.65*A(426)+0.8*A(439)+0.52*A(441)+0.52*A(442)+0.8*A(444)+A(445)+0.459*A(461)+0.728& - &*A(462)+0.441*A(473)+0.858*A(474)+0.033*A(476)+0.071*A(477)+0.042*A(507)+0.051*A(509)+0.77*A(528)+0.84& - &*A(542)+0.507*A(546)+0.488*A(548)+A(549)+0.86*A(550)+0.5*A(554)+A(555)+A(557)+0.7*A(558)+0.25*A(560)-A(769)& - &+A(841)+0.77*A(859)+A(862)+0.5*A(880)+0.586*A(882)+0.25*A(883)+0.571*A(884)+0.45*A(886)+0.8*A(887) + Vdot(250) = -A(100)-A(121)-A(139)+A(162)+0.209*A(169)-A(189) IF (DO_FUN(251)) & - Vdot(251) = 0.79*A(336)+0.308*A(340)+0.308*A(341)+0.615*A(342)+0.416*A(369)+0.063*A(376)+A(380)+2*A(383)+A(384)+A(390)& - &+A(397)+0.035*A(401)+0.14*A(403)+0.165*A(412)+A(448)+A(449)+0.048*A(480)+0.123*A(482)+0.019*A(483)+0.028& - &*A(486)+0.097*A(487)+0.097*A(489)+0.096*A(491)-A(522)-A(523)-A(524)-A(525)-A(768)+A(865)+A(871)+A(874)& - &+0.097*A(876)+0.005*A(880) + Vdot(251) = A(94)-A(102)+A(115)+0.07*A(123)-A(863)-A(926) IF (DO_FUN(252)) & - Vdot(252) = 0.7*A(33)-A(69)+A(82)-A(87)-A(97)-A(134)+A(167)+A(278) + Vdot(252) = A(336)-A(337)-2*A(338)-A(839)-A(840)-A(844)-A(845)-A(846)-A(847)-A(971) IF (DO_FUN(253)) & - Vdot(253) = -A(110)-A(111)-A(114)-A(281)-A(282)+0.46*A(336)+0.289*A(338)+0.192*A(340)+0.192*A(341)+0.385*A(342)+A(765) + Vdot(253) = 0.964*A(646)+A(658)+A(659)-A(670)-A(673)-A(674)-A(675) IF (DO_FUN(254)) & - Vdot(254) = -A(70)-A(88)+A(91)+A(94)-A(98)-A(135)+0.62*A(331)+0.62*A(332)+0.42*A(336) + Vdot(254) = A(644)+A(655)+A(656)-A(667)-A(668)-A(669) IF (DO_FUN(255)) & - Vdot(255) = A(77)-A(78)+A(79)-A(80)+A(81)-A(109)+A(126)-A(143)-A(144)+0.33*A(623)+0.33*A(626)+0.15*A(759)+A(767) + 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) IF (DO_FUN(256)) & - Vdot(256) = A(65)-A(66)-A(67)+A(74)-A(85)-A(95)+0.15*A(96)+0.21*A(125)-A(133)+0.27*A(137)+A(280)+0.44*A(343)+0.2& - &*A(628) + 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) IF (DO_FUN(257)) & - Vdot(257) = -A(68)+A(75)-A(86)-A(96)-A(137)+0.5*A(619)+0.5*A(620) + 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) IF (DO_FUN(258)) & - Vdot(258) = A(60)+0.19*A(66)-A(71)-A(72)+0.27*A(80)-A(89)+0.09*A(95)-A(99)+0.12*A(109)+0.209*A(124)+0.162*A(133)& - &-A(136)+0.27*A(143)+0.27*A(144)+A(276)+0.27*A(756)+0.23*A(759)+0.19*A(777) + 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) IF (DO_FUN(259)) & - Vdot(259) = A(62)+0.15*A(66)+0.64*A(68)-A(77)-A(81)+0.75*A(83)+0.09*A(84)+0.13*A(95)+0.58*A(96)+0.25*A(100)+A(102)& - &+0.64*A(123)+1.185*A(125)+0.255*A(133)+0.613*A(137)+0.1*A(138)+0.035*A(141)+A(142)+0.43*A(326)+0.75*A(328)& - &+A(329)+A(330)+0.65*A(331)+0.65*A(332)+0.491*A(338)+0.08*A(343)+1.24*A(345)+0.93*A(349)+1.24*A(351)+1.24& - &*A(353)+0.64*A(355)+1.21*A(356)+A(368)+1.2*A(625)+1.15*A(628)-A(756)+A(770)+A(772)+1.5*A(774)+0.15*A(777)& - &+A(837)+A(840)+A(849) + Vdot(259) = A(647)+0.32*A(649)-A(671)+0.165*A(672)-A(676)-A(677)+A(683) IF (DO_FUN(260)) & - Vdot(260) = A(153)+A(160)-A(161)+A(649)-A(669)-A(670)-A(671)-A(672)-A(673)-A(674)-A(675)+A(676)+A(677)+A(678)-A(781) + Vdot(260) = -A(65)-A(113)-A(147)+A(149)+0.209*A(176)-A(192)+A(332)+A(333) IF (DO_FUN(261)) & - Vdot(261) = 0.95*A(51)+A(52)-A(53)+A(54)-A(55)+A(69)+0.919*A(70)+0.15*A(87)+0.15*A(88)+0.3*A(97)+0.5*A(98)+A(116)& - &+A(118)+0.78*A(129)-2*A(131)-A(132)-A(133)-0.1*A(134)-0.1*A(135)-A(136)-A(137)-A(138)-A(139)-A(140)-A(141)& - &-A(142)-A(143)+A(166)-A(329)-A(341)-A(350)-A(351)+0.3*A(372)+0.3*A(379)+0.018*A(413)-A(487)-A(488)+0.38& - &*A(521)+0.12*A(524)+0.04*A(526)+0.097*A(537)+A(541)+0.36*A(543)+0.758*A(544)+0.175*A(547)+0.087*A(548)+0.35& - &*A(552)+0.3*A(561)+A(568)+A(569)-A(571)-A(596)+0.12*A(753)+0.7*A(755)+A(757)+0.85*A(759)+A(764)+A(766)& - &+A(768)+A(769)+A(832)+A(852)+A(853)+A(854)+0.5*A(855)+0.53*A(856)+0.429*A(857)+0.125*A(858)+0.262*A(860)& - &+1.01*A(861) + 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) IF (DO_FUN(262)) & - Vdot(262) = -A(231)+A(250)-A(262)-A(263)-A(651)-A(652)-A(653)-A(654)-A(655)-A(656)-A(657)-A(796)-A(797) + 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) IF (DO_FUN(263)) & - Vdot(263) = -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(64)+0.64& - &*A(68)+A(69)+A(73)+0.75*A(83)+1.25*A(84)+0.15*A(87)+0.75*A(92)+0.75*A(93)+0.75*A(95)+0.95*A(96)+0.5*A(97)& - &+0.75*A(98)+0.75*A(99)+1.25*A(100)+0.5*A(111)+0.732*A(112)+0.22*A(129)+A(132)+0.9*A(134)+0.351*A(137)+0.9& - &*A(138)+0.9*A(141)+A(144)+A(148)+A(150)-A(165)+0.25*A(180)-A(201)+A(223)-A(241)+A(268)+A(273)+A(309)+A(311)& - &+A(312)+A(313)+0.06*A(314)+0.06*A(315)+A(316)+A(317)+0.23*A(326)+0.75*A(328)+0.04*A(336)+0.231*A(338)+1.04& - &*A(340)+0.385*A(341)+0.385*A(342)+0.287*A(345)+A(348)+0.85*A(349)+0.287*A(351)+0.287*A(353)+0.202*A(355)& - &+0.504*A(356)+A(365)+0.827*A(369)+0.3*A(372)+0.3*A(373)+0.063*A(374)+0.063*A(376)+A(378)+0.3*A(379)+A(380)& - &+0.3*A(381)+2*A(382)+2*A(383)+2*A(384)+2*A(388)+A(389)+2*A(390)+A(391)+A(393)+A(397)+0.085*A(400)+0.165& - &*A(401)+0.5*A(405)+0.018*A(413)+0.018*A(414)+0.716*A(416)+0.14*A(418)+0.706*A(420)+0.14*A(422)+0.65*A(442)& - &+A(444)+0.059*A(461)+0.272*A(462)+0.599*A(465)+A(466)+0.031*A(470)+0.065*A(471)+0.065*A(473)+0.142*A(474)& - &+0.104*A(476)+0.383*A(477)+0.527*A(480)+1.86*A(482)+0.563*A(483)+0.645*A(485)+1.577*A(486)+A(487)+A(489)& - &+A(491)+0.126*A(507)+0.088*A(508)+0.249*A(509)+0.34*A(511)+0.6*A(521)+0.12*A(524)+0.241*A(526)+0.05*A(543)& - &+0.242*A(544)+0.083*A(546)+0.5*A(547)+0.25*A(548)+0.14*A(550)+A(552)+A(558)+0.022*A(567)+0.5*A(570)+A(572)& - &+A(577)+0.8*A(583)+2*A(584)+A(595)+A(621)+A(622)+A(635)+A(743)-A(744)-A(745)+0.9*A(760)+A(763)+A(766)& - &+A(768)+A(769)+A(775)+A(830)+A(832)+A(838)+A(846)+A(850)+A(851)+A(853)+A(854)+0.47*A(856)+0.23*A(859)+0.75& - &*A(860)+A(864)+A(865)+A(873)+A(874)+A(876)+0.055*A(880)+0.133*A(882)+0.55*A(886)+0.15*A(887) + 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) IF (DO_FUN(264)) & - Vdot(264) = -A(51)-A(52)+A(57)+A(59)+A(64)+0.34*A(66)+0.97*A(68)+0.919*A(70)+A(73)+0.5*A(84)+0.15*A(88)+0.75*A(92)& - &+0.75*A(93)+0.16*A(95)+0.38*A(96)+0.5*A(98)+0.5*A(100)+A(101)+1.6*A(103)+1.6*A(104)+0.5*A(111)+0.64*A(122)& - &+0.29*A(133)+0.9*A(135)+0.675*A(137)+0.9*A(138)+A(139)+A(140)+0.9*A(141)-A(166)+A(271)+A(272)+A(274)+A(318)& - &+A(319)+A(320)+A(321)+A(322)+A(366)-A(753)-A(754)+A(771)+A(775)+A(776)+0.34*A(777)+A(847) + 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) IF (DO_FUN(265)) & - Vdot(265) = -A(3)-A(6)+A(35)-A(36)+A(50)+A(52)+A(74)+A(81)+A(94)+A(117)+A(118)+A(130)+A(150)+A(362)+A(363)+0.32*A(525)& - &+A(568)+0.742*A(598)+0.5*A(600)+0.5*A(603)+A(605)+0.5*A(620)+0.5*A(638)+A(639)+2*A(642)+A(643)+2*A(644)& - &+A(645)+A(646)+A(649)+A(650)+A(651)+A(652)+A(653)+A(654)+A(655)+A(656)+A(657)+A(697)+A(698)+A(699)+A(704)& - &+A(705)+A(706)+A(707)-A(746) + 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) IF (DO_FUN(266)) & - Vdot(266) = -A(17)+A(25)-A(26)-A(27)-A(28)-2*A(29)-2*A(30)-A(31)+0.7*A(32)+A(55)+0.19*A(66)+A(76)-A(83)-A(84)+0.85& - &*A(88)-A(92)-A(93)-0.91*A(95)-A(96)-A(97)-0.75*A(98)-A(99)-A(100)+0.28*A(111)+0.5*A(120)+2*A(131)-0.1& - &*A(132)+0.9*A(133)+0.9*A(134)+0.9*A(135)+0.9*A(136)+0.9*A(137)+0.9*A(138)+0.9*A(139)+0.9*A(140)+0.9*A(141)& - &+0.9*A(142)+A(143)-A(144)-A(146)+A(147)+A(148)+A(149)+A(150)+0.75*A(180)+0.9*A(206)+A(207)-A(223)+A(240)& - &-A(268)+A(269)+A(275)+A(308)-A(328)+0.5*A(329)-A(340)+0.5*A(341)-A(348)-A(349)+A(350)+0.5*A(351)+0.407& - &*A(369)-A(388)-A(389)-A(390)-A(391)-A(485)-A(486)+A(487)+A(488)+0.325*A(547)+0.162*A(548)+0.65*A(552)& - &-A(558)+0.5*A(571)-A(583)-A(595)+A(596)-A(621)-A(622)-A(635)+0.88*A(753)+0.3*A(755)+A(757)+2*A(758)+0.15& - &*A(759)+A(767)+A(776)+0.19*A(777)+A(778)+A(787)+A(788)+A(831)+0.488*A(860) + 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) IF (DO_FUN(267)) & - Vdot(267) = -A(24)+A(34)+A(50)+0.05*A(51)+0.56*A(111)+0.505*A(112)+A(113)+2*A(115)+A(116)+2*A(117)+A(118)+0.5*A(120)& - &+A(165)+A(187)+A(201)+A(241)+A(264)+A(265)+A(266)-A(311)-A(318)+0.14*A(331)+0.14*A(332)+0.14*A(336)+0.407& - &*A(369)+0.6*A(372)+0.9*A(373)+0.6*A(379)+0.9*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.55*A(395)& - &+0.55*A(399)+0.45*A(400)+0.37*A(401)+0.42*A(402)+0.23*A(403)+0.638*A(404)+1.5*A(405)+A(406)+0.25*A(411)& - &+0.33*A(412)+0.036*A(413)+0.054*A(414)+A(433)+0.13*A(434)+0.2*A(435)+A(438)+0.2*A(439)+0.13*A(441)+0.52& - &*A(442)+0.8*A(444)+2*A(445)+0.6*A(458)+0.6*A(459)+0.539*A(514)+0.33*A(515)+0.33*A(516)+0.28*A(521)+0.036& - &*A(522)+0.12*A(524)+0.68*A(525)+0.77*A(528)+0.25*A(530)+0.75*A(537)+A(538)+A(540)+2*A(541)+0.84*A(542)& - &+0.507*A(546)+0.325*A(547)+0.488*A(548)+A(549)+0.86*A(550)+0.65*A(552)+0.25*A(560)+A(561)+A(562)+0.888& - &*A(563)+A(566)+A(572)+0.364*A(579)+0.2*A(589)+0.27*A(590)+0.3*A(591)+0.15*A(619)+0.15*A(620)+0.26*A(623)& - &+0.5*A(624)+0.25*A(626)+0.5*A(627)+0.05*A(628)+A(744)+A(745)+0.88*A(753)+A(754)+A(756)+A(758)+A(760)+2& - &*A(761)+2*A(762)+A(763)+A(764)+A(765)+A(766)+A(768)+A(834)+A(838)+A(851)+A(854)+0.5*A(855)+0.571*A(857)& - &+0.875*A(858)+0.77*A(859)+A(862)+A(863)+0.888*A(868)+0.818*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)& - &+0.839*A(879)+A(881)+0.163*A(882)+A(885)+A(889)+A(891)+A(894) + Vdot(267) = A(518)-A(580)-A(581)-A(583)+0.127*A(608)+0.057*A(609)-A(872)-A(1027) IF (DO_FUN(268)) & - Vdot(268) = A(301)-A(303)+A(304)-A(684)-A(685)+A(699)-A(708)-A(709)-A(710)-A(711)-A(815) + 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) IF (DO_FUN(269)) & - Vdot(269) = -A(283)-A(285)+A(286)+A(288)-A(291)-A(292)+0.2*A(293)+0.809*A(298)-A(299)-A(300)+A(301)+A(302)+A(305)+0.4& - &*A(306)+0.996*A(307)+A(308)+2*A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(820)+A(821)+A(822)+2*A(823)& - &+A(824)+A(825)+A(828)+A(829) + Vdot(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762)-A(763)-A(764)-A(881)-A(1046) IF (DO_FUN(270)) & - Vdot(270) = A(288)+A(289)-A(290)-A(291)-A(697)-A(698)-A(699)-A(704)-A(705)-A(706)-A(707)-A(820) + 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) IF (DO_FUN(271)) & - Vdot(271) = A(222)+A(226)+A(227)-A(229)+A(230)+A(231)+A(248)+A(651)-A(664)-A(665)-A(666)-A(667)-A(668)-A(798) + Vdot(271) = 0.67*A(621)-A(630)-A(631)-A(633)-A(634) IF (DO_FUN(272)) & - Vdot(272) = -A(175)-A(176)-A(177)-A(178)-A(179)-A(180)-A(186)-A(202)-A(203)-A(204)-A(205)-A(206)-A(207)-A(208)-A(209)& - &-A(210)-A(211)-A(212)-A(213)-A(214)-A(215)-A(216)-A(217)-A(218)-A(219)-A(220)-A(221)+A(739)+A(833) + Vdot(272) = A(423)+0.27*A(424)+0.18*A(426)-A(429)-A(430)-A(431)-A(432) IF (DO_FUN(273)) & - Vdot(273) = -A(152)-A(154)+A(155)+2*A(156)+A(158)-A(159)+A(160)+A(162)+A(163)-A(164)-A(165)-A(166)-A(167)-A(168)& - &-A(169)-A(170)+3*A(172)+2*A(173)+A(174)+A(200)+0.6*A(203)+0.56*A(207)+0.95*A(208)+1.4*A(209)+0.34*A(213)& - &+0.75*A(221)+A(259)+A(260)-A(282)+A(292)+A(293)+2*A(779)+A(780)+A(781)+A(782)+A(784)+3*A(785)+2*A(786)& - &+A(787)+A(790)+A(810)+A(811)+2*A(812)+A(825)+A(828) + Vdot(273) = 0.1*A(383)+A(409)-A(410)-A(411)-A(412)-A(413)-A(414)+A(415) IF (DO_FUN(274)) & - Vdot(274) = A(152)-A(153)-2*A(156)-2*A(157)-A(158)+A(161)-A(163)+A(164)-A(171)-A(200)+0.2*A(203)+0.44*A(207)+0.95& - &*A(208)+0.7*A(209)+0.31*A(213)+0.45*A(214)+0.75*A(221)-A(259)-A(260)-A(261)-A(292)-A(293)-A(780)+A(783) + 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) IF (DO_FUN(275)) & - Vdot(275) = -A(2)-A(5)-0.88*A(202)+A(225)-A(228)+A(240)+A(241)+A(243)+A(244)+A(245)+2*A(264)+A(265)+A(266)+A(267)& - &+A(269)+A(270)+A(273)+A(274)+A(275)+A(276)+A(277)+A(278)+A(279)+A(280)+A(281)-A(643)-A(650)-A(652)-A(660)& - &-A(664)+A(668)-A(670) + Vdot(275) = 0.15*A(380)+0.255*A(382)-A(404)-A(405)-A(406)+A(408)-A(458)-A(459) IF (DO_FUN(276)) & - Vdot(276) = -A(1)-A(4)-A(7)-A(8)-A(9)-A(10)+A(11)-A(12)+A(148)+0.75*A(149)+A(150)-A(151)+A(187)+A(188)-A(317)-A(321)& - &-A(668)-A(675)+A(834)+A(835) + Vdot(276) = -A(330)-A(493)-A(494)-A(495)-A(496)-A(497)-A(603) IF (DO_FUN(277)) & - Vdot(277) = -A(655)-A(662)-A(674)-A(678)+A(680)-A(701)-A(705)-A(709) + 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) IF (DO_FUN(278)) & - Vdot(278) = 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(56)+A(75)+A(76)+A(77)+A(82)& - &+A(91)+A(155)+A(174)-A(175)+A(183)+0.02*A(196)+A(228)+A(229)+A(232)+A(235)+A(236)+A(237)+A(238)+A(239)& - &+A(267)+A(302)+A(303)+A(308)-A(314)-2*A(315)-A(322)-A(323)+A(637)-A(642)-A(649)-A(651)+A(664)+A(665)+A(666)& - &+A(667)+A(669)+A(670)+A(671)+A(672)-A(699) + 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) IF (DO_FUN(279)) & - Vdot(279) = -A(13)-A(22)-A(26)-A(27)-A(37)-A(43)+A(49)-A(55)-A(57)-A(58)-A(59)-A(62)-A(63)-A(64)-A(66)-A(67)-A(68)& - &-A(69)-A(70)-A(71)-A(72)-A(73)-A(80)-A(158)+1.22*A(179)+A(189)-A(191)+A(197)-A(198)-A(249)-A(283)+2*A(284)& - &-A(297)-A(305)-A(312)-A(319)-A(326)-A(338)-A(344)-A(345)-A(392)-A(393)-A(394)-A(395)-A(396)-A(397)-A(398)& - &-A(399)-A(416)-A(417)-A(420)-A(421)-A(424)-A(425)-A(435)-A(436)-A(439)-A(440)-A(443)-A(444)-A(446)-A(448)& - &-A(462)-A(463)-A(466)-A(467)-A(471)-A(472)-A(474)-A(475)-A(477)-A(478)-A(491)-A(492)-A(493)-A(494)-A(509)& - &-A(510)-A(511)-A(512)-A(515)-A(518)-A(531)-A(534)-A(544)-A(545)-A(550)-A(551)-A(552)-A(555)-A(581)-A(593)& - &-A(607)-A(613)+A(741)+A(747)+A(751)+A(818)-A(836) + Vdot(279) = A(91)+0.072*A(97)-A(103)+A(117)-A(929) IF (DO_FUN(280)) & - Vdot(280) = A(2)-A(645)-A(647)-A(656)-A(658)-A(666)-A(671)-A(702)-A(706)-A(710) + 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(16)+A(36)-A(42)-A(43)-A(44)-A(45)+A(46)-A(49)-A(50)-A(52)-A(74)-A(81)-A(94)-A(114)-A(117)-A(118)-A(130)& - &-2*A(145)-A(150)+A(159)-A(164)-A(190)+A(192)+A(231)+A(262)+A(263)-A(288)+A(291)+A(313)+A(320)-A(330)-A(333)& - &-A(334)-A(337)-A(342)-A(352)-A(353)-A(360)-A(361)+A(364)-A(479)-A(489)-A(490)-A(525)+0.69*A(526)-A(557)& - &+A(560)-A(568)-A(582)-A(594)-A(598)-A(600)-A(603)-A(605)+A(612)-A(614)-A(620)-A(635)-A(639)-A(640)-A(641)& - &+A(748)-A(750)-A(751)+A(752)+0.3*A(755)+A(782)+A(796)+A(820)+A(830) + Vdot(281) = A(378)+0.2*A(380)+0.075*A(382)-A(417)-A(418)-A(419)-A(460)-A(461) IF (DO_FUN(282)) & - Vdot(282) = -A(1)-A(4)-A(8)-A(13)-A(14)-A(15)-A(16)-A(17)+0.15*A(109)-A(111)-A(152)+A(181)-A(182)-A(186)-A(195)-A(242)& - &-A(299)-A(316)-A(331)-A(332)-A(336)-A(359)-A(369)-A(521)-A(524)+0.13*A(547)+0.13*A(554)+0.13*A(571)-A(577)& - &-A(602)+0.15*A(606)-A(617)-A(624)-A(627)-A(676)-A(677)-A(678)-A(738)-A(739) + 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) IF (DO_FUN(283)) & - Vdot(283) = -A(654)-A(661)-A(673)-A(677)+A(679)-A(700)-A(704)-A(708) + 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) IF (DO_FUN(284)) & - Vdot(284) = 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(57)+A(59)+A(62)+A(64)+0.27*A(66)+A(71)+A(83)+A(84)-A(85)-A(86)-A(87)& - &-A(88)-A(89)-A(90)+A(92)+A(93)+0.64*A(95)+0.5*A(96)+0.3*A(97)+0.5*A(98)+A(99)+0.5*A(100)+A(101)+A(102)+1.2& - &*A(103)+1.2*A(104)-A(105)-A(106)-A(107)-A(108)-A(109)+0.28*A(111)+0.773*A(112)+A(115)+A(117)+A(119)+0.9& - &*A(132)+0.243*A(133)+0.9*A(136)+0.9*A(139)+0.9*A(140)+0.9*A(141)+0.9*A(142)+A(144)+A(151)-A(153)-A(154)& - &+A(163)+A(165)+A(174)+0.2*A(180)-A(185)+A(193)+A(194)-A(196)+A(201)+A(223)+A(224)+A(232)+A(233)+A(234)& - &+A(241)+A(244)-A(245)-A(246)-A(248)+A(264)+A(265)+A(266)+A(268)+A(271)+A(272)+A(273)-A(300)-A(304)+0.82& - &*A(326)-A(327)+A(328)+0.5*A(329)+A(330)+0.1*A(331)+0.1*A(332)+0.1*A(336)+0.686*A(338)-A(339)+A(340)+0.5& - &*A(341)+A(342)+A(344)-A(346)-A(347)+2*A(348)+0.5*A(349)+A(350)+A(352)+A(354)+0.5*A(355)+0.16*A(369)+0.4& - &*A(372)+0.7*A(373)-0.937*A(374)-A(375)-0.937*A(376)-A(377)+0.4*A(379)+0.7*A(381)+2*A(382)+2*A(383)+2*A(384)& - &+A(385)+A(386)+A(387)+2*A(388)+1.5*A(389)+2*A(390)+1.5*A(391)+A(393)+0.45*A(395)+A(397)+0.45*A(399)+0.085& - &*A(400)+0.165*A(401)+0.283*A(404)+A(406)+0.25*A(411)+0.33*A(412)+0.024*A(413)+0.042*A(414)+A(416)-0.725& - &*A(418)+A(420)-0.725*A(422)-A(426)+0.75*A(427)+A(428)+A(430)+A(432)-0.35*A(434)+A(435)+A(437)+A(439)-0.35& - &*A(441)-0.35*A(442)+A(444)+A(445)-A(447)-A(449)+0.4*A(458)+0.4*A(459)+A(460)-0.941*A(461)+0.272*A(462)& - &+A(464)-0.401*A(465)+A(466)+A(468)+A(469)-0.418*A(470)+A(471)-0.494*A(473)+A(474)-0.621*A(476)+A(477)& - &-A(480)-A(481)+0.089*A(483)+0.064*A(484)+0.336*A(485)+0.611*A(486)+0.159*A(488)+0.159*A(490)+0.159*A(493)& - &+A(495)-0.674*A(507)-0.42*A(508)+0.5*A(509)+0.904*A(511)+0.295*A(514)+0.33*A(515)-0.67*A(516)+0.89*A(518)& - &-0.27*A(519)+0.1*A(521)+0.036*A(522)-A(532)-A(535)+0.715*A(537)+A(539)+A(541)+A(542)-0.695*A(543)+0.242& - &*A(544)-0.493*A(546)-A(547)+0.86*A(550)-A(554)+0.7*A(558)+0.5*A(562)+0.444*A(563)+0.62*A(567)+0.5*A(570)& - &-A(571)+0.364*A(579)-A(580)+0.6*A(583)+A(584)+A(585)+0.54*A(589)+0.19*A(590)+0.15*A(591)+A(593)+A(594)+2& - &*A(595)+A(596)+0.8*A(597)+0.727*A(599)+A(602)-A(606)-A(615)+A(621)+A(622)+0.33*A(623)+0.1*A(624)+0.2*A(625)& - &+0.33*A(626)+0.1*A(627)+0.2*A(628)+A(635)-A(637)+A(743)+A(744)+A(749)+A(753)+A(756)+1.73*A(760)+2*A(761)& - &+A(764)+A(766)+A(768)+A(769)+A(770)+A(771)+A(772)+A(773)+A(774)+A(775)+A(776)+0.27*A(777)+A(830)+A(837)& - &+A(838)+A(846)+A(847)+A(848)+A(849)+A(851)+A(852)+A(854)+1.5*A(855)+0.47*A(856)+0.571*A(857)+0.125*A(858)& - &+A(859)+0.29*A(861)+A(862)+A(863)+A(864)+A(865)+A(866)+A(867)+0.112*A(868)+0.182*A(869)+A(870)+A(871)+0.45& - &*A(872)+A(873)+A(874)+0.45*A(875)+0.33*A(876)+0.159*A(877)+0.161*A(879)+0.228*A(880)+1.5*A(881)+A(882)+0.75& - &*A(883)+A(884)+1.454*A(885)+0.7*A(886)+0.7*A(887)+A(889)+A(891)+A(894) + 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) IF (DO_FUN(285)) & - Vdot(285) = 0.22*A(202)+0.75*A(204)+0.79*A(205)+0.46*A(206)+0.56*A(210)+0.9*A(211)+0.86*A(212)+0.34*A(213)+0.69*A(215)& - &+0.65*A(216)+0.79*A(217)+0.8*A(218)+0.85*A(219)+0.86*A(220)-A(223)-A(224)-A(225)+A(229)+A(242)+A(246)& - &-A(247)-A(248)-A(249)-A(250)-2*A(251)-2*A(252)-2*A(253)-2*A(256)+2*A(257)+0.1*A(258)-A(259)-A(260)-A(261)& - &+A(262)+A(268)+A(271)+A(272)-A(298)-A(792)+A(793)+A(797) + 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) IF (DO_FUN(286)) & - Vdot(286) = -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(56)-A(60)-A(61)-A(65)-A(75)-A(76)-A(77)-A(82)+0.15& - &*A(87)+0.15*A(88)-A(91)-A(101)-A(102)+0.44*A(109)-A(110)+0.36*A(111)-0.773*A(112)-A(115)-A(116)-A(119)& - &-0.209*A(121)-0.36*A(122)-0.36*A(123)-0.209*A(124)-0.21*A(125)-A(126)-0.209*A(127)-0.78*A(129)-A(148)& - &-A(149)-A(151)-A(155)-A(160)+A(161)+A(162)-A(163)-A(172)-A(173)-A(174)+2*A(175)+A(178)+0.75*A(180)-A(183)& - &-A(184)+A(185)-A(188)+A(193)+A(195)+1.788*A(196)+A(201)+0.66*A(202)+0.6*A(203)+0.05*A(210)-A(222)-A(224)& - &-A(225)-A(226)-A(227)-A(228)-A(229)-A(230)-A(231)-A(232)-A(233)-A(234)-A(235)-A(236)-A(237)-A(238)-A(239)& - &+A(246)-A(301)-A(302)-A(303)-A(308)-A(309)-A(310)-A(324)-A(325)+0.85*A(331)+0.85*A(332)-A(335)+0.85*A(336)& - &-0.51*A(343)-A(357)-A(358)-A(364)-A(365)-A(366)-A(367)-A(368)+0.28*A(369)-A(370)-A(371)+0.5*A(372)+0.5& - &*A(373)+0.063*A(374)+0.063*A(376)+A(378)+1.5*A(379)+A(380)+1.5*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5& - &*A(391)+0.55*A(395)+0.55*A(399)+0.085*A(400)+0.165*A(401)+0.065*A(404)-A(406)-A(407)-A(409)-A(411)-A(412)& - &-0.595*A(413)-0.255*A(414)+A(415)+0.275*A(418)+A(419)+0.275*A(422)+A(424)+1.3*A(426)-A(427)-A(428)-A(429)& - &-A(430)-A(431)+A(433)+0.65*A(434)+A(438)+0.65*A(441)+0.65*A(442)+A(445)+A(446)+2*A(447)+A(448)+2*A(449)& - &-A(450)-A(451)-A(452)-A(453)-A(454)-A(455)-A(456)-A(457)-0.4*A(458)-0.4*A(459)+0.518*A(461)+0.599*A(465)& - &+0.582*A(470)+0.506*A(473)+0.379*A(476)+0.527*A(480)-A(497)-A(498)-A(501)-A(502)-A(503)+A(505)+A(506)+1.147& - &*A(507)+0.646*A(508)+0.435*A(509)+0.096*A(511)-A(513)-0.756*A(514)+A(516)-A(517)+0.82*A(519)-A(520)+0.08& - &*A(521)-A(522)-A(523)+0.12*A(524)+0.68*A(525)-0.98*A(526)-A(529)+A(532)+A(535)-0.715*A(537)-A(539)-A(541)& - &-A(542)+0.665*A(543)+0.59*A(546)+0.5*A(547)-0.415*A(548)+A(549)+0.5*A(554)-A(560)-0.3*A(561)-0.5*A(562)& - &-0.556*A(563)-A(566)-0.7*A(567)-A(569)-0.5*A(570)+0.5*A(571)-A(578)-0.364*A(579)-A(586)-A(587)-A(589)& - &-A(590)-A(591)+A(592)-A(597)-A(599)-A(601)+A(602)-A(604)+0.2*A(606)-A(609)-A(611)-A(616)-A(619)-0.75*A(623)& - &+0.1*A(624)-0.75*A(626)+0.1*A(627)-A(636)-A(647)-A(648)+2*A(742)+A(743)+A(746)+A(747)+A(748)+0.07*A(760)& - &+A(770)+A(771)+A(772)+A(773)+A(774)+A(775)+A(776)+A(778)+A(781)+A(798)+A(815)+A(832)+2*A(835)+A(837)+2& - &*A(850)+A(851)+A(856)+A(857)+1.75*A(858)+A(859)+0.75*A(860)+0.01*A(861)+A(863)+A(864)+A(865)+A(866)+A(867)& - &+1.662*A(868)+1.637*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.67*A(876)+A(877)+0.645*A(879)+0.5*A(881)& - &+A(882)+1.25*A(883)+A(884)+0.546*A(885)+A(886)+0.3*A(887)+A(888)+A(890)+A(892) + 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) IF (DO_FUN(287)) & - Vdot(287) = A(5)-A(646)-A(648)-A(657)-A(659)-A(667)-A(672)-A(703)-A(707)-A(711) + 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) IF (DO_FUN(288)) & - Vdot(288) = A(18)-A(161)-A(162)+A(176)+A(177)-A(181)-A(182)-A(184)-A(185)+A(186)-A(187)-A(189)-A(190)-A(191)-A(192)& - &-A(193)+0.02*A(196)+A(197)+A(198)+A(199)-A(200)-A(201)+0.12*A(202)+0.2*A(203)+0.25*A(204)+0.21*A(205)+0.1& - &*A(206)+0.05*A(208)+0.3*A(209)+0.25*A(210)+0.1*A(211)+0.14*A(212)+0.35*A(213)+0.55*A(214)+0.31*A(215)+0.35& - &*A(216)+0.21*A(217)+0.1*A(218)+0.1*A(219)+0.14*A(220)+0.25*A(221)-A(247)-A(262)+A(738)+2*A(740)+A(741)& - &+A(750)+A(780)+A(792)+A(793)+A(816)+A(836) + 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) IF (DO_FUN(289)) & - Vdot(289) = A(154)-A(155)-A(162)+A(165)+A(166)+A(167)+A(168)+A(169)-0.8*A(203)+A(282)-A(653)-A(663)-A(665)-A(669)& - &+A(675)-A(676)-A(679)-A(680) + 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) IF (DO_FUN(290)) & - Vdot(290) = 0.66*A(202)+0.75*A(204)+2.37*A(205)+0.35*A(206)+0.19*A(210)+1.8*A(211)+0.86*A(212)+0.31*A(213)+0.69*A(215)& - &+0.79*A(217)+1.9*A(218)+0.95*A(219)+A(222)+A(224)+A(228)+A(232)+2*A(233)+3*A(234)+3*A(235)+A(236)+2*A(237)& - &+A(238)+2*A(239)-A(240)-A(241)-A(242)-A(243)-A(244)-A(245)-A(246)+A(247)+A(249)+A(252)+A(253)-A(254)+A(255)& - &-A(258)-A(263)-A(264)+A(265)+2*A(266)-A(267)-A(268)-A(269)-A(270)-A(271)-A(272)-A(273)-A(274)-A(275)-A(276)& - &-A(277)-A(278)-A(279)-A(280)-A(281)+0.249*A(298)+A(788)+2*A(789)+A(790)+2*A(791)+A(792)+A(794)+A(795)& - &+A(796)+A(798)+3*A(799)+4*A(800)+3*A(801)+2*A(802)+3*A(803)+2*A(804)+A(805)+2*A(806)+2*A(807)+A(808)+A(809)& - &+A(811)+A(813)+A(824)+A(829) + Vdot(290) = -A(149)-A(150)-A(162)-A(332)-A(333)+A(912) IF (DO_FUN(291)) & - Vdot(291) = 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(57)+A(59)+A(62)+A(64)+A(66)+2*A(68)+A(69)+0.928*A(70)+A(71)+2*A(73)-A(78)+A(79)+A(80)+A(96)+A(100)& - &+A(137)+A(138)+2*A(145)-A(146)+A(147)+A(158)+A(164)-A(170)-A(171)-A(189)+A(190)+A(191)-A(192)-A(199)+A(230)& - &+A(249)-A(250)-A(285)+A(286)+2*A(287)-A(289)+A(290)+A(297)+A(305)+A(309)+A(310)+A(312)-A(313)+A(319)-A(320)& - &+0.82*A(326)+A(330)+0.78*A(338)+A(342)+A(344)+2*A(345)+0.5*A(349)+A(351)+A(352)+2*A(353)+0.5*A(355)+A(356)& - &+A(365)+A(366)+A(367)+A(368)+A(393)+A(395)+A(397)+A(399)+A(416)+A(420)+A(424)+A(435)+A(439)+A(444)+A(446)& - &+A(448)+A(451)+A(453)+A(454)+A(456)+0.459*A(461)+1.728*A(462)+A(466)+A(471)+A(474)+A(477)+0.527*A(480)+1.86& - &*A(482)+0.563*A(483)+0.611*A(486)+A(487)+2*A(489)+A(490)+2*A(491)+A(493)+A(501)+0.058*A(507)+1.065*A(509)& - &+A(511)+A(513)+A(515)+0.565*A(517)+1.11*A(518)+0.09*A(519)+0.31*A(526)+A(531)-A(533)+A(534)-A(536)+A(544)& - &+A(550)+A(552)-A(553)+0.5*A(554)+2*A(555)+2*A(557)+0.7*A(558)+A(559)+A(566)+0.022*A(567)+A(568)+0.995& - &*A(581)+A(582)+A(586)+A(593)+A(594)+A(607)-A(608)+A(610)+A(611)-A(612)+A(613)+A(614)-A(618)+0.5*A(619)& - &+A(620)+A(635)-A(638)-A(741)+A(746)+A(749)+A(750)+A(752)+0.7*A(755)+A(770)+A(777)+A(783)+A(784)+A(795)& - &+A(797)+A(819)+A(831)+A(838)+A(839)+A(840)+A(841)+A(843)+A(845)+A(846)+A(847)+A(848)+A(849)+A(853)+0.7& - &*A(861)+A(862)+A(872)+A(873)+A(874)+A(875)+A(876)+A(878)+A(879)+1.555*A(880)+0.3*A(886)+A(887)+A(888)& - &+A(889) + Vdot(291) = 0.5*A(380)-A(443)-A(444)-A(445)-A(446)-A(462)-A(463) +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) +IF (DO_FUN(293)) & + Vdot(293) = -A(600)-A(601)-A(602)+A(620)+0.33*A(621)+0.037*A(691) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +IF (DO_FUN(308)) & + Vdot(308) = A(653)-A(678)-A(679)-A(680)-A(681)-A(682) +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) +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) +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) +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) +IF (DO_FUN(313)) & + Vdot(313) = 0.7*A(33)-A(96)+A(111)-A(118)-A(136)-A(184)+A(218)+A(329) +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) +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) +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) +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) +IF (DO_FUN(318)) & + Vdot(318) = -A(95)+A(102)-A(115)-A(133)-A(187)+0.5*A(763)+0.5*A(764) +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) +IF (DO_FUN(320)) & + Vdot(320) = -A(97)-A(119)+A(122)-A(123)+A(131)-A(137)-A(185)+0.3*A(381) +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) +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) +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) +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& + &*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)& + &+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)+A(161)+0.22*A(178)+A(181)+0.9*A(184)+0.351*A(187)+0.351*A(188)+0.9*A(189)+0.9*A(192)+A(195)& + &+A(199)+A(201)-A(216)+0.25*A(231)-A(252)+A(274)-A(292)+A(319)+A(324)+A(360)+A(362)+A(363)+A(364)+0.06& + &*A(365)+0.06*A(366)+A(367)+A(368)+0.1*A(381)+0.1*A(383)+0.5*A(388)+0.84*A(399)+A(400)+1.5*A(401)+0.5*A(402)& + &+0.4*A(403)+0.75*A(405)+A(406)+A(407)+0.75*A(413)+0.67*A(421)+A(427)+0.75*A(432)+0.176*A(436)+0.4*A(437)& + &+0.4*A(440)+0.4*A(442)+0.1*A(445)+0.1*A(446)+0.1*A(447)+0.1*A(448)+0.05*A(449)+1.5*A(453)+1.5*A(454)+0.75& + &*A(455)+0.75*A(456)+1.75*A(458)+A(459)+0.75*A(460)+0.85*A(462)+0.1*A(463)+A(464)+1.3*A(466)+0.4*A(467)& + &+0.287*A(469)+A(472)+0.85*A(473)+0.287*A(475)+0.287*A(477)+0.202*A(479)+0.504*A(480)+A(489)+0.827*A(493)& + &+0.3*A(496)+0.3*A(497)+0.063*A(498)+0.063*A(500)+A(502)+0.3*A(503)+A(504)+0.3*A(505)+2*A(506)+2*A(507)+2& + &*A(508)+2*A(512)+A(513)+2*A(514)+A(515)+A(517)+A(521)+0.085*A(524)+0.165*A(525)+0.5*A(529)+0.018*A(537)& + &+0.018*A(538)+0.716*A(540)+0.14*A(542)+0.706*A(544)+0.14*A(546)+0.65*A(566)+A(568)+0.059*A(585)+0.272& + &*A(586)+0.599*A(589)+A(590)+0.031*A(594)+0.065*A(595)+0.065*A(597)+0.142*A(598)+0.104*A(600)+0.383*A(601)& + &+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)& + &+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(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(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(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)& + &+0.23*A(527)+0.638*A(528)+1.5*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13& + &*A(558)+0.2*A(559)+A(562)+0.2*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)& + &+0.539*A(638)+0.33*A(639)+0.33*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(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) +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) +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)& + &+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)& + &+0.5*A(137)+A(138)+0.5*A(139)+A(140)+A(141)+1.2*A(142)+1.2*A(143)-A(144)-A(145)-A(146)-A(147)-A(148)+0.28& + &*A(150)+0.773*A(151)+0.2*A(153)+A(157)-0.56*A(158)+A(159)+A(161)+A(163)+A(165)+A(167)+0.9*A(181)+0.243& + &*A(182)+0.243*A(183)+0.9*A(186)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(195)+A(202)-A(204)-A(205)& + &+A(214)+A(216)+A(225)+0.2*A(231)-A(236)+A(244)+A(245)-A(247)+A(252)+A(274)+A(275)+A(283)+A(284)+A(285)& + &+A(292)+A(295)-A(296)-A(297)-A(299)+A(315)+A(316)+A(317)+A(319)+A(322)+A(323)+A(324)-A(351)-A(355)+0.05& + &*A(381)-A(384)+0.75*A(385)+A(386)+0.5*A(388)-A(391)-A(398)+A(401)-A(404)+0.75*A(405)+A(406)+0.5*A(407)& + &-A(410)+A(412)+A(413)+A(414)-A(417)+0.75*A(418)+A(419)+0.84*A(429)-A(430)+A(431)+A(432)-A(436)-A(443)& + &+A(445)+A(446)+A(453)+0.5*A(455)+1.75*A(456)+A(457)+1.75*A(458)+A(459)+1.75*A(460)+A(461)+1.75*A(462)& + &+A(463)+0.75*A(464)+0.75*A(466)+A(468)-A(470)-A(471)+2*A(472)+0.5*A(473)+A(474)+A(476)+A(478)+0.5*A(479)& + &+0.16*A(493)+0.4*A(496)+0.7*A(497)-0.937*A(498)-A(499)-0.937*A(500)-A(501)+0.4*A(503)+0.7*A(505)+2*A(506)+2& + &*A(507)+2*A(508)+A(509)+A(510)+A(511)+2*A(512)+1.5*A(513)+2*A(514)+1.5*A(515)+A(517)+0.45*A(519)+A(521)& + &+0.45*A(523)+0.085*A(524)+0.165*A(525)+0.283*A(528)+A(530)+0.25*A(535)+0.33*A(536)+0.024*A(537)+0.042& + &*A(538)+A(540)-0.725*A(542)+A(544)-0.725*A(546)-A(550)+0.75*A(551)+A(552)+A(554)+A(556)-0.35*A(558)+A(559)& + &+A(561)+A(563)-0.35*A(565)-0.35*A(566)+A(568)+A(569)-A(571)-A(573)+0.4*A(582)+0.4*A(583)+A(584)-0.941& + &*A(585)+0.272*A(586)+A(588)-0.401*A(589)+A(590)+A(592)+A(593)-0.418*A(594)+A(595)-0.494*A(597)+A(598)-0.621& + &*A(600)+A(601)-A(604)-A(605)+0.089*A(607)+0.064*A(608)+0.336*A(609)+0.611*A(610)+0.159*A(612)+0.159*A(614)& + &+0.159*A(617)+A(619)-0.674*A(631)-0.42*A(632)+0.5*A(633)+0.904*A(635)+0.295*A(638)+0.33*A(639)-0.67*A(640)& + &+0.89*A(642)-0.27*A(643)+0.1*A(645)+0.036*A(646)-A(656)-A(659)+0.715*A(661)+A(663)+A(665)+A(666)-0.695& + &*A(667)+0.242*A(668)-0.493*A(670)-A(671)+0.86*A(674)-A(678)+0.7*A(682)+0.5*A(686)+0.444*A(687)+0.62*A(691)& + &+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) +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) +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)& + &-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)& + &-A(160)-A(161)-A(163)-A(164)-A(167)-0.209*A(169)-0.36*A(170)-0.36*A(171)-0.209*A(172)-0.21*A(173)-0.21& + &*A(174)-A(175)-0.209*A(176)-0.78*A(178)-A(199)-A(200)-A(202)-A(206)-A(211)+A(212)+A(213)-A(214)-A(223)& + &-A(224)-A(225)+2*A(226)+A(229)+0.75*A(231)-A(234)-A(235)+A(236)-A(239)+A(244)+A(246)+1.788*A(247)+A(252)& + &+0.66*A(253)+0.6*A(254)+0.05*A(261)-A(273)-A(275)-A(276)-A(277)-A(278)-A(279)-A(280)-A(281)-A(282)-A(283)& + &-A(284)-A(285)-A(286)-A(287)-A(288)-A(289)-A(290)+A(297)-A(352)-A(353)-A(354)-A(359)-A(360)-A(361)-A(378)& + &+0.865*A(379)-A(380)+0.8*A(381)-A(382)+0.65*A(383)-A(387)-A(388)-A(390)+0.44*A(391)-A(396)-A(397)-A(402)& + &-A(403)-A(407)-A(408)-A(409)-A(415)-A(416)-A(420)+0.6*A(421)-A(423)+0.865*A(424)-A(426)-A(433)-A(435)+0.44& + &*A(436)-A(441)-A(442)-0.7*A(447)+0.3*A(448)+0.15*A(449)-A(450)-A(453)+A(454)-A(481)-A(482)-A(488)-A(489)& + &-A(490)-A(491)-A(492)+0.28*A(493)-A(494)-A(495)+0.5*A(496)+0.5*A(497)+0.063*A(498)+0.063*A(500)+A(502)+1.5& + &*A(503)+A(504)+1.5*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.085*A(524)& + &+0.165*A(525)+0.065*A(528)-A(530)-A(531)-A(533)-A(535)-A(536)-0.595*A(537)-0.255*A(538)+A(539)+0.275*A(542)& + &+A(543)+0.275*A(546)+A(548)+1.3*A(550)-A(551)-A(552)-A(553)-A(554)-A(555)+A(557)+0.65*A(558)+A(562)+0.65& + &*A(565)+0.65*A(566)+A(569)+A(570)+2*A(571)+A(572)+2*A(573)-A(574)-A(575)-A(576)-A(577)-A(578)-A(579)-A(580)& + &-A(581)-0.4*A(582)-0.4*A(583)+0.518*A(585)+0.599*A(589)+0.582*A(594)+0.506*A(597)+0.379*A(600)+0.527*A(604)& + &-A(621)-A(622)-A(625)-A(626)-A(627)+A(629)+A(630)+1.147*A(631)+0.646*A(632)+0.435*A(633)+0.096*A(635)& + &-A(637)-0.756*A(638)+A(640)-A(641)+0.82*A(643)-A(644)+0.08*A(645)-A(646)-A(647)+0.12*A(648)+0.68*A(649)& + &-0.98*A(650)-A(653)+A(656)+A(659)-0.715*A(661)-A(663)-A(665)-A(666)+0.665*A(667)+0.59*A(670)+0.5*A(671)& + &-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) +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) +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) +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) +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) +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) +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) END SUBROUTINE Fun @@ -1833,900 +2188,1064 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) ! Computation of equation rates - A(1) = RCT(1)*V(147)*V(276)*V(282) - A(2) = RCT(2)*V(147)*V(275) - A(3) = RCT(3)*V(147)*V(265) - A(4) = RCT(4)*V(138)*V(276)*V(282) - A(5) = RCT(5)*V(138)*V(275) - A(6) = RCT(6)*V(138)*V(265) - A(7) = RCT(7)*V(212)*V(276) - A(8) = RCT(8)*V(276)*V(282) - A(9) = RCT(9)*V(276) - A(10) = RCT(10)*V(263)*V(276) - A(11) = RCT(11)*V(86) - A(12) = RCT(12)*V(86)*V(276)*V(286) - A(13) = RCT(13)*V(279)*V(282) - A(14) = RCT(14)*V(282)*V(286) - A(15) = RCT(15)*V(282)*V(284) - A(16) = RCT(16)*V(282)*V(291) - A(17) = RCT(17)*V(266)*V(282) - A(18) = RCT(18)*V(286)*V(286) - A(19) = RCT(19)*V(286)*V(286) - A(20) = RCT(20)*V(284)*V(286) - A(21) = RCT(21)*V(212)*V(286) - A(22) = RCT(22)*V(279)*V(284) - A(23) = RCT(23)*V(284)*V(284) - A(24) = RCT(24)*V(267)*V(286) - A(25) = RCT(25)*V(190)*V(286) - A(26) = RCT(26)*V(266)*V(279) - A(27) = RCT(27)*V(266)*V(279) - A(28) = RCT(28)*V(266)*V(284) - A(29) = RCT(29)*V(266)*V(266) - A(30) = RCT(30)*V(266)*V(266) - A(31) = RCT(31)*V(266)*V(286) - A(32) = RCT(32)*V(137)*V(286) - A(33) = RCT(33)*V(196)*V(286) - A(34) = RCT(34)*V(263)*V(286) - A(35) = RCT(35)*V(286)*V(291) - A(36) = RCT(36)*V(265)*V(286) - A(37) = RCT(37)*V(279)*V(286) - A(38) = RCT(38)*V(193)*V(286) - A(39) = RCT(39)*V(284)*V(291) - A(40) = RCT(40)*V(102) - A(41) = RCT(41)*V(102)*V(286) - A(42) = RCT(42)*V(281)*V(284) - A(43) = RCT(43)*V(279)*V(281) - A(44) = RCT(44)*V(281)*V(286) - A(45) = RCT(45)*V(281)*V(291) - A(46) = RCT(46)*V(173) - A(47) = RCT(47)*V(211)*V(286) - A(48) = RCT(48)*V(218)*V(286) - A(49) = RCT(49)*V(281)*V(291) - A(50) = RCT(50)*V(263)*V(281) - A(51) = RCT(51)*V(264)*V(286) - A(52) = RCT(52)*V(264)*V(281) - A(53) = RCT(53)*V(261)*V(291) - A(54) = RCT(54)*V(67) - A(55) = RCT(55)*V(261)*V(279) - A(56) = RCT(56)*V(161)*V(286) - A(57) = RCT(57)*V(217)*V(279) - A(58) = RCT(58)*V(217)*V(279) - A(59) = RCT(59)*V(239)*V(279) - A(60) = RCT(60)*V(124)*V(286) - A(61) = RCT(61)*V(124)*V(286) - A(62) = RCT(62)*V(237)*V(279) - A(63) = RCT(63)*V(237)*V(279) - A(64) = RCT(64)*V(209)*V(279) - A(65) = RCT(65)*V(114)*V(286) - A(66) = RCT(66)*V(256)*V(279) - A(67) = RCT(67)*V(256)*V(279) - A(68) = RCT(68)*V(257)*V(279) - A(69) = RCT(69)*V(252)*V(279) - A(70) = RCT(70)*V(254)*V(279) - A(71) = RCT(71)*V(258)*V(279) - A(72) = RCT(72)*V(258)*V(279) - A(73) = RCT(73)*V(201)*V(279) - A(74) = RCT(74)*V(114)*V(281) - A(75) = RCT(75)*V(202)*V(286) - A(76) = RCT(76)*V(219)*V(286) - A(77) = RCT(77)*V(259)*V(286) - A(78) = RCT(78)*V(255)*V(291) - A(79) = RCT(79)*V(50) - A(80) = RCT(80)*V(255)*V(279) - A(81) = RCT(81)*V(259)*V(281) - A(82) = RCT(82)*V(221)*V(286) - A(83) = RCT(83)*V(237)*V(266) - A(84) = RCT(84)*V(209)*V(266) - A(85) = RCT(85)*V(256)*V(284) - A(86) = RCT(86)*V(257)*V(284) - A(87) = RCT(87)*V(252)*V(284) - A(88) = RCT(88)*V(254)*V(284) - A(89) = RCT(89)*V(258)*V(284) - A(90) = RCT(90)*V(201)*V(284) - A(91) = RCT(91)*V(226)*V(286) - A(92) = RCT(92)*V(217)*V(266) - A(93) = RCT(93)*V(239)*V(266) - A(94) = RCT(94)*V(226)*V(281) - A(95) = RCT(95)*V(256)*V(266) - A(96) = RCT(96)*V(257)*V(266) - A(97) = RCT(97)*V(252)*V(266) - A(98) = RCT(98)*V(254)*V(266) - A(99) = RCT(99)*V(258)*V(266) - A(100) = RCT(100)*V(201)*V(266) - A(101) = RCT(101)*V(133)*V(286) - A(102) = RCT(102)*V(158)*V(286) - A(103) = RCT(103)*V(217)*V(217) - A(104) = RCT(104)*V(239)*V(239) - A(105) = RCT(105)*V(217)*V(284) - A(106) = RCT(106)*V(239)*V(284) - A(107) = RCT(107)*V(237)*V(284) - A(108) = RCT(108)*V(209)*V(284) - A(109) = RCT(109)*V(255)*V(284) - A(110) = RCT(110)*V(253)*V(286) - A(111) = RCT(111)*V(253)*V(282) - A(112) = RCT(112)*V(236)*V(286) - A(113) = RCT(113)*V(236)*V(286) - A(114) = RCT(114)*V(253)*V(281) - A(115) = RCT(115)*V(223)*V(286) - A(116) = RCT(116)*V(233)*V(286) - A(117) = RCT(117)*V(223)*V(281) - A(118) = RCT(118)*V(233)*V(281) - A(119) = RCT(119)*V(250)*V(286) - A(120) = RCT(120)*V(250)*V(286) - A(121) = RCT(121)*V(113)*V(286) - A(122) = RCT(122)*V(110)*V(286) - A(123) = RCT(123)*V(94)*V(286) - A(124) = RCT(124)*V(95)*V(286) - A(125) = RCT(125)*V(93)*V(286) - A(126) = RCT(126)*V(106)*V(286) - A(127) = RCT(127)*V(112)*V(286) - A(128) = RCT(128)*V(24)*V(286) - A(129) = RCT(129)*V(88)*V(286) - A(130) = RCT(130)*V(161)*V(281) - A(131) = RCT(131)*V(261)*V(261) - A(132) = RCT(132)*V(261)*V(266) - A(133) = RCT(133)*V(256)*V(261) - A(134) = RCT(134)*V(252)*V(261) - A(135) = RCT(135)*V(254)*V(261) - A(136) = RCT(136)*V(258)*V(261) - A(137) = RCT(137)*V(257)*V(261) - A(138) = RCT(138)*V(201)*V(261) - A(139) = RCT(139)*V(217)*V(261) - A(140) = RCT(140)*V(239)*V(261) - A(141) = RCT(141)*V(209)*V(261) - A(142) = RCT(142)*V(237)*V(261) - A(143) = RCT(143)*V(255)*V(261) - A(144) = RCT(144)*V(255)*V(266) - A(145) = RCT(145)*V(281)*V(281) - A(146) = RCT(146)*V(266)*V(291) - A(147) = RCT(147)*V(74) - A(148) = RCT(148)*V(90)*V(286) - A(149) = RCT(149)*V(90)*V(286) - A(150) = RCT(150)*V(90)*V(281) - A(151) = RCT(151)*V(276)*V(286) - A(152) = RCT(152)*V(273)*V(282) - A(153) = RCT(153)*V(274)*V(284) - A(154) = RCT(154)*V(273)*V(284) - A(155) = RCT(155)*V(286)*V(289) - A(156) = RCT(156)*V(274)*V(274) - A(157) = RCT(157)*V(274)*V(274) - A(158) = RCT(158)*V(274)*V(279) - A(159) = RCT(159)*V(176)*V(273) - A(160) = RCT(160)*V(128)*V(286) - A(161) = RCT(161)*V(260)*V(288) - A(162) = RCT(162)*V(288)*V(289) - A(163) = RCT(163)*V(274)*V(286) - A(164) = RCT(164)*V(273)*V(281) - A(165) = RCT(165)*V(263)*V(273) - A(166) = RCT(166)*V(264)*V(273) - A(167) = RCT(167)*V(221)*V(273) - A(168) = RCT(168)*V(161)*V(273) - A(169) = RCT(169)*V(124)*V(273) - A(170) = RCT(170)*V(273)*V(291) - A(171) = RCT(171)*V(274)*V(291) - A(172) = RCT(172)*V(77)*V(286) - A(173) = RCT(173)*V(71)*V(286) - A(174) = RCT(174)*V(100)*V(286) - A(175) = RCT(175)*V(272)*V(278) - A(176) = RCT(176)*V(272)*F(2) - A(177) = RCT(177)*V(272)*F(3) - A(178) = RCT(178)*V(272)*F(1) - A(179) = RCT(179)*V(61)*V(272) - A(180) = RCT(180)*V(190)*V(272) - A(181) = RCT(181)*V(288)*F(3) - A(182) = RCT(182)*V(282)*V(288) - A(183) = RCT(183)*V(286)*F(1) - A(184) = RCT(184)*V(286)*V(288) - A(185) = RCT(185)*V(284)*V(288) - A(186) = RCT(186)*V(272)*V(282) - A(187) = RCT(187)*V(66)*V(288) - A(188) = RCT(188)*V(66)*V(286) - A(189) = RCT(189)*V(288)*V(291) - A(190) = RCT(190)*V(281)*V(288) - A(191) = RCT(191)*V(279)*V(288) - A(192) = RCT(192)*V(288)*V(291) - A(193) = RCT(193)*V(212)*V(288) - A(194) = RCT(194)*V(177)*F(3) - A(195) = RCT(195)*V(177)*V(282) - A(196) = RCT(196)*V(177)*V(284) - A(197) = RCT(197)*V(65)*F(3) - A(198) = RCT(198)*V(65)*V(279) - A(199) = RCT(199)*V(65)*V(291) - A(200) = RCT(200)*V(274)*V(288) - A(201) = RCT(201)*V(263)*V(288) - A(202) = RCT(202)*V(272)*V(275) - A(203) = RCT(203)*V(272)*V(289) - A(204) = RCT(204)*V(197)*V(272) - A(205) = RCT(205)*V(52)*V(272) - A(206) = RCT(206)*V(149)*V(272) - A(207) = RCT(207)*V(100)*V(272) - A(208) = RCT(208)*V(71)*V(272) - A(209) = RCT(209)*V(77)*V(272) - A(210) = RCT(210)*V(84)*V(272) - A(211) = RCT(211)*V(53)*V(272) - A(212) = RCT(212)*V(54)*V(272) - A(213) = RCT(213)*V(59)*V(272) - A(214) = RCT(214)*V(47)*V(272) - A(215) = RCT(215)*V(82)*V(272) - A(216) = RCT(216)*V(83)*V(272) - A(217) = RCT(217)*V(81)*V(272) - A(218) = RCT(218)*V(55)*V(272) - A(219) = RCT(219)*V(56)*V(272) - A(220) = RCT(220)*V(57)*V(272) - A(221) = RCT(221)*V(48)*V(272) - A(222) = RCT(222)*V(197)*V(286) - A(223) = RCT(223)*V(266)*V(285) - A(224) = RCT(224)*V(285)*V(286) - A(225) = RCT(225)*V(285)*V(286) - A(226) = RCT(226)*V(111)*V(286) - A(227) = RCT(227)*V(75)*V(286) - A(228) = RCT(228)*V(275)*V(286) - A(229) = RCT(229)*V(271)*V(286) - A(230) = RCT(230)*V(235)*V(286) - A(231) = RCT(231)*V(262)*V(286) - A(232) = RCT(232)*V(149)*V(286) - A(233) = RCT(233)*V(72)*V(286) - A(234) = RCT(234)*V(78)*V(286) - A(235) = RCT(235)*V(43)*V(286) - A(236) = RCT(236)*V(84)*V(286) - A(237) = RCT(237)*V(82)*V(286) - A(238) = RCT(238)*V(83)*V(286) - A(239) = RCT(239)*V(81)*V(286) - A(240) = RCT(240)*V(190)*V(290) - A(241) = RCT(241)*V(263)*V(290) - A(242) = RCT(242)*V(282)*V(290) - A(243) = RCT(243)*V(290)*F(1) - A(244) = RCT(244)*V(212)*V(290) - A(245) = RCT(245)*V(284)*V(290) - A(246) = RCT(246)*V(284)*V(290) - A(247) = RCT(247)*V(285)*V(288) - A(248) = RCT(248)*V(284)*V(285) - A(249) = RCT(249)*V(279)*V(285) - A(250) = RCT(250)*V(285)*V(291) - A(251) = RCT(251)*V(285)*V(285) - A(252) = RCT(252)*V(285)*V(285) - A(253) = RCT(253)*V(285)*V(285) - A(254) = RCT(254)*V(290)*F(3) - A(255) = RCT(255)*V(103) - A(256) = RCT(256)*V(285)*V(285) - A(257) = RCT(257)*V(75) - A(258) = RCT(258)*V(103)*V(290) - A(259) = RCT(259)*V(274)*V(285) - A(260) = RCT(260)*V(274)*V(285) - A(261) = RCT(261)*V(274)*V(285) - A(262) = RCT(262)*V(262)*V(288) - A(263) = RCT(263)*V(262)*V(290) - A(264) = RCT(264)*V(149)*V(290) - A(265) = RCT(265)*V(72)*V(290) - A(266) = RCT(266)*V(78)*V(290) - A(267) = RCT(267)*V(211)*V(290) - A(268) = RCT(268)*V(266)*V(290) - A(269) = RCT(269)*V(137)*V(290) - A(270) = RCT(270)*V(161)*V(290) - A(271) = RCT(271)*V(217)*V(290) - A(272) = RCT(272)*V(239)*V(290) - A(273) = RCT(273)*V(218)*V(290) - A(274) = RCT(274)*V(133)*V(290) - A(275) = RCT(275)*V(219)*V(290) - A(276) = RCT(276)*V(124)*V(290) - A(277) = RCT(277)*V(124)*V(290) - A(278) = RCT(278)*V(221)*V(290) - A(279) = RCT(279)*V(224)*V(290) - A(280) = RCT(280)*V(114)*V(290) - A(281) = RCT(281)*V(253)*V(290) - A(282) = RCT(282)*V(253)*V(273) - A(283) = RCT(283)*V(269)*V(279) - A(284) = RCT(284)*V(60)*V(60) - A(285) = RCT(285)*V(269)*V(291) - A(286) = RCT(286)*V(203) - A(287) = RCT(287)*V(203)*V(203) - A(288) = RCT(288)*V(143)*V(281) - A(289) = RCT(289)*V(227)*V(291) - A(290) = RCT(290)*V(270) - A(291) = RCT(291)*V(269)*V(270) - A(292) = RCT(292)*V(269)*V(274) - A(293) = RCT(293)*V(227)*V(274) - A(294) = RCT(294)*V(92)*V(227) - A(295) = RCT(295)*V(92)*V(92) - A(296) = RCT(296)*V(42) - A(297) = RCT(297)*V(92)*V(279) - A(298) = RCT(298)*V(227)*V(285) - A(299) = RCT(299)*V(269)*V(282) - A(300) = RCT(300)*V(269)*V(284) - A(301) = RCT(301)*V(143)*V(286) - A(302) = RCT(302)*V(69)*V(286) - A(303) = RCT(303)*V(268)*V(286) - A(304) = RCT(304)*V(227)*V(284) - A(305) = RCT(305)*V(227)*V(279) - A(306) = RCT(306)*V(227)*V(227) - A(307) = RCT(307)*V(44) - A(308) = RCT(308)*V(46)*V(286) - A(309) = RCT(309)*V(208)*V(286) - A(310) = RCT(310)*V(198)*V(286) - A(311) = RCT(311)*V(234)*V(267) - A(312) = RCT(312)*V(234)*V(279) - A(313) = RCT(313)*V(234)*V(291) - A(314) = RCT(314)*V(234)*V(278) - A(315) = RCT(315)*V(234)*V(278)*V(278) - A(316) = RCT(316)*V(234)*V(282) - A(317) = RCT(317)*V(234)*V(276) - A(318) = RCT(318)*V(195)*V(267) - A(319) = RCT(319)*V(195)*V(279) - A(320) = RCT(320)*V(195)*V(291) - A(321) = RCT(321)*V(195)*V(276) - A(322) = RCT(322)*V(195)*V(278) - A(323) = RCT(323)*V(195)*V(278) - A(324) = RCT(324)*V(154)*V(286) - A(325) = RCT(325)*V(155)*V(286) - A(326) = RCT(326)*V(238)*V(279) - A(327) = RCT(327)*V(238)*V(284) - A(328) = RCT(328)*V(238)*V(266) - A(329) = RCT(329)*V(238)*V(261) - A(330) = RCT(330)*V(238)*V(281) - A(331) = RCT(331)*V(154)*V(282) - A(332) = RCT(332)*V(155)*V(282) - A(333) = RCT(333)*V(154)*V(281) - A(334) = RCT(334)*V(155)*V(281) - A(335) = RCT(335)*V(170)*V(286) - A(336) = RCT(336)*V(170)*V(282) - A(337) = RCT(337)*V(170)*V(281) - A(338) = RCT(338)*V(225)*V(279) - A(339) = RCT(339)*V(225)*V(284) - A(340) = RCT(340)*V(225)*V(266) - A(341) = RCT(341)*V(225)*V(261) - A(342) = RCT(342)*V(225)*V(281) - A(343) = RCT(343)*V(119)*V(286) - A(344) = RCT(344)*V(215)*V(279) - A(345) = RCT(345)*V(216)*V(279) - A(346) = RCT(346)*V(215)*V(284) - A(347) = RCT(347)*V(216)*V(284) - A(348) = RCT(348)*V(215)*V(266) - A(349) = RCT(349)*V(216)*V(266) - A(350) = RCT(350)*V(215)*V(261) - A(351) = RCT(351)*V(216)*V(261) - A(352) = RCT(352)*V(215)*V(281) - A(353) = RCT(353)*V(216)*V(281) - A(354) = RCT(354)*V(215)*V(215) - A(355) = RCT(355)*V(215)*V(216) - A(356) = RCT(356)*V(216)*V(216) - A(357) = RCT(357)*V(178)*V(286) - A(358) = RCT(358)*V(199)*V(286) - A(359) = RCT(359)*V(199)*V(282) - A(360) = RCT(360)*V(199)*V(281) - A(361) = RCT(361)*V(178)*V(281) - A(362) = RCT(362)*V(98) - A(363) = RCT(363)*V(45) - A(364) = RCT(364)*V(134)*V(286) - A(365) = RCT(365)*V(89)*V(286) - A(366) = RCT(366)*V(96)*V(286) - A(367) = RCT(367)*V(87)*V(286) - A(368) = RCT(368)*V(91)*V(286) - A(369) = RCT(369)*V(224)*V(282) - A(370) = RCT(370)*V(224)*V(286) - A(371) = RCT(371)*V(224)*V(286) - A(372) = RCT(372)*V(224)*V(286) - A(373) = RCT(373)*V(224)*V(286) - A(374) = RCT(374)*V(245)*V(284) - A(375) = RCT(375)*V(245)*V(284) - A(376) = RCT(376)*V(244)*V(284) - A(377) = RCT(377)*V(244)*V(284) - A(378) = RCT(378)*V(245) - A(379) = RCT(379)*V(245) - A(380) = RCT(380)*V(244) - A(381) = RCT(381)*V(244) - A(382) = RCT(382)*V(245)*V(245) - A(383) = RCT(383)*V(244)*V(244) - A(384) = RCT(384)*V(244)*V(245) - A(385) = RCT(385)*V(245)*V(245) - A(386) = RCT(386)*V(244)*V(244) - A(387) = RCT(387)*V(244)*V(245) - A(388) = RCT(388)*V(245)*V(266) - A(389) = RCT(389)*V(245)*V(266) - A(390) = RCT(390)*V(244)*V(266) - A(391) = RCT(391)*V(244)*V(266) - A(392) = RCT(392)*V(245)*V(279) - A(393) = RCT(393)*V(245)*V(279) - A(394) = RCT(394)*V(245)*V(279) - A(395) = RCT(395)*V(245)*V(279) - A(396) = RCT(396)*V(244)*V(279) - A(397) = RCT(397)*V(244)*V(279) - A(398) = RCT(398)*V(244)*V(279) - A(399) = RCT(399)*V(244)*V(279) - A(400) = RCT(400)*V(186)*V(286) - A(401) = RCT(401)*V(188)*V(286) - A(402) = RCT(402)*V(129)*V(286) - A(403) = RCT(403)*V(127)*V(286) - A(404) = RCT(404)*V(192)*V(286) - A(405) = RCT(405)*V(174)*V(286) - A(406) = RCT(406)*V(109)*V(286) - A(407) = RCT(407)*V(157)*V(286) - A(408) = RCT(408)*V(157)*V(286) - A(409) = RCT(409)*V(162)*V(286) - A(410) = RCT(410)*V(162)*V(286) - A(411) = RCT(411)*V(157)*V(286) - A(412) = RCT(412)*V(162)*V(286) - A(413) = RCT(413)*V(171)*V(286) - A(414) = RCT(414)*V(165)*V(286) - A(415) = RCT(415)*V(182) - A(416) = RCT(416)*V(182)*V(279) - A(417) = RCT(417)*V(182)*V(279) - A(418) = RCT(418)*V(182)*V(284) - A(419) = RCT(419)*V(183) - A(420) = RCT(420)*V(183)*V(279) - A(421) = RCT(421)*V(183)*V(279) - A(422) = RCT(422)*V(183)*V(284) - A(423) = RCT(423)*V(187) - A(424) = RCT(424)*V(187)*V(279) - A(425) = RCT(425)*V(187)*V(279) - A(426) = RCT(426)*V(187)*V(284) - A(427) = RCT(427)*V(116)*V(286) - A(428) = RCT(428)*V(130)*V(286) - A(429) = RCT(429)*V(130)*V(286) - A(430) = RCT(430)*V(131)*V(286) - A(431) = RCT(431)*V(131)*V(286) - A(432) = RCT(432)*V(228) - A(433) = RCT(433)*V(228) - A(434) = RCT(434)*V(228)*V(284) - A(435) = RCT(435)*V(228)*V(279) - A(436) = RCT(436)*V(228)*V(279) - A(437) = RCT(437)*V(229) - A(438) = RCT(438)*V(229) - A(439) = RCT(439)*V(229)*V(279) - A(440) = RCT(440)*V(229)*V(279) - A(441) = RCT(441)*V(229)*V(284) - A(442) = RCT(442)*V(194)*V(284) - A(443) = RCT(443)*V(194)*V(279) - A(444) = RCT(444)*V(194)*V(279) - A(445) = RCT(445)*V(194) - A(446) = RCT(446)*V(121)*V(279) - A(447) = RCT(447)*V(121)*V(284) - A(448) = RCT(448)*V(123)*V(279) - A(449) = RCT(449)*V(123)*V(284) - A(450) = RCT(450)*V(139)*V(286) - A(451) = RCT(451)*V(139)*V(286) - A(452) = RCT(452)*V(140)*V(286) - A(453) = RCT(453)*V(140)*V(286) - A(454) = RCT(454)*V(220)*V(286) - A(455) = RCT(455)*V(220)*V(286) - A(456) = RCT(456)*V(214)*V(286) - A(457) = RCT(457)*V(214)*V(286) - A(458) = RCT(458)*V(220)*V(286) - A(459) = RCT(459)*V(214)*V(286) - A(460) = RCT(460)*V(167) - A(461) = RCT(461)*V(167)*V(284) - A(462) = RCT(462)*V(167)*V(279) - A(463) = RCT(463)*V(167)*V(279) - A(464) = RCT(464)*V(152) - A(465) = RCT(465)*V(152)*V(284) - A(466) = RCT(466)*V(152)*V(279) - A(467) = RCT(467)*V(152)*V(279) - A(468) = RCT(468)*V(166) - A(469) = RCT(469)*V(168) - A(470) = RCT(470)*V(166)*V(284) - A(471) = RCT(471)*V(166)*V(279) - A(472) = RCT(472)*V(166)*V(279) - A(473) = RCT(473)*V(168)*V(284) - A(474) = RCT(474)*V(168)*V(279) - A(475) = RCT(475)*V(168)*V(279) - A(476) = RCT(476)*V(232)*V(284) - A(477) = RCT(477)*V(232)*V(279) - A(478) = RCT(478)*V(232)*V(279) - A(479) = RCT(479)*V(224)*V(281) - A(480) = RCT(480)*V(247)*V(284) - A(481) = RCT(481)*V(246)*V(284) - A(482) = RCT(482)*V(247)*V(247) - A(483) = RCT(483)*V(246)*V(247) - A(484) = RCT(484)*V(246)*V(246) - A(485) = RCT(485)*V(246)*V(266) - A(486) = RCT(486)*V(247)*V(266) - A(487) = RCT(487)*V(247)*V(261) - A(488) = RCT(488)*V(246)*V(261) - A(489) = RCT(489)*V(247)*V(281) - A(490) = RCT(490)*V(246)*V(281) - A(491) = RCT(491)*V(247)*V(279) - A(492) = RCT(492)*V(247)*V(279) - A(493) = RCT(493)*V(246)*V(279) - A(494) = RCT(494)*V(246)*V(279) - A(495) = RCT(495)*V(126)*F(3) - A(496) = RCT(496)*V(126) - A(497) = RCT(497)*V(181)*V(286) - A(498) = RCT(498)*V(151)*V(286) - A(499) = RCT(499)*V(181)*V(286) - A(500) = RCT(500)*V(151)*V(286) - A(501) = RCT(501)*V(151)*V(286) - A(502) = RCT(502)*V(181)*V(286) - A(503) = RCT(503)*V(151)*V(286) - A(504) = RCT(504)*V(151)*V(286) - A(505) = RCT(505)*V(189) - A(506) = RCT(506)*V(222) - A(507) = RCT(507)*V(222)*V(284) - A(508) = RCT(508)*V(189)*V(284) - A(509) = RCT(509)*V(222)*V(279) - A(510) = RCT(510)*V(222)*V(279) - A(511) = RCT(511)*V(189)*V(279) - A(512) = RCT(512)*V(189)*V(279) - A(513) = RCT(513)*V(240)*V(286) - A(514) = RCT(514)*V(240)*V(286) - A(515) = RCT(515)*V(150)*V(279) - A(516) = RCT(516)*V(150)*V(284) - A(517) = RCT(517)*V(243)*V(286) - A(518) = RCT(518)*V(146)*V(279) - A(519) = RCT(519)*V(146)*V(284) - A(520) = RCT(520)*V(248)*V(286) - A(521) = RCT(521)*V(248)*V(282) - A(522) = RCT(522)*V(251)*V(286) - A(523) = RCT(523)*V(251)*V(286) - A(524) = RCT(524)*V(251)*V(282) - A(525) = RCT(525)*V(251)*V(281) - A(526) = RCT(526)*V(241)*V(286) - A(527) = RCT(527)*V(230)*V(286) - A(528) = RCT(528)*V(231)*V(286) - A(529) = RCT(529)*V(200)*V(286) - A(530) = RCT(530)*V(175)*V(286) - A(531) = RCT(531)*V(144)*V(279) - A(532) = RCT(532)*V(144)*V(284) - A(533) = RCT(533)*V(144)*V(291) - A(534) = RCT(534)*V(145)*V(279) - A(535) = RCT(535)*V(145)*V(284) - A(536) = RCT(536)*V(145)*V(291) - A(537) = RCT(537)*V(163)*V(286) - A(538) = RCT(538)*V(156)*V(286) - A(539) = RCT(539)*V(117)*V(286) - A(540) = RCT(540)*V(185)*V(286) - A(541) = RCT(541)*V(169)*V(286) - A(542) = RCT(542)*V(132)*V(286) - A(543) = RCT(543)*V(204)*V(284) - A(544) = RCT(544)*V(204)*V(279) - A(545) = RCT(545)*V(204)*V(279) - A(546) = RCT(546)*V(205)*V(284) - A(547) = RCT(547)*V(207)*V(284) - A(548) = RCT(548)*V(136)*V(286) - A(549) = RCT(549)*V(205) - A(550) = RCT(550)*V(205)*V(279) - A(551) = RCT(551)*V(205)*V(279) - A(552) = RCT(552)*V(207)*V(279) - A(553) = RCT(553)*V(207)*V(291) - A(554) = RCT(554)*V(249)*V(284) - A(555) = RCT(555)*V(249)*V(279) - A(556) = RCT(556)*V(249)*V(291) - A(557) = RCT(557)*V(249)*V(281) - A(558) = RCT(558)*V(249)*V(266) - A(559) = RCT(559)*V(153) - A(560) = RCT(560)*V(153)*V(286) - A(561) = RCT(561)*V(105)*V(286) - A(562) = RCT(562)*V(206)*V(286) - A(563) = RCT(563)*V(125)*V(286) - A(564) = RCT(564)*V(141)*V(286) - A(565) = RCT(565)*V(164)*V(286) - A(566) = RCT(566)*V(213)*V(286) - A(567) = RCT(567)*V(242)*V(286) - A(568) = RCT(568)*V(208)*V(281) - A(569) = RCT(569)*V(104)*V(286) - A(570) = RCT(570)*V(85)*V(286) - A(571) = RCT(571)*V(261)*V(284) - A(572) = RCT(572)*V(172)*V(286) - A(573) = RCT(573)*V(172)*V(286) - A(574) = RCT(574)*V(19)*V(286) - A(575) = RCT(575)*V(18)*V(284) - A(576) = RCT(576)*V(18)*V(279) - A(577) = RCT(577)*V(76)*V(282) - A(578) = RCT(578)*V(76)*V(286) - A(579) = RCT(579)*V(58)*V(286) - A(580) = RCT(580)*V(179)*V(284) - A(581) = RCT(581)*V(179)*V(279) - A(582) = RCT(582)*V(179)*V(281) - A(583) = RCT(583)*V(179)*V(266) - A(584) = RCT(584)*V(108) - A(585) = RCT(585)*V(108)*F(3) - A(586) = RCT(586)*V(68)*V(286) - A(587) = RCT(587)*V(120)*V(286) - A(588) = RCT(588)*V(120)*V(286) - A(589) = RCT(589)*V(64)*V(286) - A(590) = RCT(590)*V(79)*V(286) - A(591) = RCT(591)*V(80)*V(286) - A(592) = RCT(592)*V(184)*V(284) - A(593) = RCT(593)*V(184)*V(279) - A(594) = RCT(594)*V(184)*V(281) - A(595) = RCT(595)*V(184)*V(266) - A(596) = RCT(596)*V(184)*V(261) - A(597) = RCT(597)*V(118)*V(286) - A(598) = RCT(598)*V(118)*V(281) - A(599) = RCT(599)*V(115)*V(286) - A(600) = RCT(600)*V(115)*V(281) - A(601) = RCT(601)*V(142)*V(286) - A(602) = RCT(602)*V(142)*V(282) - A(603) = RCT(603)*V(142)*V(281) - A(604) = RCT(604)*V(101)*V(286) - A(605) = RCT(605)*V(101)*V(281) - A(606) = RCT(606)*V(180)*V(284) - A(607) = RCT(607)*V(180)*V(279) - A(608) = RCT(608)*V(180)*V(291) - A(609) = RCT(609)*V(70)*V(286) - A(610) = RCT(610)*V(97) - A(611) = RCT(611)*V(97)*V(286) - A(612) = RCT(612)*V(191)*V(291) - A(613) = RCT(613)*V(191)*V(279) - A(614) = RCT(614)*V(191)*V(281) - A(615) = RCT(615)*V(191)*V(284) - A(616) = RCT(616)*V(107)*V(286) - A(617) = RCT(617)*V(160)*V(282) - A(618) = RCT(618)*V(160)*V(291) - A(619) = RCT(619)*V(210)*V(286) - A(620) = RCT(620)*V(210)*V(281) - A(621) = RCT(621)*V(191)*V(266) - A(622) = RCT(622)*V(180)*V(266) - A(623) = RCT(623)*V(159)*V(286) - A(624) = RCT(624)*V(159)*V(282) - A(625) = RCT(625)*V(159) - A(626) = RCT(626)*V(148)*V(286) - A(627) = RCT(627)*V(148)*V(282) - A(628) = RCT(628)*V(148) - A(629) = RCT(629)*V(13)*V(284) - A(630) = RCT(630)*V(13)*V(279) - A(631) = RCT(631)*V(22)*V(284) - A(632) = RCT(632)*V(22)*V(279) - A(633) = RCT(633)*V(27)*V(284) - A(634) = RCT(634)*V(27)*V(279) - A(635) = RCT(635)*V(266)*V(281) - A(636) = RCT(636)*V(41)*V(286) - A(637) = RCT(637)*V(284) - A(638) = RCT(638)*V(291) - A(639) = RCT(639)*V(281) - A(640) = RCT(640)*V(281) - A(641) = RCT(641)*V(281) - A(642) = RCT(642)*V(173)*V(278) - A(643) = RCT(643)*V(173)*V(275) - A(644) = RCT(644)*V(173) - A(645) = RCT(645)*V(173)*V(280) - A(646) = RCT(646)*V(173)*V(287) - A(647) = RCT(647)*V(280)*V(286) - A(648) = RCT(648)*V(286)*V(287) - A(649) = RCT(649)*V(176)*V(278) - A(650) = RCT(650)*V(176)*V(275) - A(651) = RCT(651)*V(262)*V(278) - A(652) = RCT(652)*V(262)*V(275) - A(653) = RCT(653)*V(262)*V(289) - A(654) = RCT(654)*V(262)*V(283) - A(655) = RCT(655)*V(262)*V(277) - A(656) = RCT(656)*V(262)*V(280) - A(657) = RCT(657)*V(262)*V(287) - A(658) = RCT(658)*V(235)*V(280) - A(659) = RCT(659)*V(235)*V(287) - A(660) = RCT(660)*V(235)*V(275) - A(661) = RCT(661)*V(235)*V(283) - A(662) = RCT(662)*V(235)*V(277) - A(663) = RCT(663)*V(235)*V(289) - A(664) = RCT(664)*V(271)*V(275) - A(665) = RCT(665)*V(271)*V(289) - A(666) = RCT(666)*V(271)*V(280) - A(667) = RCT(667)*V(271)*V(287) - A(668) = RCT(668)*V(271)*V(276) - A(669) = RCT(669)*V(260)*V(289) - A(670) = RCT(670)*V(260)*V(275) - A(671) = RCT(671)*V(260)*V(280) - A(672) = RCT(672)*V(260)*V(287) - A(673) = RCT(673)*V(260)*V(283) - A(674) = RCT(674)*V(260)*V(277) - A(675) = RCT(675)*V(260)*V(276) - A(676) = RCT(676)*V(282)*V(289) - A(677) = RCT(677)*V(282)*V(283) - A(678) = RCT(678)*V(277)*V(282) - A(679) = RCT(679)*V(289) - A(680) = RCT(680)*V(289) - A(681) = RCT(681)*V(69) - A(682) = RCT(682)*V(69) - A(683) = RCT(683)*V(69) - A(684) = RCT(684)*V(268) - A(685) = RCT(685)*V(268) - A(686) = RCT(686)*V(44) - A(687) = RCT(687)*V(44) - A(688) = RCT(688)*V(44) - A(689) = RCT(689)*V(49) - A(690) = RCT(690)*V(49) - A(691) = RCT(691)*V(49) - A(692) = RCT(692)*V(42) - A(693) = RCT(693)*V(42) - A(694) = RCT(694)*V(42) - A(695) = RCT(695)*V(203) - A(696) = RCT(696)*V(203) - A(697) = RCT(697)*V(270) - A(698) = RCT(698)*V(270) - A(699) = RCT(699)*V(270)*V(278) - A(700) = RCT(700)*V(203)*V(283) - A(701) = RCT(701)*V(203)*V(277) - A(702) = RCT(702)*V(203)*V(280) - A(703) = RCT(703)*V(203)*V(287) - A(704) = RCT(704)*V(270)*V(283) - A(705) = RCT(705)*V(270)*V(277) - A(706) = RCT(706)*V(270)*V(280) - A(707) = RCT(707)*V(270)*V(287) - A(708) = RCT(708)*V(268)*V(283) - A(709) = RCT(709)*V(268)*V(277) - A(710) = RCT(710)*V(268)*V(280) - A(711) = RCT(711)*V(268)*V(287) - A(712) = RCT(712)*V(223) - A(713) = RCT(713)*V(233) - A(714) = RCT(714)*V(130) - A(715) = RCT(715)*V(131) - A(716) = RCT(716)*V(116) - A(717) = RCT(717)*V(24) - A(718) = RCT(718)*V(241) - A(719) = RCT(719)*V(202) - A(720) = RCT(720)*V(178) - A(721) = RCT(721)*V(199) - A(722) = RCT(722)*V(134) - A(723) = RCT(723)*V(104) - A(724) = RCT(724)*V(105) - A(725) = RCT(725)*V(220) - A(726) = RCT(726)*V(139) - A(727) = RCT(727)*V(140) - A(728) = RCT(728)*V(214) - A(729) = RCT(729)*V(174) - A(730) = RCT(730)*V(151) - A(731) = RCT(731)*V(181) - A(732) = RCT(732)*V(243) - A(733) = RCT(733)*V(213) - A(734) = RCT(734)*V(242) - A(735) = RCT(735)*V(175) - A(736) = RCT(736)*V(200) - A(737) = RCT(737)*V(210) - A(738) = RCT(738)*V(282) - A(739) = RCT(739)*V(282) - A(740) = RCT(740)*F(3) - A(741) = RCT(741)*V(291) - A(742) = RCT(742)*V(212) - A(743) = RCT(743)*V(137) - A(744) = RCT(744)*V(263) - A(745) = RCT(745)*V(263) - A(746) = RCT(746)*V(265) - A(747) = RCT(747)*V(193) - A(748) = RCT(748)*V(102) - A(749) = RCT(749)*V(102) - A(750) = RCT(750)*V(281) - A(751) = RCT(751)*V(281) - A(752) = RCT(752)*V(173) - A(753) = RCT(753)*V(264) - A(754) = RCT(754)*V(264) - A(755) = RCT(755)*V(67) - A(756) = RCT(756)*V(259) - A(757) = RCT(757)*V(221) - A(758) = RCT(758)*V(221) - A(759) = RCT(759)*V(226) - A(760) = RCT(760)*V(236) - A(761) = RCT(761)*V(223) - A(762) = RCT(762)*V(223) - A(763) = RCT(763)*V(223) - A(764) = RCT(764)*V(233) - A(765) = RCT(765)*V(248) - A(766) = RCT(766)*V(248) - A(767) = RCT(767)*V(248) - A(768) = RCT(768)*V(251) - A(769) = RCT(769)*V(250) - A(770) = RCT(770)*V(113) - A(771) = RCT(771)*V(110) - A(772) = RCT(772)*V(94) - A(773) = RCT(773)*V(95) - A(774) = RCT(774)*V(93) - A(775) = RCT(775)*V(112) - A(776) = RCT(776)*V(106) - A(777) = RCT(777)*V(202) - A(778) = RCT(778)*V(88) - A(779) = RCT(779)*V(128) - A(780) = RCT(780)*V(274) - A(781) = RCT(781)*V(260) - A(782) = RCT(782)*V(176) - A(783) = RCT(783)*V(176) - A(784) = RCT(784)*V(51) - A(785) = RCT(785)*V(77) - A(786) = RCT(786)*V(71) - A(787) = RCT(787)*V(100) - A(788) = RCT(788)*V(149) - A(789) = RCT(789)*V(72) - A(790) = RCT(790)*V(135) - A(791) = RCT(791)*V(197) - A(792) = RCT(792)*V(285) - A(793) = RCT(793)*V(111) - A(794) = RCT(794)*V(75) - A(795) = RCT(795)*V(235) - A(796) = RCT(796)*V(262) - A(797) = RCT(797)*V(262) - A(798) = RCT(798)*V(271) - A(799) = RCT(799)*V(43) - A(800) = RCT(800)*V(52) - A(801) = RCT(801)*V(53) - A(802) = RCT(802)*V(54) - A(803) = RCT(803)*V(55) - A(804) = RCT(804)*V(56) - A(805) = RCT(805)*V(57) - A(806) = RCT(806)*V(81) - A(807) = RCT(807)*V(82) - A(808) = RCT(808)*V(83) - A(809) = RCT(809)*V(84) - A(810) = RCT(810)*V(47) - A(811) = RCT(811)*V(59) - A(812) = RCT(812)*V(48) - A(813) = RCT(813)*V(103) - A(814) = RCT(814)*V(143) - A(815) = RCT(815)*V(268) - A(816) = RCT(816)*V(227) - A(817) = RCT(817)*V(92) - A(818) = RCT(818)*V(60) - A(819) = RCT(819)*V(203) - A(820) = RCT(820)*V(270) - A(821) = RCT(821)*V(44) - A(822) = RCT(822)*V(46) - A(823) = RCT(823)*V(1) - A(824) = RCT(824)*V(3) - A(825) = RCT(825)*V(2) - A(826) = RCT(826)*V(42) - A(827) = RCT(827)*V(49) - A(828) = RCT(828)*V(73) - A(829) = RCT(829)*V(99) - A(830) = RCT(830)*V(74) - A(831) = RCT(831)*V(74) - A(832) = RCT(832)*V(196) - A(833) = RCT(833)*V(61) - A(834) = RCT(834)*V(66) - A(835) = RCT(835)*V(122) - A(836) = RCT(836)*V(279) - A(837) = RCT(837)*V(119) - A(838) = RCT(838)*V(208) - A(839) = RCT(839)*V(178) - A(840) = RCT(840)*V(199) - A(841) = RCT(841)*V(134) - A(842) = RCT(842)*V(63) - A(843) = RCT(843)*V(63) - A(844) = RCT(844)*V(62) - A(845) = RCT(845)*V(62) - A(846) = RCT(846)*V(89) - A(847) = RCT(847)*V(96) - A(848) = RCT(848)*V(87) - A(849) = RCT(849)*V(91) - A(850) = RCT(850)*V(85) - A(851) = RCT(851)*V(172) - A(852) = RCT(852)*V(104) - A(853) = RCT(853)*V(198) - A(854) = RCT(854)*V(169) - A(855) = RCT(855)*V(185) - A(856) = RCT(856)*V(230) - A(857) = RCT(857)*V(156) - A(858) = RCT(858)*V(163) - A(859) = RCT(859)*V(231) - A(860) = RCT(860)*V(136) - A(861) = RCT(861)*V(241) - A(862) = RCT(862)*V(200) - A(863) = RCT(863)*V(175) - A(864) = RCT(864)*V(157) - A(865) = RCT(865)*V(162) - A(866) = RCT(866)*V(171) - A(867) = RCT(867)*V(165) - A(868) = RCT(868)*V(186) - A(869) = RCT(869)*V(188) - A(870) = RCT(870)*V(129) - A(871) = RCT(871)*V(127) - A(872) = RCT(872)*V(220) - A(873) = RCT(873)*V(139) - A(874) = RCT(874)*V(140) - A(875) = RCT(875)*V(214) - A(876) = RCT(876)*V(181) - A(877) = RCT(877)*V(151) - A(878) = RCT(878)*V(151) - A(879) = RCT(879)*V(240) - A(880) = RCT(880)*V(243) - A(881) = RCT(881)*V(206) - A(882) = RCT(882)*V(206) - A(883) = RCT(883)*V(141) - A(884) = RCT(884)*V(164) - A(885) = RCT(885)*V(125) - A(886) = RCT(886)*V(242) - A(887) = RCT(887)*V(242) - A(888) = RCT(888)*V(213) - A(889) = RCT(889)*V(213) - A(890) = RCT(890)*V(120) - A(891) = RCT(891)*V(101) - A(892) = RCT(892)*V(70) - A(893) = RCT(893)*V(107) - A(894) = RCT(894)*V(210) + 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(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(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(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(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(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(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(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(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) !### Use Aout to return equation rates IF ( PRESENT( Aout ) ) Aout = A @@ -2739,787 +3258,965 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) IF (DO_FUN(3)) & P_VAR(3) = 0 IF (DO_FUN(4)) & - P_VAR(4) = A(681)+2*A(686)+2*A(689)+2*A(692) + P_VAR(4) = A(825)+2*A(830)+2*A(833)+2*A(836) IF (DO_FUN(5)) & - P_VAR(5) = A(737) + P_VAR(5) = A(881) IF (DO_FUN(6)) & - P_VAR(6) = A(636) + P_VAR(6) = A(780) IF (DO_FUN(7)) & - P_VAR(7) = A(24)+A(47)+A(55)+A(76)+A(80)+0.3*A(97)+0.43*A(109)+0.1*A(111)+0.361*A(112)+0.5*A(120)+0.22*A(129)+2*A(131)& - &+0.9*A(132)+0.9*A(133)+0.9*A(134)+0.9*A(135)+0.9*A(136)+0.645*A(137)+0.9*A(138)+0.9*A(139)+0.9*A(140)+0.9& - &*A(141)+0.9*A(142)+2*A(143)+A(144)+A(188)+A(267)+A(275)+A(309)+A(311)+A(318)+A(329)+A(350)+0.407*A(369)& - &+0.355*A(404)+A(446)+A(447)+A(448)+A(449)+A(487)+A(488)+0.429*A(515)+0.429*A(516)+0.23*A(528)+0.75*A(530)& - &+0.097*A(537)+0.5*A(547)+0.41*A(548)+A(552)+0.5*A(554)+A(555)+A(557)+0.7*A(558)+A(565)+A(569)+0.5*A(571)& - &+A(596)+0.35*A(606)+A(607)+A(611)+A(622)+0.3*A(755)+A(778)+A(852)+1.238*A(860)+A(892)+A(894) + P_VAR(7) = A(24)+A(47)+A(56)+A(104)+A(109)+A(127)+0.44*A(128)+0.3*A(136)+0.43*A(148)+0.1*A(150)+0.361*A(151)+0.44& + &*A(158)+0.5*A(168)+0.22*A(178)+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.645*A(187)+0.645*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+2*A(194)+A(195)+A(239)& + &+A(318)+A(326)+A(360)+A(362)+A(369)+A(392)+A(395)+A(397)+0.44*A(436)+A(437)+A(440)+A(442)+0.9*A(457)+0.9& + &*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) IF (DO_FUN(8)) & - P_VAR(8) = A(362)+A(363) + P_VAR(8) = A(486)+A(487) IF (DO_FUN(9)) & - P_VAR(9) = A(682)+A(684)+2*A(687)+2*A(690)+2*A(693)+A(695)+A(697) + P_VAR(9) = A(826)+A(828)+2*A(831)+2*A(834)+2*A(837)+A(839)+A(841) IF (DO_FUN(10)) & - P_VAR(10) = A(683)+A(685)+2*A(688)+2*A(691)+2*A(694)+A(696)+A(698) + P_VAR(10) = A(827)+A(829)+2*A(832)+2*A(835)+2*A(838)+A(840)+A(842) IF (DO_FUN(11)) & - P_VAR(11) = A(629) + P_VAR(11) = A(773) IF (DO_FUN(12)) & - P_VAR(12) = A(630) + P_VAR(12) = A(774) IF (DO_FUN(13)) & - P_VAR(13) = A(589) + P_VAR(13) = A(724) IF (DO_FUN(14)) & - P_VAR(14) = A(370)+A(371)+A(372)+A(373) + P_VAR(14) = A(494)+A(495)+A(496)+A(497) IF (DO_FUN(15)) & - P_VAR(15) = A(479) + P_VAR(15) = A(603) IF (DO_FUN(16)) & - P_VAR(16) = A(575) + P_VAR(16) = A(699) IF (DO_FUN(17)) & - P_VAR(17) = A(576) + P_VAR(17) = A(700) IF (DO_FUN(18)) & - P_VAR(18) = A(574) + P_VAR(18) = A(698) IF (DO_FUN(19)) & P_VAR(19) = 0 IF (DO_FUN(20)) & - P_VAR(20) = A(631) + P_VAR(20) = A(775) IF (DO_FUN(21)) & - P_VAR(21) = A(632) + P_VAR(21) = A(776) IF (DO_FUN(22)) & - P_VAR(22) = A(590) + P_VAR(22) = A(725) IF (DO_FUN(23)) & - P_VAR(23) = A(717) + P_VAR(23) = A(861) IF (DO_FUN(24)) & - P_VAR(24) = 0.005*A(407)+0.005*A(408)+0.005*A(409)+0.005*A(410)+0.005*A(411)+0.005*A(412)+0.005*A(413)+0.005*A(414) + P_VAR(24) = 0.005*A(531)+0.005*A(532)+0.005*A(533)+0.005*A(534)+0.005*A(535)+0.005*A(536)+0.005*A(537)+0.005*A(538) IF (DO_FUN(25)) & - P_VAR(25) = A(633) + P_VAR(25) = A(777) IF (DO_FUN(26)) & - P_VAR(26) = A(634) + P_VAR(26) = A(778) IF (DO_FUN(27)) & - P_VAR(27) = A(591) + P_VAR(27) = A(726) IF (DO_FUN(28)) & - P_VAR(28) = 0.25*A(149) + P_VAR(28) = 0.25*A(200) IF (DO_FUN(29)) & P_VAR(29) = A(4) IF (DO_FUN(30)) & - P_VAR(30) = A(712)+1.5*A(713)+1.5*A(723) + P_VAR(30) = A(856)+1.5*A(857)+1.5*A(867) IF (DO_FUN(31)) & - P_VAR(31) = A(714)+A(715)+A(716)+0.8*A(724)+A(729) + P_VAR(31) = A(858)+A(859)+A(860)+0.8*A(868)+A(873) IF (DO_FUN(32)) & - P_VAR(32) = A(151)+A(317)+A(321) + P_VAR(32) = A(202)+A(368)+A(372) IF (DO_FUN(33)) & - P_VAR(33) = A(7)+A(8)+A(9)+2*A(12) + P_VAR(33) = 2*A(12) IF (DO_FUN(34)) & - P_VAR(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(55)+A(57)+A(59)+A(62)+A(64)+A(66)+A(67)+A(68)+A(69)+A(70)+A(71)+A(73)& - &+A(80)+0.15*A(109)+A(160)+0.02*A(196)+A(197)+A(198)+A(222)+A(230)+A(231)+A(246)+0.1*A(258)+A(268)+A(271)& - &+A(272)+A(301)+A(312)+A(313)+A(319)+A(320)+A(326)+A(338)+A(344)+A(345)+A(362)+A(363)+A(364)+A(365)+A(366)& - &+A(367)+A(368)+A(392)+A(393)+A(394)+A(395)+A(396)+A(397)+A(398)+A(399)+A(416)+A(417)+A(420)+A(421)+A(424)& - &+A(425)+A(435)+A(436)+A(439)+A(440)+A(443)+A(444)+A(446)+A(448)+A(462)+A(463)+A(466)+A(467)+A(471)+A(472)& - &+A(474)+A(475)+A(477)+A(478)+A(491)+A(492)+A(493)+A(494)+A(509)+A(510)+A(511)+A(512)+A(515)+A(518)+0.69& - &*A(526)+A(531)+A(534)+A(544)+A(545)+0.13*A(547)+A(550)+A(551)+A(552)+0.13*A(554)+A(555)+A(560)+0.13*A(571)& - &+0.995*A(581)+A(586)+A(593)+0.15*A(606)+A(607)+A(610)+A(611)+A(612)+A(613)+A(619)+2*A(740)+A(748)+0.3& - &*A(755)+A(830)+A(833)+A(836)+A(846)+A(847)+A(848)+A(849) + 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)& + &+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& + &*A(388)+0.15*A(391)+A(392)+A(394)+0.84*A(399)+A(403)+0.75*A(405)+0.5*A(407)+A(412)+A(416)+0.75*A(418)+0.5& + &*A(426)+0.84*A(429)+A(435)+0.15*A(436)+A(437)+A(439)+A(445)+A(450)+A(468)+A(469)+A(486)+A(487)+A(488)& + &+A(489)+A(490)+A(491)+A(492)+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)+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(74)+A(81)+A(94)+A(111)+A(114)+A(117)& - &+A(118)+A(130)+2*A(145)+A(150)+2*A(156)+2*A(157)+A(161)+A(162)+A(163)+A(175)+A(178)+A(179)+A(180)+2*A(182)& - &+A(184)+A(185)+A(186)+A(187)+2*A(189)+2*A(190)+A(193)+A(195)+2*A(200)+A(201)+0.66*A(202)+0.6*A(203)+0.44& - &*A(206)+0.56*A(207)+0.19*A(210)+0.1*A(218)+0.05*A(219)+A(223)+A(224)+A(225)+A(226)+A(227)+2*A(247)+2*A(251)& - &+2*A(252)+2*A(260)+2*A(261)+0.4*A(293)+0.88*A(298)+A(316)+A(330)+A(331)+A(332)+A(333)+A(334)+A(336)+A(337)& - &+A(342)+A(352)+A(353)+A(359)+2*A(360)+2*A(361)+A(369)+A(479)+A(489)+A(490)+A(521)+A(524)+A(525)+A(557)& - &+A(568)+A(577)+A(582)+A(594)+1.258*A(598)+1.5*A(600)+A(602)+1.5*A(603)+A(605)+A(608)+A(614)+A(617)+A(618)& - &+A(624)+A(627)+A(635)+0.5*A(638)+A(639)+A(640)+A(641)+A(642)+A(643)+A(644)+A(645)+A(646)+A(650)+A(652)& - &+A(653)+A(654)+A(655)+A(656)+A(657)+A(658)+A(659)+A(660)+A(661)+A(662)+A(663)+A(664)+A(665)+A(666)+A(667)& - &+A(668)+A(669)+A(670)+A(671)+A(672)+A(673)+A(674)+A(675)+A(684)+A(685)+2*A(686)+2*A(687)+2*A(688)+3*A(689)& - &+3*A(690)+3*A(691)+4*A(692)+4*A(693)+4*A(694)+A(695)+A(696)+A(697)+A(698)+A(700)+A(701)+A(702)+A(703)& - &+A(704)+A(705)+A(706)+A(707)+A(708)+A(709)+A(710)+A(711)+A(718)+A(719)+A(720)+A(721)+A(722)+A(725)+A(726)& - &+A(727)+A(728)+A(730)+A(731)+2*A(732)+A(733)+A(734)+A(735)+A(736)+2*A(751)+A(781)+2*A(794)+A(798)+A(815)+2& - &*A(817)+A(842)+A(844) + 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(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& + &*A(270)+A(274)+A(275)+A(276)+A(277)+A(278)+2*A(298)+2*A(302)+2*A(303)+2*A(311)+2*A(312)+0.4*A(344)+0.88& + &*A(349)+A(367)+A(375)+A(376)+A(377)+A(379)+A(381)+A(383)+A(386)+A(389)+A(393)+A(395)+A(400)+A(406)+A(414)& + &+A(419)+A(421)+2*A(422)+A(424)+2*A(425)+0.5*A(427)+A(428)+A(431)+A(434)+A(438)+A(440)+A(446)+A(448)+A(449)& + &+A(454)+A(455)+A(476)+A(477)+A(483)+2*A(484)+2*A(485)+A(493)+A(603)+A(613)+A(614)+A(645)+A(648)+A(649)& + &+A(681)+A(692)+A(703)+A(704)+A(706)+A(708)+A(712)+A(717)+A(729)+A(738)+1.258*A(742)+1.5*A(744)+A(746)+1.5& + &*A(747)+A(749)+A(752)+A(758)+A(761)+A(762)+A(768)+A(771)+A(779)+0.5*A(782)+A(783)+A(784)+A(785)+A(786)& + &+A(787)+A(788)+A(789)+A(790)+A(794)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)+A(802)+A(803)+A(804)+A(805)& + &+A(806)+A(807)+A(808)+A(809)+A(810)+A(811)+A(812)+A(813)+A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(828)& + &+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)+0.56*A(111)+0.505*A(112)+A(113)+2*A(115)+A(116)+2*A(117)+A(118)+0.5*A(120)+A(165)& - &+A(187)+A(201)+A(241)+A(264)+A(265)+A(266)+0.14*A(331)+0.14*A(332)+0.14*A(336)+0.407*A(369)+0.6*A(372)+0.9& - &*A(373)+0.6*A(379)+0.9*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.55*A(395)+0.55*A(399)+0.45& - &*A(400)+0.37*A(401)+0.42*A(402)+0.23*A(403)+0.638*A(404)+1.5*A(405)+A(406)+0.25*A(411)+0.33*A(412)+0.036& - &*A(413)+0.054*A(414)+A(433)+0.13*A(434)+0.2*A(435)+A(438)+0.2*A(439)+0.13*A(441)+0.52*A(442)+0.8*A(444)+2& - &*A(445)+0.6*A(458)+0.6*A(459)+0.539*A(514)+0.33*A(515)+0.33*A(516)+0.28*A(521)+0.036*A(522)+0.12*A(524)& - &+0.68*A(525)+0.77*A(528)+0.25*A(530)+0.75*A(537)+A(538)+A(540)+2*A(541)+0.84*A(542)+0.507*A(546)+0.325& - &*A(547)+0.488*A(548)+A(549)+0.86*A(550)+0.65*A(552)+0.25*A(560)+A(561)+A(562)+0.888*A(563)+A(566)+A(572)& - &+0.364*A(579)+0.2*A(589)+0.27*A(590)+0.3*A(591)+0.15*A(619)+0.15*A(620)+0.26*A(623)+0.5*A(624)+0.25*A(626)& - &+0.5*A(627)+0.05*A(628)+A(744)+A(745)+0.88*A(753)+A(754)+A(756)+A(758)+A(760)+2*A(761)+2*A(762)+A(763)& - &+A(764)+A(765)+A(766)+A(768)+A(834)+A(838)+A(851)+A(854)+0.5*A(855)+0.571*A(857)+0.875*A(858)+0.77*A(859)& - &+A(862)+A(863)+0.888*A(868)+0.818*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.839*A(879)+A(881)+0.163& - &*A(882)+A(885)+A(889)+A(891)+A(894) + 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(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& + &*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)+0.2& + &*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)+0.33& + &*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(311)+A(318) + 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(151)+A(317)+A(321)+A(668)+A(675) + 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(180)+A(240) + P_VAR(39) = A(25)+A(231)+A(291) IF (DO_FUN(40)) & - P_VAR(40) = A(19)+A(23)+0.06*A(314)+0.06*A(315)+A(322)+0.02*A(331)+0.02*A(332)+0.02*A(336)+0.013*A(369)+0.045*A(521) + 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) IF (DO_FUN(41)) & P_VAR(41) = 0 IF (DO_FUN(42)) & - P_VAR(42) = A(295) + P_VAR(42) = A(346) IF (DO_FUN(43)) & P_VAR(43) = 0 IF (DO_FUN(44)) & - P_VAR(44) = 0.6*A(306) + P_VAR(44) = 0.6*A(357) IF (DO_FUN(45)) & - P_VAR(45) = A(720)+A(721)+A(722) + P_VAR(45) = A(864)+A(865)+A(866) IF (DO_FUN(46)) & - P_VAR(46) = 0 + P_VAR(46) = 0.21*A(256) IF (DO_FUN(47)) & - P_VAR(47) = 0.55*A(214) + P_VAR(47) = 0.1*A(262) IF (DO_FUN(48)) & - P_VAR(48) = 0.25*A(221) + P_VAR(48) = 0.14*A(263) IF (DO_FUN(49)) & - P_VAR(49) = A(294) + P_VAR(49) = 0.1*A(269) IF (DO_FUN(50)) & - P_VAR(50) = A(78) + P_VAR(50) = 0.1*A(270) IF (DO_FUN(51)) & - P_VAR(51) = A(170) + P_VAR(51) = 0.14*A(271) IF (DO_FUN(52)) & - P_VAR(52) = 0.21*A(205) + P_VAR(52) = 0 IF (DO_FUN(53)) & - P_VAR(53) = 0.1*A(211) + P_VAR(53) = 0.55*A(265) IF (DO_FUN(54)) & - P_VAR(54) = 0.14*A(212) + P_VAR(54) = 0.25*A(272) IF (DO_FUN(55)) & - P_VAR(55) = 0.1*A(218) + P_VAR(55) = A(345) IF (DO_FUN(56)) & - P_VAR(56) = 0.1*A(219) + P_VAR(56) = A(393) IF (DO_FUN(57)) & - P_VAR(57) = 0.14*A(220) + P_VAR(57) = A(438) IF (DO_FUN(58)) & - P_VAR(58) = 0 + P_VAR(58) = 0.15*A(707) IF (DO_FUN(59)) & - P_VAR(59) = 0.35*A(213) + P_VAR(59) = A(221) IF (DO_FUN(60)) & - P_VAR(60) = A(283) + P_VAR(60) = 0 IF (DO_FUN(61)) & - P_VAR(61) = A(199) + P_VAR(61) = 0.35*A(264) IF (DO_FUN(62)) & - P_VAR(62) = A(3)+A(640) + P_VAR(62) = A(334) IF (DO_FUN(63)) & - P_VAR(63) = A(6)+A(641) + P_VAR(63) = A(250) IF (DO_FUN(64)) & - P_VAR(64) = 0 + P_VAR(64) = A(3)+A(784) IF (DO_FUN(65)) & - P_VAR(65) = A(836) + P_VAR(65) = A(6)+A(785) IF (DO_FUN(66)) & - P_VAR(66) = 0 + P_VAR(66) = 0.15*A(391)+0.25*A(464) IF (DO_FUN(67)) & - P_VAR(67) = A(53) + P_VAR(67) = A(988) IF (DO_FUN(68)) & - P_VAR(68) = 0.005*A(581) + P_VAR(68) = 0 IF (DO_FUN(69)) & - P_VAR(69) = A(300) + P_VAR(69) = 0 IF (DO_FUN(70)) & - P_VAR(70) = 0.65*A(606) + P_VAR(70) = 0.005*A(716) IF (DO_FUN(71)) & - P_VAR(71) = 0.05*A(208) + P_VAR(71) = 0.65*A(750) IF (DO_FUN(72)) & - P_VAR(72) = 0 + P_VAR(72) = 0.56*A(158) IF (DO_FUN(73)) & - P_VAR(73) = A(700)+A(701)+A(704)+A(705)+A(708)+A(709) + P_VAR(73) = A(351) IF (DO_FUN(74)) & - P_VAR(74) = A(146) + P_VAR(74) = 0.41*A(391) IF (DO_FUN(75)) & - P_VAR(75) = A(256) + P_VAR(75) = 0 IF (DO_FUN(76)) & - P_VAR(76) = 0 + P_VAR(76) = A(307) IF (DO_FUN(77)) & - P_VAR(77) = 0.3*A(209) + P_VAR(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853) IF (DO_FUN(78)) & - P_VAR(78) = 0 + P_VAR(78) = 0.05*A(259) IF (DO_FUN(79)) & P_VAR(79) = 0 IF (DO_FUN(80)) & - P_VAR(80) = 0 + P_VAR(80) = A(197) IF (DO_FUN(81)) & - P_VAR(81) = 0.21*A(217) + P_VAR(81) = 0.3*A(260) IF (DO_FUN(82)) & - P_VAR(82) = 0.31*A(215) + P_VAR(82) = 0 IF (DO_FUN(83)) & - P_VAR(83) = 0.35*A(216) + P_VAR(83) = A(59) IF (DO_FUN(84)) & - P_VAR(84) = 0.25*A(210) + P_VAR(84) = 0.21*A(268) IF (DO_FUN(85)) & - P_VAR(85) = 0.73*A(314)+0.4*A(315) + P_VAR(85) = 0.31*A(266) IF (DO_FUN(86)) & - P_VAR(86) = A(10) + P_VAR(86) = 0.35*A(267) IF (DO_FUN(87)) & - P_VAR(87) = A(72) + P_VAR(87) = 0.25*A(261) IF (DO_FUN(88)) & - P_VAR(88) = 0.37*A(571) + P_VAR(88) = 0.73*A(365)+0.4*A(366) IF (DO_FUN(89)) & - P_VAR(89) = A(27) + P_VAR(89) = A(10) IF (DO_FUN(90)) & - P_VAR(90) = 0 + P_VAR(90) = A(752) IF (DO_FUN(91)) & - P_VAR(91) = A(63) + P_VAR(91) = A(99) IF (DO_FUN(92)) & - P_VAR(92) = 0.8*A(293)+2*A(296)+0.4*A(306)+0.996*A(307)+A(821)+2*A(826)+A(827) + P_VAR(92) = 0.37*A(695) IF (DO_FUN(93)) & - P_VAR(93) = A(85) + P_VAR(93) = A(27) IF (DO_FUN(94)) & - P_VAR(94) = A(107) + P_VAR(94) = 0 IF (DO_FUN(95)) & - P_VAR(95) = A(89) + P_VAR(95) = A(64) IF (DO_FUN(96)) & - P_VAR(96) = A(58) + 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) IF (DO_FUN(97)) & - P_VAR(97) = A(608) + P_VAR(97) = A(114) IF (DO_FUN(98)) & - P_VAR(98) = A(718)+A(719)+A(725)+A(726)+A(727)+A(728)+A(730)+A(731)+A(732)+A(733)+A(734)+A(735)+A(736) + P_VAR(98) = A(70) IF (DO_FUN(99)) & - P_VAR(99) = 0.191*A(298)+A(702)+A(703)+A(706)+A(707)+A(710)+A(711) + P_VAR(99) = A(146) IF (DO_FUN(100)) & - P_VAR(100) = 0 + P_VAR(100) = A(120) IF (DO_FUN(101)) & - P_VAR(101) = 0.06*A(590)+0.06*A(591) + P_VAR(101) = 0 IF (DO_FUN(102)) & - P_VAR(102) = A(39) + P_VAR(102) = A(116) IF (DO_FUN(103)) & - P_VAR(103) = A(223)+A(227)+A(252)+A(254)+A(260)+A(794) + 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) IF (DO_FUN(104)) & - P_VAR(104) = 0.075*A(521)+0.241*A(526)+0.653*A(537)+0.75*A(858) + P_VAR(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855) IF (DO_FUN(105)) & - P_VAR(105) = 0.098*A(548)+0.75*A(560) + P_VAR(105) = 0 IF (DO_FUN(106)) & - P_VAR(106) = 0.41*A(109) + P_VAR(106) = 0.995*A(716)+A(717)+0.6*A(718)+A(1042) IF (DO_FUN(107)) & - P_VAR(107) = 0.15*A(606)+A(611)+A(615) + P_VAR(107) = 0.098*A(672)+0.75*A(684) IF (DO_FUN(108)) & - P_VAR(108) = 0.995*A(581)+A(582)+0.6*A(583)+A(890) + P_VAR(108) = A(39) IF (DO_FUN(109)) & - P_VAR(109) = 0.15*A(400)+0.15*A(401)+0.112*A(868)+0.182*A(869)+0.161*A(879) + P_VAR(109) = 0.4*A(901) IF (DO_FUN(110)) & - P_VAR(110) = A(105)+A(106) + P_VAR(110) = A(274)+A(278)+A(303)+A(305)+A(311)+A(946) IF (DO_FUN(111)) & - P_VAR(111) = A(253)+A(259)+0.56*A(298) + P_VAR(111) = A(384) IF (DO_FUN(112)) & - P_VAR(112) = A(108) + P_VAR(112) = A(404) IF (DO_FUN(113)) & - P_VAR(113) = A(90) + P_VAR(113) = A(124) IF (DO_FUN(114)) & - P_VAR(114) = 0 + P_VAR(114) = A(155) IF (DO_FUN(115)) & - P_VAR(115) = 0.19*A(590)+0.15*A(591) + P_VAR(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1010) IF (DO_FUN(116)) & - P_VAR(116) = 0.255*A(413)+0.595*A(414)+A(454)+A(456) + P_VAR(116) = 0.11*A(709) IF (DO_FUN(117)) & - P_VAR(117) = A(433)+0.13*A(434)+0.2*A(435)+0.35*A(562)+0.35*A(881) + P_VAR(117) = 0.15*A(750)+A(755)+A(759) IF (DO_FUN(118)) & - P_VAR(118) = 0.54*A(589) + P_VAR(118) = A(144)+A(145) IF (DO_FUN(119)) & - P_VAR(119) = A(327)+A(339) + P_VAR(119) = 0.15*A(524)+0.15*A(525)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031) IF (DO_FUN(120)) & - P_VAR(120) = A(580)+0.2*A(583) + P_VAR(120) = A(304)+A(310)+0.56*A(349) IF (DO_FUN(121)) & - P_VAR(121) = 0.315*A(400) + P_VAR(121) = A(732) IF (DO_FUN(122)) & - P_VAR(122) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(151)+A(317)+A(321)+A(668)+A(675) + P_VAR(122) = A(738) IF (DO_FUN(123)) & - P_VAR(123) = 0.315*A(401) + P_VAR(123) = A(147) IF (DO_FUN(124)) & - P_VAR(124) = 0 + P_VAR(124) = A(106) IF (DO_FUN(125)) & - P_VAR(125) = A(432)+A(437) + P_VAR(125) = A(121) IF (DO_FUN(126)) & - P_VAR(126) = 0.474*A(483)+0.34*A(484)+0.244*A(485)+0.841*A(488)+0.841*A(490)+0.841*A(493)+0.841*A(877)+0.222*A(880) + P_VAR(126) = A(86) IF (DO_FUN(127)) & - P_VAR(127) = 0.15*A(373)+0.15*A(381)+0.009*A(414) + P_VAR(127) = 0.058*A(78) IF (DO_FUN(128)) & - P_VAR(128) = A(157)+A(159)+A(669)+A(673)+A(674) + P_VAR(128) = 0.255*A(537)+0.595*A(538)+A(578)+A(580) IF (DO_FUN(129)) & - P_VAR(129) = 0.15*A(372)+0.15*A(379)+0.009*A(413) + P_VAR(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1053) IF (DO_FUN(130)) & - P_VAR(130) = 0.67*A(408)+0.68*A(410)+0.67*A(451)+0.67*A(453) + P_VAR(130) = 0.15*A(436)+0.25*A(466) IF (DO_FUN(131)) & - P_VAR(131) = 0.33*A(408)+0.32*A(410)+0.33*A(451)+0.33*A(453) + P_VAR(131) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1033) IF (DO_FUN(132)) & - P_VAR(132) = A(438)+0.2*A(439)+0.13*A(441)+0.15*A(562)+0.15*A(881)+0.163*A(882) + P_VAR(132) = 0.255*A(81) IF (DO_FUN(133)) & - P_VAR(133) = 0.25*A(92)+0.25*A(93)+0.4*A(103)+0.4*A(104) + P_VAR(133) = 0.315*A(524) IF (DO_FUN(134)) & - P_VAR(134) = A(357)+A(358)+A(359)+A(360)+A(361) + P_VAR(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819) IF (DO_FUN(135)) & - P_VAR(135) = A(261)+A(650)+A(653)+A(654)+A(655)+A(661)+A(662)+A(663)+A(665)+A(670)+A(671)+A(672) + P_VAR(135) = 0.315*A(525) IF (DO_FUN(136)) & - P_VAR(136) = 0.5*A(547)+0.25*A(860) + P_VAR(136) = A(715)+0.2*A(718) IF (DO_FUN(137)) & - P_VAR(137) = A(28) + P_VAR(137) = 0.25*A(385) IF (DO_FUN(138)) & - P_VAR(138) = -A(4) + P_VAR(138) = 0.25*A(405) IF (DO_FUN(139)) & - P_VAR(139) = A(392) + P_VAR(139) = A(53) IF (DO_FUN(140)) & - P_VAR(140) = A(396) + P_VAR(140) = 0 IF (DO_FUN(141)) & - P_VAR(141) = 0.725*A(418)+0.725*A(422)+0.35*A(426) + P_VAR(141) = 0 IF (DO_FUN(142)) & - P_VAR(142) = 0.8*A(597)+0.727*A(599) + P_VAR(142) = 0 IF (DO_FUN(143)) & - P_VAR(143) = A(284)+A(287)+A(291) + P_VAR(143) = 0.1*A(704) IF (DO_FUN(144)) & - P_VAR(144) = 0.224*A(868)+0.068*A(879) + P_VAR(144) = 0.15*A(497)+0.15*A(505)+0.009*A(538) IF (DO_FUN(145)) & - P_VAR(145) = 0.182*A(869)+0.128*A(879) + 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) IF (DO_FUN(146)) & - P_VAR(146) = 0.435*A(517) + P_VAR(146) = A(733)+A(734) IF (DO_FUN(147)) & - P_VAR(147) = -A(1) + P_VAR(147) = A(556)+A(561) IF (DO_FUN(148)) & - P_VAR(148) = 0.3*A(590)+0.56*A(591)+0.44*A(599)+0.44*A(600) + P_VAR(148) = A(208)+A(210)+A(813)+A(817)+A(818) IF (DO_FUN(149)) & - P_VAR(149) = 0.1*A(206) + P_VAR(149) = 0 IF (DO_FUN(150)) & - P_VAR(150) = 0.461*A(514)+0.67*A(515)+0.67*A(516)+0.041*A(567) + P_VAR(150) = 0.15*A(496)+0.15*A(503)+0.009*A(537) IF (DO_FUN(151)) & - P_VAR(151) = A(481) + P_VAR(151) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577) IF (DO_FUN(152)) & - P_VAR(152) = A(452) + P_VAR(152) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577) IF (DO_FUN(153)) & - P_VAR(153) = A(553)+A(556) + 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) IF (DO_FUN(154)) & - P_VAR(154) = 0 + P_VAR(154) = A(481)+A(482)+A(483)+A(484)+A(485) IF (DO_FUN(155)) & - P_VAR(155) = 0 + P_VAR(155) = 0.41*A(128)+0.41*A(148)+0.41*A(737) IF (DO_FUN(156)) & - P_VAR(156) = A(406)+0.444*A(563)+0.112*A(868)+0.182*A(869)+0.162*A(879)+0.454*A(885) + P_VAR(156) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143) IF (DO_FUN(157)) & - P_VAR(157) = 0.937*A(374) + 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) IF (DO_FUN(158)) & - P_VAR(158) = 0.25*A(83)+0.25*A(84)+0.38*A(95)+0.375*A(96)+0.25*A(98)+0.25*A(99)+0.25*A(100)+0.25*A(328)+0.25*A(340)& - &+0.25*A(349) + P_VAR(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726) IF (DO_FUN(159)) & - P_VAR(159) = 0.55*A(589)+0.68*A(590)+0.28*A(591)+0.18*A(597)+1.05*A(601)+A(602)+0.3*A(603)+0.9*A(619)+0.9*A(620)& - &+A(894) + P_VAR(159) = 0.5*A(671)+0.25*A(1012) IF (DO_FUN(160)) & - P_VAR(160) = 0.06*A(597)+0.742*A(598)+0.073*A(599)+0.3*A(600)+0.3*A(601)+0.3*A(603)+A(612)+A(613)+A(614)+A(621)+A(893) + P_VAR(160) = A(398)+0.25*A(401) IF (DO_FUN(161)) & - P_VAR(161) = 0 + P_VAR(161) = A(410)+0.25*A(413) IF (DO_FUN(162)) & - P_VAR(162) = 0.937*A(376) + P_VAR(162) = 0.5*A(407)+A(411) IF (DO_FUN(163)) & - P_VAR(163) = 0.022*A(567)+0.552*A(868)+0.454*A(869)+0.481*A(879) + P_VAR(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432) IF (DO_FUN(164)) & - P_VAR(164) = 0.824*A(415)+0.452*A(419)+A(423)+0.667*A(564) + P_VAR(164) = A(28) IF (DO_FUN(165)) & - P_VAR(165) = A(377) + P_VAR(165) = A(72) IF (DO_FUN(166)) & - P_VAR(166) = A(455) + P_VAR(166) = -A(4) IF (DO_FUN(167)) & - P_VAR(167) = A(450) + P_VAR(167) = 0 IF (DO_FUN(168)) & - P_VAR(168) = A(457) + P_VAR(168) = A(520) IF (DO_FUN(169)) & - P_VAR(169) = 0.13*A(442)+0.2*A(444)+0.53*A(527)+0.6*A(539)+0.255*A(543)+0.318*A(563)+0.391*A(885) + P_VAR(169) = A(430)+0.25*A(432)+0.41*A(436) IF (DO_FUN(170)) & - P_VAR(170) = 0 + P_VAR(170) = A(335)+A(338)+A(342) IF (DO_FUN(171)) & - P_VAR(171) = A(375) + P_VAR(171) = 0.224*A(1020)+0.068*A(1031) IF (DO_FUN(172)) & - P_VAR(172) = 0.3*A(372)+0.3*A(379)+0.018*A(413)+0.284*A(416)+0.135*A(418)+0.249*A(507)+0.471*A(508)+0.303*A(509)+0.59& - &*A(511)+0.5*A(887) + P_VAR(172) = 0.182*A(1021)+0.128*A(1031) IF (DO_FUN(173)) & - P_VAR(173) = A(45) + 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) IF (DO_FUN(174)) & - P_VAR(174) = 0.085*A(400)+0.165*A(401)+0.58*A(402)+0.77*A(403)+0.75*A(427)+A(428)+A(430)+A(501)+A(513) + P_VAR(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550) IF (DO_FUN(175)) & - P_VAR(175) = 0.6*A(458)+0.031*A(470)+0.065*A(471)+0.094*A(476)+0.355*A(477)+0.06*A(507)+0.073*A(508)+0.17*A(509)+0.291& - &*A(511)+0.378*A(514)+0.13*A(554)+0.3*A(558) + P_VAR(175) = A(516) IF (DO_FUN(176)) & - P_VAR(176) = A(171) + P_VAR(176) = 0.5*A(388)+0.16*A(399) IF (DO_FUN(177)) & - P_VAR(177) = A(178)+0.2*A(180)+A(183)+A(184)+0.22*A(202)+0.2*A(203)+0.09*A(206)+A(243)+A(744) + P_VAR(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429) IF (DO_FUN(178)) & - P_VAR(178) = 0.12*A(326)+A(344)+0.7*A(346)+0.7*A(347)+0.7*A(348)+0.35*A(349)+0.7*A(350)+0.7*A(352)+1.4*A(354)+1.05& - &*A(355)+0.7*A(356) + P_VAR(178) = A(66)+A(67)+0.5*A(71) IF (DO_FUN(179)) & - P_VAR(179) = A(578)+A(587) + P_VAR(179) = -A(1) IF (DO_FUN(180)) & - P_VAR(180) = A(604)+A(605)+A(609)+A(610) + P_VAR(180) = 0.435*A(641) IF (DO_FUN(181)) & - P_VAR(181) = 0.473*A(480)+0.07*A(482)+0.399*A(483)+0.355*A(486) + P_VAR(181) = 0.1*A(257) IF (DO_FUN(182)) & - P_VAR(182) = 0.345*A(407)+0.595*A(413) + P_VAR(182) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691) IF (DO_FUN(183)) & - P_VAR(183) = 0.345*A(409)+0.255*A(414) + P_VAR(183) = 0 IF (DO_FUN(184)) & - P_VAR(184) = 0.46*A(589)+0.81*A(590)+0.85*A(591)+0.14*A(597)+0.2*A(599)+0.2*A(600)+0.7*A(601)+0.2*A(603) + P_VAR(184) = A(677)+A(680) IF (DO_FUN(185)) & - P_VAR(185) = 0.29*A(526)+0.47*A(527)+0.063*A(537)+0.4*A(539)+0.16*A(542)+0.126*A(563)+0.133*A(882)+0.155*A(885) + 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) IF (DO_FUN(186)) & - P_VAR(186) = 0.25*A(372)+0.25*A(379)+0.015*A(413) + P_VAR(186) = A(605) IF (DO_FUN(187)) & - P_VAR(187) = 0.655*A(407)+0.655*A(409) + P_VAR(187) = 0.937*A(498) IF (DO_FUN(188)) & - P_VAR(188) = 0.25*A(373)+0.25*A(381)+0.015*A(414) + 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) IF (DO_FUN(189)) & - P_VAR(189) = A(498) + P_VAR(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707) IF (DO_FUN(190)) & - P_VAR(190) = 0.1*A(111)+A(754) + P_VAR(190) = A(576) IF (DO_FUN(191)) & - P_VAR(191) = 0.2*A(606)+A(607)+A(616)+A(617)+A(622)+A(891)+A(892) + P_VAR(191) = 0 IF (DO_FUN(192)) & - P_VAR(192) = A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.45*A(395)+0.45*A(399)+0.06*A(413)+0.06*A(414)+A(866)+A(867)& - &+0.45*A(872)+0.45*A(875) + P_VAR(192) = 0.937*A(500) IF (DO_FUN(193)) & - P_VAR(193) = A(37)+0.5*A(638)+A(658)+A(659)+A(660)+A(661)+A(662)+A(663)+A(695)+A(696)+A(700)+A(701)+A(702)+A(703)& - &+A(842)+A(844)+A(894) + P_VAR(193) = A(444) IF (DO_FUN(194)) & - P_VAR(194) = 0.16*A(412)+0.25*A(427) + P_VAR(194) = 0.022*A(691)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031) IF (DO_FUN(195)) & - P_VAR(195) = 0.12*A(111) + P_VAR(195) = 0.54*A(724) IF (DO_FUN(196)) & - P_VAR(196) = 0.85*A(87)+0.85*A(88)+0.3*A(373)+0.3*A(381)+0.018*A(414)+0.294*A(420)+0.135*A(422)+0.009*A(507)+0.054& - &*A(508)+0.013*A(509)+0.07*A(511)+0.036*A(522)+0.23*A(528)+0.05*A(887) + P_VAR(196) = A(69)+A(74) IF (DO_FUN(197)) & - P_VAR(197) = 0.25*A(204)+A(251)+0.95*A(258)+A(263)+0.5*A(647)+0.5*A(648)+A(652)+A(656)+A(657)+A(658)+A(659)+A(660)& - &+A(664)+A(666)+A(667) + P_VAR(197) = 0.68*A(81)+A(87)+A(900)+0.3*A(901) IF (DO_FUN(198)) & - P_VAR(198) = 0.791*A(121)+0.551*A(470)+0.935*A(471)+0.242*A(476)+0.546*A(477)+0.589*A(507)+0.471*A(508)+0.687*A(509)& - &+0.59*A(511)+0.231*A(515)+0.231*A(516)+A(518)+0.82*A(519)+0.68*A(525)+A(530)+A(863) + P_VAR(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688) IF (DO_FUN(199)) & - P_VAR(199) = 0.06*A(326)+0.22*A(338)+0.3*A(346)+0.3*A(347)+0.3*A(348)+0.15*A(349)+0.3*A(350)+0.3*A(352)+0.6*A(354)& - &+0.45*A(355)+0.3*A(356) + P_VAR(199) = A(501) IF (DO_FUN(200)) & - P_VAR(200) = 0.059*A(461)+0.272*A(462)+A(536)+A(551)+0.37*A(554)+0.5*A(886) + P_VAR(200) = 0 IF (DO_FUN(201)) & - P_VAR(201) = A(114)+0.209*A(121) + 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) IF (DO_FUN(202)) & - P_VAR(202) = A(67)+0.072*A(70)+A(86) + P_VAR(202) = 0.8*A(741)+0.727*A(743) IF (DO_FUN(203)) & - P_VAR(203) = A(285) + 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) IF (DO_FUN(204)) & - P_VAR(204) = A(520)+A(531)+A(532) + 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) IF (DO_FUN(205)) & - P_VAR(205) = 0.964*A(522)+A(534)+A(535) + P_VAR(205) = A(574) IF (DO_FUN(206)) & - P_VAR(206) = 0.176*A(415)+0.548*A(419)+0.35*A(434)+0.35*A(441)+0.35*A(442)+0.333*A(564)+0.75*A(883) + P_VAR(206) = A(579) IF (DO_FUN(207)) & - P_VAR(207) = A(523)+0.32*A(525)+0.165*A(548)+A(559) + P_VAR(207) = A(581) IF (DO_FUN(208)) & - P_VAR(208) = 0.441*A(473)+0.858*A(474)+0.033*A(476)+0.071*A(477)+0.051*A(507)+0.054*A(508)+0.064*A(509)+0.07*A(511)& - &+0.099*A(515)+0.099*A(516)+0.89*A(518)+0.73*A(519)+0.3*A(861)+0.15*A(886) + 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) IF (DO_FUN(209)) & - P_VAR(209) = A(110)+0.209*A(127)+A(281)+A(282) + P_VAR(209) = A(499) IF (DO_FUN(210)) & - P_VAR(210) = 0.258*A(598)+0.5*A(600)+0.5*A(603)+A(618) + 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) IF (DO_FUN(211)) & - P_VAR(211) = 0.134*A(112)+A(113)+0.5*A(120)+0.21*A(314)+0.54*A(315)+0.07*A(326)+0.01*A(336)+0.449*A(526)+0.187*A(537)& - &+0.3*A(561)+0.5*A(570)+0.364*A(579)+0.26*A(623)+0.5*A(624)+0.1*A(626)+0.2*A(627) + P_VAR(211) = 0.25*A(418) IF (DO_FUN(212)) & - P_VAR(212) = A(19)+A(23)+0.06*A(314)+0.06*A(315)+A(322)+0.02*A(331)+0.02*A(332)+0.02*A(336)+0.013*A(369)+0.045*A(521) + P_VAR(212) = A(75) IF (DO_FUN(213)) & - P_VAR(213) = A(436)+A(440)+A(443)+A(460)+A(464)+A(468)+A(469)+A(505)+0.5*A(506)+0.9*A(567) + P_VAR(213) = 0.8*A(153)+A(154)+A(156) IF (DO_FUN(214)) & - P_VAR(214) = A(394)+0.127*A(484)+0.057*A(485) + P_VAR(214) = A(45) IF (DO_FUN(215)) & - P_VAR(215) = 0.1*A(333)+0.1*A(334)+0.5*A(337) + 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) IF (DO_FUN(216)) & - P_VAR(216) = 0.9*A(333)+0.9*A(334)+0.5*A(337) + 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) IF (DO_FUN(217)) & - P_VAR(217) = A(56)+A(130)+A(168)+A(270) + 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) IF (DO_FUN(218)) & - P_VAR(218) = A(29)+0.13*A(31)+0.25*A(83)+0.25*A(84)+0.25*A(92)+0.25*A(93)+0.25*A(95)+0.25*A(96)+0.5*A(97)+0.25*A(98)& - &+0.25*A(99)+0.25*A(100)+0.25*A(328)+0.25*A(340)+0.25*A(349)+0.355*A(485)+0.034*A(486)+0.2*A(583)+0.1& - &*A(760) + P_VAR(218) = A(222) IF (DO_FUN(219)) & - P_VAR(219) = 0.5*A(120)+0.1*A(132)+0.1*A(133)+0.1*A(134)+0.1*A(135)+0.1*A(136)+0.1*A(137)+0.1*A(138)+0.1*A(139)+0.1& - &*A(140)+0.1*A(141)+0.1*A(142)+A(323)+0.13*A(571)+0.15*A(626)+0.3*A(627) + P_VAR(219) = 0 IF (DO_FUN(220)) & - P_VAR(220) = A(398)+0.032*A(483)+0.671*A(484)+0.298*A(485) + P_VAR(220) = 0 IF (DO_FUN(221)) & - P_VAR(221) = 0.34*A(66)+A(71)+0.16*A(95)+0.75*A(99)+0.791*A(124)+0.29*A(133)+A(136)+0.11*A(326)+A(367)+A(773)+0.34& - &*A(777)+A(848) + 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) IF (DO_FUN(222)) & - P_VAR(222) = 0.67*A(497) + P_VAR(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610) IF (DO_FUN(223)) & - P_VAR(223) = 0.134*A(112)+0.8*A(439)+0.52*A(441)+A(573)+0.636*A(579)+0.18*A(589)+0.12*A(590)+0.1*A(591)+0.06*A(597)& - &+0.6*A(623)+0.6*A(624)+0.2*A(625)+0.5*A(855)+0.429*A(857)+0.125*A(858)+0.586*A(882)+0.571*A(884) + P_VAR(223) = 0.345*A(531)+0.595*A(537) IF (DO_FUN(224)) & - P_VAR(224) = 0 + P_VAR(224) = 0.345*A(533)+0.255*A(538) IF (DO_FUN(225)) & - P_VAR(225) = A(335) + P_VAR(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1048) IF (DO_FUN(226)) & - P_VAR(226) = 0.19*A(66)+0.35*A(95)+0.25*A(98)+0.271*A(133)+0.1*A(135)+0.44*A(326)+0.75*A(328)+1.125*A(329)+A(330)+0.53& - &*A(331)+0.53*A(332)+0.289*A(338)+0.41*A(343)+0.464*A(345)+0.34*A(349)+0.464*A(351)+0.464*A(353)+0.149& - &*A(355)+0.285*A(356)+0.19*A(777)+A(839) + P_VAR(226) = A(622) IF (DO_FUN(227)) & - P_VAR(227) = A(290)+A(292)+A(297)+A(299)+A(303)+0.008*A(307)+A(827) + 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) IF (DO_FUN(228)) & - P_VAR(228) = 0.294*A(404)+0.67*A(429)+0.81*A(431)+0.08*A(563) + P_VAR(228) = 0.1*A(150)+A(898) IF (DO_FUN(229)) & - P_VAR(229) = 0.068*A(404)+0.33*A(429)+0.19*A(431)+0.032*A(563) + P_VAR(229) = A(443) IF (DO_FUN(230)) & - P_VAR(230) = A(385)+0.5*A(387)+0.5*A(389)+0.55*A(395)+0.33*A(400)+0.19*A(402)+0.125*A(404)+0.125*A(411)+0.706*A(420)& - &+0.14*A(422)+0.054*A(507)+0.059*A(509)+0.335*A(543)+0.429*A(565)+0.75*A(566)+0.55*A(872)+0.5*A(889) + P_VAR(230) = 0.25*A(496)+0.25*A(503)+0.015*A(537) IF (DO_FUN(231)) & - P_VAR(231) = A(386)+0.5*A(387)+0.5*A(391)+0.55*A(399)+0.17*A(401)+0.09*A(403)+0.158*A(404)+0.165*A(412)+0.716*A(416)& - &+0.14*A(418)+0.004*A(507)+0.006*A(509)+0.41*A(546)+0.5*A(562)+0.571*A(565)+0.25*A(566)+0.55*A(875)+0.5& - &*A(881)+0.15*A(887)+0.5*A(889) + P_VAR(231) = 0.25*A(497)+0.25*A(505)+0.015*A(538) IF (DO_FUN(232)) & - P_VAR(232) = A(496)+0.33*A(497)+0.037*A(567) + P_VAR(232) = 0.655*A(531)+0.655*A(533) IF (DO_FUN(233)) & - P_VAR(233) = 0.3*A(33)+0.5*A(97)+A(119)+0.1*A(134)+A(310)+0.3*A(372)+0.3*A(373)+0.3*A(379)+0.3*A(381)+0.085*A(400)& - &+0.165*A(401)+0.355*A(404)+0.5*A(405)+0.018*A(413)+0.018*A(414)+0.52*A(434)+0.8*A(435)+0.545*A(521)+0.88& - &*A(524)+0.449*A(526)+0.187*A(537)+A(538)+A(540)+0.05*A(543)+0.242*A(544)+0.083*A(546)+0.14*A(550)+0.7& - &*A(561)+0.12*A(590)+0.2*A(591)+0.6*A(626)+0.6*A(627)+0.2*A(628)+0.5*A(855)+0.47*A(856)+0.571*A(857)+0.125& - &*A(858)+0.23*A(859)+0.118*A(882)+0.429*A(884)+A(888) + P_VAR(233) = A(76)+A(77)+0.73*A(78) IF (DO_FUN(234)) & - P_VAR(234) = 0.22*A(111)+0.58*A(369)+0.5*A(521)+0.88*A(524)+A(577) + P_VAR(234) = A(127)+0.44*A(128)+A(713)+A(722) IF (DO_FUN(235)) & - P_VAR(235) = A(643)+A(645)+A(646) + P_VAR(235) = A(748)+A(749)+A(753)+A(754) IF (DO_FUN(236)) & - P_VAR(236) = 0.294*A(420)+0.135*A(422)+A(424)+0.65*A(426)+0.52*A(434)+0.8*A(435)+0.459*A(461)+0.728*A(462)+0.551& - &*A(470)+0.935*A(471)+0.242*A(476)+0.546*A(477)+0.34*A(507)+0.384*A(509)+0.11*A(518)+0.09*A(519)+0.36& - &*A(543)+0.758*A(544)+0.2*A(583)+A(585)+A(586)+A(588)+A(602)+0.9*A(624)+0.95*A(627)+0.53*A(856)+0.69*A(861)& - &+0.5*A(880)+0.118*A(882)+0.25*A(883)+0.429*A(884)+0.3*A(886)+0.35*A(887)+A(888) + P_VAR(236) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1043)+A(1044) IF (DO_FUN(237)) & - P_VAR(237) = A(61)+0.05*A(66)+0.07*A(80)+0.03*A(95)+0.03*A(109)+0.36*A(123)+0.045*A(133)+0.07*A(143)+0.07*A(144)& - &+A(169)+A(277)+0.07*A(756)+0.06*A(759)+0.05*A(777) + P_VAR(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461) IF (DO_FUN(238)) & - P_VAR(238) = A(324)+A(325) + 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) IF (DO_FUN(239)) & - P_VAR(239) = 0.34*A(66)+0.49*A(80)+0.16*A(95)+0.22*A(109)+0.36*A(122)+0.29*A(133)+0.49*A(143)+0.49*A(144)+0.16*A(336)& - &+0.49*A(756)+0.415*A(759)+0.34*A(777) + 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) IF (DO_FUN(240)) & - P_VAR(240) = 0.4*A(458)+0.4*A(459)+0.07*A(482)+0.532*A(483)+0.862*A(484)+0.401*A(485)+0.034*A(486)+0.159*A(488)+0.159& - &*A(490)+0.159*A(493)+A(495)+A(504)+0.159*A(877)+0.223*A(880) + P_VAR(240) = A(735)+A(739) IF (DO_FUN(241)) & - P_VAR(241) = 0.6*A(459)+0.599*A(465)+A(466)+0.065*A(473)+0.142*A(474)+0.01*A(476)+0.028*A(477)+0.008*A(507)+0.015& - &*A(508)+0.014*A(509)+0.049*A(511)+0.161*A(514)+A(533)+A(545)+0.05*A(886) + P_VAR(241) = 0.12*A(150) IF (DO_FUN(242)) & - P_VAR(242) = A(417)+A(421)+A(425)+0.482*A(461)+0.401*A(465)+0.418*A(470)+0.494*A(473)+0.621*A(476)+A(499)+A(500)+0.5& - &*A(506)+0.234*A(507)+0.387*A(508)+0.565*A(517) + 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) IF (DO_FUN(243)) & - P_VAR(243) = A(463)+A(467)+A(472)+A(475)+A(478)+A(492)+A(494)+A(510)+A(512)+0.18*A(519) + P_VAR(243) = 0.16*A(536)+0.25*A(551) IF (DO_FUN(244)) & - P_VAR(244) = 0.5*A(279)+A(371)+0.51*A(412)+0.03*A(414)+0.159*A(878) + 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) IF (DO_FUN(245)) & - P_VAR(245) = 0.5*A(279)+A(370)+0.75*A(411)+0.03*A(413)+0.841*A(878) + 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) IF (DO_FUN(246)) & - P_VAR(246) = 0.535*A(479)+A(503) + P_VAR(246) = 0.31*A(123)+A(125) IF (DO_FUN(247)) & - P_VAR(247) = 0.465*A(479)+A(502) + 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) IF (DO_FUN(248)) & - P_VAR(248) = 0.177*A(369)+0.063*A(374)+A(378)+2*A(382)+A(384)+A(388)+A(393)+0.035*A(400)+0.23*A(402)+0.125*A(411)& - &+A(446)+A(447)+0.479*A(480)+1.737*A(482)+0.544*A(483)+0.583*A(486)+0.903*A(487)+0.903*A(489)+0.904*A(491)& - &+0.04*A(590)+0.04*A(591)+A(864)+A(870)+A(873)+0.903*A(876)+0.05*A(880) + P_VAR(248) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1038) IF (DO_FUN(249)) & - P_VAR(249) = A(529) + P_VAR(249) = A(103) IF (DO_FUN(250)) & - P_VAR(250) = 0.16*A(84)+0.2*A(97)+0.791*A(127)+0.065*A(141)+0.058*A(338)+A(364)+0.5*A(405)+0.284*A(416)+0.135*A(418)& - &+A(424)+0.65*A(426)+0.8*A(439)+0.52*A(441)+0.52*A(442)+0.8*A(444)+A(445)+0.459*A(461)+0.728*A(462)+0.441& - &*A(473)+0.858*A(474)+0.033*A(476)+0.071*A(477)+0.042*A(507)+0.051*A(509)+0.77*A(528)+0.84*A(542)+0.507& - &*A(546)+0.488*A(548)+A(549)+0.86*A(550)+0.5*A(554)+A(555)+A(557)+0.7*A(558)+0.25*A(560)+A(841)+0.77*A(859)& - &+A(862)+0.5*A(880)+0.586*A(882)+0.25*A(883)+0.571*A(884)+0.45*A(886)+0.8*A(887) + P_VAR(250) = A(162)+0.209*A(169) IF (DO_FUN(251)) & - P_VAR(251) = 0.79*A(336)+0.308*A(340)+0.308*A(341)+0.615*A(342)+0.416*A(369)+0.063*A(376)+A(380)+2*A(383)+A(384)& - &+A(390)+A(397)+0.035*A(401)+0.14*A(403)+0.165*A(412)+A(448)+A(449)+0.048*A(480)+0.123*A(482)+0.019*A(483)& - &+0.028*A(486)+0.097*A(487)+0.097*A(489)+0.096*A(491)+A(865)+A(871)+A(874)+0.097*A(876)+0.005*A(880) + P_VAR(251) = A(94)+A(115)+0.07*A(123) IF (DO_FUN(252)) & - P_VAR(252) = 0.7*A(33)+A(82)+A(167)+A(278) + P_VAR(252) = A(336) IF (DO_FUN(253)) & - P_VAR(253) = 0.46*A(336)+0.289*A(338)+0.192*A(340)+0.192*A(341)+0.385*A(342)+A(765) + P_VAR(253) = 0.964*A(646)+A(658)+A(659) IF (DO_FUN(254)) & - P_VAR(254) = A(91)+A(94)+0.62*A(331)+0.62*A(332)+0.42*A(336) + P_VAR(254) = A(644)+A(655)+A(656) IF (DO_FUN(255)) & - P_VAR(255) = A(77)+A(79)+A(81)+A(126)+0.33*A(623)+0.33*A(626)+0.15*A(759)+A(767) + 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) IF (DO_FUN(256)) & - P_VAR(256) = A(65)+A(74)+0.15*A(96)+0.21*A(125)+0.27*A(137)+A(280)+0.44*A(343)+0.2*A(628) + 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) IF (DO_FUN(257)) & - P_VAR(257) = A(75)+0.5*A(619)+0.5*A(620) + P_VAR(257) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396) IF (DO_FUN(258)) & - P_VAR(258) = A(60)+0.19*A(66)+0.27*A(80)+0.09*A(95)+0.12*A(109)+0.209*A(124)+0.162*A(133)+0.27*A(143)+0.27*A(144)& - &+A(276)+0.27*A(756)+0.23*A(759)+0.19*A(777) + 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) IF (DO_FUN(259)) & - P_VAR(259) = A(62)+0.15*A(66)+0.64*A(68)+0.75*A(83)+0.09*A(84)+0.13*A(95)+0.58*A(96)+0.25*A(100)+A(102)+0.64*A(123)& - &+1.185*A(125)+0.255*A(133)+0.613*A(137)+0.1*A(138)+0.035*A(141)+A(142)+0.43*A(326)+0.75*A(328)+A(329)& - &+A(330)+0.65*A(331)+0.65*A(332)+0.491*A(338)+0.08*A(343)+1.24*A(345)+0.93*A(349)+1.24*A(351)+1.24*A(353)& - &+0.64*A(355)+1.21*A(356)+A(368)+1.2*A(625)+1.15*A(628)+A(770)+A(772)+1.5*A(774)+0.15*A(777)+A(837)+A(840)& - &+A(849) + P_VAR(259) = A(647)+0.32*A(649)+0.165*A(672)+A(683) IF (DO_FUN(260)) & - P_VAR(260) = A(153)+A(160)+A(649)+A(676)+A(677)+A(678) + P_VAR(260) = A(149)+0.209*A(176)+A(332)+A(333) IF (DO_FUN(261)) & - P_VAR(261) = 0.95*A(51)+A(52)+A(54)+A(69)+0.919*A(70)+0.15*A(87)+0.15*A(88)+0.3*A(97)+0.5*A(98)+A(116)+A(118)+0.78& - &*A(129)+0.9*A(134)+0.9*A(135)+A(166)+0.3*A(372)+0.3*A(379)+0.018*A(413)+0.38*A(521)+0.12*A(524)+0.04& - &*A(526)+0.097*A(537)+A(541)+0.36*A(543)+0.758*A(544)+0.175*A(547)+0.087*A(548)+0.35*A(552)+0.3*A(561)& - &+A(568)+A(569)+0.12*A(753)+0.7*A(755)+A(757)+0.85*A(759)+A(764)+A(766)+A(768)+A(769)+A(832)+A(852)+A(853)& - &+A(854)+0.5*A(855)+0.53*A(856)+0.429*A(857)+0.125*A(858)+0.262*A(860)+1.01*A(861) + 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) IF (DO_FUN(262)) & - P_VAR(262) = A(250) + 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) IF (DO_FUN(263)) & - P_VAR(263) = 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(64)+0.64*A(68)+A(69)+A(73)& - &+0.75*A(83)+1.25*A(84)+0.15*A(87)+0.75*A(92)+0.75*A(93)+0.75*A(95)+0.95*A(96)+0.5*A(97)+0.75*A(98)+0.75& - &*A(99)+1.25*A(100)+0.5*A(111)+0.732*A(112)+0.22*A(129)+A(132)+0.9*A(134)+0.351*A(137)+0.9*A(138)+0.9& - &*A(141)+A(144)+A(148)+A(150)+0.25*A(180)+A(223)+A(268)+A(273)+A(309)+A(311)+A(312)+A(313)+0.06*A(314)+0.06& - &*A(315)+A(316)+A(317)+0.23*A(326)+0.75*A(328)+0.04*A(336)+0.231*A(338)+1.04*A(340)+0.385*A(341)+0.385& - &*A(342)+0.287*A(345)+A(348)+0.85*A(349)+0.287*A(351)+0.287*A(353)+0.202*A(355)+0.504*A(356)+A(365)+0.827& - &*A(369)+0.3*A(372)+0.3*A(373)+0.063*A(374)+0.063*A(376)+A(378)+0.3*A(379)+A(380)+0.3*A(381)+2*A(382)+2& - &*A(383)+2*A(384)+2*A(388)+A(389)+2*A(390)+A(391)+A(393)+A(397)+0.085*A(400)+0.165*A(401)+0.5*A(405)+0.018& - &*A(413)+0.018*A(414)+0.716*A(416)+0.14*A(418)+0.706*A(420)+0.14*A(422)+0.65*A(442)+A(444)+0.059*A(461)& - &+0.272*A(462)+0.599*A(465)+A(466)+0.031*A(470)+0.065*A(471)+0.065*A(473)+0.142*A(474)+0.104*A(476)+0.383& - &*A(477)+0.527*A(480)+1.86*A(482)+0.563*A(483)+0.645*A(485)+1.577*A(486)+A(487)+A(489)+A(491)+0.126*A(507)& - &+0.088*A(508)+0.249*A(509)+0.34*A(511)+0.6*A(521)+0.12*A(524)+0.241*A(526)+0.05*A(543)+0.242*A(544)+0.083& - &*A(546)+0.5*A(547)+0.25*A(548)+0.14*A(550)+A(552)+A(558)+0.022*A(567)+0.5*A(570)+A(572)+A(577)+0.8*A(583)& - &+2*A(584)+A(595)+A(621)+A(622)+A(635)+A(743)+0.9*A(760)+A(763)+A(766)+A(768)+A(769)+A(775)+A(830)+A(832)& - &+A(838)+A(846)+A(850)+A(851)+A(853)+A(854)+0.47*A(856)+0.23*A(859)+0.75*A(860)+A(864)+A(865)+A(873)+A(874)& - &+A(876)+0.055*A(880)+0.133*A(882)+0.55*A(886)+0.15*A(887) + 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) IF (DO_FUN(264)) & - P_VAR(264) = A(57)+A(59)+A(64)+0.34*A(66)+0.97*A(68)+0.919*A(70)+A(73)+0.5*A(84)+0.15*A(88)+0.75*A(92)+0.75*A(93)+0.16& - &*A(95)+0.38*A(96)+0.5*A(98)+0.5*A(100)+A(101)+1.6*A(103)+1.6*A(104)+0.5*A(111)+0.64*A(122)+0.29*A(133)+0.9& - &*A(135)+0.675*A(137)+0.9*A(138)+A(139)+A(140)+0.9*A(141)+A(271)+A(272)+A(274)+A(318)+A(319)+A(320)+A(321)& - &+A(322)+A(366)+A(771)+A(775)+A(776)+0.34*A(777)+A(847) + 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) IF (DO_FUN(265)) & - P_VAR(265) = A(35)+A(50)+A(52)+A(74)+A(81)+A(94)+A(117)+A(118)+A(130)+A(150)+A(362)+A(363)+0.32*A(525)+A(568)+0.742& - &*A(598)+0.5*A(600)+0.5*A(603)+A(605)+0.5*A(620)+0.5*A(638)+A(639)+2*A(642)+A(643)+2*A(644)+A(645)+A(646)& - &+A(649)+A(650)+A(651)+A(652)+A(653)+A(654)+A(655)+A(656)+A(657)+A(697)+A(698)+A(699)+A(704)+A(705)+A(706)& - &+A(707) + 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) IF (DO_FUN(266)) & - P_VAR(266) = A(25)+0.7*A(32)+A(55)+0.19*A(66)+A(76)+0.85*A(88)+0.09*A(95)+0.25*A(98)+0.28*A(111)+0.5*A(120)+2*A(131)& - &+0.9*A(132)+0.9*A(133)+0.9*A(134)+0.9*A(135)+0.9*A(136)+0.9*A(137)+0.9*A(138)+0.9*A(139)+0.9*A(140)+0.9& - &*A(141)+0.9*A(142)+A(143)+A(147)+A(148)+A(149)+A(150)+0.75*A(180)+0.9*A(206)+A(207)+A(240)+A(269)+A(275)& - &+A(308)+0.5*A(329)+0.5*A(341)+A(350)+0.5*A(351)+0.407*A(369)+A(487)+A(488)+0.325*A(547)+0.162*A(548)+0.65& - &*A(552)+0.5*A(571)+A(596)+0.88*A(753)+0.3*A(755)+A(757)+2*A(758)+0.15*A(759)+A(767)+A(776)+0.19*A(777)& - &+A(778)+A(787)+A(788)+A(831)+0.488*A(860) + 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) IF (DO_FUN(267)) & - P_VAR(267) = A(34)+A(50)+0.05*A(51)+0.56*A(111)+0.505*A(112)+A(113)+2*A(115)+A(116)+2*A(117)+A(118)+0.5*A(120)+A(165)& - &+A(187)+A(201)+A(241)+A(264)+A(265)+A(266)+0.14*A(331)+0.14*A(332)+0.14*A(336)+0.407*A(369)+0.6*A(372)+0.9& - &*A(373)+0.6*A(379)+0.9*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.55*A(395)+0.55*A(399)+0.45& - &*A(400)+0.37*A(401)+0.42*A(402)+0.23*A(403)+0.638*A(404)+1.5*A(405)+A(406)+0.25*A(411)+0.33*A(412)+0.036& - &*A(413)+0.054*A(414)+A(433)+0.13*A(434)+0.2*A(435)+A(438)+0.2*A(439)+0.13*A(441)+0.52*A(442)+0.8*A(444)+2& - &*A(445)+0.6*A(458)+0.6*A(459)+0.539*A(514)+0.33*A(515)+0.33*A(516)+0.28*A(521)+0.036*A(522)+0.12*A(524)& - &+0.68*A(525)+0.77*A(528)+0.25*A(530)+0.75*A(537)+A(538)+A(540)+2*A(541)+0.84*A(542)+0.507*A(546)+0.325& - &*A(547)+0.488*A(548)+A(549)+0.86*A(550)+0.65*A(552)+0.25*A(560)+A(561)+A(562)+0.888*A(563)+A(566)+A(572)& - &+0.364*A(579)+0.2*A(589)+0.27*A(590)+0.3*A(591)+0.15*A(619)+0.15*A(620)+0.26*A(623)+0.5*A(624)+0.25*A(626)& - &+0.5*A(627)+0.05*A(628)+A(744)+A(745)+0.88*A(753)+A(754)+A(756)+A(758)+A(760)+2*A(761)+2*A(762)+A(763)& - &+A(764)+A(765)+A(766)+A(768)+A(834)+A(838)+A(851)+A(854)+0.5*A(855)+0.571*A(857)+0.875*A(858)+0.77*A(859)& - &+A(862)+A(863)+0.888*A(868)+0.818*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.839*A(879)+A(881)+0.163& - &*A(882)+A(885)+A(889)+A(891)+A(894) + P_VAR(267) = A(518)+0.127*A(608)+0.057*A(609) IF (DO_FUN(268)) & - P_VAR(268) = A(301)+A(304)+A(699) + P_VAR(268) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609) IF (DO_FUN(269)) & - P_VAR(269) = A(286)+A(288)+0.2*A(293)+0.809*A(298)+A(301)+A(302)+A(305)+0.4*A(306)+0.996*A(307)+A(308)+2*A(814)+A(815)& - &+A(816)+A(817)+A(818)+A(819)+A(820)+A(821)+A(822)+2*A(823)+A(824)+A(825)+A(828)+A(829) + P_VAR(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762) IF (DO_FUN(270)) & - P_VAR(270) = A(288)+A(289) + 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) IF (DO_FUN(271)) & - P_VAR(271) = A(222)+A(226)+A(227)+A(230)+A(231)+A(248)+A(651) + P_VAR(271) = 0.67*A(621) IF (DO_FUN(272)) & - P_VAR(272) = A(739)+A(833) + P_VAR(272) = A(423)+0.27*A(424)+0.18*A(426) IF (DO_FUN(273)) & - P_VAR(273) = A(155)+2*A(156)+A(158)+A(160)+A(162)+A(163)+3*A(172)+2*A(173)+A(174)+A(200)+0.6*A(203)+0.56*A(207)+0.95& - &*A(208)+1.4*A(209)+0.34*A(213)+0.75*A(221)+A(259)+A(260)+A(292)+A(293)+2*A(779)+A(780)+A(781)+A(782)& - &+A(784)+3*A(785)+2*A(786)+A(787)+A(790)+A(810)+A(811)+2*A(812)+A(825)+A(828) + P_VAR(273) = 0.1*A(383)+A(409)+A(415) IF (DO_FUN(274)) & - P_VAR(274) = A(152)+A(161)+A(164)+0.2*A(203)+0.44*A(207)+0.95*A(208)+0.7*A(209)+0.31*A(213)+0.45*A(214)+0.75*A(221)& - &+A(783) + 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) IF (DO_FUN(275)) & - P_VAR(275) = 0.12*A(202)+A(225)+A(240)+A(241)+A(243)+A(244)+A(245)+2*A(264)+A(265)+A(266)+A(267)+A(269)+A(270)+A(273)& - &+A(274)+A(275)+A(276)+A(277)+A(278)+A(279)+A(280)+A(281)+A(668) + P_VAR(275) = 0.15*A(380)+0.255*A(382)+A(408) IF (DO_FUN(276)) & - P_VAR(276) = A(11)+A(148)+0.75*A(149)+A(150)+A(187)+A(188)+A(834)+A(835) + P_VAR(276) = 0 IF (DO_FUN(277)) & - P_VAR(277) = A(680) + P_VAR(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387) IF (DO_FUN(278)) & - P_VAR(278) = 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(56)+A(75)+A(76)+A(77)+A(82)& - &+A(91)+A(155)+A(174)+A(183)+0.02*A(196)+A(228)+A(229)+A(232)+A(235)+A(236)+A(237)+A(238)+A(239)+A(267)& - &+A(302)+A(303)+A(308)+A(637)+A(664)+A(665)+A(666)+A(667)+A(669)+A(670)+A(671)+A(672) + 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) IF (DO_FUN(279)) & - P_VAR(279) = A(49)+1.22*A(179)+A(189)+A(197)+2*A(284)+A(576)+A(630)+A(632)+A(634)+A(741)+A(747)+A(751)+A(818) + P_VAR(279) = A(91)+0.072*A(97)+A(117) IF (DO_FUN(280)) & - P_VAR(280) = A(2) + 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(16)+A(36)+A(46)+A(159)+A(192)+A(231)+A(262)+A(263)+A(291)+A(313)+A(320)+A(364)+0.69*A(526)+A(560)& - &+A(612)+A(748)+A(752)+0.3*A(755)+A(782)+A(796)+A(820)+A(830) + P_VAR(281) = A(378)+0.2*A(380)+0.075*A(382) IF (DO_FUN(282)) & - P_VAR(282) = 0.15*A(109)+A(181)+0.13*A(547)+0.13*A(554)+0.13*A(571)+0.15*A(606) + 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) IF (DO_FUN(283)) & - P_VAR(283) = A(679) + 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) IF (DO_FUN(284)) & - P_VAR(284) = 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(57)& - &+A(59)+A(62)+A(64)+0.27*A(66)+A(71)+A(83)+A(84)+A(92)+A(93)+0.64*A(95)+0.5*A(96)+0.3*A(97)+0.5*A(98)+A(99)& - &+0.5*A(100)+A(101)+A(102)+1.2*A(103)+1.2*A(104)+0.28*A(111)+0.773*A(112)+A(115)+A(117)+A(119)+0.9*A(132)& - &+0.243*A(133)+0.9*A(136)+0.9*A(139)+0.9*A(140)+0.9*A(141)+0.9*A(142)+A(144)+A(151)+A(163)+A(165)+A(174)& - &+0.2*A(180)+A(193)+A(194)+A(201)+A(223)+A(224)+A(232)+A(233)+A(234)+A(241)+A(244)+A(264)+A(265)+A(266)& - &+A(268)+A(271)+A(272)+A(273)+0.82*A(326)+A(328)+0.5*A(329)+A(330)+0.1*A(331)+0.1*A(332)+0.1*A(336)+0.686& - &*A(338)+A(340)+0.5*A(341)+A(342)+A(344)+2*A(348)+0.5*A(349)+A(350)+A(352)+A(354)+0.5*A(355)+0.16*A(369)& - &+0.4*A(372)+0.7*A(373)+0.063*A(374)+0.063*A(376)+0.4*A(379)+0.7*A(381)+2*A(382)+2*A(383)+2*A(384)+A(385)& - &+A(386)+A(387)+2*A(388)+1.5*A(389)+2*A(390)+1.5*A(391)+A(393)+0.45*A(395)+A(397)+0.45*A(399)+0.085*A(400)& - &+0.165*A(401)+0.283*A(404)+A(406)+0.25*A(411)+0.33*A(412)+0.024*A(413)+0.042*A(414)+A(416)+0.275*A(418)& - &+A(420)+0.275*A(422)+0.75*A(427)+A(428)+A(430)+A(432)+0.65*A(434)+A(435)+A(437)+A(439)+0.65*A(441)+0.65& - &*A(442)+A(444)+A(445)+0.4*A(458)+0.4*A(459)+A(460)+0.059*A(461)+0.272*A(462)+A(464)+0.599*A(465)+A(466)& - &+A(468)+A(469)+0.582*A(470)+A(471)+0.506*A(473)+A(474)+0.379*A(476)+A(477)+0.089*A(483)+0.064*A(484)+0.336& - &*A(485)+0.611*A(486)+0.159*A(488)+0.159*A(490)+0.159*A(493)+A(495)+0.326*A(507)+0.58*A(508)+0.5*A(509)& - &+0.904*A(511)+0.295*A(514)+0.33*A(515)+0.33*A(516)+0.89*A(518)+0.73*A(519)+0.1*A(521)+0.036*A(522)+0.715& - &*A(537)+A(539)+A(541)+A(542)+0.305*A(543)+0.242*A(544)+0.507*A(546)+0.86*A(550)+0.7*A(558)+0.5*A(562)& - &+0.444*A(563)+0.62*A(567)+0.5*A(570)+A(575)+0.364*A(579)+0.6*A(583)+A(584)+A(585)+0.54*A(589)+0.19*A(590)& - &+0.15*A(591)+A(592)+A(593)+A(594)+2*A(595)+A(596)+0.8*A(597)+0.727*A(599)+A(602)+A(621)+A(622)+0.33*A(623)& - &+0.1*A(624)+0.2*A(625)+0.33*A(626)+0.1*A(627)+0.2*A(628)+A(629)+A(631)+A(633)+A(635)+A(743)+A(744)+A(749)& - &+A(753)+A(756)+1.73*A(760)+2*A(761)+A(764)+A(766)+A(768)+A(769)+A(770)+A(771)+A(772)+A(773)+A(774)+A(775)& - &+A(776)+0.27*A(777)+A(830)+A(837)+A(838)+A(846)+A(847)+A(848)+A(849)+A(851)+A(852)+A(854)+1.5*A(855)+0.47& - &*A(856)+0.571*A(857)+0.125*A(858)+A(859)+0.29*A(861)+A(862)+A(863)+A(864)+A(865)+A(866)+A(867)+0.112& - &*A(868)+0.182*A(869)+A(870)+A(871)+0.45*A(872)+A(873)+A(874)+0.45*A(875)+0.33*A(876)+0.159*A(877)+0.161& - &*A(879)+0.228*A(880)+1.5*A(881)+A(882)+0.75*A(883)+A(884)+1.454*A(885)+0.7*A(886)+0.7*A(887)+A(889)+A(891)& - &+A(894) + P_VAR(284) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(979) IF (DO_FUN(285)) & - P_VAR(285) = 0.22*A(202)+0.75*A(204)+0.79*A(205)+0.46*A(206)+0.56*A(210)+0.9*A(211)+0.86*A(212)+0.34*A(213)+0.69& - &*A(215)+0.65*A(216)+0.79*A(217)+0.8*A(218)+0.85*A(219)+0.86*A(220)+A(229)+A(242)+A(246)+2*A(257)+0.1& - &*A(258)+A(262)+A(268)+A(271)+A(272)+A(793)+A(797) + P_VAR(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687) IF (DO_FUN(286)) & - P_VAR(286) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.15*A(87)+0.15*A(88)+0.44*A(109)+0.36*A(111)+0.227*A(112)+A(113)& - &+A(120)+0.791*A(121)+0.64*A(122)+0.64*A(123)+0.791*A(124)+0.79*A(125)+0.791*A(127)+A(128)+0.22*A(129)& - &+A(161)+A(162)+2*A(175)+A(178)+0.75*A(180)+A(185)+A(193)+A(195)+1.788*A(196)+A(201)+0.66*A(202)+0.6*A(203)& - &+0.05*A(210)+A(246)+0.85*A(331)+0.85*A(332)+0.85*A(336)+0.49*A(343)+0.28*A(369)+1.5*A(372)+1.5*A(373)& - &+0.063*A(374)+0.063*A(376)+A(378)+1.5*A(379)+A(380)+1.5*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)& - &+0.55*A(395)+0.55*A(399)+1.085*A(400)+1.165*A(401)+A(402)+A(403)+1.065*A(404)+A(405)+A(408)+A(410)+0.405& - &*A(413)+0.745*A(414)+A(415)+0.275*A(418)+A(419)+0.275*A(422)+A(424)+1.3*A(426)+A(433)+0.65*A(434)+A(438)& - &+0.65*A(441)+0.65*A(442)+A(445)+A(446)+2*A(447)+A(448)+2*A(449)+0.6*A(458)+0.6*A(459)+0.518*A(461)+0.599& - &*A(465)+0.582*A(470)+0.506*A(473)+0.379*A(476)+0.527*A(480)+A(499)+A(500)+A(504)+A(505)+A(506)+1.147& - &*A(507)+0.646*A(508)+0.435*A(509)+0.096*A(511)+0.244*A(514)+A(516)+0.82*A(519)+0.08*A(521)+0.12*A(524)& - &+0.68*A(525)+0.02*A(526)+A(527)+A(528)+A(530)+A(532)+A(535)+0.285*A(537)+A(538)+A(540)+0.665*A(543)+0.59& - &*A(546)+0.5*A(547)+0.585*A(548)+A(549)+0.5*A(554)+0.7*A(561)+0.5*A(562)+0.444*A(563)+A(564)+A(565)+0.3& - &*A(567)+0.5*A(570)+0.5*A(571)+A(572)+A(573)+A(574)+0.636*A(579)+A(588)+A(592)+A(602)+0.2*A(606)+0.25& - &*A(623)+0.1*A(624)+0.25*A(626)+0.1*A(627)+2*A(742)+A(743)+A(746)+A(747)+A(748)+0.07*A(760)+A(770)+A(771)& - &+A(772)+A(773)+A(774)+A(775)+A(776)+A(778)+A(781)+A(798)+A(815)+A(832)+2*A(835)+A(837)+2*A(850)+A(851)& - &+A(856)+A(857)+1.75*A(858)+A(859)+0.75*A(860)+0.01*A(861)+A(863)+A(864)+A(865)+A(866)+A(867)+1.662*A(868)& - &+1.637*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.67*A(876)+A(877)+0.645*A(879)+0.5*A(881)+A(882)+1.25& - &*A(883)+A(884)+0.546*A(885)+A(886)+0.3*A(887)+A(888)+A(890)+A(892) + P_VAR(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687) IF (DO_FUN(287)) & - P_VAR(287) = A(5) + 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) IF (DO_FUN(288)) & - P_VAR(288) = A(18)+A(176)+A(177)+A(186)+0.02*A(196)+A(197)+A(198)+A(199)+0.12*A(202)+0.2*A(203)+0.25*A(204)+0.21& - &*A(205)+0.1*A(206)+0.05*A(208)+0.3*A(209)+0.25*A(210)+0.1*A(211)+0.14*A(212)+0.35*A(213)+0.55*A(214)+0.31& - &*A(215)+0.35*A(216)+0.21*A(217)+0.1*A(218)+0.1*A(219)+0.14*A(220)+0.25*A(221)+A(738)+2*A(740)+A(741)& - &+A(750)+A(780)+A(792)+A(793)+A(816)+A(836) + 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) IF (DO_FUN(289)) & - P_VAR(289) = A(154)+A(165)+A(166)+A(167)+A(168)+A(169)+0.2*A(203)+A(282)+A(675) + P_VAR(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377) IF (DO_FUN(290)) & - P_VAR(290) = 0.66*A(202)+0.75*A(204)+2.37*A(205)+0.35*A(206)+0.19*A(210)+1.8*A(211)+0.86*A(212)+0.31*A(213)+0.69& - &*A(215)+0.79*A(217)+1.9*A(218)+0.95*A(219)+A(222)+A(224)+A(228)+A(232)+2*A(233)+3*A(234)+3*A(235)+A(236)+2& - &*A(237)+A(238)+2*A(239)+A(247)+A(249)+A(252)+A(253)+A(255)+2*A(265)+3*A(266)+0.249*A(298)+A(788)+2*A(789)& - &+A(790)+2*A(791)+A(792)+A(794)+A(795)+A(796)+A(798)+3*A(799)+4*A(800)+3*A(801)+2*A(802)+3*A(803)+2*A(804)& - &+A(805)+2*A(806)+2*A(807)+A(808)+A(809)+A(811)+A(813)+A(824)+A(829) + P_VAR(290) = A(912) IF (DO_FUN(291)) & - P_VAR(291) = 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(57)+A(59)+A(62)+A(64)& - &+A(66)+2*A(68)+A(69)+0.928*A(70)+A(71)+2*A(73)+A(79)+A(80)+A(96)+A(100)+A(137)+A(138)+2*A(145)+A(147)& - &+A(158)+A(164)+A(190)+A(191)+A(230)+A(249)+A(286)+2*A(287)+A(290)+A(297)+A(305)+A(309)+A(310)+A(312)& - &+A(319)+0.82*A(326)+A(330)+0.78*A(338)+A(342)+A(344)+2*A(345)+0.5*A(349)+A(351)+A(352)+2*A(353)+0.5*A(355)& - &+A(356)+A(365)+A(366)+A(367)+A(368)+A(393)+A(395)+A(397)+A(399)+A(416)+A(420)+A(424)+A(435)+A(439)+A(444)& - &+A(446)+A(448)+A(451)+A(453)+A(454)+A(456)+0.459*A(461)+1.728*A(462)+A(466)+A(471)+A(474)+A(477)+0.527& - &*A(480)+1.86*A(482)+0.563*A(483)+0.611*A(486)+A(487)+2*A(489)+A(490)+2*A(491)+A(493)+A(501)+0.058*A(507)& - &+1.065*A(509)+A(511)+A(513)+A(515)+0.565*A(517)+1.11*A(518)+0.09*A(519)+0.31*A(526)+A(531)+A(534)+A(544)& - &+A(550)+A(552)+0.5*A(554)+2*A(555)+A(556)+2*A(557)+0.7*A(558)+A(559)+A(566)+0.022*A(567)+A(568)+0.995& - &*A(581)+A(582)+A(586)+A(593)+A(594)+A(607)+A(610)+A(611)+A(613)+A(614)+0.5*A(619)+A(620)+A(635)+A(746)& - &+A(749)+A(750)+A(752)+0.7*A(755)+A(770)+A(777)+A(783)+A(784)+A(795)+A(797)+A(819)+A(831)+A(838)+A(839)& - &+A(840)+A(841)+A(843)+A(845)+A(846)+A(847)+A(848)+A(849)+A(853)+0.7*A(861)+A(862)+A(872)+A(873)+A(874)& - &+A(875)+A(876)+A(878)+A(879)+1.555*A(880)+0.3*A(886)+A(887)+A(888)+A(889) + P_VAR(291) = 0.5*A(380) +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) +IF (DO_FUN(293)) & + P_VAR(293) = A(620)+0.33*A(621)+0.037*A(691) +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) +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) +IF (DO_FUN(296)) & + P_VAR(296) = A(57)+A(179)+A(219)+A(321)+A(701) +IF (DO_FUN(297)) & + P_VAR(297) = A(787)+A(789)+A(790) +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) +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) +IF (DO_FUN(300)) & + P_VAR(300) = A(101)+0.21*A(174)+A(331)+0.2*A(772) +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) +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) +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) +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) +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) +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) +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) +IF (DO_FUN(308)) & + P_VAR(308) = A(653) +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) +IF (DO_FUN(310)) & + P_VAR(310) = 0.465*A(603)+A(626) +IF (DO_FUN(311)) & + P_VAR(311) = 0.535*A(603)+A(627) +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) +IF (DO_FUN(313)) & + P_VAR(313) = 0.7*A(33)+A(111)+A(218)+A(329) +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) +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) +IF (DO_FUN(316)) & + P_VAR(316) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822) +IF (DO_FUN(317)) & + P_VAR(317) = A(301) +IF (DO_FUN(318)) & + P_VAR(318) = A(102)+0.5*A(763)+0.5*A(764) +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) +IF (DO_FUN(320)) & + P_VAR(320) = A(122)+A(131)+0.3*A(381) +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) +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) +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) +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)& + &+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(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)& + &+A(161)+0.22*A(178)+A(181)+0.9*A(184)+0.351*A(187)+0.351*A(188)+0.9*A(189)+0.9*A(192)+A(195)+A(199)+A(201)& + &+0.25*A(231)+A(274)+A(319)+A(324)+A(360)+A(362)+A(363)+A(364)+0.06*A(365)+0.06*A(366)+A(367)+A(368)+0.1& + &*A(381)+0.1*A(383)+0.5*A(388)+0.84*A(399)+A(400)+1.5*A(401)+0.5*A(402)+0.4*A(403)+0.75*A(405)+A(406)& + &+A(407)+0.75*A(413)+0.67*A(421)+A(427)+0.75*A(432)+0.176*A(436)+0.4*A(437)+0.4*A(440)+0.4*A(442)+0.1& + &*A(445)+0.1*A(446)+0.1*A(447)+0.1*A(448)+0.05*A(449)+1.5*A(453)+1.5*A(454)+0.75*A(455)+0.75*A(456)+1.75& + &*A(458)+A(459)+0.75*A(460)+0.85*A(462)+0.1*A(463)+A(464)+1.3*A(466)+0.4*A(467)+0.287*A(469)+A(472)+0.85& + &*A(473)+0.287*A(475)+0.287*A(477)+0.202*A(479)+0.504*A(480)+A(489)+0.827*A(493)+0.3*A(496)+0.3*A(497)& + &+0.063*A(498)+0.063*A(500)+A(502)+0.3*A(503)+A(504)+0.3*A(505)+2*A(506)+2*A(507)+2*A(508)+2*A(512)+A(513)& + &+2*A(514)+A(515)+A(517)+A(521)+0.085*A(524)+0.165*A(525)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.716*A(540)& + &+0.14*A(542)+0.706*A(544)+0.14*A(546)+0.65*A(566)+A(568)+0.059*A(585)+0.272*A(586)+0.599*A(589)+A(590)& + &+0.031*A(594)+0.065*A(595)+0.065*A(597)+0.142*A(598)+0.104*A(600)+0.383*A(601)+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)+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(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(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& + &*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(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*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)& + &+0.2*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)& + &+0.33*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(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) +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) +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)& + &+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)& + &+0.44*A(158)+A(159)+A(161)+A(163)+A(165)+A(167)+0.9*A(181)+0.243*A(182)+0.243*A(183)+0.9*A(186)+0.9*A(190)& + &+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(195)+A(202)+A(214)+A(216)+A(225)+0.2*A(231)+A(244)+A(245)+A(252)& + &+A(274)+A(275)+A(283)+A(284)+A(285)+A(292)+A(295)+A(315)+A(316)+A(317)+A(319)+A(322)+A(323)+A(324)+0.05& + &*A(381)+0.75*A(385)+A(386)+0.5*A(388)+A(401)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(413)+A(414)+0.75& + &*A(418)+A(419)+0.84*A(429)+A(431)+A(432)+A(445)+A(446)+A(453)+0.5*A(455)+1.75*A(456)+A(457)+1.75*A(458)& + &+A(459)+1.75*A(460)+A(461)+1.75*A(462)+A(463)+0.75*A(464)+0.75*A(466)+A(468)+2*A(472)+0.5*A(473)+A(474)& + &+A(476)+A(478)+0.5*A(479)+0.16*A(493)+0.4*A(496)+0.7*A(497)+0.063*A(498)+0.063*A(500)+0.4*A(503)+0.7& + &*A(505)+2*A(506)+2*A(507)+2*A(508)+A(509)+A(510)+A(511)+2*A(512)+1.5*A(513)+2*A(514)+1.5*A(515)+A(517)& + &+0.45*A(519)+A(521)+0.45*A(523)+0.085*A(524)+0.165*A(525)+0.283*A(528)+A(530)+0.25*A(535)+0.33*A(536)& + &+0.024*A(537)+0.042*A(538)+A(540)+0.275*A(542)+A(544)+0.275*A(546)+0.75*A(551)+A(552)+A(554)+A(556)+0.65& + &*A(558)+A(559)+A(561)+A(563)+0.65*A(565)+0.65*A(566)+A(568)+A(569)+0.4*A(582)+0.4*A(583)+A(584)+0.059& + &*A(585)+0.272*A(586)+A(588)+0.599*A(589)+A(590)+A(592)+A(593)+0.582*A(594)+A(595)+0.506*A(597)+A(598)& + &+0.379*A(600)+A(601)+0.089*A(607)+0.064*A(608)+0.336*A(609)+0.611*A(610)+0.159*A(612)+0.159*A(614)+0.159& + &*A(617)+A(619)+0.326*A(631)+0.58*A(632)+0.5*A(633)+0.904*A(635)+0.295*A(638)+0.33*A(639)+0.33*A(640)+0.89& + &*A(642)+0.73*A(643)+0.1*A(645)+0.036*A(646)+0.715*A(661)+A(663)+A(665)+A(666)+0.305*A(667)+0.242*A(668)& + &+0.507*A(670)+0.86*A(674)+0.7*A(682)+0.5*A(686)+0.444*A(687)+0.62*A(691)+0.5*A(694)+A(699)+0.7*A(702)+0.1& + &*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) +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) +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& + &*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& + &*A(381)+0.65*A(383)+0.44*A(391)+0.6*A(421)+0.865*A(424)+0.44*A(436)+0.3*A(447)+0.3*A(448)+0.15*A(449)& + &+A(454)+0.28*A(493)+1.5*A(496)+1.5*A(497)+0.063*A(498)+0.063*A(500)+A(502)+1.5*A(503)+A(504)+1.5*A(505)& + &+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+1.085*A(524)+1.165*A(525)+A(526)& + &+A(527)+1.065*A(528)+A(529)+A(532)+A(534)+0.405*A(537)+0.745*A(538)+A(539)+0.275*A(542)+A(543)+0.275& + &*A(546)+A(548)+1.3*A(550)+A(557)+0.65*A(558)+A(562)+0.65*A(565)+0.65*A(566)+A(569)+A(570)+2*A(571)+A(572)& + &+2*A(573)+0.6*A(582)+0.6*A(583)+0.518*A(585)+0.599*A(589)+0.582*A(594)+0.506*A(597)+0.379*A(600)+0.527& + &*A(604)+A(623)+A(624)+A(628)+A(629)+A(630)+1.147*A(631)+0.646*A(632)+0.435*A(633)+0.096*A(635)+0.244& + &*A(638)+A(640)+0.82*A(643)+0.08*A(645)+0.12*A(648)+0.68*A(649)+0.02*A(650)+A(651)+A(652)+A(654)+A(656)& + &+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) +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) +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) +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) +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) +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) +IF (DO_FUN(353)) & + P_VAR(353) = A(2) ! Destruction function IF (DO_FUN(1)) & - D_VAR(1) = RCT(823) + D_VAR(1) = RCT(975) IF (DO_FUN(2)) & - D_VAR(2) = RCT(825) + D_VAR(2) = RCT(977) IF (DO_FUN(3)) & - D_VAR(3) = RCT(824) + D_VAR(3) = RCT(976) IF (DO_FUN(4)) & D_VAR(4) = 0 IF (DO_FUN(5)) & @@ -3539,7 +4236,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(629)*V(284)+RCT(630)*V(279) + D_VAR(13) = RCT(773)*V(337)+RCT(774)*V(346) IF (DO_FUN(14)) & D_VAR(14) = 0 IF (DO_FUN(15)) & @@ -3549,25 +4246,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(575)*V(284)+RCT(576)*V(279) + D_VAR(18) = RCT(699)*V(337)+RCT(700)*V(346) IF (DO_FUN(19)) & - D_VAR(19) = RCT(574)*V(286) + D_VAR(19) = RCT(698)*V(345) IF (DO_FUN(20)) & D_VAR(20) = 0 IF (DO_FUN(21)) & D_VAR(21) = 0 IF (DO_FUN(22)) & - D_VAR(22) = RCT(631)*V(284)+RCT(632)*V(279) + D_VAR(22) = RCT(775)*V(337)+RCT(776)*V(346) IF (DO_FUN(23)) & D_VAR(23) = 0 IF (DO_FUN(24)) & - D_VAR(24) = RCT(128)*V(286)+RCT(717) + D_VAR(24) = RCT(177)*V(345)+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(633)*V(284)+RCT(634)*V(279) + D_VAR(27) = RCT(777)*V(337)+RCT(778)*V(346) IF (DO_FUN(28)) & D_VAR(28) = 0 IF (DO_FUN(29)) & @@ -3595,621 +4292,768 @@ 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(636)*V(286) + D_VAR(41) = RCT(780)*V(345) IF (DO_FUN(42)) & - D_VAR(42) = RCT(296)+RCT(692)+RCT(693)+RCT(694)+RCT(826) + D_VAR(42) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(978) IF (DO_FUN(43)) & - D_VAR(43) = RCT(235)*V(286)+RCT(799) + D_VAR(43) = RCT(286)*V(345)+RCT(951) IF (DO_FUN(44)) & - D_VAR(44) = RCT(307)+RCT(686)+RCT(687)+RCT(688)+RCT(821) + D_VAR(44) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(973) IF (DO_FUN(45)) & - D_VAR(45) = RCT(363) + D_VAR(45) = RCT(487) IF (DO_FUN(46)) & - D_VAR(46) = RCT(308)*V(286)+RCT(822) + D_VAR(46) = RCT(256)*V(334)+RCT(952) IF (DO_FUN(47)) & - D_VAR(47) = RCT(214)*V(272)+RCT(810) + D_VAR(47) = RCT(262)*V(334)+RCT(953) IF (DO_FUN(48)) & - D_VAR(48) = RCT(221)*V(272)+RCT(812) + D_VAR(48) = RCT(263)*V(334)+RCT(954) IF (DO_FUN(49)) & - D_VAR(49) = RCT(689)+RCT(690)+RCT(691)+RCT(827) + D_VAR(49) = RCT(269)*V(334)+RCT(955) IF (DO_FUN(50)) & - D_VAR(50) = RCT(79) + D_VAR(50) = RCT(270)*V(334)+RCT(956) IF (DO_FUN(51)) & - D_VAR(51) = RCT(784) + D_VAR(51) = RCT(271)*V(334)+RCT(957) IF (DO_FUN(52)) & - D_VAR(52) = RCT(205)*V(272)+RCT(800) + D_VAR(52) = RCT(359)*V(345)+RCT(974) IF (DO_FUN(53)) & - D_VAR(53) = RCT(211)*V(272)+RCT(801) + D_VAR(53) = RCT(265)*V(334)+RCT(962) IF (DO_FUN(54)) & - D_VAR(54) = RCT(212)*V(272)+RCT(802) + D_VAR(54) = RCT(272)*V(334)+RCT(964) IF (DO_FUN(55)) & - D_VAR(55) = RCT(218)*V(272)+RCT(803) + D_VAR(55) = RCT(833)+RCT(834)+RCT(835)+RCT(979) IF (DO_FUN(56)) & - D_VAR(56) = RCT(219)*V(272)+RCT(804) + D_VAR(56) = RCT(394) IF (DO_FUN(57)) & - D_VAR(57) = RCT(220)*V(272)+RCT(805) + D_VAR(57) = RCT(439) IF (DO_FUN(58)) & - D_VAR(58) = RCT(579)*V(286) + D_VAR(58) = RCT(732)*V(345) IF (DO_FUN(59)) & - D_VAR(59) = RCT(213)*V(272)+RCT(811) + D_VAR(59) = RCT(936) IF (DO_FUN(60)) & - D_VAR(60) = RCT(284)*2*V(60)+RCT(818) + D_VAR(60) = RCT(714)*V(345) IF (DO_FUN(61)) & - D_VAR(61) = RCT(179)*V(272)+RCT(833) + D_VAR(61) = RCT(264)*V(334)+RCT(963) IF (DO_FUN(62)) & - D_VAR(62) = RCT(844)+RCT(845) + D_VAR(62) = RCT(335)*2*V(62)+RCT(970) IF (DO_FUN(63)) & - D_VAR(63) = RCT(842)+RCT(843) + D_VAR(63) = RCT(230)*V(334)+RCT(985) IF (DO_FUN(64)) & - D_VAR(64) = RCT(589)*V(286) + D_VAR(64) = RCT(996)+RCT(997) IF (DO_FUN(65)) & - D_VAR(65) = RCT(197)*F(3)+RCT(198)*V(279)+RCT(199)*V(291) + D_VAR(65) = RCT(994)+RCT(995) IF (DO_FUN(66)) & - D_VAR(66) = RCT(187)*V(288)+RCT(188)*V(286)+RCT(834) + D_VAR(66) = RCT(397)*V(345)+RCT(1051) IF (DO_FUN(67)) & - D_VAR(67) = RCT(54)+RCT(755) + D_VAR(67) = RCT(248)*F(3)+RCT(249)*V(346)+RCT(250)*V(335) IF (DO_FUN(68)) & - D_VAR(68) = RCT(586)*V(286) + D_VAR(68) = RCT(238)*V(343)+RCT(239)*V(345)+RCT(986) IF (DO_FUN(69)) & - D_VAR(69) = RCT(302)*V(286)+RCT(681)+RCT(682)+RCT(683) + D_VAR(69) = RCT(66)*V(345)+RCT(67)*V(351) IF (DO_FUN(70)) & - D_VAR(70) = RCT(609)*V(286)+RCT(892) + D_VAR(70) = RCT(721)*V(345) IF (DO_FUN(71)) & - D_VAR(71) = RCT(173)*V(286)+RCT(208)*V(272)+RCT(786) + D_VAR(71) = RCT(753)*V(345)+RCT(1044) IF (DO_FUN(72)) & - D_VAR(72) = RCT(233)*V(286)+RCT(265)*V(290)+RCT(789) + D_VAR(72) = RCT(161)*V(345) IF (DO_FUN(73)) & - D_VAR(73) = RCT(828) + D_VAR(73) = RCT(353)*V(345)+RCT(825)+RCT(826)+RCT(827) IF (DO_FUN(74)) & - D_VAR(74) = RCT(147)+RCT(830)+RCT(831) + D_VAR(74) = RCT(396)*V(345)+RCT(1050) IF (DO_FUN(75)) & - D_VAR(75) = RCT(227)*V(286)+RCT(257)+RCT(794) + D_VAR(75) = RCT(285)*V(345)+RCT(317)*V(340) IF (DO_FUN(76)) & - D_VAR(76) = RCT(577)*V(282)+RCT(578)*V(286) + D_VAR(76) = RCT(278)*V(345)+RCT(308)+RCT(946) IF (DO_FUN(77)) & - D_VAR(77) = RCT(172)*V(286)+RCT(209)*V(272)+RCT(785) + D_VAR(77) = RCT(980) IF (DO_FUN(78)) & - D_VAR(78) = RCT(234)*V(286)+RCT(266)*V(290) + D_VAR(78) = RCT(224)*V(345)+RCT(259)*V(334)+RCT(938) IF (DO_FUN(79)) & - D_VAR(79) = RCT(590)*V(286) + D_VAR(79) = RCT(284)*V(345)+RCT(316)*V(340)+RCT(941) IF (DO_FUN(80)) & - D_VAR(80) = RCT(591)*V(286) + D_VAR(80) = RCT(198)+RCT(982)+RCT(983) IF (DO_FUN(81)) & - D_VAR(81) = RCT(217)*V(272)+RCT(239)*V(286)+RCT(806) + D_VAR(81) = RCT(223)*V(345)+RCT(260)*V(334)+RCT(937) IF (DO_FUN(82)) & - D_VAR(82) = RCT(215)*V(272)+RCT(237)*V(286)+RCT(807) + D_VAR(82) = RCT(725)*V(345) IF (DO_FUN(83)) & - D_VAR(83) = RCT(216)*V(272)+RCT(238)*V(286)+RCT(808) + D_VAR(83) = RCT(490)*V(345)+RCT(999) IF (DO_FUN(84)) & - D_VAR(84) = RCT(210)*V(272)+RCT(236)*V(286)+RCT(809) + D_VAR(84) = RCT(268)*V(334)+RCT(290)*V(345)+RCT(958) IF (DO_FUN(85)) & - D_VAR(85) = RCT(570)*V(286)+RCT(850) + D_VAR(85) = RCT(266)*V(334)+RCT(288)*V(345)+RCT(959) IF (DO_FUN(86)) & - D_VAR(86) = RCT(11)+RCT(12)*V(276)*V(286) + D_VAR(86) = RCT(267)*V(334)+RCT(289)*V(345)+RCT(960) IF (DO_FUN(87)) & - D_VAR(87) = RCT(367)*V(286)+RCT(848) + D_VAR(87) = RCT(261)*V(334)+RCT(287)*V(345)+RCT(961) IF (DO_FUN(88)) & - D_VAR(88) = RCT(129)*V(286)+RCT(778) + D_VAR(88) = RCT(694)*V(345)+RCT(1002) IF (DO_FUN(89)) & - D_VAR(89) = RCT(365)*V(286)+RCT(846) + D_VAR(89) = RCT(11)+RCT(12)*V(345)*V(348) IF (DO_FUN(90)) & - D_VAR(90) = RCT(148)*V(286)+RCT(149)*V(286)+RCT(150)*V(281) + D_VAR(90) = RCT(754)+RCT(755)*V(345) IF (DO_FUN(91)) & - D_VAR(91) = RCT(368)*V(286)+RCT(849) + D_VAR(91) = RCT(491)*V(345)+RCT(1000) IF (DO_FUN(92)) & - D_VAR(92) = RCT(294)*V(227)+RCT(295)*2*V(92)+RCT(297)*V(279)+RCT(817) + D_VAR(92) = RCT(178)*V(345)+RCT(930) IF (DO_FUN(93)) & - D_VAR(93) = RCT(125)*V(286)+RCT(774) + D_VAR(93) = RCT(489)*V(345)+RCT(998) IF (DO_FUN(94)) & - D_VAR(94) = RCT(123)*V(286)+RCT(772) + D_VAR(94) = RCT(199)*V(345)+RCT(200)*V(345)+RCT(201)*V(351) IF (DO_FUN(95)) & - D_VAR(95) = RCT(124)*V(286)+RCT(773) + D_VAR(95) = RCT(492)*V(345)+RCT(1001) IF (DO_FUN(96)) & - D_VAR(96) = RCT(366)*V(286)+RCT(847) + D_VAR(96) = RCT(345)*V(284)+RCT(346)*2*V(96)+RCT(348)*V(346)+RCT(969) IF (DO_FUN(97)) & - D_VAR(97) = RCT(610)+RCT(611)*V(286) + D_VAR(97) = RCT(173)*V(345)+RCT(921) IF (DO_FUN(98)) & - D_VAR(98) = RCT(362) + D_VAR(98) = RCT(71)*V(345)+RCT(922) IF (DO_FUN(99)) & - D_VAR(99) = RCT(829) + D_VAR(99) = RCT(171)*V(345)+RCT(919) IF (DO_FUN(100)) & - D_VAR(100) = RCT(174)*V(286)+RCT(207)*V(272)+RCT(787) + D_VAR(100) = RCT(172)*V(345)+RCT(920) IF (DO_FUN(101)) & - D_VAR(101) = RCT(604)*V(286)+RCT(605)*V(281)+RCT(891) + D_VAR(101) = RCT(726)*V(345) IF (DO_FUN(102)) & - D_VAR(102) = RCT(40)+RCT(41)*V(286)+RCT(748)+RCT(749) + D_VAR(102) = RCT(174)*V(345)+RCT(923) IF (DO_FUN(103)) & - D_VAR(103) = RCT(255)+RCT(258)*V(290)+RCT(813) + D_VAR(103) = RCT(486) IF (DO_FUN(104)) & - D_VAR(104) = RCT(569)*V(286)+RCT(723)+RCT(852) + D_VAR(104) = RCT(981) IF (DO_FUN(105)) & - D_VAR(105) = RCT(561)*V(286)+RCT(724) + D_VAR(105) = RCT(225)*V(345)+RCT(258)*V(334)+RCT(939) IF (DO_FUN(106)) & - D_VAR(106) = RCT(126)*V(286)+RCT(776) + D_VAR(106) = RCT(719)+RCT(720)*F(3) IF (DO_FUN(107)) & - D_VAR(107) = RCT(616)*V(286)+RCT(893) + D_VAR(107) = RCT(685)*V(345)+RCT(868) IF (DO_FUN(108)) & - D_VAR(108) = RCT(584)+RCT(585)*F(3) + D_VAR(108) = RCT(40)+RCT(41)*V(345)+RCT(892)+RCT(893) IF (DO_FUN(109)) & - D_VAR(109) = RCT(406)*V(286) + D_VAR(109) = RCT(712)*V(341)+RCT(713)*V(345) IF (DO_FUN(110)) & - D_VAR(110) = RCT(122)*V(286)+RCT(771) + D_VAR(110) = RCT(306)+RCT(309)*V(340)+RCT(965) IF (DO_FUN(111)) & - D_VAR(111) = RCT(226)*V(286)+RCT(793) + D_VAR(111) = RCT(387)*V(345)+RCT(1048) IF (DO_FUN(112)) & - D_VAR(112) = RCT(127)*V(286)+RCT(775) + D_VAR(112) = RCT(408)*V(345)+RCT(1053) IF (DO_FUN(113)) & - D_VAR(113) = RCT(121)*V(286)+RCT(770) + D_VAR(113) = RCT(125)+4.51e-12*V(345) IF (DO_FUN(114)) & - D_VAR(114) = RCT(65)*V(286)+RCT(74)*V(281)+RCT(280)*V(290) + D_VAR(114) = RCT(156)+RCT(160)*V(345) IF (DO_FUN(115)) & - D_VAR(115) = RCT(599)*V(286)+RCT(600)*V(281) + D_VAR(115) = RCT(693)*V(345)+RCT(867)+RCT(1004) IF (DO_FUN(116)) & - D_VAR(116) = RCT(427)*V(286)+RCT(716) + D_VAR(116) = RCT(711)*V(345)+RCT(928) IF (DO_FUN(117)) & - D_VAR(117) = RCT(539)*V(286) + D_VAR(117) = RCT(760)*V(345)+RCT(1045) IF (DO_FUN(118)) & - D_VAR(118) = RCT(597)*V(286)+RCT(598)*V(281) + D_VAR(118) = RCT(170)*V(345)+RCT(918) IF (DO_FUN(119)) & - D_VAR(119) = RCT(343)*V(286)+RCT(837) + D_VAR(119) = RCT(530)*V(345) IF (DO_FUN(120)) & - D_VAR(120) = RCT(587)*V(286)+RCT(588)*V(286)+RCT(890) + D_VAR(120) = RCT(277)*V(345)+RCT(945) IF (DO_FUN(121)) & - D_VAR(121) = RCT(446)*V(279)+RCT(447)*V(284) + D_VAR(121) = RCT(733)*V(346)+RCT(734)*V(337) IF (DO_FUN(122)) & - D_VAR(122) = RCT(835) + D_VAR(122) = RCT(739)+RCT(740)*V(345) IF (DO_FUN(123)) & - D_VAR(123) = RCT(448)*V(279)+RCT(449)*V(284) + D_VAR(123) = RCT(176)*V(345)+RCT(924) IF (DO_FUN(124)) & - D_VAR(124) = RCT(60)*V(286)+RCT(61)*V(286)+RCT(169)*V(273)+RCT(276)*V(290)+RCT(277)*V(290) + D_VAR(124) = RCT(107)+RCT(108)*V(345)+RCT(1047) IF (DO_FUN(125)) & - D_VAR(125) = RCT(563)*V(286)+RCT(885) + D_VAR(125) = RCT(169)*V(345)+RCT(917) IF (DO_FUN(126)) & - D_VAR(126) = RCT(495)*F(3)+RCT(496) + D_VAR(126) = RCT(87)+RCT(88)*V(345)+RCT(900) IF (DO_FUN(127)) & - D_VAR(127) = RCT(403)*V(286)+RCT(871) + D_VAR(127) = RCT(80)*V(345) IF (DO_FUN(128)) & - D_VAR(128) = RCT(160)*V(286)+RCT(779) + D_VAR(128) = RCT(551)*V(345)+RCT(860) IF (DO_FUN(129)) & - D_VAR(129) = RCT(402)*V(286)+RCT(870) + D_VAR(129) = RCT(409)*V(345) IF (DO_FUN(130)) & - D_VAR(130) = RCT(428)*V(286)+RCT(429)*V(286)+RCT(714) + D_VAR(130) = RCT(442)*V(345)+RCT(1056) IF (DO_FUN(131)) & - D_VAR(131) = RCT(430)*V(286)+RCT(431)*V(286)+RCT(715) + D_VAR(131) = RCT(663)*V(345) IF (DO_FUN(132)) & - D_VAR(132) = RCT(542)*V(286) + D_VAR(132) = RCT(82)*V(346)+RCT(83)*V(337) IF (DO_FUN(133)) & - D_VAR(133) = RCT(101)*V(286)+RCT(274)*V(290) + D_VAR(133) = RCT(570)*V(346)+RCT(571)*V(337) IF (DO_FUN(134)) & - D_VAR(134) = RCT(364)*V(286)+RCT(722)+RCT(841) + D_VAR(134) = RCT(987) IF (DO_FUN(135)) & - D_VAR(135) = RCT(790) + D_VAR(135) = RCT(572)*V(346)+RCT(573)*V(337) IF (DO_FUN(136)) & - D_VAR(136) = RCT(548)*V(286)+RCT(860) + D_VAR(136) = RCT(722)*V(345)+RCT(723)*V(345)+RCT(1042) IF (DO_FUN(137)) & - D_VAR(137) = RCT(32)*V(286)+RCT(269)*V(290)+RCT(743) + D_VAR(137) = RCT(388)*V(345) IF (DO_FUN(138)) & - D_VAR(138) = RCT(4)*V(276)*V(282)+RCT(5)*V(275)+RCT(6)*V(265) + D_VAR(138) = RCT(407)*V(345) IF (DO_FUN(139)) & - D_VAR(139) = RCT(450)*V(286)+RCT(451)*V(286)+RCT(726)+RCT(873) + D_VAR(139) = RCT(54)+RCT(55)*V(345)+RCT(899) IF (DO_FUN(140)) & - D_VAR(140) = RCT(452)*V(286)+RCT(453)*V(286)+RCT(727)+RCT(874) + D_VAR(140) = RCT(75)*V(345)+RCT(76)*V(351)+RCT(77)*V(341) IF (DO_FUN(141)) & - D_VAR(141) = RCT(564)*V(286)+RCT(883) + D_VAR(141) = RCT(61)*V(345)+RCT(62)*V(345)+RCT(220)*V(342)+RCT(327)*V(340)+RCT(328)*V(340) IF (DO_FUN(142)) & - D_VAR(142) = RCT(601)*V(286)+RCT(602)*V(282)+RCT(603)*V(281) + D_VAR(142) = RCT(89)*V(345)+RCT(101)*V(351)+RCT(331)*V(340) IF (DO_FUN(143)) & - D_VAR(143) = RCT(288)*V(281)+RCT(301)*V(286)+RCT(814) + D_VAR(143) = RCT(724)*V(345) IF (DO_FUN(144)) & - D_VAR(144) = RCT(531)*V(279)+RCT(532)*V(284)+RCT(533)*V(291) + D_VAR(144) = RCT(527)*V(345)+RCT(1023) IF (DO_FUN(145)) & - D_VAR(145) = RCT(534)*V(279)+RCT(535)*V(284)+RCT(536)*V(291) + D_VAR(145) = RCT(619)*F(3)+RCT(620) IF (DO_FUN(146)) & - D_VAR(146) = RCT(518)*V(279)+RCT(519)*V(284) + D_VAR(146) = 7.09e-11*V(345)+RCT(902) IF (DO_FUN(147)) & - D_VAR(147) = RCT(1)*V(276)*V(282)+RCT(2)*V(275)+RCT(3)*V(265) + D_VAR(147) = RCT(687)*V(345)+RCT(1037) IF (DO_FUN(148)) & - D_VAR(148) = RCT(626)*V(286)+RCT(627)*V(282)+RCT(628) + D_VAR(148) = RCT(211)*V(345)+RCT(931) IF (DO_FUN(149)) & - D_VAR(149) = RCT(206)*V(272)+RCT(232)*V(286)+RCT(264)*V(290)+RCT(788) + D_VAR(149) = RCT(705)*V(345)+RCT(706)*V(351) IF (DO_FUN(150)) & - D_VAR(150) = RCT(515)*V(279)+RCT(516)*V(284) + D_VAR(150) = RCT(526)*V(345)+RCT(1022) IF (DO_FUN(151)) & - D_VAR(151) = RCT(498)*V(286)+RCT(500)*V(286)+RCT(501)*V(286)+RCT(503)*V(286)+RCT(504)*V(286)+RCT(730)+RCT(877)& - &+RCT(878) + D_VAR(151) = RCT(552)*V(345)+RCT(553)*V(345)+RCT(858) IF (DO_FUN(152)) & - D_VAR(152) = RCT(464)+RCT(465)*V(284)+RCT(466)*V(279)+RCT(467)*V(279) + D_VAR(152) = RCT(554)*V(345)+RCT(555)*V(345)+RCT(859) IF (DO_FUN(153)) & - D_VAR(153) = RCT(559)+RCT(560)*V(286) + D_VAR(153) = RCT(666)*V(345) IF (DO_FUN(154)) & - D_VAR(154) = RCT(324)*V(286)+RCT(331)*V(282)+RCT(333)*V(281) + D_VAR(154) = RCT(488)*V(345)+RCT(866)+RCT(993) IF (DO_FUN(155)) & - D_VAR(155) = RCT(325)*V(286)+RCT(332)*V(282)+RCT(334)*V(281) + D_VAR(155) = RCT(175)*V(345)+RCT(925) IF (DO_FUN(156)) & - D_VAR(156) = RCT(538)*V(286)+RCT(857) + D_VAR(156) = RCT(140)*V(345)+RCT(325)*V(340) IF (DO_FUN(157)) & - D_VAR(157) = RCT(407)*V(286)+RCT(408)*V(286)+RCT(411)*V(286)+RCT(864) + D_VAR(157) = RCT(942) IF (DO_FUN(158)) & - D_VAR(158) = RCT(102)*V(286) + D_VAR(158) = RCT(743)*V(345)+RCT(744)*V(351) IF (DO_FUN(159)) & - D_VAR(159) = RCT(623)*V(286)+RCT(624)*V(282)+RCT(625) + D_VAR(159) = RCT(672)*V(345)+RCT(1012) IF (DO_FUN(160)) & - D_VAR(160) = RCT(617)*V(282)+RCT(618)*V(291) + D_VAR(160) = RCT(402)*V(345)+RCT(1052) IF (DO_FUN(161)) & - D_VAR(161) = RCT(56)*V(286)+RCT(130)*V(281)+RCT(168)*V(273)+RCT(270)*V(290) + D_VAR(161) = RCT(415)*V(345)+RCT(1054) IF (DO_FUN(162)) & - D_VAR(162) = RCT(409)*V(286)+RCT(410)*V(286)+RCT(412)*V(286)+RCT(865) + D_VAR(162) = RCT(416)*V(345) IF (DO_FUN(163)) & - D_VAR(163) = RCT(537)*V(286)+RCT(858) + D_VAR(163) = RCT(433)*V(345)+RCT(434)*V(351) IF (DO_FUN(164)) & - D_VAR(164) = RCT(565)*V(286)+RCT(884) + D_VAR(164) = RCT(32)*V(345)+RCT(320)*V(340)+RCT(887) IF (DO_FUN(165)) & - D_VAR(165) = RCT(414)*V(286)+RCT(867) + D_VAR(165) = RCT(73)*V(346)+RCT(74)*V(337) IF (DO_FUN(166)) & - D_VAR(166) = RCT(468)+RCT(470)*V(284)+RCT(471)*V(279)+RCT(472)*V(279) + D_VAR(166) = RCT(4)*V(341)*V(348)+RCT(5)*V(339)+RCT(6)*V(327) IF (DO_FUN(167)) & - D_VAR(167) = RCT(460)+RCT(461)*V(284)+RCT(462)*V(279)+RCT(463)*V(279) + D_VAR(167) = RCT(377)*V(351)+RCT(378)*V(345)+RCT(379)*V(341) IF (DO_FUN(168)) & - D_VAR(168) = RCT(469)+RCT(473)*V(284)+RCT(474)*V(279)+RCT(475)*V(279) + D_VAR(168) = RCT(576)*V(345)+RCT(577)*V(345)+RCT(871)+RCT(1026) IF (DO_FUN(169)) & - D_VAR(169) = RCT(541)*V(286)+RCT(854) + D_VAR(169) = RCT(441)*V(345)+RCT(1055) IF (DO_FUN(170)) & - D_VAR(170) = RCT(335)*V(286)+RCT(336)*V(282)+RCT(337)*V(281) + D_VAR(170) = RCT(339)*V(351)+RCT(352)*V(345)+RCT(966) IF (DO_FUN(171)) & - D_VAR(171) = RCT(413)*V(286)+RCT(866) + D_VAR(171) = RCT(655)*V(346)+RCT(656)*V(337)+RCT(657)*V(335) IF (DO_FUN(172)) & - D_VAR(172) = RCT(572)*V(286)+RCT(573)*V(286)+RCT(851) + D_VAR(172) = RCT(658)*V(346)+RCT(659)*V(337)+RCT(660)*V(335) IF (DO_FUN(173)) & - D_VAR(173) = RCT(46)+RCT(642)*V(278)+RCT(643)*V(275)+RCT(644)+RCT(645)*V(280)+RCT(646)*V(287)+RCT(752) + D_VAR(173) = RCT(701)*V(345) IF (DO_FUN(174)) & - D_VAR(174) = RCT(405)*V(286)+RCT(729) + D_VAR(174) = RCT(688)*V(345)+RCT(1035) IF (DO_FUN(175)) & - D_VAR(175) = RCT(530)*V(286)+RCT(735)+RCT(863) + D_VAR(175) = RCT(574)*V(345)+RCT(575)*V(345)+RCT(870)+RCT(1025) IF (DO_FUN(176)) & - D_VAR(176) = RCT(159)*V(273)+RCT(649)*V(278)+RCT(650)*V(275)+RCT(782)+RCT(783) + D_VAR(176) = RCT(403)*V(345) IF (DO_FUN(177)) & - D_VAR(177) = RCT(194)*F(3)+RCT(195)*V(282)+RCT(196)*V(284) + D_VAR(177) = RCT(435)*V(345) IF (DO_FUN(178)) & - D_VAR(178) = RCT(357)*V(286)+RCT(361)*V(281)+RCT(720)+RCT(839) + D_VAR(178) = RCT(68)*V(346)+RCT(69)*V(346)+RCT(70)*V(337) IF (DO_FUN(179)) & - D_VAR(179) = RCT(580)*V(284)+RCT(581)*V(279)+RCT(582)*V(281)+RCT(583)*V(266) + D_VAR(179) = RCT(1)*V(341)*V(348)+RCT(2)*V(339)+RCT(3)*V(327) IF (DO_FUN(180)) & - D_VAR(180) = RCT(606)*V(284)+RCT(607)*V(279)+RCT(608)*V(291)+RCT(622)*V(266) + D_VAR(180) = RCT(642)*V(346)+RCT(643)*V(337) IF (DO_FUN(181)) & - D_VAR(181) = RCT(497)*V(286)+RCT(499)*V(286)+RCT(502)*V(286)+RCT(731)+RCT(876) + D_VAR(181) = RCT(257)*V(334)+RCT(283)*V(345)+RCT(315)*V(340)+RCT(940) IF (DO_FUN(182)) & - D_VAR(182) = RCT(415)+RCT(416)*V(279)+RCT(417)*V(279)+RCT(418)*V(284) + D_VAR(182) = RCT(639)*V(346)+RCT(640)*V(337) IF (DO_FUN(183)) & - D_VAR(183) = RCT(419)+RCT(420)*V(279)+RCT(421)*V(279)+RCT(422)*V(284) + D_VAR(183) = RCT(57)*V(345)+RCT(179)*V(351)+RCT(219)*V(342)+RCT(321)*V(340) IF (DO_FUN(184)) & - D_VAR(184) = RCT(592)*V(284)+RCT(593)*V(279)+RCT(594)*V(281)+RCT(595)*V(266)+RCT(596)*V(261) + D_VAR(184) = RCT(683)+RCT(684)*V(345) IF (DO_FUN(185)) & - D_VAR(185) = RCT(540)*V(286)+RCT(855) + D_VAR(185) = RCT(662)*V(345)+RCT(1009) IF (DO_FUN(186)) & - D_VAR(186) = RCT(400)*V(286)+RCT(868) + 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) IF (DO_FUN(187)) & - D_VAR(187) = RCT(423)+RCT(424)*V(279)+RCT(425)*V(279)+RCT(426)*V(284) + D_VAR(187) = RCT(531)*V(345)+RCT(532)*V(345)+RCT(535)*V(345)+RCT(1016) IF (DO_FUN(188)) & - D_VAR(188) = RCT(401)*V(286)+RCT(869) + D_VAR(188) = RCT(141)*V(345) IF (DO_FUN(189)) & - D_VAR(189) = RCT(505)+RCT(508)*V(284)+RCT(511)*V(279)+RCT(512)*V(279) + D_VAR(189) = RCT(709)*V(346)+RCT(710)*V(337) IF (DO_FUN(190)) & - D_VAR(190) = RCT(25)*V(286)+RCT(180)*V(272)+RCT(240)*V(290) + D_VAR(190) = RCT(588)+RCT(589)*V(337)+RCT(590)*V(346)+RCT(591)*V(346) IF (DO_FUN(191)) & - D_VAR(191) = RCT(612)*V(291)+RCT(613)*V(279)+RCT(614)*V(281)+RCT(615)*V(284)+RCT(621)*V(266) + D_VAR(191) = RCT(375)*V(351)+RCT(382)*V(345)+RCT(383)*V(341) IF (DO_FUN(192)) & - D_VAR(192) = RCT(404)*V(286) + D_VAR(192) = RCT(533)*V(345)+RCT(534)*V(345)+RCT(536)*V(345)+RCT(1017) IF (DO_FUN(193)) & - D_VAR(193) = RCT(38)*V(286)+RCT(747) + D_VAR(193) = RCT(450)*V(345)+RCT(451)*V(341)+RCT(452)*V(351) IF (DO_FUN(194)) & - D_VAR(194) = RCT(442)*V(284)+RCT(443)*V(279)+RCT(444)*V(279)+RCT(445) + D_VAR(194) = RCT(661)*V(345)+RCT(1010) IF (DO_FUN(195)) & - D_VAR(195) = RCT(318)*V(267)+RCT(319)*V(279)+RCT(320)*V(291)+RCT(321)*V(276)+RCT(322)*V(278)+RCT(323)*V(278) + D_VAR(195) = RCT(741)*V(345)+RCT(742)*V(351) IF (DO_FUN(196)) & - D_VAR(196) = RCT(33)*V(286)+RCT(832) + D_VAR(196) = RCT(72)*V(345)+RCT(927) IF (DO_FUN(197)) & - D_VAR(197) = RCT(204)*V(272)+RCT(222)*V(286)+RCT(791) + D_VAR(197) = RCT(84)*V(337)+RCT(85)*V(346)+RCT(86)*V(335) IF (DO_FUN(198)) & - D_VAR(198) = RCT(310)*V(286)+RCT(853) + D_VAR(198) = RCT(689)*V(345)+RCT(1036) IF (DO_FUN(199)) & - D_VAR(199) = RCT(358)*V(286)+RCT(359)*V(282)+RCT(360)*V(281)+RCT(721)+RCT(840) + D_VAR(199) = RCT(538)*V(345)+RCT(1019) IF (DO_FUN(200)) & - D_VAR(200) = RCT(529)*V(286)+RCT(736)+RCT(862) + D_VAR(200) = RCT(707)*V(345)+RCT(708)*V(351) IF (DO_FUN(201)) & - D_VAR(201) = RCT(73)*V(279)+RCT(90)*V(284)+RCT(100)*V(266)+RCT(138)*V(261) + D_VAR(201) = RCT(770)*V(345)+RCT(771)*V(341)+RCT(772) IF (DO_FUN(202)) & - D_VAR(202) = RCT(75)*V(286)+RCT(719)+RCT(777) + D_VAR(202) = RCT(745)*V(345)+RCT(746)*V(341)+RCT(747)*V(351) IF (DO_FUN(203)) & - D_VAR(203) = RCT(286)+RCT(287)*2*V(203)+RCT(695)+RCT(696)+RCT(700)*V(283)+RCT(701)*V(277)+RCT(702)*V(280)+RCT(703)& - &*V(287)+RCT(819) + D_VAR(203) = RCT(761)*V(341)+RCT(762)*V(335) IF (DO_FUN(204)) & - D_VAR(204) = RCT(543)*V(284)+RCT(544)*V(279)+RCT(545)*V(279) + D_VAR(204) = RCT(748)*V(345)+RCT(749)*V(351)+RCT(1043) IF (DO_FUN(205)) & - D_VAR(205) = RCT(546)*V(284)+RCT(549)+RCT(550)*V(279)+RCT(551)*V(279) + D_VAR(205) = RCT(584)+RCT(585)*V(337)+RCT(586)*V(346)+RCT(587)*V(346) IF (DO_FUN(206)) & - D_VAR(206) = RCT(562)*V(286)+RCT(881)+RCT(882) + D_VAR(206) = RCT(592)+RCT(594)*V(337)+RCT(595)*V(346)+RCT(596)*V(346) IF (DO_FUN(207)) & - D_VAR(207) = RCT(547)*V(284)+RCT(552)*V(279)+RCT(553)*V(291) + D_VAR(207) = RCT(593)+RCT(597)*V(337)+RCT(598)*V(346)+RCT(599)*V(346) IF (DO_FUN(208)) & - D_VAR(208) = RCT(309)*V(286)+RCT(568)*V(281)+RCT(838) + D_VAR(208) = RCT(665)*V(345)+RCT(1006) IF (DO_FUN(209)) & - D_VAR(209) = RCT(64)*V(279)+RCT(84)*V(266)+RCT(108)*V(284)+RCT(141)*V(261) + D_VAR(209) = RCT(537)*V(345)+RCT(1018) IF (DO_FUN(210)) & - D_VAR(210) = RCT(619)*V(286)+RCT(620)*V(281)+RCT(737)+RCT(894) + D_VAR(210) = RCT(696)*V(345)+RCT(697)*V(345)+RCT(1003) IF (DO_FUN(211)) & - D_VAR(211) = RCT(47)*V(286)+RCT(267)*V(290) + D_VAR(211) = RCT(426)*V(345)+RCT(427)*V(341)+RCT(428)*V(351) IF (DO_FUN(212)) & - D_VAR(212) = RCT(7)*V(276)+RCT(21)*V(286)+RCT(193)*V(288)+RCT(244)*V(290)+RCT(742) + D_VAR(212) = RCT(78)*V(346)+RCT(79)*V(337) IF (DO_FUN(213)) & - D_VAR(213) = RCT(566)*V(286)+RCT(733)+RCT(888)+RCT(889) + D_VAR(213) = RCT(155)*V(335)+RCT(157)*V(346)+RCT(158)*V(337)+RCT(159)*V(351) IF (DO_FUN(214)) & - D_VAR(214) = RCT(456)*V(286)+RCT(457)*V(286)+RCT(459)*V(286)+RCT(728)+RCT(875) + 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) IF (DO_FUN(215)) & - D_VAR(215) = RCT(344)*V(279)+RCT(346)*V(284)+RCT(348)*V(266)+RCT(350)*V(261)+RCT(352)*V(281)+RCT(354)*2*V(215)& - &+RCT(355)*V(216) + D_VAR(215) = RCT(529)*V(345)+RCT(873) IF (DO_FUN(216)) & - D_VAR(216) = RCT(345)*V(279)+RCT(347)*V(284)+RCT(349)*V(266)+RCT(351)*V(261)+RCT(353)*V(281)+RCT(355)*V(215)+RCT(356)& - &*2*V(216) + D_VAR(216) = RCT(654)*V(345)+RCT(879)+RCT(1015) IF (DO_FUN(217)) & - D_VAR(217) = RCT(57)*V(279)+RCT(58)*V(279)+RCT(92)*V(266)+RCT(103)*2*V(217)+RCT(105)*V(284)+RCT(139)*V(261)+RCT(271)& - &*V(290) + D_VAR(217) = RCT(245)*F(3)+RCT(246)*V(341)+RCT(247)*V(337) IF (DO_FUN(218)) & - D_VAR(218) = RCT(48)*V(286)+RCT(273)*V(290) + D_VAR(218) = RCT(210)*V(342)+RCT(793)*V(336)+RCT(794)*V(339)+RCT(934)+RCT(935) IF (DO_FUN(219)) & - D_VAR(219) = RCT(76)*V(286)+RCT(275)*V(290) + D_VAR(219) = RCT(376)*V(351)+RCT(380)*V(345)+RCT(381)*V(341) IF (DO_FUN(220)) & - D_VAR(220) = RCT(454)*V(286)+RCT(455)*V(286)+RCT(458)*V(286)+RCT(725)+RCT(872) + D_VAR(220) = RCT(702)*V(345)+RCT(703)*V(351)+RCT(704)*V(341) IF (DO_FUN(221)) & - D_VAR(221) = RCT(82)*V(286)+RCT(167)*V(273)+RCT(278)*V(290)+RCT(757)+RCT(758) + D_VAR(221) = RCT(767)*V(345)+RCT(768)*V(341)+RCT(769) IF (DO_FUN(222)) & - D_VAR(222) = RCT(506)+RCT(507)*V(284)+RCT(509)*V(279)+RCT(510)*V(279) + D_VAR(222) = RCT(621)*V(345)+RCT(623)*V(345)+RCT(626)*V(345)+RCT(875)+RCT(1028) IF (DO_FUN(223)) & - D_VAR(223) = RCT(115)*V(286)+RCT(117)*V(281)+RCT(712)+RCT(761)+RCT(762)+RCT(763) + D_VAR(223) = RCT(539)+RCT(540)*V(346)+RCT(541)*V(346)+RCT(542)*V(337) IF (DO_FUN(224)) & - D_VAR(224) = RCT(279)*V(290)+RCT(369)*V(282)+RCT(370)*V(286)+RCT(371)*V(286)+RCT(372)*V(286)+RCT(373)*V(286)+RCT(479)& - &*V(281) + D_VAR(224) = RCT(543)+RCT(544)*V(346)+RCT(545)*V(346)+RCT(546)*V(337) IF (DO_FUN(225)) & - D_VAR(225) = RCT(338)*V(279)+RCT(339)*V(284)+RCT(340)*V(266)+RCT(341)*V(261)+RCT(342)*V(281) + D_VAR(225) = RCT(389)*V(351)+RCT(390)*V(345)+RCT(1049) IF (DO_FUN(226)) & - D_VAR(226) = RCT(91)*V(286)+RCT(94)*V(281)+RCT(759) + D_VAR(226) = RCT(629)+RCT(632)*V(337)+RCT(635)*V(346)+RCT(636)*V(346) IF (DO_FUN(227)) & - D_VAR(227) = RCT(289)*V(291)+RCT(293)*V(274)+RCT(294)*V(92)+RCT(298)*V(285)+RCT(304)*V(284)+RCT(305)*V(279)+RCT(306)*2& - &*V(227)+RCT(816) + D_VAR(227) = RCT(664)*V(345)+RCT(1007) IF (DO_FUN(228)) & - D_VAR(228) = RCT(432)+RCT(433)+RCT(434)*V(284)+RCT(435)*V(279)+RCT(436)*V(279) + D_VAR(228) = RCT(25)*V(345)+RCT(231)*V(334)+RCT(291)*V(340) IF (DO_FUN(229)) & - D_VAR(229) = RCT(437)+RCT(438)+RCT(439)*V(279)+RCT(440)*V(279)+RCT(441)*V(284) + D_VAR(229) = RCT(447)*V(345)+RCT(448)*V(341)+RCT(449)*V(351)+RCT(989)+RCT(1057) IF (DO_FUN(230)) & - D_VAR(230) = RCT(527)*V(286)+RCT(856) + D_VAR(230) = RCT(524)*V(345)+RCT(1020) IF (DO_FUN(231)) & - D_VAR(231) = RCT(528)*V(286)+RCT(859) + D_VAR(231) = RCT(525)*V(345)+RCT(1021) IF (DO_FUN(232)) & - D_VAR(232) = RCT(476)*V(284)+RCT(477)*V(279)+RCT(478)*V(279) + D_VAR(232) = RCT(547)+RCT(548)*V(346)+RCT(549)*V(346)+RCT(550)*V(337) IF (DO_FUN(233)) & - D_VAR(233) = RCT(116)*V(286)+RCT(118)*V(281)+RCT(713)+RCT(764) + D_VAR(233) = RCT(81)*V(345)+RCT(901) IF (DO_FUN(234)) & - D_VAR(234) = RCT(311)*V(267)+RCT(312)*V(279)+RCT(313)*V(291)+RCT(314)*V(278)+RCT(315)*V(278)*V(278)+RCT(316)*V(282)& - &+RCT(317)*V(276) + D_VAR(234) = RCT(715)*V(337)+RCT(716)*V(346)+RCT(717)*V(351)+RCT(718)*V(328) IF (DO_FUN(235)) & - D_VAR(235) = RCT(230)*V(286)+RCT(658)*V(280)+RCT(659)*V(287)+RCT(660)*V(275)+RCT(661)*V(283)+RCT(662)*V(277)+RCT(663)& - &*V(289)+RCT(795) + D_VAR(235) = RCT(750)*V(337)+RCT(751)*V(346)+RCT(752)*V(335)+RCT(766)*V(328) IF (DO_FUN(236)) & - D_VAR(236) = RCT(112)*V(286)+RCT(113)*V(286)+RCT(760) + D_VAR(236) = RCT(756)*V(335)+RCT(757)*V(346)+RCT(758)*V(351)+RCT(759)*V(337)+RCT(765)*V(328) IF (DO_FUN(237)) & - D_VAR(237) = RCT(62)*V(279)+RCT(63)*V(279)+RCT(83)*V(266)+RCT(107)*V(284)+RCT(142)*V(261) + D_VAR(237) = RCT(423)*V(345)+RCT(424)*V(341)+RCT(425)*V(351) IF (DO_FUN(238)) & - D_VAR(238) = RCT(326)*V(279)+RCT(327)*V(284)+RCT(328)*V(266)+RCT(329)*V(261)+RCT(330)*V(281) + D_VAR(238) = RCT(528)*V(345) IF (DO_FUN(239)) & - D_VAR(239) = RCT(59)*V(279)+RCT(93)*V(266)+RCT(104)*2*V(239)+RCT(106)*V(284)+RCT(140)*V(261)+RCT(272)*V(290) + D_VAR(239) = RCT(38)*V(345)+RCT(891) IF (DO_FUN(240)) & - D_VAR(240) = RCT(513)*V(286)+RCT(514)*V(286)+RCT(879) + D_VAR(240) = RCT(736)*V(346)+RCT(737)*V(337)+RCT(738)*V(335) IF (DO_FUN(241)) & - D_VAR(241) = RCT(526)*V(286)+RCT(718)+RCT(861) + 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) IF (DO_FUN(242)) & - D_VAR(242) = RCT(567)*V(286)+RCT(734)+RCT(886)+RCT(887) + D_VAR(242) = RCT(482)*V(345)+RCT(483)*V(341)+RCT(484)*V(351)+RCT(865)+RCT(992) IF (DO_FUN(243)) & - D_VAR(243) = RCT(517)*V(286)+RCT(732)+RCT(880) + D_VAR(243) = RCT(566)*V(337)+RCT(567)*V(346)+RCT(568)*V(346)+RCT(569) IF (DO_FUN(244)) & - D_VAR(244) = RCT(376)*V(284)+RCT(377)*V(284)+RCT(380)+RCT(381)+RCT(383)*2*V(244)+RCT(384)*V(245)+RCT(386)*2*V(244)& - &+RCT(387)*V(245)+RCT(390)*V(266)+RCT(391)*V(266)+RCT(396)*V(279)+RCT(397)*V(279)+RCT(398)*V(279)+RCT(399)& - &*V(279) + D_VAR(244) = RCT(33)*V(345)+RCT(984) IF (DO_FUN(245)) & - D_VAR(245) = RCT(374)*V(284)+RCT(375)*V(284)+RCT(378)+RCT(379)+RCT(382)*2*V(245)+RCT(384)*V(244)+RCT(385)*2*V(245)& - &+RCT(387)*V(244)+RCT(388)*V(266)+RCT(389)*V(266)+RCT(392)*V(279)+RCT(393)*V(279)+RCT(394)*V(279)+RCT(395)& - &*V(279) + D_VAR(245) = RCT(255)*V(334)+RCT(273)*V(345)+RCT(943) IF (DO_FUN(246)) & - D_VAR(246) = RCT(481)*V(284)+RCT(483)*V(247)+RCT(484)*2*V(246)+RCT(485)*V(266)+RCT(488)*V(261)+RCT(490)*V(281)& - &+RCT(493)*V(279)+RCT(494)*V(279) + D_VAR(246) = RCT(124)*V(335)+RCT(127)*V(346)+RCT(128)*V(337) IF (DO_FUN(247)) & - D_VAR(247) = RCT(480)*V(284)+RCT(482)*2*V(247)+RCT(483)*V(246)+RCT(486)*V(266)+RCT(487)*V(261)+RCT(489)*V(281)& - &+RCT(491)*V(279)+RCT(492)*V(279) + D_VAR(247) = RCT(361)*V(345)+RCT(1005) IF (DO_FUN(248)) & - D_VAR(248) = RCT(520)*V(286)+RCT(521)*V(282)+RCT(765)+RCT(766)+RCT(767) + D_VAR(248) = RCT(653)*V(345)+RCT(880)+RCT(1014) IF (DO_FUN(249)) & - D_VAR(249) = RCT(554)*V(284)+RCT(555)*V(279)+RCT(556)*V(291)+RCT(557)*V(281)+RCT(558)*V(266) + D_VAR(249) = RCT(92)*V(346)+RCT(117)*V(337)+RCT(135)*V(328)+RCT(188)*V(324) IF (DO_FUN(250)) & - D_VAR(250) = RCT(119)*V(286)+RCT(120)*V(286)+RCT(769) + D_VAR(250) = RCT(100)*V(346)+RCT(121)*V(337)+RCT(139)*V(328)+RCT(189)*V(324) IF (DO_FUN(251)) & - D_VAR(251) = RCT(522)*V(286)+RCT(523)*V(286)+RCT(524)*V(282)+RCT(525)*V(281)+RCT(768) + D_VAR(251) = RCT(102)*V(345)+RCT(863)+RCT(926) IF (DO_FUN(252)) & - D_VAR(252) = RCT(69)*V(279)+RCT(87)*V(284)+RCT(97)*V(266)+RCT(134)*V(261) + 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) IF (DO_FUN(253)) & - D_VAR(253) = RCT(110)*V(286)+RCT(111)*V(282)+RCT(114)*V(281)+RCT(281)*V(290)+RCT(282)*V(273) + D_VAR(253) = RCT(670)*V(337)+RCT(673)+RCT(674)*V(346)+RCT(675)*V(346) IF (DO_FUN(254)) & - D_VAR(254) = RCT(70)*V(279)+RCT(88)*V(284)+RCT(98)*V(266)+RCT(135)*V(261) + D_VAR(254) = RCT(667)*V(337)+RCT(668)*V(346)+RCT(669)*V(346) IF (DO_FUN(255)) & - D_VAR(255) = RCT(78)*V(291)+RCT(80)*V(279)+RCT(109)*V(284)+RCT(143)*V(261)+RCT(144)*V(266) + D_VAR(255) = RCT(420)*V(345)+RCT(421)*V(341)+RCT(422)*V(351)+RCT(1058) IF (DO_FUN(256)) & - D_VAR(256) = RCT(66)*V(279)+RCT(67)*V(279)+RCT(85)*V(284)+RCT(95)*V(266)+RCT(133)*V(261) + D_VAR(256) = RCT(481)*V(345)+RCT(485)*V(351)+RCT(864)+RCT(991) IF (DO_FUN(257)) & - D_VAR(257) = RCT(68)*V(279)+RCT(86)*V(284)+RCT(96)*V(266)+RCT(137)*V(261) + 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) IF (DO_FUN(258)) & - D_VAR(258) = RCT(71)*V(279)+RCT(72)*V(279)+RCT(89)*V(284)+RCT(99)*V(266)+RCT(136)*V(261) + D_VAR(258) = RCT(686)*V(345)+RCT(1033)+RCT(1034) IF (DO_FUN(259)) & - D_VAR(259) = RCT(77)*V(286)+RCT(81)*V(281)+RCT(756) + D_VAR(259) = RCT(671)*V(337)+RCT(676)*V(346)+RCT(677)*V(335) IF (DO_FUN(260)) & - D_VAR(260) = RCT(161)*V(288)+RCT(669)*V(289)+RCT(670)*V(275)+RCT(671)*V(280)+RCT(672)*V(287)+RCT(673)*V(283)+RCT(674)& - &*V(277)+RCT(675)*V(276)+RCT(781) + D_VAR(260) = RCT(65)*V(346)+RCT(113)*V(328)+RCT(147)*V(337)+RCT(192)*V(324) IF (DO_FUN(261)) & - D_VAR(261) = RCT(53)*V(291)+RCT(55)*V(279)+RCT(131)*2*V(261)+RCT(132)*V(266)+RCT(133)*V(256)+RCT(134)*V(252)+RCT(135)& - &*V(254)+RCT(136)*V(258)+RCT(137)*V(257)+RCT(138)*V(201)+RCT(139)*V(217)+RCT(140)*V(239)+RCT(141)*V(209)& - &+RCT(142)*V(237)+RCT(143)*V(255)+RCT(329)*V(238)+RCT(341)*V(225)+RCT(350)*V(215)+RCT(351)*V(216)+RCT(487)& - &*V(247)+RCT(488)*V(246)+RCT(571)*V(284)+RCT(596)*V(184) + D_VAR(261) = RCT(360)*V(345)+RCT(692)*V(351)+RCT(990) IF (DO_FUN(262)) & - D_VAR(262) = RCT(231)*V(286)+RCT(262)*V(288)+RCT(263)*V(290)+RCT(651)*V(278)+RCT(652)*V(275)+RCT(653)*V(289)+RCT(654)& - &*V(283)+RCT(655)*V(277)+RCT(656)*V(280)+RCT(657)*V(287)+RCT(796)+RCT(797) + D_VAR(262) = RCT(453)*V(345)+RCT(454)*V(341)+RCT(455)*V(351) IF (DO_FUN(263)) & - D_VAR(263) = RCT(10)*V(276)+RCT(34)*V(286)+RCT(50)*V(281)+RCT(165)*V(273)+RCT(201)*V(288)+RCT(241)*V(290)+RCT(744)& - &+RCT(745) + D_VAR(263) = RCT(727)*V(337)+RCT(728)*V(346)+RCT(729)*V(351)+RCT(730)*V(328)+RCT(731)*V(324) IF (DO_FUN(264)) & - D_VAR(264) = RCT(51)*V(286)+RCT(52)*V(281)+RCT(166)*V(273)+RCT(753)+RCT(754) + D_VAR(264) = RCT(7)*V(348)+RCT(21)*V(345)+RCT(244)*V(343)+RCT(295)*V(340)+RCT(886) IF (DO_FUN(265)) & - D_VAR(265) = RCT(3)*V(147)+RCT(6)*V(138)+RCT(36)*V(286)+RCT(746) + D_VAR(265) = RCT(47)*V(345)+RCT(318)*V(340) IF (DO_FUN(266)) & - D_VAR(266) = RCT(17)*V(282)+RCT(26)*V(279)+RCT(27)*V(279)+RCT(28)*V(284)+RCT(29)*2*V(266)+RCT(30)*2*V(266)+RCT(31)& - &*V(286)+RCT(83)*V(237)+RCT(84)*V(209)+RCT(92)*V(217)+RCT(93)*V(239)+RCT(95)*V(256)+RCT(96)*V(257)+RCT(97)& - &*V(252)+RCT(98)*V(254)+RCT(99)*V(258)+RCT(100)*V(201)+RCT(132)*V(261)+RCT(144)*V(255)+RCT(146)*V(291)& - &+RCT(223)*V(285)+RCT(268)*V(290)+RCT(328)*V(238)+RCT(340)*V(225)+RCT(348)*V(215)+RCT(349)*V(216)+RCT(388)& - &*V(245)+RCT(389)*V(245)+RCT(390)*V(244)+RCT(391)*V(244)+RCT(485)*V(246)+RCT(486)*V(247)+RCT(558)*V(249)& - &+RCT(583)*V(179)+RCT(595)*V(184)+RCT(621)*V(191)+RCT(622)*V(180)+RCT(635)*V(281) + D_VAR(266) = RCT(690)*V(345)+RCT(877)+RCT(1040)+RCT(1041) IF (DO_FUN(267)) & - D_VAR(267) = RCT(24)*V(286)+RCT(311)*V(234)+RCT(318)*V(195) + D_VAR(267) = RCT(580)*V(345)+RCT(581)*V(345)+RCT(583)*V(345)+RCT(872)+RCT(1027) IF (DO_FUN(268)) & - D_VAR(268) = RCT(303)*V(286)+RCT(684)+RCT(685)+RCT(708)*V(283)+RCT(709)*V(277)+RCT(710)*V(280)+RCT(711)*V(287)& - &+RCT(815) + D_VAR(268) = RCT(578)*V(345)+RCT(579)*V(345)+RCT(582)*V(345)+RCT(869)+RCT(1024) IF (DO_FUN(269)) & - D_VAR(269) = RCT(283)*V(279)+RCT(285)*V(291)+RCT(291)*V(270)+RCT(292)*V(274)+RCT(299)*V(282)+RCT(300)*V(284) + D_VAR(269) = RCT(763)*V(345)+RCT(764)*V(351)+RCT(881)+RCT(1046) IF (DO_FUN(270)) & - D_VAR(270) = RCT(290)+RCT(291)*V(269)+RCT(697)+RCT(698)+RCT(699)*V(278)+RCT(704)*V(283)+RCT(705)*V(277)+RCT(706)& - &*V(280)+RCT(707)*V(287)+RCT(820) + D_VAR(270) = RCT(163)*V(345)+RCT(165)*V(351)+RCT(856)+RCT(908)+RCT(909)+RCT(910) IF (DO_FUN(271)) & - D_VAR(271) = RCT(229)*V(286)+RCT(664)*V(275)+RCT(665)*V(289)+RCT(666)*V(280)+RCT(667)*V(287)+RCT(668)*V(276)+RCT(798) + D_VAR(271) = RCT(630)+RCT(631)*V(337)+RCT(633)*V(346)+RCT(634)*V(346) IF (DO_FUN(272)) & - D_VAR(272) = RCT(175)*V(278)+RCT(176)*F(2)+RCT(177)*F(3)+RCT(178)*F(1)+RCT(179)*V(61)+RCT(180)*V(190)+RCT(186)*V(282)& - &+RCT(202)*V(275)+RCT(203)*V(289)+RCT(204)*V(197)+RCT(205)*V(52)+RCT(206)*V(149)+RCT(207)*V(100)+RCT(208)& - &*V(71)+RCT(209)*V(77)+RCT(210)*V(84)+RCT(211)*V(53)+RCT(212)*V(54)+RCT(213)*V(59)+RCT(214)*V(47)+RCT(215)& - &*V(82)+RCT(216)*V(83)+RCT(217)*V(81)+RCT(218)*V(55)+RCT(219)*V(56)+RCT(220)*V(57)+RCT(221)*V(48) + D_VAR(272) = RCT(429)*V(346)+RCT(430)*V(337)+RCT(431)*V(351)+RCT(432)*V(328) IF (DO_FUN(273)) & - D_VAR(273) = RCT(152)*V(282)+RCT(154)*V(284)+RCT(159)*V(176)+RCT(164)*V(281)+RCT(165)*V(263)+RCT(166)*V(264)+RCT(167)& - &*V(221)+RCT(168)*V(161)+RCT(169)*V(124)+RCT(170)*V(291)+RCT(282)*V(253) + D_VAR(273) = RCT(410)*V(337)+RCT(411)*V(346)+RCT(412)*V(346)+RCT(413)*V(328)+RCT(414)*V(351) IF (DO_FUN(274)) & - D_VAR(274) = RCT(153)*V(284)+RCT(156)*2*V(274)+RCT(157)*2*V(274)+RCT(158)*V(279)+RCT(163)*V(286)+RCT(171)*V(291)& - &+RCT(200)*V(288)+RCT(259)*V(285)+RCT(260)*V(285)+RCT(261)*V(285)+RCT(292)*V(269)+RCT(293)*V(227)+RCT(780) + 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) IF (DO_FUN(275)) & - D_VAR(275) = RCT(2)*V(147)+RCT(5)*V(138)+RCT(202)*V(272)+RCT(228)*V(286)+RCT(643)*V(173)+RCT(650)*V(176)+RCT(652)& - &*V(262)+RCT(660)*V(235)+RCT(664)*V(271)+RCT(670)*V(260) + D_VAR(275) = RCT(404)*V(337)+RCT(405)*V(346)+RCT(406)*V(351)+RCT(458)*V(328)+RCT(459)*V(324) IF (DO_FUN(276)) & - D_VAR(276) = RCT(1)*V(147)*V(282)+RCT(4)*V(138)*V(282)+RCT(7)*V(212)+RCT(8)*V(282)+RCT(9)+RCT(10)*V(263)+RCT(12)*V(86)& - &*V(286)+RCT(151)*V(286)+RCT(317)*V(234)+RCT(321)*V(195)+RCT(668)*V(271)+RCT(675)*V(260) + 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) IF (DO_FUN(277)) & - D_VAR(277) = RCT(655)*V(262)+RCT(662)*V(235)+RCT(674)*V(260)+RCT(678)*V(282)+RCT(701)*V(203)+RCT(705)*V(270)+RCT(709)& - &*V(268) + D_VAR(277) = RCT(384)*V(337)+RCT(385)*V(346)+RCT(386)*V(351)+RCT(456)*V(328)+RCT(457)*V(324) IF (DO_FUN(278)) & - D_VAR(278) = RCT(175)*V(272)+RCT(314)*V(234)+RCT(315)*2*V(234)*V(278)+RCT(322)*V(195)+RCT(323)*V(195)+RCT(642)*V(173)& - &+RCT(649)*V(176)+RCT(651)*V(262)+RCT(699)*V(270) + D_VAR(278) = RCT(398)*V(337)+RCT(399)*V(346)+RCT(400)*V(351)+RCT(401)*V(328) IF (DO_FUN(279)) & - D_VAR(279) = RCT(13)*V(282)+RCT(22)*V(284)+RCT(26)*V(266)+RCT(27)*V(266)+RCT(37)*V(286)+RCT(43)*V(281)+RCT(55)*V(261)& - &+RCT(57)*V(217)+RCT(58)*V(217)+RCT(59)*V(239)+RCT(62)*V(237)+RCT(63)*V(237)+RCT(64)*V(209)+RCT(66)*V(256)& - &+RCT(67)*V(256)+RCT(68)*V(257)+RCT(69)*V(252)+RCT(70)*V(254)+RCT(71)*V(258)+RCT(72)*V(258)+RCT(73)*V(201)& - &+RCT(80)*V(255)+RCT(158)*V(274)+RCT(191)*V(288)+RCT(198)*V(65)+RCT(249)*V(285)+RCT(283)*V(269)+RCT(297)& - &*V(92)+RCT(305)*V(227)+RCT(312)*V(234)+RCT(319)*V(195)+RCT(326)*V(238)+RCT(338)*V(225)+RCT(344)*V(215)& - &+RCT(345)*V(216)+RCT(392)*V(245)+RCT(393)*V(245)+RCT(394)*V(245)+RCT(395)*V(245)+RCT(396)*V(244)+RCT(397)& - &*V(244)+RCT(398)*V(244)+RCT(399)*V(244)+RCT(416)*V(182)+RCT(417)*V(182)+RCT(420)*V(183)+RCT(421)*V(183)& - &+RCT(424)*V(187)+RCT(425)*V(187)+RCT(435)*V(228)+RCT(436)*V(228)+RCT(439)*V(229)+RCT(440)*V(229)+RCT(443)& - &*V(194)+RCT(444)*V(194)+RCT(446)*V(121)+RCT(448)*V(123)+RCT(462)*V(167)+RCT(463)*V(167)+RCT(466)*V(152)& - &+RCT(467)*V(152)+RCT(471)*V(166)+RCT(472)*V(166)+RCT(474)*V(168)+RCT(475)*V(168)+RCT(477)*V(232)+RCT(478)& - &*V(232)+RCT(491)*V(247)+RCT(492)*V(247)+RCT(493)*V(246)+RCT(494)*V(246)+RCT(509)*V(222)+RCT(510)*V(222)& - &+RCT(511)*V(189)+RCT(512)*V(189)+RCT(515)*V(150)+RCT(518)*V(146)+RCT(531)*V(144)+RCT(534)*V(145)+RCT(544)& - &*V(204)+RCT(545)*V(204)+RCT(550)*V(205)+RCT(551)*V(205)+RCT(552)*V(207)+RCT(555)*V(249)+RCT(576)*V(18)& - &+RCT(581)*V(179)+RCT(593)*V(184)+RCT(607)*V(180)+RCT(613)*V(191)+RCT(630)*V(13)+RCT(632)*V(22)+RCT(634)& - &*V(27)+RCT(836) + D_VAR(279) = RCT(103)*V(345)+RCT(929) IF (DO_FUN(280)) & - D_VAR(280) = RCT(645)*V(173)+RCT(647)*V(286)+RCT(656)*V(262)+RCT(658)*V(235)+RCT(666)*V(271)+RCT(671)*V(260)+RCT(702)& - &*V(203)+RCT(706)*V(270)+RCT(710)*V(268) + 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) IF (DO_FUN(281)) & - D_VAR(281) = RCT(42)*V(284)+RCT(43)*V(279)+RCT(44)*V(286)+RCT(45)*V(291)+RCT(49)*V(291)+RCT(50)*V(263)+RCT(52)*V(264)& - &+RCT(74)*V(114)+RCT(81)*V(259)+RCT(94)*V(226)+RCT(114)*V(253)+RCT(117)*V(223)+RCT(118)*V(233)+RCT(130)& - &*V(161)+RCT(145)*2*V(281)+RCT(150)*V(90)+RCT(164)*V(273)+RCT(190)*V(288)+RCT(288)*V(143)+RCT(330)*V(238)& - &+RCT(333)*V(154)+RCT(334)*V(155)+RCT(337)*V(170)+RCT(342)*V(225)+RCT(352)*V(215)+RCT(353)*V(216)+RCT(360)& - &*V(199)+RCT(361)*V(178)+RCT(479)*V(224)+RCT(489)*V(247)+RCT(490)*V(246)+RCT(525)*V(251)+RCT(557)*V(249)& - &+RCT(568)*V(208)+RCT(582)*V(179)+RCT(594)*V(184)+RCT(598)*V(118)+RCT(600)*V(115)+RCT(603)*V(142)+RCT(605)& - &*V(101)+RCT(614)*V(191)+RCT(620)*V(210)+RCT(635)*V(266)+RCT(639)+RCT(640)+RCT(641)+RCT(750)+RCT(751) + D_VAR(281) = RCT(417)*V(337)+RCT(418)*V(346)+RCT(419)*V(351)+RCT(460)*V(328)+RCT(461)*V(324) IF (DO_FUN(282)) & - D_VAR(282) = RCT(1)*V(147)*V(276)+RCT(4)*V(138)*V(276)+RCT(8)*V(276)+RCT(13)*V(279)+RCT(14)*V(286)+RCT(15)*V(284)& - &+RCT(16)*V(291)+RCT(17)*V(266)+RCT(111)*V(253)+RCT(152)*V(273)+RCT(182)*V(288)+RCT(186)*V(272)+RCT(195)& - &*V(177)+RCT(242)*V(290)+RCT(299)*V(269)+RCT(316)*V(234)+RCT(331)*V(154)+RCT(332)*V(155)+RCT(336)*V(170)& - &+RCT(359)*V(199)+RCT(369)*V(224)+RCT(521)*V(248)+RCT(524)*V(251)+RCT(577)*V(76)+RCT(602)*V(142)+RCT(617)& - &*V(160)+RCT(624)*V(159)+RCT(627)*V(148)+RCT(676)*V(289)+RCT(677)*V(283)+RCT(678)*V(277)+RCT(738)+RCT(739) + D_VAR(282) = RCT(48)*V(345)+RCT(324)*V(340) IF (DO_FUN(283)) & - D_VAR(283) = RCT(654)*V(262)+RCT(661)*V(235)+RCT(673)*V(260)+RCT(677)*V(282)+RCT(700)*V(203)+RCT(704)*V(270)+RCT(708)& - &*V(268) + D_VAR(283) = RCT(104)*V(345)+RCT(326)*V(340) IF (DO_FUN(284)) & - D_VAR(284) = RCT(15)*V(282)+RCT(20)*V(286)+RCT(22)*V(279)+RCT(23)*2*V(284)+RCT(28)*V(266)+RCT(39)*V(291)+RCT(42)& - &*V(281)+RCT(85)*V(256)+RCT(86)*V(257)+RCT(87)*V(252)+RCT(88)*V(254)+RCT(89)*V(258)+RCT(90)*V(201)+RCT(105)& - &*V(217)+RCT(106)*V(239)+RCT(107)*V(237)+RCT(108)*V(209)+RCT(109)*V(255)+RCT(153)*V(274)+RCT(154)*V(273)& - &+RCT(185)*V(288)+RCT(196)*V(177)+RCT(245)*V(290)+RCT(246)*V(290)+RCT(248)*V(285)+RCT(300)*V(269)+RCT(304)& - &*V(227)+RCT(327)*V(238)+RCT(339)*V(225)+RCT(346)*V(215)+RCT(347)*V(216)+RCT(374)*V(245)+RCT(375)*V(245)& - &+RCT(376)*V(244)+RCT(377)*V(244)+RCT(418)*V(182)+RCT(422)*V(183)+RCT(426)*V(187)+RCT(434)*V(228)+RCT(441)& - &*V(229)+RCT(442)*V(194)+RCT(447)*V(121)+RCT(449)*V(123)+RCT(461)*V(167)+RCT(465)*V(152)+RCT(470)*V(166)& - &+RCT(473)*V(168)+RCT(476)*V(232)+RCT(480)*V(247)+RCT(481)*V(246)+RCT(507)*V(222)+RCT(508)*V(189)+RCT(516)& - &*V(150)+RCT(519)*V(146)+RCT(532)*V(144)+RCT(535)*V(145)+RCT(543)*V(204)+RCT(546)*V(205)+RCT(547)*V(207)& - &+RCT(554)*V(249)+RCT(571)*V(261)+RCT(575)*V(18)+RCT(580)*V(179)+RCT(592)*V(184)+RCT(606)*V(180)+RCT(615)& - &*V(191)+RCT(629)*V(13)+RCT(631)*V(22)+RCT(633)*V(27)+RCT(637) + 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) IF (DO_FUN(285)) & - D_VAR(285) = RCT(223)*V(266)+RCT(224)*V(286)+RCT(225)*V(286)+RCT(247)*V(288)+RCT(248)*V(284)+RCT(249)*V(279)+RCT(250)& - &*V(291)+RCT(251)*2*V(285)+RCT(252)*2*V(285)+RCT(253)*2*V(285)+RCT(256)*2*V(285)+RCT(259)*V(274)+RCT(260)& - &*V(274)+RCT(261)*V(274)+RCT(298)*V(227)+RCT(792) + D_VAR(285) = RCT(561)+RCT(562)+RCT(563)*V(346)+RCT(564)*V(346)+RCT(565)*V(337) IF (DO_FUN(286)) & - D_VAR(286) = RCT(12)*V(86)*V(276)+RCT(14)*V(282)+RCT(18)*2*V(286)+RCT(19)*2*V(286)+RCT(20)*V(284)+RCT(21)*V(212)& - &+RCT(24)*V(267)+RCT(25)*V(190)+RCT(31)*V(266)+RCT(32)*V(137)+RCT(33)*V(196)+RCT(34)*V(263)+RCT(35)*V(291)& - &+RCT(36)*V(265)+RCT(37)*V(279)+RCT(38)*V(193)+RCT(41)*V(102)+RCT(44)*V(281)+RCT(47)*V(211)+RCT(48)*V(218)& - &+RCT(51)*V(264)+RCT(56)*V(161)+RCT(60)*V(124)+RCT(61)*V(124)+RCT(65)*V(114)+RCT(75)*V(202)+RCT(76)*V(219)& - &+RCT(77)*V(259)+RCT(82)*V(221)+RCT(91)*V(226)+RCT(101)*V(133)+RCT(102)*V(158)+RCT(110)*V(253)+RCT(112)& - &*V(236)+RCT(113)*V(236)+RCT(115)*V(223)+RCT(116)*V(233)+RCT(119)*V(250)+RCT(120)*V(250)+RCT(121)*V(113)& - &+RCT(122)*V(110)+RCT(123)*V(94)+RCT(124)*V(95)+RCT(125)*V(93)+RCT(126)*V(106)+RCT(127)*V(112)+RCT(128)& - &*V(24)+RCT(129)*V(88)+RCT(148)*V(90)+RCT(149)*V(90)+RCT(151)*V(276)+RCT(155)*V(289)+RCT(160)*V(128)& - &+RCT(163)*V(274)+RCT(172)*V(77)+RCT(173)*V(71)+RCT(174)*V(100)+RCT(183)*F(1)+RCT(184)*V(288)+RCT(188)& - &*V(66)+RCT(222)*V(197)+RCT(224)*V(285)+RCT(225)*V(285)+RCT(226)*V(111)+RCT(227)*V(75)+RCT(228)*V(275)& - &+RCT(229)*V(271)+RCT(230)*V(235)+RCT(231)*V(262)+RCT(232)*V(149)+RCT(233)*V(72)+RCT(234)*V(78)+RCT(235)& - &*V(43)+RCT(236)*V(84)+RCT(237)*V(82)+RCT(238)*V(83)+RCT(239)*V(81)+RCT(301)*V(143)+RCT(302)*V(69)+RCT(303)& - &*V(268)+RCT(308)*V(46)+RCT(309)*V(208)+RCT(310)*V(198)+RCT(324)*V(154)+RCT(325)*V(155)+RCT(335)*V(170)& - &+RCT(343)*V(119)+RCT(357)*V(178)+RCT(358)*V(199)+RCT(364)*V(134)+RCT(365)*V(89)+RCT(366)*V(96)+RCT(367)& - &*V(87)+RCT(368)*V(91)+RCT(370)*V(224)+RCT(371)*V(224)+RCT(372)*V(224)+RCT(373)*V(224)+RCT(400)*V(186)& - &+RCT(401)*V(188)+RCT(402)*V(129)+RCT(403)*V(127)+RCT(404)*V(192)+RCT(405)*V(174)+RCT(406)*V(109)+RCT(407)& - &*V(157)+RCT(408)*V(157)+RCT(409)*V(162)+RCT(410)*V(162)+RCT(411)*V(157)+RCT(412)*V(162)+RCT(413)*V(171)& - &+RCT(414)*V(165)+RCT(427)*V(116)+RCT(428)*V(130)+RCT(429)*V(130)+RCT(430)*V(131)+RCT(431)*V(131)+RCT(450)& - &*V(139)+RCT(451)*V(139)+RCT(452)*V(140)+RCT(453)*V(140)+RCT(454)*V(220)+RCT(455)*V(220)+RCT(456)*V(214)& - &+RCT(457)*V(214)+RCT(458)*V(220)+RCT(459)*V(214)+RCT(497)*V(181)+RCT(498)*V(151)+RCT(499)*V(181)+RCT(500)& - &*V(151)+RCT(501)*V(151)+RCT(502)*V(181)+RCT(503)*V(151)+RCT(504)*V(151)+RCT(513)*V(240)+RCT(514)*V(240)& - &+RCT(517)*V(243)+RCT(520)*V(248)+RCT(522)*V(251)+RCT(523)*V(251)+RCT(526)*V(241)+RCT(527)*V(230)+RCT(528)& - &*V(231)+RCT(529)*V(200)+RCT(530)*V(175)+RCT(537)*V(163)+RCT(538)*V(156)+RCT(539)*V(117)+RCT(540)*V(185)& - &+RCT(541)*V(169)+RCT(542)*V(132)+RCT(548)*V(136)+RCT(560)*V(153)+RCT(561)*V(105)+RCT(562)*V(206)+RCT(563)& - &*V(125)+RCT(564)*V(141)+RCT(565)*V(164)+RCT(566)*V(213)+RCT(567)*V(242)+RCT(569)*V(104)+RCT(570)*V(85)& - &+RCT(572)*V(172)+RCT(573)*V(172)+RCT(574)*V(19)+RCT(578)*V(76)+RCT(579)*V(58)+RCT(586)*V(68)+RCT(587)& - &*V(120)+RCT(588)*V(120)+RCT(589)*V(64)+RCT(590)*V(79)+RCT(591)*V(80)+RCT(597)*V(118)+RCT(599)*V(115)& - &+RCT(601)*V(142)+RCT(604)*V(101)+RCT(609)*V(70)+RCT(611)*V(97)+RCT(616)*V(107)+RCT(619)*V(210)+RCT(623)& - &*V(159)+RCT(626)*V(148)+RCT(636)*V(41)+RCT(647)*V(280)+RCT(648)*V(287) + D_VAR(286) = RCT(556)+RCT(557)+RCT(558)*V(337)+RCT(559)*V(346)+RCT(560)*V(346) IF (DO_FUN(287)) & - D_VAR(287) = RCT(646)*V(173)+RCT(648)*V(286)+RCT(657)*V(262)+RCT(659)*V(235)+RCT(667)*V(271)+RCT(672)*V(260)+RCT(703)& - &*V(203)+RCT(707)*V(270)+RCT(711)*V(268) + D_VAR(287) = RCT(652)*V(345)+RCT(1011) IF (DO_FUN(288)) & - D_VAR(288) = RCT(161)*V(260)+RCT(162)*V(289)+RCT(181)*F(3)+RCT(182)*V(282)+RCT(184)*V(286)+RCT(185)*V(284)+RCT(187)& - &*V(66)+RCT(189)*V(291)+RCT(190)*V(281)+RCT(191)*V(279)+RCT(192)*V(291)+RCT(193)*V(212)+RCT(200)*V(274)& - &+RCT(201)*V(263)+RCT(247)*V(285)+RCT(262)*V(262) + D_VAR(288) = RCT(651)*V(345)+RCT(1008) IF (DO_FUN(289)) & - D_VAR(289) = RCT(155)*V(286)+RCT(162)*V(288)+RCT(203)*V(272)+RCT(653)*V(262)+RCT(663)*V(235)+RCT(665)*V(271)+RCT(669)& - &*V(260)+RCT(676)*V(282)+RCT(679)+RCT(680) + 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) IF (DO_FUN(290)) & - D_VAR(290) = RCT(240)*V(190)+RCT(241)*V(263)+RCT(242)*V(282)+RCT(243)*F(1)+RCT(244)*V(212)+RCT(245)*V(284)+RCT(246)& - &*V(284)+RCT(254)*F(3)+RCT(258)*V(103)+RCT(263)*V(262)+RCT(264)*V(149)+RCT(265)*V(72)+RCT(266)*V(78)& - &+RCT(267)*V(211)+RCT(268)*V(266)+RCT(269)*V(137)+RCT(270)*V(161)+RCT(271)*V(217)+RCT(272)*V(239)+RCT(273)& - &*V(218)+RCT(274)*V(133)+RCT(275)*V(219)+RCT(276)*V(124)+RCT(277)*V(124)+RCT(278)*V(221)+RCT(279)*V(224)& - &+RCT(280)*V(114)+RCT(281)*V(253) + D_VAR(290) = RCT(149)*V(345)+RCT(150)*V(341)+RCT(162)*V(351)+RCT(332)*V(340)+RCT(333)*V(342) IF (DO_FUN(291)) & - D_VAR(291) = RCT(16)*V(282)+RCT(35)*V(286)+RCT(39)*V(284)+RCT(45)*V(281)+RCT(49)*V(281)+RCT(53)*V(261)+RCT(78)*V(255)& - &+RCT(146)*V(266)+RCT(170)*V(273)+RCT(171)*V(274)+RCT(189)*V(288)+RCT(192)*V(288)+RCT(199)*V(65)+RCT(250)& - &*V(285)+RCT(285)*V(269)+RCT(289)*V(227)+RCT(313)*V(234)+RCT(320)*V(195)+RCT(533)*V(144)+RCT(536)*V(145)& - &+RCT(553)*V(207)+RCT(556)*V(249)+RCT(608)*V(180)+RCT(612)*V(191)+RCT(618)*V(160)+RCT(638)+RCT(741) + 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) +IF (DO_FUN(292)) & + D_VAR(292) = RCT(122)*V(345)+RCT(131)*V(351)+RCT(906) +IF (DO_FUN(293)) & + D_VAR(293) = RCT(600)*V(337)+RCT(601)*V(346)+RCT(602)*V(346) +IF (DO_FUN(294)) & + D_VAR(294) = RCT(164)*V(345)+RCT(166)*V(351)+RCT(857)+RCT(911) +IF (DO_FUN(295)) & + D_VAR(295) = RCT(111)*V(345)+RCT(218)*V(342)+RCT(329)*V(340)+RCT(904)+RCT(905) +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) +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) +IF (DO_FUN(298)) & + D_VAR(298) = RCT(105)*V(345)+RCT(110)*V(351)+RCT(903) +IF (DO_FUN(299)) & + D_VAR(299) = RCT(641)*V(345)+RCT(876)+RCT(1032) +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) +IF (DO_FUN(301)) & + D_VAR(301) = RCT(637)*V(345)+RCT(638)*V(345)+RCT(1031) +IF (DO_FUN(302)) & + D_VAR(302) = RCT(650)*V(345)+RCT(862)+RCT(1013) +IF (DO_FUN(303)) & + D_VAR(303) = RCT(691)*V(345)+RCT(878)+RCT(1038)+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) +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) +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) +IF (DO_FUN(307)) & + D_VAR(307) = RCT(167)*V(345)+RCT(168)*V(345)+RCT(916) +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) +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) +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) +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) +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) +IF (DO_FUN(313)) & + D_VAR(313) = RCT(96)*V(346)+RCT(118)*V(337)+RCT(136)*V(328)+RCT(184)*V(324) +IF (DO_FUN(314)) & + D_VAR(314) = RCT(644)*V(345)+RCT(645)*V(341)+RCT(912)+RCT(913)+RCT(914) +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) +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) +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) +IF (DO_FUN(318)) & + D_VAR(318) = RCT(95)*V(346)+RCT(115)*V(337)+RCT(133)*V(328)+RCT(187)*V(324) +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) +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) +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) +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) +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) +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) +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) +IF (DO_FUN(326)) & + D_VAR(326) = RCT(51)*V(345)+RCT(52)*V(351)+RCT(217)*V(342)+RCT(897)+RCT(898) +IF (DO_FUN(327)) & + D_VAR(327) = RCT(3)*V(179)+RCT(6)*V(166)+RCT(36)*V(345)+RCT(890) +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) +IF (DO_FUN(329)) & + D_VAR(329) = RCT(24)*V(345)+RCT(362)*V(312)+RCT(369)*V(241) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) Vdot = P_VAR - D_VAR*V @@ -4250,900 +5094,1064 @@ 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(147)*V(276)*V(282) - A(2) = RCT(2)*V(147)*V(275) - A(3) = RCT(3)*V(147)*V(265) - A(4) = RCT(4)*V(138)*V(276)*V(282) - A(5) = RCT(5)*V(138)*V(275) - A(6) = RCT(6)*V(138)*V(265) - A(7) = RCT(7)*V(212)*V(276) - A(8) = RCT(8)*V(276)*V(282) - A(9) = RCT(9)*V(276) - A(10) = RCT(10)*V(263)*V(276) - A(11) = RCT(11)*V(86) - A(12) = RCT(12)*V(86)*V(276)*V(286) - A(13) = RCT(13)*V(279)*V(282) - A(14) = RCT(14)*V(282)*V(286) - A(15) = RCT(15)*V(282)*V(284) - A(16) = RCT(16)*V(282)*V(291) - A(17) = RCT(17)*V(266)*V(282) - A(18) = RCT(18)*V(286)*V(286) - A(19) = RCT(19)*V(286)*V(286) - A(20) = RCT(20)*V(284)*V(286) - A(21) = RCT(21)*V(212)*V(286) - A(22) = RCT(22)*V(279)*V(284) - A(23) = RCT(23)*V(284)*V(284) - A(24) = RCT(24)*V(267)*V(286) - A(25) = RCT(25)*V(190)*V(286) - A(26) = RCT(26)*V(266)*V(279) - A(27) = RCT(27)*V(266)*V(279) - A(28) = RCT(28)*V(266)*V(284) - A(29) = RCT(29)*V(266)*V(266) - A(30) = RCT(30)*V(266)*V(266) - A(31) = RCT(31)*V(266)*V(286) - A(32) = RCT(32)*V(137)*V(286) - A(33) = RCT(33)*V(196)*V(286) - A(34) = RCT(34)*V(263)*V(286) - A(35) = RCT(35)*V(286)*V(291) - A(36) = RCT(36)*V(265)*V(286) - A(37) = RCT(37)*V(279)*V(286) - A(38) = RCT(38)*V(193)*V(286) - A(39) = RCT(39)*V(284)*V(291) - A(40) = RCT(40)*V(102) - A(41) = RCT(41)*V(102)*V(286) - A(42) = RCT(42)*V(281)*V(284) - A(43) = RCT(43)*V(279)*V(281) - A(44) = RCT(44)*V(281)*V(286) - A(45) = RCT(45)*V(281)*V(291) - A(46) = RCT(46)*V(173) - A(47) = RCT(47)*V(211)*V(286) - A(48) = RCT(48)*V(218)*V(286) - A(49) = RCT(49)*V(281)*V(291) - A(50) = RCT(50)*V(263)*V(281) - A(51) = RCT(51)*V(264)*V(286) - A(52) = RCT(52)*V(264)*V(281) - A(53) = RCT(53)*V(261)*V(291) - A(54) = RCT(54)*V(67) - A(55) = RCT(55)*V(261)*V(279) - A(56) = RCT(56)*V(161)*V(286) - A(57) = RCT(57)*V(217)*V(279) - A(58) = RCT(58)*V(217)*V(279) - A(59) = RCT(59)*V(239)*V(279) - A(60) = RCT(60)*V(124)*V(286) - A(61) = RCT(61)*V(124)*V(286) - A(62) = RCT(62)*V(237)*V(279) - A(63) = RCT(63)*V(237)*V(279) - A(64) = RCT(64)*V(209)*V(279) - A(65) = RCT(65)*V(114)*V(286) - A(66) = RCT(66)*V(256)*V(279) - A(67) = RCT(67)*V(256)*V(279) - A(68) = RCT(68)*V(257)*V(279) - A(69) = RCT(69)*V(252)*V(279) - A(70) = RCT(70)*V(254)*V(279) - A(71) = RCT(71)*V(258)*V(279) - A(72) = RCT(72)*V(258)*V(279) - A(73) = RCT(73)*V(201)*V(279) - A(74) = RCT(74)*V(114)*V(281) - A(75) = RCT(75)*V(202)*V(286) - A(76) = RCT(76)*V(219)*V(286) - A(77) = RCT(77)*V(259)*V(286) - A(78) = RCT(78)*V(255)*V(291) - A(79) = RCT(79)*V(50) - A(80) = RCT(80)*V(255)*V(279) - A(81) = RCT(81)*V(259)*V(281) - A(82) = RCT(82)*V(221)*V(286) - A(83) = RCT(83)*V(237)*V(266) - A(84) = RCT(84)*V(209)*V(266) - A(85) = RCT(85)*V(256)*V(284) - A(86) = RCT(86)*V(257)*V(284) - A(87) = RCT(87)*V(252)*V(284) - A(88) = RCT(88)*V(254)*V(284) - A(89) = RCT(89)*V(258)*V(284) - A(90) = RCT(90)*V(201)*V(284) - A(91) = RCT(91)*V(226)*V(286) - A(92) = RCT(92)*V(217)*V(266) - A(93) = RCT(93)*V(239)*V(266) - A(94) = RCT(94)*V(226)*V(281) - A(95) = RCT(95)*V(256)*V(266) - A(96) = RCT(96)*V(257)*V(266) - A(97) = RCT(97)*V(252)*V(266) - A(98) = RCT(98)*V(254)*V(266) - A(99) = RCT(99)*V(258)*V(266) - A(100) = RCT(100)*V(201)*V(266) - A(101) = RCT(101)*V(133)*V(286) - A(102) = RCT(102)*V(158)*V(286) - A(103) = RCT(103)*V(217)*V(217) - A(104) = RCT(104)*V(239)*V(239) - A(105) = RCT(105)*V(217)*V(284) - A(106) = RCT(106)*V(239)*V(284) - A(107) = RCT(107)*V(237)*V(284) - A(108) = RCT(108)*V(209)*V(284) - A(109) = RCT(109)*V(255)*V(284) - A(110) = RCT(110)*V(253)*V(286) - A(111) = RCT(111)*V(253)*V(282) - A(112) = RCT(112)*V(236)*V(286) - A(113) = RCT(113)*V(236)*V(286) - A(114) = RCT(114)*V(253)*V(281) - A(115) = RCT(115)*V(223)*V(286) - A(116) = RCT(116)*V(233)*V(286) - A(117) = RCT(117)*V(223)*V(281) - A(118) = RCT(118)*V(233)*V(281) - A(119) = RCT(119)*V(250)*V(286) - A(120) = RCT(120)*V(250)*V(286) - A(121) = RCT(121)*V(113)*V(286) - A(122) = RCT(122)*V(110)*V(286) - A(123) = RCT(123)*V(94)*V(286) - A(124) = RCT(124)*V(95)*V(286) - A(125) = RCT(125)*V(93)*V(286) - A(126) = RCT(126)*V(106)*V(286) - A(127) = RCT(127)*V(112)*V(286) - A(128) = RCT(128)*V(24)*V(286) - A(129) = RCT(129)*V(88)*V(286) - A(130) = RCT(130)*V(161)*V(281) - A(131) = RCT(131)*V(261)*V(261) - A(132) = RCT(132)*V(261)*V(266) - A(133) = RCT(133)*V(256)*V(261) - A(134) = RCT(134)*V(252)*V(261) - A(135) = RCT(135)*V(254)*V(261) - A(136) = RCT(136)*V(258)*V(261) - A(137) = RCT(137)*V(257)*V(261) - A(138) = RCT(138)*V(201)*V(261) - A(139) = RCT(139)*V(217)*V(261) - A(140) = RCT(140)*V(239)*V(261) - A(141) = RCT(141)*V(209)*V(261) - A(142) = RCT(142)*V(237)*V(261) - A(143) = RCT(143)*V(255)*V(261) - A(144) = RCT(144)*V(255)*V(266) - A(145) = RCT(145)*V(281)*V(281) - A(146) = RCT(146)*V(266)*V(291) - A(147) = RCT(147)*V(74) - A(148) = RCT(148)*V(90)*V(286) - A(149) = RCT(149)*V(90)*V(286) - A(150) = RCT(150)*V(90)*V(281) - A(151) = RCT(151)*V(276)*V(286) - A(152) = RCT(152)*V(273)*V(282) - A(153) = RCT(153)*V(274)*V(284) - A(154) = RCT(154)*V(273)*V(284) - A(155) = RCT(155)*V(286)*V(289) - A(156) = RCT(156)*V(274)*V(274) - A(157) = RCT(157)*V(274)*V(274) - A(158) = RCT(158)*V(274)*V(279) - A(159) = RCT(159)*V(176)*V(273) - A(160) = RCT(160)*V(128)*V(286) - A(161) = RCT(161)*V(260)*V(288) - A(162) = RCT(162)*V(288)*V(289) - A(163) = RCT(163)*V(274)*V(286) - A(164) = RCT(164)*V(273)*V(281) - A(165) = RCT(165)*V(263)*V(273) - A(166) = RCT(166)*V(264)*V(273) - A(167) = RCT(167)*V(221)*V(273) - A(168) = RCT(168)*V(161)*V(273) - A(169) = RCT(169)*V(124)*V(273) - A(170) = RCT(170)*V(273)*V(291) - A(171) = RCT(171)*V(274)*V(291) - A(172) = RCT(172)*V(77)*V(286) - A(173) = RCT(173)*V(71)*V(286) - A(174) = RCT(174)*V(100)*V(286) - A(175) = RCT(175)*V(272)*V(278) - A(176) = RCT(176)*V(272)*F(2) - A(177) = RCT(177)*V(272)*F(3) - A(178) = RCT(178)*V(272)*F(1) - A(179) = RCT(179)*V(61)*V(272) - A(180) = RCT(180)*V(190)*V(272) - A(181) = RCT(181)*V(288)*F(3) - A(182) = RCT(182)*V(282)*V(288) - A(183) = RCT(183)*V(286)*F(1) - A(184) = RCT(184)*V(286)*V(288) - A(185) = RCT(185)*V(284)*V(288) - A(186) = RCT(186)*V(272)*V(282) - A(187) = RCT(187)*V(66)*V(288) - A(188) = RCT(188)*V(66)*V(286) - A(189) = RCT(189)*V(288)*V(291) - A(190) = RCT(190)*V(281)*V(288) - A(191) = RCT(191)*V(279)*V(288) - A(192) = RCT(192)*V(288)*V(291) - A(193) = RCT(193)*V(212)*V(288) - A(194) = RCT(194)*V(177)*F(3) - A(195) = RCT(195)*V(177)*V(282) - A(196) = RCT(196)*V(177)*V(284) - A(197) = RCT(197)*V(65)*F(3) - A(198) = RCT(198)*V(65)*V(279) - A(199) = RCT(199)*V(65)*V(291) - A(200) = RCT(200)*V(274)*V(288) - A(201) = RCT(201)*V(263)*V(288) - A(202) = RCT(202)*V(272)*V(275) - A(203) = RCT(203)*V(272)*V(289) - A(204) = RCT(204)*V(197)*V(272) - A(205) = RCT(205)*V(52)*V(272) - A(206) = RCT(206)*V(149)*V(272) - A(207) = RCT(207)*V(100)*V(272) - A(208) = RCT(208)*V(71)*V(272) - A(209) = RCT(209)*V(77)*V(272) - A(210) = RCT(210)*V(84)*V(272) - A(211) = RCT(211)*V(53)*V(272) - A(212) = RCT(212)*V(54)*V(272) - A(213) = RCT(213)*V(59)*V(272) - A(214) = RCT(214)*V(47)*V(272) - A(215) = RCT(215)*V(82)*V(272) - A(216) = RCT(216)*V(83)*V(272) - A(217) = RCT(217)*V(81)*V(272) - A(218) = RCT(218)*V(55)*V(272) - A(219) = RCT(219)*V(56)*V(272) - A(220) = RCT(220)*V(57)*V(272) - A(221) = RCT(221)*V(48)*V(272) - A(222) = RCT(222)*V(197)*V(286) - A(223) = RCT(223)*V(266)*V(285) - A(224) = RCT(224)*V(285)*V(286) - A(225) = RCT(225)*V(285)*V(286) - A(226) = RCT(226)*V(111)*V(286) - A(227) = RCT(227)*V(75)*V(286) - A(228) = RCT(228)*V(275)*V(286) - A(229) = RCT(229)*V(271)*V(286) - A(230) = RCT(230)*V(235)*V(286) - A(231) = RCT(231)*V(262)*V(286) - A(232) = RCT(232)*V(149)*V(286) - A(233) = RCT(233)*V(72)*V(286) - A(234) = RCT(234)*V(78)*V(286) - A(235) = RCT(235)*V(43)*V(286) - A(236) = RCT(236)*V(84)*V(286) - A(237) = RCT(237)*V(82)*V(286) - A(238) = RCT(238)*V(83)*V(286) - A(239) = RCT(239)*V(81)*V(286) - A(240) = RCT(240)*V(190)*V(290) - A(241) = RCT(241)*V(263)*V(290) - A(242) = RCT(242)*V(282)*V(290) - A(243) = RCT(243)*V(290)*F(1) - A(244) = RCT(244)*V(212)*V(290) - A(245) = RCT(245)*V(284)*V(290) - A(246) = RCT(246)*V(284)*V(290) - A(247) = RCT(247)*V(285)*V(288) - A(248) = RCT(248)*V(284)*V(285) - A(249) = RCT(249)*V(279)*V(285) - A(250) = RCT(250)*V(285)*V(291) - A(251) = RCT(251)*V(285)*V(285) - A(252) = RCT(252)*V(285)*V(285) - A(253) = RCT(253)*V(285)*V(285) - A(254) = RCT(254)*V(290)*F(3) - A(255) = RCT(255)*V(103) - A(256) = RCT(256)*V(285)*V(285) - A(257) = RCT(257)*V(75) - A(258) = RCT(258)*V(103)*V(290) - A(259) = RCT(259)*V(274)*V(285) - A(260) = RCT(260)*V(274)*V(285) - A(261) = RCT(261)*V(274)*V(285) - A(262) = RCT(262)*V(262)*V(288) - A(263) = RCT(263)*V(262)*V(290) - A(264) = RCT(264)*V(149)*V(290) - A(265) = RCT(265)*V(72)*V(290) - A(266) = RCT(266)*V(78)*V(290) - A(267) = RCT(267)*V(211)*V(290) - A(268) = RCT(268)*V(266)*V(290) - A(269) = RCT(269)*V(137)*V(290) - A(270) = RCT(270)*V(161)*V(290) - A(271) = RCT(271)*V(217)*V(290) - A(272) = RCT(272)*V(239)*V(290) - A(273) = RCT(273)*V(218)*V(290) - A(274) = RCT(274)*V(133)*V(290) - A(275) = RCT(275)*V(219)*V(290) - A(276) = RCT(276)*V(124)*V(290) - A(277) = RCT(277)*V(124)*V(290) - A(278) = RCT(278)*V(221)*V(290) - A(279) = RCT(279)*V(224)*V(290) - A(280) = RCT(280)*V(114)*V(290) - A(281) = RCT(281)*V(253)*V(290) - A(282) = RCT(282)*V(253)*V(273) - A(283) = RCT(283)*V(269)*V(279) - A(284) = RCT(284)*V(60)*V(60) - A(285) = RCT(285)*V(269)*V(291) - A(286) = RCT(286)*V(203) - A(287) = RCT(287)*V(203)*V(203) - A(288) = RCT(288)*V(143)*V(281) - A(289) = RCT(289)*V(227)*V(291) - A(290) = RCT(290)*V(270) - A(291) = RCT(291)*V(269)*V(270) - A(292) = RCT(292)*V(269)*V(274) - A(293) = RCT(293)*V(227)*V(274) - A(294) = RCT(294)*V(92)*V(227) - A(295) = RCT(295)*V(92)*V(92) - A(296) = RCT(296)*V(42) - A(297) = RCT(297)*V(92)*V(279) - A(298) = RCT(298)*V(227)*V(285) - A(299) = RCT(299)*V(269)*V(282) - A(300) = RCT(300)*V(269)*V(284) - A(301) = RCT(301)*V(143)*V(286) - A(302) = RCT(302)*V(69)*V(286) - A(303) = RCT(303)*V(268)*V(286) - A(304) = RCT(304)*V(227)*V(284) - A(305) = RCT(305)*V(227)*V(279) - A(306) = RCT(306)*V(227)*V(227) - A(307) = RCT(307)*V(44) - A(308) = RCT(308)*V(46)*V(286) - A(309) = RCT(309)*V(208)*V(286) - A(310) = RCT(310)*V(198)*V(286) - A(311) = RCT(311)*V(234)*V(267) - A(312) = RCT(312)*V(234)*V(279) - A(313) = RCT(313)*V(234)*V(291) - A(314) = RCT(314)*V(234)*V(278) - A(315) = RCT(315)*V(234)*V(278)*V(278) - A(316) = RCT(316)*V(234)*V(282) - A(317) = RCT(317)*V(234)*V(276) - A(318) = RCT(318)*V(195)*V(267) - A(319) = RCT(319)*V(195)*V(279) - A(320) = RCT(320)*V(195)*V(291) - A(321) = RCT(321)*V(195)*V(276) - A(322) = RCT(322)*V(195)*V(278) - A(323) = RCT(323)*V(195)*V(278) - A(324) = RCT(324)*V(154)*V(286) - A(325) = RCT(325)*V(155)*V(286) - A(326) = RCT(326)*V(238)*V(279) - A(327) = RCT(327)*V(238)*V(284) - A(328) = RCT(328)*V(238)*V(266) - A(329) = RCT(329)*V(238)*V(261) - A(330) = RCT(330)*V(238)*V(281) - A(331) = RCT(331)*V(154)*V(282) - A(332) = RCT(332)*V(155)*V(282) - A(333) = RCT(333)*V(154)*V(281) - A(334) = RCT(334)*V(155)*V(281) - A(335) = RCT(335)*V(170)*V(286) - A(336) = RCT(336)*V(170)*V(282) - A(337) = RCT(337)*V(170)*V(281) - A(338) = RCT(338)*V(225)*V(279) - A(339) = RCT(339)*V(225)*V(284) - A(340) = RCT(340)*V(225)*V(266) - A(341) = RCT(341)*V(225)*V(261) - A(342) = RCT(342)*V(225)*V(281) - A(343) = RCT(343)*V(119)*V(286) - A(344) = RCT(344)*V(215)*V(279) - A(345) = RCT(345)*V(216)*V(279) - A(346) = RCT(346)*V(215)*V(284) - A(347) = RCT(347)*V(216)*V(284) - A(348) = RCT(348)*V(215)*V(266) - A(349) = RCT(349)*V(216)*V(266) - A(350) = RCT(350)*V(215)*V(261) - A(351) = RCT(351)*V(216)*V(261) - A(352) = RCT(352)*V(215)*V(281) - A(353) = RCT(353)*V(216)*V(281) - A(354) = RCT(354)*V(215)*V(215) - A(355) = RCT(355)*V(215)*V(216) - A(356) = RCT(356)*V(216)*V(216) - A(357) = RCT(357)*V(178)*V(286) - A(358) = RCT(358)*V(199)*V(286) - A(359) = RCT(359)*V(199)*V(282) - A(360) = RCT(360)*V(199)*V(281) - A(361) = RCT(361)*V(178)*V(281) - A(362) = RCT(362)*V(98) - A(363) = RCT(363)*V(45) - A(364) = RCT(364)*V(134)*V(286) - A(365) = RCT(365)*V(89)*V(286) - A(366) = RCT(366)*V(96)*V(286) - A(367) = RCT(367)*V(87)*V(286) - A(368) = RCT(368)*V(91)*V(286) - A(369) = RCT(369)*V(224)*V(282) - A(370) = RCT(370)*V(224)*V(286) - A(371) = RCT(371)*V(224)*V(286) - A(372) = RCT(372)*V(224)*V(286) - A(373) = RCT(373)*V(224)*V(286) - A(374) = RCT(374)*V(245)*V(284) - A(375) = RCT(375)*V(245)*V(284) - A(376) = RCT(376)*V(244)*V(284) - A(377) = RCT(377)*V(244)*V(284) - A(378) = RCT(378)*V(245) - A(379) = RCT(379)*V(245) - A(380) = RCT(380)*V(244) - A(381) = RCT(381)*V(244) - A(382) = RCT(382)*V(245)*V(245) - A(383) = RCT(383)*V(244)*V(244) - A(384) = RCT(384)*V(244)*V(245) - A(385) = RCT(385)*V(245)*V(245) - A(386) = RCT(386)*V(244)*V(244) - A(387) = RCT(387)*V(244)*V(245) - A(388) = RCT(388)*V(245)*V(266) - A(389) = RCT(389)*V(245)*V(266) - A(390) = RCT(390)*V(244)*V(266) - A(391) = RCT(391)*V(244)*V(266) - A(392) = RCT(392)*V(245)*V(279) - A(393) = RCT(393)*V(245)*V(279) - A(394) = RCT(394)*V(245)*V(279) - A(395) = RCT(395)*V(245)*V(279) - A(396) = RCT(396)*V(244)*V(279) - A(397) = RCT(397)*V(244)*V(279) - A(398) = RCT(398)*V(244)*V(279) - A(399) = RCT(399)*V(244)*V(279) - A(400) = RCT(400)*V(186)*V(286) - A(401) = RCT(401)*V(188)*V(286) - A(402) = RCT(402)*V(129)*V(286) - A(403) = RCT(403)*V(127)*V(286) - A(404) = RCT(404)*V(192)*V(286) - A(405) = RCT(405)*V(174)*V(286) - A(406) = RCT(406)*V(109)*V(286) - A(407) = RCT(407)*V(157)*V(286) - A(408) = RCT(408)*V(157)*V(286) - A(409) = RCT(409)*V(162)*V(286) - A(410) = RCT(410)*V(162)*V(286) - A(411) = RCT(411)*V(157)*V(286) - A(412) = RCT(412)*V(162)*V(286) - A(413) = RCT(413)*V(171)*V(286) - A(414) = RCT(414)*V(165)*V(286) - A(415) = RCT(415)*V(182) - A(416) = RCT(416)*V(182)*V(279) - A(417) = RCT(417)*V(182)*V(279) - A(418) = RCT(418)*V(182)*V(284) - A(419) = RCT(419)*V(183) - A(420) = RCT(420)*V(183)*V(279) - A(421) = RCT(421)*V(183)*V(279) - A(422) = RCT(422)*V(183)*V(284) - A(423) = RCT(423)*V(187) - A(424) = RCT(424)*V(187)*V(279) - A(425) = RCT(425)*V(187)*V(279) - A(426) = RCT(426)*V(187)*V(284) - A(427) = RCT(427)*V(116)*V(286) - A(428) = RCT(428)*V(130)*V(286) - A(429) = RCT(429)*V(130)*V(286) - A(430) = RCT(430)*V(131)*V(286) - A(431) = RCT(431)*V(131)*V(286) - A(432) = RCT(432)*V(228) - A(433) = RCT(433)*V(228) - A(434) = RCT(434)*V(228)*V(284) - A(435) = RCT(435)*V(228)*V(279) - A(436) = RCT(436)*V(228)*V(279) - A(437) = RCT(437)*V(229) - A(438) = RCT(438)*V(229) - A(439) = RCT(439)*V(229)*V(279) - A(440) = RCT(440)*V(229)*V(279) - A(441) = RCT(441)*V(229)*V(284) - A(442) = RCT(442)*V(194)*V(284) - A(443) = RCT(443)*V(194)*V(279) - A(444) = RCT(444)*V(194)*V(279) - A(445) = RCT(445)*V(194) - A(446) = RCT(446)*V(121)*V(279) - A(447) = RCT(447)*V(121)*V(284) - A(448) = RCT(448)*V(123)*V(279) - A(449) = RCT(449)*V(123)*V(284) - A(450) = RCT(450)*V(139)*V(286) - A(451) = RCT(451)*V(139)*V(286) - A(452) = RCT(452)*V(140)*V(286) - A(453) = RCT(453)*V(140)*V(286) - A(454) = RCT(454)*V(220)*V(286) - A(455) = RCT(455)*V(220)*V(286) - A(456) = RCT(456)*V(214)*V(286) - A(457) = RCT(457)*V(214)*V(286) - A(458) = RCT(458)*V(220)*V(286) - A(459) = RCT(459)*V(214)*V(286) - A(460) = RCT(460)*V(167) - A(461) = RCT(461)*V(167)*V(284) - A(462) = RCT(462)*V(167)*V(279) - A(463) = RCT(463)*V(167)*V(279) - A(464) = RCT(464)*V(152) - A(465) = RCT(465)*V(152)*V(284) - A(466) = RCT(466)*V(152)*V(279) - A(467) = RCT(467)*V(152)*V(279) - A(468) = RCT(468)*V(166) - A(469) = RCT(469)*V(168) - A(470) = RCT(470)*V(166)*V(284) - A(471) = RCT(471)*V(166)*V(279) - A(472) = RCT(472)*V(166)*V(279) - A(473) = RCT(473)*V(168)*V(284) - A(474) = RCT(474)*V(168)*V(279) - A(475) = RCT(475)*V(168)*V(279) - A(476) = RCT(476)*V(232)*V(284) - A(477) = RCT(477)*V(232)*V(279) - A(478) = RCT(478)*V(232)*V(279) - A(479) = RCT(479)*V(224)*V(281) - A(480) = RCT(480)*V(247)*V(284) - A(481) = RCT(481)*V(246)*V(284) - A(482) = RCT(482)*V(247)*V(247) - A(483) = RCT(483)*V(246)*V(247) - A(484) = RCT(484)*V(246)*V(246) - A(485) = RCT(485)*V(246)*V(266) - A(486) = RCT(486)*V(247)*V(266) - A(487) = RCT(487)*V(247)*V(261) - A(488) = RCT(488)*V(246)*V(261) - A(489) = RCT(489)*V(247)*V(281) - A(490) = RCT(490)*V(246)*V(281) - A(491) = RCT(491)*V(247)*V(279) - A(492) = RCT(492)*V(247)*V(279) - A(493) = RCT(493)*V(246)*V(279) - A(494) = RCT(494)*V(246)*V(279) - A(495) = RCT(495)*V(126)*F(3) - A(496) = RCT(496)*V(126) - A(497) = RCT(497)*V(181)*V(286) - A(498) = RCT(498)*V(151)*V(286) - A(499) = RCT(499)*V(181)*V(286) - A(500) = RCT(500)*V(151)*V(286) - A(501) = RCT(501)*V(151)*V(286) - A(502) = RCT(502)*V(181)*V(286) - A(503) = RCT(503)*V(151)*V(286) - A(504) = RCT(504)*V(151)*V(286) - A(505) = RCT(505)*V(189) - A(506) = RCT(506)*V(222) - A(507) = RCT(507)*V(222)*V(284) - A(508) = RCT(508)*V(189)*V(284) - A(509) = RCT(509)*V(222)*V(279) - A(510) = RCT(510)*V(222)*V(279) - A(511) = RCT(511)*V(189)*V(279) - A(512) = RCT(512)*V(189)*V(279) - A(513) = RCT(513)*V(240)*V(286) - A(514) = RCT(514)*V(240)*V(286) - A(515) = RCT(515)*V(150)*V(279) - A(516) = RCT(516)*V(150)*V(284) - A(517) = RCT(517)*V(243)*V(286) - A(518) = RCT(518)*V(146)*V(279) - A(519) = RCT(519)*V(146)*V(284) - A(520) = RCT(520)*V(248)*V(286) - A(521) = RCT(521)*V(248)*V(282) - A(522) = RCT(522)*V(251)*V(286) - A(523) = RCT(523)*V(251)*V(286) - A(524) = RCT(524)*V(251)*V(282) - A(525) = RCT(525)*V(251)*V(281) - A(526) = RCT(526)*V(241)*V(286) - A(527) = RCT(527)*V(230)*V(286) - A(528) = RCT(528)*V(231)*V(286) - A(529) = RCT(529)*V(200)*V(286) - A(530) = RCT(530)*V(175)*V(286) - A(531) = RCT(531)*V(144)*V(279) - A(532) = RCT(532)*V(144)*V(284) - A(533) = RCT(533)*V(144)*V(291) - A(534) = RCT(534)*V(145)*V(279) - A(535) = RCT(535)*V(145)*V(284) - A(536) = RCT(536)*V(145)*V(291) - A(537) = RCT(537)*V(163)*V(286) - A(538) = RCT(538)*V(156)*V(286) - A(539) = RCT(539)*V(117)*V(286) - A(540) = RCT(540)*V(185)*V(286) - A(541) = RCT(541)*V(169)*V(286) - A(542) = RCT(542)*V(132)*V(286) - A(543) = RCT(543)*V(204)*V(284) - A(544) = RCT(544)*V(204)*V(279) - A(545) = RCT(545)*V(204)*V(279) - A(546) = RCT(546)*V(205)*V(284) - A(547) = RCT(547)*V(207)*V(284) - A(548) = RCT(548)*V(136)*V(286) - A(549) = RCT(549)*V(205) - A(550) = RCT(550)*V(205)*V(279) - A(551) = RCT(551)*V(205)*V(279) - A(552) = RCT(552)*V(207)*V(279) - A(553) = RCT(553)*V(207)*V(291) - A(554) = RCT(554)*V(249)*V(284) - A(555) = RCT(555)*V(249)*V(279) - A(556) = RCT(556)*V(249)*V(291) - A(557) = RCT(557)*V(249)*V(281) - A(558) = RCT(558)*V(249)*V(266) - A(559) = RCT(559)*V(153) - A(560) = RCT(560)*V(153)*V(286) - A(561) = RCT(561)*V(105)*V(286) - A(562) = RCT(562)*V(206)*V(286) - A(563) = RCT(563)*V(125)*V(286) - A(564) = RCT(564)*V(141)*V(286) - A(565) = RCT(565)*V(164)*V(286) - A(566) = RCT(566)*V(213)*V(286) - A(567) = RCT(567)*V(242)*V(286) - A(568) = RCT(568)*V(208)*V(281) - A(569) = RCT(569)*V(104)*V(286) - A(570) = RCT(570)*V(85)*V(286) - A(571) = RCT(571)*V(261)*V(284) - A(572) = RCT(572)*V(172)*V(286) - A(573) = RCT(573)*V(172)*V(286) - A(574) = RCT(574)*V(19)*V(286) - A(575) = RCT(575)*V(18)*V(284) - A(576) = RCT(576)*V(18)*V(279) - A(577) = RCT(577)*V(76)*V(282) - A(578) = RCT(578)*V(76)*V(286) - A(579) = RCT(579)*V(58)*V(286) - A(580) = RCT(580)*V(179)*V(284) - A(581) = RCT(581)*V(179)*V(279) - A(582) = RCT(582)*V(179)*V(281) - A(583) = RCT(583)*V(179)*V(266) - A(584) = RCT(584)*V(108) - A(585) = RCT(585)*V(108)*F(3) - A(586) = RCT(586)*V(68)*V(286) - A(587) = RCT(587)*V(120)*V(286) - A(588) = RCT(588)*V(120)*V(286) - A(589) = RCT(589)*V(64)*V(286) - A(590) = RCT(590)*V(79)*V(286) - A(591) = RCT(591)*V(80)*V(286) - A(592) = RCT(592)*V(184)*V(284) - A(593) = RCT(593)*V(184)*V(279) - A(594) = RCT(594)*V(184)*V(281) - A(595) = RCT(595)*V(184)*V(266) - A(596) = RCT(596)*V(184)*V(261) - A(597) = RCT(597)*V(118)*V(286) - A(598) = RCT(598)*V(118)*V(281) - A(599) = RCT(599)*V(115)*V(286) - A(600) = RCT(600)*V(115)*V(281) - A(601) = RCT(601)*V(142)*V(286) - A(602) = RCT(602)*V(142)*V(282) - A(603) = RCT(603)*V(142)*V(281) - A(604) = RCT(604)*V(101)*V(286) - A(605) = RCT(605)*V(101)*V(281) - A(606) = RCT(606)*V(180)*V(284) - A(607) = RCT(607)*V(180)*V(279) - A(608) = RCT(608)*V(180)*V(291) - A(609) = RCT(609)*V(70)*V(286) - A(610) = RCT(610)*V(97) - A(611) = RCT(611)*V(97)*V(286) - A(612) = RCT(612)*V(191)*V(291) - A(613) = RCT(613)*V(191)*V(279) - A(614) = RCT(614)*V(191)*V(281) - A(615) = RCT(615)*V(191)*V(284) - A(616) = RCT(616)*V(107)*V(286) - A(617) = RCT(617)*V(160)*V(282) - A(618) = RCT(618)*V(160)*V(291) - A(619) = RCT(619)*V(210)*V(286) - A(620) = RCT(620)*V(210)*V(281) - A(621) = RCT(621)*V(191)*V(266) - A(622) = RCT(622)*V(180)*V(266) - A(623) = RCT(623)*V(159)*V(286) - A(624) = RCT(624)*V(159)*V(282) - A(625) = RCT(625)*V(159) - A(626) = RCT(626)*V(148)*V(286) - A(627) = RCT(627)*V(148)*V(282) - A(628) = RCT(628)*V(148) - A(629) = RCT(629)*V(13)*V(284) - A(630) = RCT(630)*V(13)*V(279) - A(631) = RCT(631)*V(22)*V(284) - A(632) = RCT(632)*V(22)*V(279) - A(633) = RCT(633)*V(27)*V(284) - A(634) = RCT(634)*V(27)*V(279) - A(635) = RCT(635)*V(266)*V(281) - A(636) = RCT(636)*V(41)*V(286) - A(637) = RCT(637)*V(284) - A(638) = RCT(638)*V(291) - A(639) = RCT(639)*V(281) - A(640) = RCT(640)*V(281) - A(641) = RCT(641)*V(281) - A(642) = RCT(642)*V(173)*V(278) - A(643) = RCT(643)*V(173)*V(275) - A(644) = RCT(644)*V(173) - A(645) = RCT(645)*V(173)*V(280) - A(646) = RCT(646)*V(173)*V(287) - A(647) = RCT(647)*V(280)*V(286) - A(648) = RCT(648)*V(286)*V(287) - A(649) = RCT(649)*V(176)*V(278) - A(650) = RCT(650)*V(176)*V(275) - A(651) = RCT(651)*V(262)*V(278) - A(652) = RCT(652)*V(262)*V(275) - A(653) = RCT(653)*V(262)*V(289) - A(654) = RCT(654)*V(262)*V(283) - A(655) = RCT(655)*V(262)*V(277) - A(656) = RCT(656)*V(262)*V(280) - A(657) = RCT(657)*V(262)*V(287) - A(658) = RCT(658)*V(235)*V(280) - A(659) = RCT(659)*V(235)*V(287) - A(660) = RCT(660)*V(235)*V(275) - A(661) = RCT(661)*V(235)*V(283) - A(662) = RCT(662)*V(235)*V(277) - A(663) = RCT(663)*V(235)*V(289) - A(664) = RCT(664)*V(271)*V(275) - A(665) = RCT(665)*V(271)*V(289) - A(666) = RCT(666)*V(271)*V(280) - A(667) = RCT(667)*V(271)*V(287) - A(668) = RCT(668)*V(271)*V(276) - A(669) = RCT(669)*V(260)*V(289) - A(670) = RCT(670)*V(260)*V(275) - A(671) = RCT(671)*V(260)*V(280) - A(672) = RCT(672)*V(260)*V(287) - A(673) = RCT(673)*V(260)*V(283) - A(674) = RCT(674)*V(260)*V(277) - A(675) = RCT(675)*V(260)*V(276) - A(676) = RCT(676)*V(282)*V(289) - A(677) = RCT(677)*V(282)*V(283) - A(678) = RCT(678)*V(277)*V(282) - A(679) = RCT(679)*V(289) - A(680) = RCT(680)*V(289) - A(681) = RCT(681)*V(69) - A(682) = RCT(682)*V(69) - A(683) = RCT(683)*V(69) - A(684) = RCT(684)*V(268) - A(685) = RCT(685)*V(268) - A(686) = RCT(686)*V(44) - A(687) = RCT(687)*V(44) - A(688) = RCT(688)*V(44) - A(689) = RCT(689)*V(49) - A(690) = RCT(690)*V(49) - A(691) = RCT(691)*V(49) - A(692) = RCT(692)*V(42) - A(693) = RCT(693)*V(42) - A(694) = RCT(694)*V(42) - A(695) = RCT(695)*V(203) - A(696) = RCT(696)*V(203) - A(697) = RCT(697)*V(270) - A(698) = RCT(698)*V(270) - A(699) = RCT(699)*V(270)*V(278) - A(700) = RCT(700)*V(203)*V(283) - A(701) = RCT(701)*V(203)*V(277) - A(702) = RCT(702)*V(203)*V(280) - A(703) = RCT(703)*V(203)*V(287) - A(704) = RCT(704)*V(270)*V(283) - A(705) = RCT(705)*V(270)*V(277) - A(706) = RCT(706)*V(270)*V(280) - A(707) = RCT(707)*V(270)*V(287) - A(708) = RCT(708)*V(268)*V(283) - A(709) = RCT(709)*V(268)*V(277) - A(710) = RCT(710)*V(268)*V(280) - A(711) = RCT(711)*V(268)*V(287) - A(712) = RCT(712)*V(223) - A(713) = RCT(713)*V(233) - A(714) = RCT(714)*V(130) - A(715) = RCT(715)*V(131) - A(716) = RCT(716)*V(116) - A(717) = RCT(717)*V(24) - A(718) = RCT(718)*V(241) - A(719) = RCT(719)*V(202) - A(720) = RCT(720)*V(178) - A(721) = RCT(721)*V(199) - A(722) = RCT(722)*V(134) - A(723) = RCT(723)*V(104) - A(724) = RCT(724)*V(105) - A(725) = RCT(725)*V(220) - A(726) = RCT(726)*V(139) - A(727) = RCT(727)*V(140) - A(728) = RCT(728)*V(214) - A(729) = RCT(729)*V(174) - A(730) = RCT(730)*V(151) - A(731) = RCT(731)*V(181) - A(732) = RCT(732)*V(243) - A(733) = RCT(733)*V(213) - A(734) = RCT(734)*V(242) - A(735) = RCT(735)*V(175) - A(736) = RCT(736)*V(200) - A(737) = RCT(737)*V(210) - A(738) = RCT(738)*V(282) - A(739) = RCT(739)*V(282) - A(740) = RCT(740)*F(3) - A(741) = RCT(741)*V(291) - A(742) = RCT(742)*V(212) - A(743) = RCT(743)*V(137) - A(744) = RCT(744)*V(263) - A(745) = RCT(745)*V(263) - A(746) = RCT(746)*V(265) - A(747) = RCT(747)*V(193) - A(748) = RCT(748)*V(102) - A(749) = RCT(749)*V(102) - A(750) = RCT(750)*V(281) - A(751) = RCT(751)*V(281) - A(752) = RCT(752)*V(173) - A(753) = RCT(753)*V(264) - A(754) = RCT(754)*V(264) - A(755) = RCT(755)*V(67) - A(756) = RCT(756)*V(259) - A(757) = RCT(757)*V(221) - A(758) = RCT(758)*V(221) - A(759) = RCT(759)*V(226) - A(760) = RCT(760)*V(236) - A(761) = RCT(761)*V(223) - A(762) = RCT(762)*V(223) - A(763) = RCT(763)*V(223) - A(764) = RCT(764)*V(233) - A(765) = RCT(765)*V(248) - A(766) = RCT(766)*V(248) - A(767) = RCT(767)*V(248) - A(768) = RCT(768)*V(251) - A(769) = RCT(769)*V(250) - A(770) = RCT(770)*V(113) - A(771) = RCT(771)*V(110) - A(772) = RCT(772)*V(94) - A(773) = RCT(773)*V(95) - A(774) = RCT(774)*V(93) - A(775) = RCT(775)*V(112) - A(776) = RCT(776)*V(106) - A(777) = RCT(777)*V(202) - A(778) = RCT(778)*V(88) - A(779) = RCT(779)*V(128) - A(780) = RCT(780)*V(274) - A(781) = RCT(781)*V(260) - A(782) = RCT(782)*V(176) - A(783) = RCT(783)*V(176) - A(784) = RCT(784)*V(51) - A(785) = RCT(785)*V(77) - A(786) = RCT(786)*V(71) - A(787) = RCT(787)*V(100) - A(788) = RCT(788)*V(149) - A(789) = RCT(789)*V(72) - A(790) = RCT(790)*V(135) - A(791) = RCT(791)*V(197) - A(792) = RCT(792)*V(285) - A(793) = RCT(793)*V(111) - A(794) = RCT(794)*V(75) - A(795) = RCT(795)*V(235) - A(796) = RCT(796)*V(262) - A(797) = RCT(797)*V(262) - A(798) = RCT(798)*V(271) - A(799) = RCT(799)*V(43) - A(800) = RCT(800)*V(52) - A(801) = RCT(801)*V(53) - A(802) = RCT(802)*V(54) - A(803) = RCT(803)*V(55) - A(804) = RCT(804)*V(56) - A(805) = RCT(805)*V(57) - A(806) = RCT(806)*V(81) - A(807) = RCT(807)*V(82) - A(808) = RCT(808)*V(83) - A(809) = RCT(809)*V(84) - A(810) = RCT(810)*V(47) - A(811) = RCT(811)*V(59) - A(812) = RCT(812)*V(48) - A(813) = RCT(813)*V(103) - A(814) = RCT(814)*V(143) - A(815) = RCT(815)*V(268) - A(816) = RCT(816)*V(227) - A(817) = RCT(817)*V(92) - A(818) = RCT(818)*V(60) - A(819) = RCT(819)*V(203) - A(820) = RCT(820)*V(270) - A(821) = RCT(821)*V(44) - A(822) = RCT(822)*V(46) - A(823) = RCT(823)*V(1) - A(824) = RCT(824)*V(3) - A(825) = RCT(825)*V(2) - A(826) = RCT(826)*V(42) - A(827) = RCT(827)*V(49) - A(828) = RCT(828)*V(73) - A(829) = RCT(829)*V(99) - A(830) = RCT(830)*V(74) - A(831) = RCT(831)*V(74) - A(832) = RCT(832)*V(196) - A(833) = RCT(833)*V(61) - A(834) = RCT(834)*V(66) - A(835) = RCT(835)*V(122) - A(836) = RCT(836)*V(279) - A(837) = RCT(837)*V(119) - A(838) = RCT(838)*V(208) - A(839) = RCT(839)*V(178) - A(840) = RCT(840)*V(199) - A(841) = RCT(841)*V(134) - A(842) = RCT(842)*V(63) - A(843) = RCT(843)*V(63) - A(844) = RCT(844)*V(62) - A(845) = RCT(845)*V(62) - A(846) = RCT(846)*V(89) - A(847) = RCT(847)*V(96) - A(848) = RCT(848)*V(87) - A(849) = RCT(849)*V(91) - A(850) = RCT(850)*V(85) - A(851) = RCT(851)*V(172) - A(852) = RCT(852)*V(104) - A(853) = RCT(853)*V(198) - A(854) = RCT(854)*V(169) - A(855) = RCT(855)*V(185) - A(856) = RCT(856)*V(230) - A(857) = RCT(857)*V(156) - A(858) = RCT(858)*V(163) - A(859) = RCT(859)*V(231) - A(860) = RCT(860)*V(136) - A(861) = RCT(861)*V(241) - A(862) = RCT(862)*V(200) - A(863) = RCT(863)*V(175) - A(864) = RCT(864)*V(157) - A(865) = RCT(865)*V(162) - A(866) = RCT(866)*V(171) - A(867) = RCT(867)*V(165) - A(868) = RCT(868)*V(186) - A(869) = RCT(869)*V(188) - A(870) = RCT(870)*V(129) - A(871) = RCT(871)*V(127) - A(872) = RCT(872)*V(220) - A(873) = RCT(873)*V(139) - A(874) = RCT(874)*V(140) - A(875) = RCT(875)*V(214) - A(876) = RCT(876)*V(181) - A(877) = RCT(877)*V(151) - A(878) = RCT(878)*V(151) - A(879) = RCT(879)*V(240) - A(880) = RCT(880)*V(243) - A(881) = RCT(881)*V(206) - A(882) = RCT(882)*V(206) - A(883) = RCT(883)*V(141) - A(884) = RCT(884)*V(164) - A(885) = RCT(885)*V(125) - A(886) = RCT(886)*V(242) - A(887) = RCT(887)*V(242) - A(888) = RCT(888)*V(213) - A(889) = RCT(889)*V(213) - A(890) = RCT(890)*V(120) - A(891) = RCT(891)*V(101) - A(892) = RCT(892)*V(70) - A(893) = RCT(893)*V(107) - A(894) = RCT(894)*V(210) + 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(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(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(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(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(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(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(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(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) !### KPP 2.3.0_gc, Bob Yantosca (11 Feb 2021) @@ -5155,497 +6163,613 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) P_VAR(1) = 0 P_VAR(2) = 0 P_VAR(3) = 0 - P_VAR(4) = A(681)+2*A(686)+2*A(689)+2*A(692) - P_VAR(5) = A(737) - P_VAR(6) = A(636) - P_VAR(7) = A(24)+A(47)+A(55)+A(76)+A(80)+0.3*A(97)+0.43*A(109)+0.1*A(111)+0.361*A(112)+0.5*A(120)+0.22*A(129)+2*A(131)& - &+0.9*A(132)+0.9*A(133)+0.9*A(134)+0.9*A(135)+0.9*A(136)+0.645*A(137)+0.9*A(138)+0.9*A(139)+0.9*A(140)+0.9& - &*A(141)+0.9*A(142)+2*A(143)+A(144)+A(188)+A(267)+A(275)+A(309)+A(311)+A(318)+A(329)+A(350)+0.407*A(369)& - &+0.355*A(404)+A(446)+A(447)+A(448)+A(449)+A(487)+A(488)+0.429*A(515)+0.429*A(516)+0.23*A(528)+0.75*A(530)& - &+0.097*A(537)+0.5*A(547)+0.41*A(548)+A(552)+0.5*A(554)+A(555)+A(557)+0.7*A(558)+A(565)+A(569)+0.5*A(571)& - &+A(596)+0.35*A(606)+A(607)+A(611)+A(622)+0.3*A(755)+A(778)+A(852)+1.238*A(860)+A(892)+A(894) - P_VAR(8) = A(362)+A(363) - P_VAR(9) = A(682)+A(684)+2*A(687)+2*A(690)+2*A(693)+A(695)+A(697) - P_VAR(10) = A(683)+A(685)+2*A(688)+2*A(691)+2*A(694)+A(696)+A(698) - P_VAR(11) = A(629) - P_VAR(12) = A(630) - P_VAR(13) = A(589) - P_VAR(14) = A(370)+A(371)+A(372)+A(373) - P_VAR(15) = A(479) - P_VAR(16) = A(575) - P_VAR(17) = A(576) - P_VAR(18) = A(574) + P_VAR(4) = A(825)+2*A(830)+2*A(833)+2*A(836) + P_VAR(5) = A(881) + P_VAR(6) = A(780) + P_VAR(7) = A(24)+A(47)+A(56)+A(104)+A(109)+A(127)+0.44*A(128)+0.3*A(136)+0.43*A(148)+0.1*A(150)+0.361*A(151)+0.44& + &*A(158)+0.5*A(168)+0.22*A(178)+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.645*A(187)+0.645*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+2*A(194)+A(195)+A(239)& + &+A(318)+A(326)+A(360)+A(362)+A(369)+A(392)+A(395)+A(397)+0.44*A(436)+A(437)+A(440)+A(442)+0.9*A(457)+0.9& + &*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) + 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) + P_VAR(11) = A(773) + P_VAR(12) = A(774) + P_VAR(13) = A(724) + P_VAR(14) = A(494)+A(495)+A(496)+A(497) + P_VAR(15) = A(603) + P_VAR(16) = A(699) + P_VAR(17) = A(700) + P_VAR(18) = A(698) P_VAR(19) = 0 - P_VAR(20) = A(631) - P_VAR(21) = A(632) - P_VAR(22) = A(590) - P_VAR(23) = A(717) - P_VAR(24) = 0.005*A(407)+0.005*A(408)+0.005*A(409)+0.005*A(410)+0.005*A(411)+0.005*A(412)+0.005*A(413)+0.005*A(414) - P_VAR(25) = A(633) - P_VAR(26) = A(634) - P_VAR(27) = A(591) - P_VAR(28) = 0.25*A(149) + P_VAR(20) = A(775) + P_VAR(21) = A(776) + P_VAR(22) = A(725) + P_VAR(23) = A(861) + P_VAR(24) = 0.005*A(531)+0.005*A(532)+0.005*A(533)+0.005*A(534)+0.005*A(535)+0.005*A(536)+0.005*A(537)+0.005*A(538) + P_VAR(25) = A(777) + P_VAR(26) = A(778) + P_VAR(27) = A(726) + P_VAR(28) = 0.25*A(200) P_VAR(29) = A(4) - P_VAR(30) = A(712)+1.5*A(713)+1.5*A(723) - P_VAR(31) = A(714)+A(715)+A(716)+0.8*A(724)+A(729) - P_VAR(32) = A(151)+A(317)+A(321) - P_VAR(33) = A(7)+A(8)+A(9)+2*A(12) - P_VAR(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(55)+A(57)+A(59)+A(62)+A(64)+A(66)+A(67)+A(68)+A(69)+A(70)+A(71)+A(73)& - &+A(80)+0.15*A(109)+A(160)+0.02*A(196)+A(197)+A(198)+A(222)+A(230)+A(231)+A(246)+0.1*A(258)+A(268)+A(271)& - &+A(272)+A(301)+A(312)+A(313)+A(319)+A(320)+A(326)+A(338)+A(344)+A(345)+A(362)+A(363)+A(364)+A(365)+A(366)& - &+A(367)+A(368)+A(392)+A(393)+A(394)+A(395)+A(396)+A(397)+A(398)+A(399)+A(416)+A(417)+A(420)+A(421)+A(424)& - &+A(425)+A(435)+A(436)+A(439)+A(440)+A(443)+A(444)+A(446)+A(448)+A(462)+A(463)+A(466)+A(467)+A(471)+A(472)& - &+A(474)+A(475)+A(477)+A(478)+A(491)+A(492)+A(493)+A(494)+A(509)+A(510)+A(511)+A(512)+A(515)+A(518)+0.69& - &*A(526)+A(531)+A(534)+A(544)+A(545)+0.13*A(547)+A(550)+A(551)+A(552)+0.13*A(554)+A(555)+A(560)+0.13*A(571)& - &+0.995*A(581)+A(586)+A(593)+0.15*A(606)+A(607)+A(610)+A(611)+A(612)+A(613)+A(619)+2*A(740)+A(748)+0.3& - &*A(755)+A(830)+A(833)+A(836)+A(846)+A(847)+A(848)+A(849) - 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(74)+A(81)+A(94)+A(111)+A(114)+A(117)& - &+A(118)+A(130)+2*A(145)+A(150)+2*A(156)+2*A(157)+A(161)+A(162)+A(163)+A(175)+A(178)+A(179)+A(180)+2*A(182)& - &+A(184)+A(185)+A(186)+A(187)+2*A(189)+2*A(190)+A(193)+A(195)+2*A(200)+A(201)+0.66*A(202)+0.6*A(203)+0.44& - &*A(206)+0.56*A(207)+0.19*A(210)+0.1*A(218)+0.05*A(219)+A(223)+A(224)+A(225)+A(226)+A(227)+2*A(247)+2*A(251)& - &+2*A(252)+2*A(260)+2*A(261)+0.4*A(293)+0.88*A(298)+A(316)+A(330)+A(331)+A(332)+A(333)+A(334)+A(336)+A(337)& - &+A(342)+A(352)+A(353)+A(359)+2*A(360)+2*A(361)+A(369)+A(479)+A(489)+A(490)+A(521)+A(524)+A(525)+A(557)& - &+A(568)+A(577)+A(582)+A(594)+1.258*A(598)+1.5*A(600)+A(602)+1.5*A(603)+A(605)+A(608)+A(614)+A(617)+A(618)& - &+A(624)+A(627)+A(635)+0.5*A(638)+A(639)+A(640)+A(641)+A(642)+A(643)+A(644)+A(645)+A(646)+A(650)+A(652)& - &+A(653)+A(654)+A(655)+A(656)+A(657)+A(658)+A(659)+A(660)+A(661)+A(662)+A(663)+A(664)+A(665)+A(666)+A(667)& - &+A(668)+A(669)+A(670)+A(671)+A(672)+A(673)+A(674)+A(675)+A(684)+A(685)+2*A(686)+2*A(687)+2*A(688)+3*A(689)& - &+3*A(690)+3*A(691)+4*A(692)+4*A(693)+4*A(694)+A(695)+A(696)+A(697)+A(698)+A(700)+A(701)+A(702)+A(703)& - &+A(704)+A(705)+A(706)+A(707)+A(708)+A(709)+A(710)+A(711)+A(718)+A(719)+A(720)+A(721)+A(722)+A(725)+A(726)& - &+A(727)+A(728)+A(730)+A(731)+2*A(732)+A(733)+A(734)+A(735)+A(736)+2*A(751)+A(781)+2*A(794)+A(798)+A(815)+2& - &*A(817)+A(842)+A(844) - P_VAR(36) = A(34)+A(50)+0.05*A(51)+0.56*A(111)+0.505*A(112)+A(113)+2*A(115)+A(116)+2*A(117)+A(118)+0.5*A(120)+A(165)& - &+A(187)+A(201)+A(241)+A(264)+A(265)+A(266)+0.14*A(331)+0.14*A(332)+0.14*A(336)+0.407*A(369)+0.6*A(372)+0.9& - &*A(373)+0.6*A(379)+0.9*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.55*A(395)+0.55*A(399)+0.45& - &*A(400)+0.37*A(401)+0.42*A(402)+0.23*A(403)+0.638*A(404)+1.5*A(405)+A(406)+0.25*A(411)+0.33*A(412)+0.036& - &*A(413)+0.054*A(414)+A(433)+0.13*A(434)+0.2*A(435)+A(438)+0.2*A(439)+0.13*A(441)+0.52*A(442)+0.8*A(444)+2& - &*A(445)+0.6*A(458)+0.6*A(459)+0.539*A(514)+0.33*A(515)+0.33*A(516)+0.28*A(521)+0.036*A(522)+0.12*A(524)& - &+0.68*A(525)+0.77*A(528)+0.25*A(530)+0.75*A(537)+A(538)+A(540)+2*A(541)+0.84*A(542)+0.507*A(546)+0.325& - &*A(547)+0.488*A(548)+A(549)+0.86*A(550)+0.65*A(552)+0.25*A(560)+A(561)+A(562)+0.888*A(563)+A(566)+A(572)& - &+0.364*A(579)+0.2*A(589)+0.27*A(590)+0.3*A(591)+0.15*A(619)+0.15*A(620)+0.26*A(623)+0.5*A(624)+0.25*A(626)& - &+0.5*A(627)+0.05*A(628)+A(744)+A(745)+0.88*A(753)+A(754)+A(756)+A(758)+A(760)+2*A(761)+2*A(762)+A(763)& - &+A(764)+A(765)+A(766)+A(768)+A(834)+A(838)+A(851)+A(854)+0.5*A(855)+0.571*A(857)+0.875*A(858)+0.77*A(859)& - &+A(862)+A(863)+0.888*A(868)+0.818*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.839*A(879)+A(881)+0.163& - &*A(882)+A(885)+A(889)+A(891)+A(894) - P_VAR(37) = A(24)+A(311)+A(318) - P_VAR(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(151)+A(317)+A(321)+A(668)+A(675) - P_VAR(39) = A(25)+A(180)+A(240) - P_VAR(40) = A(19)+A(23)+0.06*A(314)+0.06*A(315)+A(322)+0.02*A(331)+0.02*A(332)+0.02*A(336)+0.013*A(369)+0.045*A(521) + 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)& + &+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& + &*A(388)+0.15*A(391)+A(392)+A(394)+0.84*A(399)+A(403)+0.75*A(405)+0.5*A(407)+A(412)+A(416)+0.75*A(418)+0.5& + &*A(426)+0.84*A(429)+A(435)+0.15*A(436)+A(437)+A(439)+A(445)+A(450)+A(468)+A(469)+A(486)+A(487)+A(488)& + &+A(489)+A(490)+A(491)+A(492)+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)+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(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& + &*A(270)+A(274)+A(275)+A(276)+A(277)+A(278)+2*A(298)+2*A(302)+2*A(303)+2*A(311)+2*A(312)+0.4*A(344)+0.88& + &*A(349)+A(367)+A(375)+A(376)+A(377)+A(379)+A(381)+A(383)+A(386)+A(389)+A(393)+A(395)+A(400)+A(406)+A(414)& + &+A(419)+A(421)+2*A(422)+A(424)+2*A(425)+0.5*A(427)+A(428)+A(431)+A(434)+A(438)+A(440)+A(446)+A(448)+A(449)& + &+A(454)+A(455)+A(476)+A(477)+A(483)+2*A(484)+2*A(485)+A(493)+A(603)+A(613)+A(614)+A(645)+A(648)+A(649)& + &+A(681)+A(692)+A(703)+A(704)+A(706)+A(708)+A(712)+A(717)+A(729)+A(738)+1.258*A(742)+1.5*A(744)+A(746)+1.5& + &*A(747)+A(749)+A(752)+A(758)+A(761)+A(762)+A(768)+A(771)+A(779)+0.5*A(782)+A(783)+A(784)+A(785)+A(786)& + &+A(787)+A(788)+A(789)+A(790)+A(794)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)+A(802)+A(803)+A(804)+A(805)& + &+A(806)+A(807)+A(808)+A(809)+A(810)+A(811)+A(812)+A(813)+A(814)+A(815)+A(816)+A(817)+A(818)+A(819)+A(828)& + &+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(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& + &*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)+0.2& + &*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)+0.33& + &*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(295) + P_VAR(42) = A(346) P_VAR(43) = 0 - P_VAR(44) = 0.6*A(306) - P_VAR(45) = A(720)+A(721)+A(722) - P_VAR(46) = 0 - P_VAR(47) = 0.55*A(214) - P_VAR(48) = 0.25*A(221) - P_VAR(49) = A(294) - P_VAR(50) = A(78) - P_VAR(51) = A(170) - P_VAR(52) = 0.21*A(205) - P_VAR(53) = 0.1*A(211) - P_VAR(54) = 0.14*A(212) - P_VAR(55) = 0.1*A(218) - P_VAR(56) = 0.1*A(219) - P_VAR(57) = 0.14*A(220) - P_VAR(58) = 0 - P_VAR(59) = 0.35*A(213) - P_VAR(60) = A(283) - P_VAR(61) = A(199) - P_VAR(62) = A(3)+A(640) - P_VAR(63) = A(6)+A(641) - P_VAR(64) = 0 - P_VAR(65) = A(836) - P_VAR(66) = 0 - P_VAR(67) = A(53) - P_VAR(68) = 0.005*A(581) - P_VAR(69) = A(300) - P_VAR(70) = 0.65*A(606) - P_VAR(71) = 0.05*A(208) - P_VAR(72) = 0 - P_VAR(73) = A(700)+A(701)+A(704)+A(705)+A(708)+A(709) - P_VAR(74) = A(146) - P_VAR(75) = A(256) - P_VAR(76) = 0 - P_VAR(77) = 0.3*A(209) - P_VAR(78) = 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) = 0 - P_VAR(81) = 0.21*A(217) - P_VAR(82) = 0.31*A(215) - P_VAR(83) = 0.35*A(216) - P_VAR(84) = 0.25*A(210) - P_VAR(85) = 0.73*A(314)+0.4*A(315) - P_VAR(86) = A(10) - P_VAR(87) = A(72) - P_VAR(88) = 0.37*A(571) - P_VAR(89) = A(27) - P_VAR(90) = 0 - P_VAR(91) = A(63) - P_VAR(92) = 0.8*A(293)+2*A(296)+0.4*A(306)+0.996*A(307)+A(821)+2*A(826)+A(827) - P_VAR(93) = A(85) - P_VAR(94) = A(107) - P_VAR(95) = A(89) - P_VAR(96) = A(58) - P_VAR(97) = A(608) - P_VAR(98) = A(718)+A(719)+A(725)+A(726)+A(727)+A(728)+A(730)+A(731)+A(732)+A(733)+A(734)+A(735)+A(736) - P_VAR(99) = 0.191*A(298)+A(702)+A(703)+A(706)+A(707)+A(710)+A(711) - P_VAR(100) = 0 - P_VAR(101) = 0.06*A(590)+0.06*A(591) - P_VAR(102) = A(39) - P_VAR(103) = A(223)+A(227)+A(252)+A(254)+A(260)+A(794) - P_VAR(104) = 0.075*A(521)+0.241*A(526)+0.653*A(537)+0.75*A(858) - P_VAR(105) = 0.098*A(548)+0.75*A(560) - P_VAR(106) = 0.41*A(109) - P_VAR(107) = 0.15*A(606)+A(611)+A(615) - P_VAR(108) = 0.995*A(581)+A(582)+0.6*A(583)+A(890) - P_VAR(109) = 0.15*A(400)+0.15*A(401)+0.112*A(868)+0.182*A(869)+0.161*A(879) - P_VAR(110) = A(105)+A(106) - P_VAR(111) = A(253)+A(259)+0.56*A(298) - P_VAR(112) = A(108) - P_VAR(113) = A(90) - P_VAR(114) = 0 - P_VAR(115) = 0.19*A(590)+0.15*A(591) - P_VAR(116) = 0.255*A(413)+0.595*A(414)+A(454)+A(456) - P_VAR(117) = A(433)+0.13*A(434)+0.2*A(435)+0.35*A(562)+0.35*A(881) - P_VAR(118) = 0.54*A(589) - P_VAR(119) = A(327)+A(339) - P_VAR(120) = A(580)+0.2*A(583) - P_VAR(121) = 0.315*A(400) - P_VAR(122) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(151)+A(317)+A(321)+A(668)+A(675) - P_VAR(123) = 0.315*A(401) - P_VAR(124) = 0 - P_VAR(125) = A(432)+A(437) - P_VAR(126) = 0.474*A(483)+0.34*A(484)+0.244*A(485)+0.841*A(488)+0.841*A(490)+0.841*A(493)+0.841*A(877)+0.222*A(880) - P_VAR(127) = 0.15*A(373)+0.15*A(381)+0.009*A(414) - P_VAR(128) = A(157)+A(159)+A(669)+A(673)+A(674) - P_VAR(129) = 0.15*A(372)+0.15*A(379)+0.009*A(413) - P_VAR(130) = 0.67*A(408)+0.68*A(410)+0.67*A(451)+0.67*A(453) - P_VAR(131) = 0.33*A(408)+0.32*A(410)+0.33*A(451)+0.33*A(453) - P_VAR(132) = A(438)+0.2*A(439)+0.13*A(441)+0.15*A(562)+0.15*A(881)+0.163*A(882) - P_VAR(133) = 0.25*A(92)+0.25*A(93)+0.4*A(103)+0.4*A(104) - P_VAR(134) = A(357)+A(358)+A(359)+A(360)+A(361) - P_VAR(135) = A(261)+A(650)+A(653)+A(654)+A(655)+A(661)+A(662)+A(663)+A(665)+A(670)+A(671)+A(672) - P_VAR(136) = 0.5*A(547)+0.25*A(860) - P_VAR(137) = A(28) - P_VAR(138) = -A(4) - P_VAR(139) = A(392) - P_VAR(140) = A(396) - P_VAR(141) = 0.725*A(418)+0.725*A(422)+0.35*A(426) - P_VAR(142) = 0.8*A(597)+0.727*A(599) - P_VAR(143) = A(284)+A(287)+A(291) - P_VAR(144) = 0.224*A(868)+0.068*A(879) - P_VAR(145) = 0.182*A(869)+0.128*A(879) - P_VAR(146) = 0.435*A(517) - P_VAR(147) = -A(1) - P_VAR(148) = 0.3*A(590)+0.56*A(591)+0.44*A(599)+0.44*A(600) - P_VAR(149) = 0.1*A(206) - P_VAR(150) = 0.461*A(514)+0.67*A(515)+0.67*A(516)+0.041*A(567) - P_VAR(151) = A(481) - P_VAR(152) = A(452) - P_VAR(153) = A(553)+A(556) - P_VAR(154) = 0 - P_VAR(155) = 0 - P_VAR(156) = A(406)+0.444*A(563)+0.112*A(868)+0.182*A(869)+0.162*A(879)+0.454*A(885) - P_VAR(157) = 0.937*A(374) - P_VAR(158) = 0.25*A(83)+0.25*A(84)+0.38*A(95)+0.375*A(96)+0.25*A(98)+0.25*A(99)+0.25*A(100)+0.25*A(328)+0.25*A(340)& - &+0.25*A(349) - P_VAR(159) = 0.55*A(589)+0.68*A(590)+0.28*A(591)+0.18*A(597)+1.05*A(601)+A(602)+0.3*A(603)+0.9*A(619)+0.9*A(620)& - &+A(894) - P_VAR(160) = 0.06*A(597)+0.742*A(598)+0.073*A(599)+0.3*A(600)+0.3*A(601)+0.3*A(603)+A(612)+A(613)+A(614)+A(621)+A(893) - P_VAR(161) = 0 - P_VAR(162) = 0.937*A(376) - P_VAR(163) = 0.022*A(567)+0.552*A(868)+0.454*A(869)+0.481*A(879) - P_VAR(164) = 0.824*A(415)+0.452*A(419)+A(423)+0.667*A(564) - P_VAR(165) = A(377) - P_VAR(166) = A(455) - P_VAR(167) = A(450) - P_VAR(168) = A(457) - P_VAR(169) = 0.13*A(442)+0.2*A(444)+0.53*A(527)+0.6*A(539)+0.255*A(543)+0.318*A(563)+0.391*A(885) - P_VAR(170) = 0 - P_VAR(171) = A(375) - P_VAR(172) = 0.3*A(372)+0.3*A(379)+0.018*A(413)+0.284*A(416)+0.135*A(418)+0.249*A(507)+0.471*A(508)+0.303*A(509)+0.59& - &*A(511)+0.5*A(887) - P_VAR(173) = A(45) - P_VAR(174) = 0.085*A(400)+0.165*A(401)+0.58*A(402)+0.77*A(403)+0.75*A(427)+A(428)+A(430)+A(501)+A(513) - P_VAR(175) = 0.6*A(458)+0.031*A(470)+0.065*A(471)+0.094*A(476)+0.355*A(477)+0.06*A(507)+0.073*A(508)+0.17*A(509)+0.291& - &*A(511)+0.378*A(514)+0.13*A(554)+0.3*A(558) - P_VAR(176) = A(171) - P_VAR(177) = A(178)+0.2*A(180)+A(183)+A(184)+0.22*A(202)+0.2*A(203)+0.09*A(206)+A(243)+A(744) - P_VAR(178) = 0.12*A(326)+A(344)+0.7*A(346)+0.7*A(347)+0.7*A(348)+0.35*A(349)+0.7*A(350)+0.7*A(352)+1.4*A(354)+1.05& - &*A(355)+0.7*A(356) - P_VAR(179) = A(578)+A(587) - P_VAR(180) = A(604)+A(605)+A(609)+A(610) - P_VAR(181) = 0.473*A(480)+0.07*A(482)+0.399*A(483)+0.355*A(486) - P_VAR(182) = 0.345*A(407)+0.595*A(413) - P_VAR(183) = 0.345*A(409)+0.255*A(414) - P_VAR(184) = 0.46*A(589)+0.81*A(590)+0.85*A(591)+0.14*A(597)+0.2*A(599)+0.2*A(600)+0.7*A(601)+0.2*A(603) - P_VAR(185) = 0.29*A(526)+0.47*A(527)+0.063*A(537)+0.4*A(539)+0.16*A(542)+0.126*A(563)+0.133*A(882)+0.155*A(885) - P_VAR(186) = 0.25*A(372)+0.25*A(379)+0.015*A(413) - P_VAR(187) = 0.655*A(407)+0.655*A(409) - P_VAR(188) = 0.25*A(373)+0.25*A(381)+0.015*A(414) - P_VAR(189) = A(498) - P_VAR(190) = 0.1*A(111)+A(754) - P_VAR(191) = 0.2*A(606)+A(607)+A(616)+A(617)+A(622)+A(891)+A(892) - P_VAR(192) = A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.45*A(395)+0.45*A(399)+0.06*A(413)+0.06*A(414)+A(866)+A(867)& - &+0.45*A(872)+0.45*A(875) - P_VAR(193) = A(37)+0.5*A(638)+A(658)+A(659)+A(660)+A(661)+A(662)+A(663)+A(695)+A(696)+A(700)+A(701)+A(702)+A(703)& - &+A(842)+A(844)+A(894) - P_VAR(194) = 0.16*A(412)+0.25*A(427) - P_VAR(195) = 0.12*A(111) - P_VAR(196) = 0.85*A(87)+0.85*A(88)+0.3*A(373)+0.3*A(381)+0.018*A(414)+0.294*A(420)+0.135*A(422)+0.009*A(507)+0.054& - &*A(508)+0.013*A(509)+0.07*A(511)+0.036*A(522)+0.23*A(528)+0.05*A(887) - P_VAR(197) = 0.25*A(204)+A(251)+0.95*A(258)+A(263)+0.5*A(647)+0.5*A(648)+A(652)+A(656)+A(657)+A(658)+A(659)+A(660)& - &+A(664)+A(666)+A(667) - P_VAR(198) = 0.791*A(121)+0.551*A(470)+0.935*A(471)+0.242*A(476)+0.546*A(477)+0.589*A(507)+0.471*A(508)+0.687*A(509)& - &+0.59*A(511)+0.231*A(515)+0.231*A(516)+A(518)+0.82*A(519)+0.68*A(525)+A(530)+A(863) - P_VAR(199) = 0.06*A(326)+0.22*A(338)+0.3*A(346)+0.3*A(347)+0.3*A(348)+0.15*A(349)+0.3*A(350)+0.3*A(352)+0.6*A(354)& - &+0.45*A(355)+0.3*A(356) - P_VAR(200) = 0.059*A(461)+0.272*A(462)+A(536)+A(551)+0.37*A(554)+0.5*A(886) - P_VAR(201) = A(114)+0.209*A(121) - P_VAR(202) = A(67)+0.072*A(70)+A(86) - P_VAR(203) = A(285) - P_VAR(204) = A(520)+A(531)+A(532) - P_VAR(205) = 0.964*A(522)+A(534)+A(535) - P_VAR(206) = 0.176*A(415)+0.548*A(419)+0.35*A(434)+0.35*A(441)+0.35*A(442)+0.333*A(564)+0.75*A(883) - P_VAR(207) = A(523)+0.32*A(525)+0.165*A(548)+A(559) - P_VAR(208) = 0.441*A(473)+0.858*A(474)+0.033*A(476)+0.071*A(477)+0.051*A(507)+0.054*A(508)+0.064*A(509)+0.07*A(511)& - &+0.099*A(515)+0.099*A(516)+0.89*A(518)+0.73*A(519)+0.3*A(861)+0.15*A(886) - P_VAR(209) = A(110)+0.209*A(127)+A(281)+A(282) - P_VAR(210) = 0.258*A(598)+0.5*A(600)+0.5*A(603)+A(618) - P_VAR(211) = 0.134*A(112)+A(113)+0.5*A(120)+0.21*A(314)+0.54*A(315)+0.07*A(326)+0.01*A(336)+0.449*A(526)+0.187*A(537)& - &+0.3*A(561)+0.5*A(570)+0.364*A(579)+0.26*A(623)+0.5*A(624)+0.1*A(626)+0.2*A(627) - P_VAR(212) = A(19)+A(23)+0.06*A(314)+0.06*A(315)+A(322)+0.02*A(331)+0.02*A(332)+0.02*A(336)+0.013*A(369)+0.045*A(521) - P_VAR(213) = A(436)+A(440)+A(443)+A(460)+A(464)+A(468)+A(469)+A(505)+0.5*A(506)+0.9*A(567) - P_VAR(214) = A(394)+0.127*A(484)+0.057*A(485) - P_VAR(215) = 0.1*A(333)+0.1*A(334)+0.5*A(337) - P_VAR(216) = 0.9*A(333)+0.9*A(334)+0.5*A(337) - P_VAR(217) = A(56)+A(130)+A(168)+A(270) - P_VAR(218) = A(29)+0.13*A(31)+0.25*A(83)+0.25*A(84)+0.25*A(92)+0.25*A(93)+0.25*A(95)+0.25*A(96)+0.5*A(97)+0.25*A(98)& - &+0.25*A(99)+0.25*A(100)+0.25*A(328)+0.25*A(340)+0.25*A(349)+0.355*A(485)+0.034*A(486)+0.2*A(583)+0.1& - &*A(760) - P_VAR(219) = 0.5*A(120)+0.1*A(132)+0.1*A(133)+0.1*A(134)+0.1*A(135)+0.1*A(136)+0.1*A(137)+0.1*A(138)+0.1*A(139)+0.1& - &*A(140)+0.1*A(141)+0.1*A(142)+A(323)+0.13*A(571)+0.15*A(626)+0.3*A(627) - P_VAR(220) = A(398)+0.032*A(483)+0.671*A(484)+0.298*A(485) - P_VAR(221) = 0.34*A(66)+A(71)+0.16*A(95)+0.75*A(99)+0.791*A(124)+0.29*A(133)+A(136)+0.11*A(326)+A(367)+A(773)+0.34& - &*A(777)+A(848) - P_VAR(222) = 0.67*A(497) - P_VAR(223) = 0.134*A(112)+0.8*A(439)+0.52*A(441)+A(573)+0.636*A(579)+0.18*A(589)+0.12*A(590)+0.1*A(591)+0.06*A(597)& - &+0.6*A(623)+0.6*A(624)+0.2*A(625)+0.5*A(855)+0.429*A(857)+0.125*A(858)+0.586*A(882)+0.571*A(884) - P_VAR(224) = 0 - P_VAR(225) = A(335) - P_VAR(226) = 0.19*A(66)+0.35*A(95)+0.25*A(98)+0.271*A(133)+0.1*A(135)+0.44*A(326)+0.75*A(328)+1.125*A(329)+A(330)+0.53& - &*A(331)+0.53*A(332)+0.289*A(338)+0.41*A(343)+0.464*A(345)+0.34*A(349)+0.464*A(351)+0.464*A(353)+0.149& - &*A(355)+0.285*A(356)+0.19*A(777)+A(839) - P_VAR(227) = A(290)+A(292)+A(297)+A(299)+A(303)+0.008*A(307)+A(827) - P_VAR(228) = 0.294*A(404)+0.67*A(429)+0.81*A(431)+0.08*A(563) - P_VAR(229) = 0.068*A(404)+0.33*A(429)+0.19*A(431)+0.032*A(563) - P_VAR(230) = A(385)+0.5*A(387)+0.5*A(389)+0.55*A(395)+0.33*A(400)+0.19*A(402)+0.125*A(404)+0.125*A(411)+0.706*A(420)& - &+0.14*A(422)+0.054*A(507)+0.059*A(509)+0.335*A(543)+0.429*A(565)+0.75*A(566)+0.55*A(872)+0.5*A(889) - P_VAR(231) = A(386)+0.5*A(387)+0.5*A(391)+0.55*A(399)+0.17*A(401)+0.09*A(403)+0.158*A(404)+0.165*A(412)+0.716*A(416)& - &+0.14*A(418)+0.004*A(507)+0.006*A(509)+0.41*A(546)+0.5*A(562)+0.571*A(565)+0.25*A(566)+0.55*A(875)+0.5& - &*A(881)+0.15*A(887)+0.5*A(889) - P_VAR(232) = A(496)+0.33*A(497)+0.037*A(567) - P_VAR(233) = 0.3*A(33)+0.5*A(97)+A(119)+0.1*A(134)+A(310)+0.3*A(372)+0.3*A(373)+0.3*A(379)+0.3*A(381)+0.085*A(400)& - &+0.165*A(401)+0.355*A(404)+0.5*A(405)+0.018*A(413)+0.018*A(414)+0.52*A(434)+0.8*A(435)+0.545*A(521)+0.88& - &*A(524)+0.449*A(526)+0.187*A(537)+A(538)+A(540)+0.05*A(543)+0.242*A(544)+0.083*A(546)+0.14*A(550)+0.7& - &*A(561)+0.12*A(590)+0.2*A(591)+0.6*A(626)+0.6*A(627)+0.2*A(628)+0.5*A(855)+0.47*A(856)+0.571*A(857)+0.125& - &*A(858)+0.23*A(859)+0.118*A(882)+0.429*A(884)+A(888) - P_VAR(234) = 0.22*A(111)+0.58*A(369)+0.5*A(521)+0.88*A(524)+A(577) - P_VAR(235) = A(643)+A(645)+A(646) - P_VAR(236) = 0.294*A(420)+0.135*A(422)+A(424)+0.65*A(426)+0.52*A(434)+0.8*A(435)+0.459*A(461)+0.728*A(462)+0.551& - &*A(470)+0.935*A(471)+0.242*A(476)+0.546*A(477)+0.34*A(507)+0.384*A(509)+0.11*A(518)+0.09*A(519)+0.36& - &*A(543)+0.758*A(544)+0.2*A(583)+A(585)+A(586)+A(588)+A(602)+0.9*A(624)+0.95*A(627)+0.53*A(856)+0.69*A(861)& - &+0.5*A(880)+0.118*A(882)+0.25*A(883)+0.429*A(884)+0.3*A(886)+0.35*A(887)+A(888) - P_VAR(237) = A(61)+0.05*A(66)+0.07*A(80)+0.03*A(95)+0.03*A(109)+0.36*A(123)+0.045*A(133)+0.07*A(143)+0.07*A(144)& - &+A(169)+A(277)+0.07*A(756)+0.06*A(759)+0.05*A(777) - P_VAR(238) = A(324)+A(325) - P_VAR(239) = 0.34*A(66)+0.49*A(80)+0.16*A(95)+0.22*A(109)+0.36*A(122)+0.29*A(133)+0.49*A(143)+0.49*A(144)+0.16*A(336)& - &+0.49*A(756)+0.415*A(759)+0.34*A(777) - P_VAR(240) = 0.4*A(458)+0.4*A(459)+0.07*A(482)+0.532*A(483)+0.862*A(484)+0.401*A(485)+0.034*A(486)+0.159*A(488)+0.159& - &*A(490)+0.159*A(493)+A(495)+A(504)+0.159*A(877)+0.223*A(880) - P_VAR(241) = 0.6*A(459)+0.599*A(465)+A(466)+0.065*A(473)+0.142*A(474)+0.01*A(476)+0.028*A(477)+0.008*A(507)+0.015& - &*A(508)+0.014*A(509)+0.049*A(511)+0.161*A(514)+A(533)+A(545)+0.05*A(886) - P_VAR(242) = A(417)+A(421)+A(425)+0.482*A(461)+0.401*A(465)+0.418*A(470)+0.494*A(473)+0.621*A(476)+A(499)+A(500)+0.5& - &*A(506)+0.234*A(507)+0.387*A(508)+0.565*A(517) - P_VAR(243) = A(463)+A(467)+A(472)+A(475)+A(478)+A(492)+A(494)+A(510)+A(512)+0.18*A(519) - P_VAR(244) = 0.5*A(279)+A(371)+0.51*A(412)+0.03*A(414)+0.159*A(878) - P_VAR(245) = 0.5*A(279)+A(370)+0.75*A(411)+0.03*A(413)+0.841*A(878) - P_VAR(246) = 0.535*A(479)+A(503) - P_VAR(247) = 0.465*A(479)+A(502) - P_VAR(248) = 0.177*A(369)+0.063*A(374)+A(378)+2*A(382)+A(384)+A(388)+A(393)+0.035*A(400)+0.23*A(402)+0.125*A(411)& - &+A(446)+A(447)+0.479*A(480)+1.737*A(482)+0.544*A(483)+0.583*A(486)+0.903*A(487)+0.903*A(489)+0.904*A(491)& - &+0.04*A(590)+0.04*A(591)+A(864)+A(870)+A(873)+0.903*A(876)+0.05*A(880) - P_VAR(249) = A(529) - P_VAR(250) = 0.16*A(84)+0.2*A(97)+0.791*A(127)+0.065*A(141)+0.058*A(338)+A(364)+0.5*A(405)+0.284*A(416)+0.135*A(418)& - &+A(424)+0.65*A(426)+0.8*A(439)+0.52*A(441)+0.52*A(442)+0.8*A(444)+A(445)+0.459*A(461)+0.728*A(462)+0.441& - &*A(473)+0.858*A(474)+0.033*A(476)+0.071*A(477)+0.042*A(507)+0.051*A(509)+0.77*A(528)+0.84*A(542)+0.507& - &*A(546)+0.488*A(548)+A(549)+0.86*A(550)+0.5*A(554)+A(555)+A(557)+0.7*A(558)+0.25*A(560)+A(841)+0.77*A(859)& - &+A(862)+0.5*A(880)+0.586*A(882)+0.25*A(883)+0.571*A(884)+0.45*A(886)+0.8*A(887) - P_VAR(251) = 0.79*A(336)+0.308*A(340)+0.308*A(341)+0.615*A(342)+0.416*A(369)+0.063*A(376)+A(380)+2*A(383)+A(384)& - &+A(390)+A(397)+0.035*A(401)+0.14*A(403)+0.165*A(412)+A(448)+A(449)+0.048*A(480)+0.123*A(482)+0.019*A(483)& - &+0.028*A(486)+0.097*A(487)+0.097*A(489)+0.096*A(491)+A(865)+A(871)+A(874)+0.097*A(876)+0.005*A(880) - P_VAR(252) = 0.7*A(33)+A(82)+A(167)+A(278) - P_VAR(253) = 0.46*A(336)+0.289*A(338)+0.192*A(340)+0.192*A(341)+0.385*A(342)+A(765) - P_VAR(254) = A(91)+A(94)+0.62*A(331)+0.62*A(332)+0.42*A(336) - P_VAR(255) = A(77)+A(79)+A(81)+A(126)+0.33*A(623)+0.33*A(626)+0.15*A(759)+A(767) - P_VAR(256) = A(65)+A(74)+0.15*A(96)+0.21*A(125)+0.27*A(137)+A(280)+0.44*A(343)+0.2*A(628) - P_VAR(257) = A(75)+0.5*A(619)+0.5*A(620) - P_VAR(258) = A(60)+0.19*A(66)+0.27*A(80)+0.09*A(95)+0.12*A(109)+0.209*A(124)+0.162*A(133)+0.27*A(143)+0.27*A(144)& - &+A(276)+0.27*A(756)+0.23*A(759)+0.19*A(777) - P_VAR(259) = A(62)+0.15*A(66)+0.64*A(68)+0.75*A(83)+0.09*A(84)+0.13*A(95)+0.58*A(96)+0.25*A(100)+A(102)+0.64*A(123)& - &+1.185*A(125)+0.255*A(133)+0.613*A(137)+0.1*A(138)+0.035*A(141)+A(142)+0.43*A(326)+0.75*A(328)+A(329)& - &+A(330)+0.65*A(331)+0.65*A(332)+0.491*A(338)+0.08*A(343)+1.24*A(345)+0.93*A(349)+1.24*A(351)+1.24*A(353)& - &+0.64*A(355)+1.21*A(356)+A(368)+1.2*A(625)+1.15*A(628)+A(770)+A(772)+1.5*A(774)+0.15*A(777)+A(837)+A(840)& - &+A(849) - P_VAR(260) = A(153)+A(160)+A(649)+A(676)+A(677)+A(678) - P_VAR(261) = 0.95*A(51)+A(52)+A(54)+A(69)+0.919*A(70)+0.15*A(87)+0.15*A(88)+0.3*A(97)+0.5*A(98)+A(116)+A(118)+0.78& - &*A(129)+0.9*A(134)+0.9*A(135)+A(166)+0.3*A(372)+0.3*A(379)+0.018*A(413)+0.38*A(521)+0.12*A(524)+0.04& - &*A(526)+0.097*A(537)+A(541)+0.36*A(543)+0.758*A(544)+0.175*A(547)+0.087*A(548)+0.35*A(552)+0.3*A(561)& - &+A(568)+A(569)+0.12*A(753)+0.7*A(755)+A(757)+0.85*A(759)+A(764)+A(766)+A(768)+A(769)+A(832)+A(852)+A(853)& - &+A(854)+0.5*A(855)+0.53*A(856)+0.429*A(857)+0.125*A(858)+0.262*A(860)+1.01*A(861) - P_VAR(262) = A(250) - P_VAR(263) = 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(64)+0.64*A(68)+A(69)+A(73)& - &+0.75*A(83)+1.25*A(84)+0.15*A(87)+0.75*A(92)+0.75*A(93)+0.75*A(95)+0.95*A(96)+0.5*A(97)+0.75*A(98)+0.75& - &*A(99)+1.25*A(100)+0.5*A(111)+0.732*A(112)+0.22*A(129)+A(132)+0.9*A(134)+0.351*A(137)+0.9*A(138)+0.9& - &*A(141)+A(144)+A(148)+A(150)+0.25*A(180)+A(223)+A(268)+A(273)+A(309)+A(311)+A(312)+A(313)+0.06*A(314)+0.06& - &*A(315)+A(316)+A(317)+0.23*A(326)+0.75*A(328)+0.04*A(336)+0.231*A(338)+1.04*A(340)+0.385*A(341)+0.385& - &*A(342)+0.287*A(345)+A(348)+0.85*A(349)+0.287*A(351)+0.287*A(353)+0.202*A(355)+0.504*A(356)+A(365)+0.827& - &*A(369)+0.3*A(372)+0.3*A(373)+0.063*A(374)+0.063*A(376)+A(378)+0.3*A(379)+A(380)+0.3*A(381)+2*A(382)+2& - &*A(383)+2*A(384)+2*A(388)+A(389)+2*A(390)+A(391)+A(393)+A(397)+0.085*A(400)+0.165*A(401)+0.5*A(405)+0.018& - &*A(413)+0.018*A(414)+0.716*A(416)+0.14*A(418)+0.706*A(420)+0.14*A(422)+0.65*A(442)+A(444)+0.059*A(461)& - &+0.272*A(462)+0.599*A(465)+A(466)+0.031*A(470)+0.065*A(471)+0.065*A(473)+0.142*A(474)+0.104*A(476)+0.383& - &*A(477)+0.527*A(480)+1.86*A(482)+0.563*A(483)+0.645*A(485)+1.577*A(486)+A(487)+A(489)+A(491)+0.126*A(507)& - &+0.088*A(508)+0.249*A(509)+0.34*A(511)+0.6*A(521)+0.12*A(524)+0.241*A(526)+0.05*A(543)+0.242*A(544)+0.083& - &*A(546)+0.5*A(547)+0.25*A(548)+0.14*A(550)+A(552)+A(558)+0.022*A(567)+0.5*A(570)+A(572)+A(577)+0.8*A(583)& - &+2*A(584)+A(595)+A(621)+A(622)+A(635)+A(743)+0.9*A(760)+A(763)+A(766)+A(768)+A(769)+A(775)+A(830)+A(832)& - &+A(838)+A(846)+A(850)+A(851)+A(853)+A(854)+0.47*A(856)+0.23*A(859)+0.75*A(860)+A(864)+A(865)+A(873)+A(874)& - &+A(876)+0.055*A(880)+0.133*A(882)+0.55*A(886)+0.15*A(887) - P_VAR(264) = A(57)+A(59)+A(64)+0.34*A(66)+0.97*A(68)+0.919*A(70)+A(73)+0.5*A(84)+0.15*A(88)+0.75*A(92)+0.75*A(93)+0.16& - &*A(95)+0.38*A(96)+0.5*A(98)+0.5*A(100)+A(101)+1.6*A(103)+1.6*A(104)+0.5*A(111)+0.64*A(122)+0.29*A(133)+0.9& - &*A(135)+0.675*A(137)+0.9*A(138)+A(139)+A(140)+0.9*A(141)+A(271)+A(272)+A(274)+A(318)+A(319)+A(320)+A(321)& - &+A(322)+A(366)+A(771)+A(775)+A(776)+0.34*A(777)+A(847) - P_VAR(265) = A(35)+A(50)+A(52)+A(74)+A(81)+A(94)+A(117)+A(118)+A(130)+A(150)+A(362)+A(363)+0.32*A(525)+A(568)+0.742& - &*A(598)+0.5*A(600)+0.5*A(603)+A(605)+0.5*A(620)+0.5*A(638)+A(639)+2*A(642)+A(643)+2*A(644)+A(645)+A(646)& - &+A(649)+A(650)+A(651)+A(652)+A(653)+A(654)+A(655)+A(656)+A(657)+A(697)+A(698)+A(699)+A(704)+A(705)+A(706)& - &+A(707) - P_VAR(266) = A(25)+0.7*A(32)+A(55)+0.19*A(66)+A(76)+0.85*A(88)+0.09*A(95)+0.25*A(98)+0.28*A(111)+0.5*A(120)+2*A(131)& - &+0.9*A(132)+0.9*A(133)+0.9*A(134)+0.9*A(135)+0.9*A(136)+0.9*A(137)+0.9*A(138)+0.9*A(139)+0.9*A(140)+0.9& - &*A(141)+0.9*A(142)+A(143)+A(147)+A(148)+A(149)+A(150)+0.75*A(180)+0.9*A(206)+A(207)+A(240)+A(269)+A(275)& - &+A(308)+0.5*A(329)+0.5*A(341)+A(350)+0.5*A(351)+0.407*A(369)+A(487)+A(488)+0.325*A(547)+0.162*A(548)+0.65& - &*A(552)+0.5*A(571)+A(596)+0.88*A(753)+0.3*A(755)+A(757)+2*A(758)+0.15*A(759)+A(767)+A(776)+0.19*A(777)& - &+A(778)+A(787)+A(788)+A(831)+0.488*A(860) - P_VAR(267) = A(34)+A(50)+0.05*A(51)+0.56*A(111)+0.505*A(112)+A(113)+2*A(115)+A(116)+2*A(117)+A(118)+0.5*A(120)+A(165)& - &+A(187)+A(201)+A(241)+A(264)+A(265)+A(266)+0.14*A(331)+0.14*A(332)+0.14*A(336)+0.407*A(369)+0.6*A(372)+0.9& - &*A(373)+0.6*A(379)+0.9*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)+0.55*A(395)+0.55*A(399)+0.45& - &*A(400)+0.37*A(401)+0.42*A(402)+0.23*A(403)+0.638*A(404)+1.5*A(405)+A(406)+0.25*A(411)+0.33*A(412)+0.036& - &*A(413)+0.054*A(414)+A(433)+0.13*A(434)+0.2*A(435)+A(438)+0.2*A(439)+0.13*A(441)+0.52*A(442)+0.8*A(444)+2& - &*A(445)+0.6*A(458)+0.6*A(459)+0.539*A(514)+0.33*A(515)+0.33*A(516)+0.28*A(521)+0.036*A(522)+0.12*A(524)& - &+0.68*A(525)+0.77*A(528)+0.25*A(530)+0.75*A(537)+A(538)+A(540)+2*A(541)+0.84*A(542)+0.507*A(546)+0.325& - &*A(547)+0.488*A(548)+A(549)+0.86*A(550)+0.65*A(552)+0.25*A(560)+A(561)+A(562)+0.888*A(563)+A(566)+A(572)& - &+0.364*A(579)+0.2*A(589)+0.27*A(590)+0.3*A(591)+0.15*A(619)+0.15*A(620)+0.26*A(623)+0.5*A(624)+0.25*A(626)& - &+0.5*A(627)+0.05*A(628)+A(744)+A(745)+0.88*A(753)+A(754)+A(756)+A(758)+A(760)+2*A(761)+2*A(762)+A(763)& - &+A(764)+A(765)+A(766)+A(768)+A(834)+A(838)+A(851)+A(854)+0.5*A(855)+0.571*A(857)+0.875*A(858)+0.77*A(859)& - &+A(862)+A(863)+0.888*A(868)+0.818*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.839*A(879)+A(881)+0.163& - &*A(882)+A(885)+A(889)+A(891)+A(894) - P_VAR(268) = A(301)+A(304)+A(699) - P_VAR(269) = A(286)+A(288)+0.2*A(293)+0.809*A(298)+A(301)+A(302)+A(305)+0.4*A(306)+0.996*A(307)+A(308)+2*A(814)+A(815)& - &+A(816)+A(817)+A(818)+A(819)+A(820)+A(821)+A(822)+2*A(823)+A(824)+A(825)+A(828)+A(829) - P_VAR(270) = A(288)+A(289) - P_VAR(271) = A(222)+A(226)+A(227)+A(230)+A(231)+A(248)+A(651) - P_VAR(272) = A(739)+A(833) - P_VAR(273) = A(155)+2*A(156)+A(158)+A(160)+A(162)+A(163)+3*A(172)+2*A(173)+A(174)+A(200)+0.6*A(203)+0.56*A(207)+0.95& - &*A(208)+1.4*A(209)+0.34*A(213)+0.75*A(221)+A(259)+A(260)+A(292)+A(293)+2*A(779)+A(780)+A(781)+A(782)& - &+A(784)+3*A(785)+2*A(786)+A(787)+A(790)+A(810)+A(811)+2*A(812)+A(825)+A(828) - P_VAR(274) = A(152)+A(161)+A(164)+0.2*A(203)+0.44*A(207)+0.95*A(208)+0.7*A(209)+0.31*A(213)+0.45*A(214)+0.75*A(221)& - &+A(783) - P_VAR(275) = 0.12*A(202)+A(225)+A(240)+A(241)+A(243)+A(244)+A(245)+2*A(264)+A(265)+A(266)+A(267)+A(269)+A(270)+A(273)& - &+A(274)+A(275)+A(276)+A(277)+A(278)+A(279)+A(280)+A(281)+A(668) - P_VAR(276) = A(11)+A(148)+0.75*A(149)+A(150)+A(187)+A(188)+A(834)+A(835) - P_VAR(277) = A(680) - P_VAR(278) = 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(56)+A(75)+A(76)+A(77)+A(82)& - &+A(91)+A(155)+A(174)+A(183)+0.02*A(196)+A(228)+A(229)+A(232)+A(235)+A(236)+A(237)+A(238)+A(239)+A(267)& - &+A(302)+A(303)+A(308)+A(637)+A(664)+A(665)+A(666)+A(667)+A(669)+A(670)+A(671)+A(672) - P_VAR(279) = A(49)+1.22*A(179)+A(189)+A(197)+2*A(284)+A(576)+A(630)+A(632)+A(634)+A(741)+A(747)+A(751)+A(818) - P_VAR(280) = A(2) - P_VAR(281) = A(16)+A(36)+A(46)+A(159)+A(192)+A(231)+A(262)+A(263)+A(291)+A(313)+A(320)+A(364)+0.69*A(526)+A(560)& - &+A(612)+A(748)+A(752)+0.3*A(755)+A(782)+A(796)+A(820)+A(830) - P_VAR(282) = 0.15*A(109)+A(181)+0.13*A(547)+0.13*A(554)+0.13*A(571)+0.15*A(606) - P_VAR(283) = A(679) - P_VAR(284) = 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(57)& - &+A(59)+A(62)+A(64)+0.27*A(66)+A(71)+A(83)+A(84)+A(92)+A(93)+0.64*A(95)+0.5*A(96)+0.3*A(97)+0.5*A(98)+A(99)& - &+0.5*A(100)+A(101)+A(102)+1.2*A(103)+1.2*A(104)+0.28*A(111)+0.773*A(112)+A(115)+A(117)+A(119)+0.9*A(132)& - &+0.243*A(133)+0.9*A(136)+0.9*A(139)+0.9*A(140)+0.9*A(141)+0.9*A(142)+A(144)+A(151)+A(163)+A(165)+A(174)& - &+0.2*A(180)+A(193)+A(194)+A(201)+A(223)+A(224)+A(232)+A(233)+A(234)+A(241)+A(244)+A(264)+A(265)+A(266)& - &+A(268)+A(271)+A(272)+A(273)+0.82*A(326)+A(328)+0.5*A(329)+A(330)+0.1*A(331)+0.1*A(332)+0.1*A(336)+0.686& - &*A(338)+A(340)+0.5*A(341)+A(342)+A(344)+2*A(348)+0.5*A(349)+A(350)+A(352)+A(354)+0.5*A(355)+0.16*A(369)& - &+0.4*A(372)+0.7*A(373)+0.063*A(374)+0.063*A(376)+0.4*A(379)+0.7*A(381)+2*A(382)+2*A(383)+2*A(384)+A(385)& - &+A(386)+A(387)+2*A(388)+1.5*A(389)+2*A(390)+1.5*A(391)+A(393)+0.45*A(395)+A(397)+0.45*A(399)+0.085*A(400)& - &+0.165*A(401)+0.283*A(404)+A(406)+0.25*A(411)+0.33*A(412)+0.024*A(413)+0.042*A(414)+A(416)+0.275*A(418)& - &+A(420)+0.275*A(422)+0.75*A(427)+A(428)+A(430)+A(432)+0.65*A(434)+A(435)+A(437)+A(439)+0.65*A(441)+0.65& - &*A(442)+A(444)+A(445)+0.4*A(458)+0.4*A(459)+A(460)+0.059*A(461)+0.272*A(462)+A(464)+0.599*A(465)+A(466)& - &+A(468)+A(469)+0.582*A(470)+A(471)+0.506*A(473)+A(474)+0.379*A(476)+A(477)+0.089*A(483)+0.064*A(484)+0.336& - &*A(485)+0.611*A(486)+0.159*A(488)+0.159*A(490)+0.159*A(493)+A(495)+0.326*A(507)+0.58*A(508)+0.5*A(509)& - &+0.904*A(511)+0.295*A(514)+0.33*A(515)+0.33*A(516)+0.89*A(518)+0.73*A(519)+0.1*A(521)+0.036*A(522)+0.715& - &*A(537)+A(539)+A(541)+A(542)+0.305*A(543)+0.242*A(544)+0.507*A(546)+0.86*A(550)+0.7*A(558)+0.5*A(562)& - &+0.444*A(563)+0.62*A(567)+0.5*A(570)+A(575)+0.364*A(579)+0.6*A(583)+A(584)+A(585)+0.54*A(589)+0.19*A(590)& - &+0.15*A(591)+A(592)+A(593)+A(594)+2*A(595)+A(596)+0.8*A(597)+0.727*A(599)+A(602)+A(621)+A(622)+0.33*A(623)& - &+0.1*A(624)+0.2*A(625)+0.33*A(626)+0.1*A(627)+0.2*A(628)+A(629)+A(631)+A(633)+A(635)+A(743)+A(744)+A(749)& - &+A(753)+A(756)+1.73*A(760)+2*A(761)+A(764)+A(766)+A(768)+A(769)+A(770)+A(771)+A(772)+A(773)+A(774)+A(775)& - &+A(776)+0.27*A(777)+A(830)+A(837)+A(838)+A(846)+A(847)+A(848)+A(849)+A(851)+A(852)+A(854)+1.5*A(855)+0.47& - &*A(856)+0.571*A(857)+0.125*A(858)+A(859)+0.29*A(861)+A(862)+A(863)+A(864)+A(865)+A(866)+A(867)+0.112& - &*A(868)+0.182*A(869)+A(870)+A(871)+0.45*A(872)+A(873)+A(874)+0.45*A(875)+0.33*A(876)+0.159*A(877)+0.161& - &*A(879)+0.228*A(880)+1.5*A(881)+A(882)+0.75*A(883)+A(884)+1.454*A(885)+0.7*A(886)+0.7*A(887)+A(889)+A(891)& - &+A(894) - P_VAR(285) = 0.22*A(202)+0.75*A(204)+0.79*A(205)+0.46*A(206)+0.56*A(210)+0.9*A(211)+0.86*A(212)+0.34*A(213)+0.69& - &*A(215)+0.65*A(216)+0.79*A(217)+0.8*A(218)+0.85*A(219)+0.86*A(220)+A(229)+A(242)+A(246)+2*A(257)+0.1& - &*A(258)+A(262)+A(268)+A(271)+A(272)+A(793)+A(797) - P_VAR(286) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.15*A(87)+0.15*A(88)+0.44*A(109)+0.36*A(111)+0.227*A(112)+A(113)& - &+A(120)+0.791*A(121)+0.64*A(122)+0.64*A(123)+0.791*A(124)+0.79*A(125)+0.791*A(127)+A(128)+0.22*A(129)& - &+A(161)+A(162)+2*A(175)+A(178)+0.75*A(180)+A(185)+A(193)+A(195)+1.788*A(196)+A(201)+0.66*A(202)+0.6*A(203)& - &+0.05*A(210)+A(246)+0.85*A(331)+0.85*A(332)+0.85*A(336)+0.49*A(343)+0.28*A(369)+1.5*A(372)+1.5*A(373)& - &+0.063*A(374)+0.063*A(376)+A(378)+1.5*A(379)+A(380)+1.5*A(381)+A(385)+A(386)+A(387)+0.5*A(389)+0.5*A(391)& - &+0.55*A(395)+0.55*A(399)+1.085*A(400)+1.165*A(401)+A(402)+A(403)+1.065*A(404)+A(405)+A(408)+A(410)+0.405& - &*A(413)+0.745*A(414)+A(415)+0.275*A(418)+A(419)+0.275*A(422)+A(424)+1.3*A(426)+A(433)+0.65*A(434)+A(438)& - &+0.65*A(441)+0.65*A(442)+A(445)+A(446)+2*A(447)+A(448)+2*A(449)+0.6*A(458)+0.6*A(459)+0.518*A(461)+0.599& - &*A(465)+0.582*A(470)+0.506*A(473)+0.379*A(476)+0.527*A(480)+A(499)+A(500)+A(504)+A(505)+A(506)+1.147& - &*A(507)+0.646*A(508)+0.435*A(509)+0.096*A(511)+0.244*A(514)+A(516)+0.82*A(519)+0.08*A(521)+0.12*A(524)& - &+0.68*A(525)+0.02*A(526)+A(527)+A(528)+A(530)+A(532)+A(535)+0.285*A(537)+A(538)+A(540)+0.665*A(543)+0.59& - &*A(546)+0.5*A(547)+0.585*A(548)+A(549)+0.5*A(554)+0.7*A(561)+0.5*A(562)+0.444*A(563)+A(564)+A(565)+0.3& - &*A(567)+0.5*A(570)+0.5*A(571)+A(572)+A(573)+A(574)+0.636*A(579)+A(588)+A(592)+A(602)+0.2*A(606)+0.25& - &*A(623)+0.1*A(624)+0.25*A(626)+0.1*A(627)+2*A(742)+A(743)+A(746)+A(747)+A(748)+0.07*A(760)+A(770)+A(771)& - &+A(772)+A(773)+A(774)+A(775)+A(776)+A(778)+A(781)+A(798)+A(815)+A(832)+2*A(835)+A(837)+2*A(850)+A(851)& - &+A(856)+A(857)+1.75*A(858)+A(859)+0.75*A(860)+0.01*A(861)+A(863)+A(864)+A(865)+A(866)+A(867)+1.662*A(868)& - &+1.637*A(869)+A(870)+A(871)+0.55*A(872)+0.55*A(875)+0.67*A(876)+A(877)+0.645*A(879)+0.5*A(881)+A(882)+1.25& - &*A(883)+A(884)+0.546*A(885)+A(886)+0.3*A(887)+A(888)+A(890)+A(892) - P_VAR(287) = A(5) - P_VAR(288) = A(18)+A(176)+A(177)+A(186)+0.02*A(196)+A(197)+A(198)+A(199)+0.12*A(202)+0.2*A(203)+0.25*A(204)+0.21& - &*A(205)+0.1*A(206)+0.05*A(208)+0.3*A(209)+0.25*A(210)+0.1*A(211)+0.14*A(212)+0.35*A(213)+0.55*A(214)+0.31& - &*A(215)+0.35*A(216)+0.21*A(217)+0.1*A(218)+0.1*A(219)+0.14*A(220)+0.25*A(221)+A(738)+2*A(740)+A(741)& - &+A(750)+A(780)+A(792)+A(793)+A(816)+A(836) - P_VAR(289) = A(154)+A(165)+A(166)+A(167)+A(168)+A(169)+0.2*A(203)+A(282)+A(675) - P_VAR(290) = 0.66*A(202)+0.75*A(204)+2.37*A(205)+0.35*A(206)+0.19*A(210)+1.8*A(211)+0.86*A(212)+0.31*A(213)+0.69& - &*A(215)+0.79*A(217)+1.9*A(218)+0.95*A(219)+A(222)+A(224)+A(228)+A(232)+2*A(233)+3*A(234)+3*A(235)+A(236)+2& - &*A(237)+A(238)+2*A(239)+A(247)+A(249)+A(252)+A(253)+A(255)+2*A(265)+3*A(266)+0.249*A(298)+A(788)+2*A(789)& - &+A(790)+2*A(791)+A(792)+A(794)+A(795)+A(796)+A(798)+3*A(799)+4*A(800)+3*A(801)+2*A(802)+3*A(803)+2*A(804)& - &+A(805)+2*A(806)+2*A(807)+A(808)+A(809)+A(811)+A(813)+A(824)+A(829) - P_VAR(291) = 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(57)+A(59)+A(62)+A(64)& - &+A(66)+2*A(68)+A(69)+0.928*A(70)+A(71)+2*A(73)+A(79)+A(80)+A(96)+A(100)+A(137)+A(138)+2*A(145)+A(147)& - &+A(158)+A(164)+A(190)+A(191)+A(230)+A(249)+A(286)+2*A(287)+A(290)+A(297)+A(305)+A(309)+A(310)+A(312)& - &+A(319)+0.82*A(326)+A(330)+0.78*A(338)+A(342)+A(344)+2*A(345)+0.5*A(349)+A(351)+A(352)+2*A(353)+0.5*A(355)& - &+A(356)+A(365)+A(366)+A(367)+A(368)+A(393)+A(395)+A(397)+A(399)+A(416)+A(420)+A(424)+A(435)+A(439)+A(444)& - &+A(446)+A(448)+A(451)+A(453)+A(454)+A(456)+0.459*A(461)+1.728*A(462)+A(466)+A(471)+A(474)+A(477)+0.527& - &*A(480)+1.86*A(482)+0.563*A(483)+0.611*A(486)+A(487)+2*A(489)+A(490)+2*A(491)+A(493)+A(501)+0.058*A(507)& - &+1.065*A(509)+A(511)+A(513)+A(515)+0.565*A(517)+1.11*A(518)+0.09*A(519)+0.31*A(526)+A(531)+A(534)+A(544)& - &+A(550)+A(552)+0.5*A(554)+2*A(555)+A(556)+2*A(557)+0.7*A(558)+A(559)+A(566)+0.022*A(567)+A(568)+0.995& - &*A(581)+A(582)+A(586)+A(593)+A(594)+A(607)+A(610)+A(611)+A(613)+A(614)+0.5*A(619)+A(620)+A(635)+A(746)& - &+A(749)+A(750)+A(752)+0.7*A(755)+A(770)+A(777)+A(783)+A(784)+A(795)+A(797)+A(819)+A(831)+A(838)+A(839)& - &+A(840)+A(841)+A(843)+A(845)+A(846)+A(847)+A(848)+A(849)+A(853)+0.7*A(861)+A(862)+A(872)+A(873)+A(874)& - &+A(875)+A(876)+A(878)+A(879)+1.555*A(880)+0.3*A(886)+A(887)+A(888)+A(889) + 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) + 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(140) = 0 + P_VAR(141) = 0 + 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(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(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& + &*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(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& + &*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(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& + &*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)& + &+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& + &*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)& + &+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)& + &+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(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& + &*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& + &*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)& + &+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(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.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& + &*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& + &*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(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(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)& + &+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(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(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)& + &+A(161)+0.22*A(178)+A(181)+0.9*A(184)+0.351*A(187)+0.351*A(188)+0.9*A(189)+0.9*A(192)+A(195)+A(199)+A(201)& + &+0.25*A(231)+A(274)+A(319)+A(324)+A(360)+A(362)+A(363)+A(364)+0.06*A(365)+0.06*A(366)+A(367)+A(368)+0.1& + &*A(381)+0.1*A(383)+0.5*A(388)+0.84*A(399)+A(400)+1.5*A(401)+0.5*A(402)+0.4*A(403)+0.75*A(405)+A(406)& + &+A(407)+0.75*A(413)+0.67*A(421)+A(427)+0.75*A(432)+0.176*A(436)+0.4*A(437)+0.4*A(440)+0.4*A(442)+0.1& + &*A(445)+0.1*A(446)+0.1*A(447)+0.1*A(448)+0.05*A(449)+1.5*A(453)+1.5*A(454)+0.75*A(455)+0.75*A(456)+1.75& + &*A(458)+A(459)+0.75*A(460)+0.85*A(462)+0.1*A(463)+A(464)+1.3*A(466)+0.4*A(467)+0.287*A(469)+A(472)+0.85& + &*A(473)+0.287*A(475)+0.287*A(477)+0.202*A(479)+0.504*A(480)+A(489)+0.827*A(493)+0.3*A(496)+0.3*A(497)& + &+0.063*A(498)+0.063*A(500)+A(502)+0.3*A(503)+A(504)+0.3*A(505)+2*A(506)+2*A(507)+2*A(508)+2*A(512)+A(513)& + &+2*A(514)+A(515)+A(517)+A(521)+0.085*A(524)+0.165*A(525)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.716*A(540)& + &+0.14*A(542)+0.706*A(544)+0.14*A(546)+0.65*A(566)+A(568)+0.059*A(585)+0.272*A(586)+0.599*A(589)+A(590)& + &+0.031*A(594)+0.065*A(595)+0.065*A(597)+0.142*A(598)+0.104*A(600)+0.383*A(601)+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)+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(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(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& + &*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(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*A(529)+A(530)+0.25*A(535)+0.33*A(536)+0.036*A(537)+0.054*A(538)+A(557)+0.13*A(558)+0.2*A(559)+A(562)& + &+0.2*A(563)+0.13*A(565)+0.52*A(566)+0.8*A(568)+2*A(569)+0.6*A(582)+0.6*A(583)+0.539*A(638)+0.33*A(639)& + &+0.33*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(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(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)& + &+0.44*A(158)+A(159)+A(161)+A(163)+A(165)+A(167)+0.9*A(181)+0.243*A(182)+0.243*A(183)+0.9*A(186)+0.9*A(190)& + &+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(195)+A(202)+A(214)+A(216)+A(225)+0.2*A(231)+A(244)+A(245)+A(252)& + &+A(274)+A(275)+A(283)+A(284)+A(285)+A(292)+A(295)+A(315)+A(316)+A(317)+A(319)+A(322)+A(323)+A(324)+0.05& + &*A(381)+0.75*A(385)+A(386)+0.5*A(388)+A(401)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(413)+A(414)+0.75& + &*A(418)+A(419)+0.84*A(429)+A(431)+A(432)+A(445)+A(446)+A(453)+0.5*A(455)+1.75*A(456)+A(457)+1.75*A(458)& + &+A(459)+1.75*A(460)+A(461)+1.75*A(462)+A(463)+0.75*A(464)+0.75*A(466)+A(468)+2*A(472)+0.5*A(473)+A(474)& + &+A(476)+A(478)+0.5*A(479)+0.16*A(493)+0.4*A(496)+0.7*A(497)+0.063*A(498)+0.063*A(500)+0.4*A(503)+0.7& + &*A(505)+2*A(506)+2*A(507)+2*A(508)+A(509)+A(510)+A(511)+2*A(512)+1.5*A(513)+2*A(514)+1.5*A(515)+A(517)& + &+0.45*A(519)+A(521)+0.45*A(523)+0.085*A(524)+0.165*A(525)+0.283*A(528)+A(530)+0.25*A(535)+0.33*A(536)& + &+0.024*A(537)+0.042*A(538)+A(540)+0.275*A(542)+A(544)+0.275*A(546)+0.75*A(551)+A(552)+A(554)+A(556)+0.65& + &*A(558)+A(559)+A(561)+A(563)+0.65*A(565)+0.65*A(566)+A(568)+A(569)+0.4*A(582)+0.4*A(583)+A(584)+0.059& + &*A(585)+0.272*A(586)+A(588)+0.599*A(589)+A(590)+A(592)+A(593)+0.582*A(594)+A(595)+0.506*A(597)+A(598)& + &+0.379*A(600)+A(601)+0.089*A(607)+0.064*A(608)+0.336*A(609)+0.611*A(610)+0.159*A(612)+0.159*A(614)+0.159& + &*A(617)+A(619)+0.326*A(631)+0.58*A(632)+0.5*A(633)+0.904*A(635)+0.295*A(638)+0.33*A(639)+0.33*A(640)+0.89& + &*A(642)+0.73*A(643)+0.1*A(645)+0.036*A(646)+0.715*A(661)+A(663)+A(665)+A(666)+0.305*A(667)+0.242*A(668)& + &+0.507*A(670)+0.86*A(674)+0.7*A(682)+0.5*A(686)+0.444*A(687)+0.62*A(691)+0.5*A(694)+A(699)+0.7*A(702)+0.1& + &*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) + 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(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& + &*A(381)+0.65*A(383)+0.44*A(391)+0.6*A(421)+0.865*A(424)+0.44*A(436)+0.3*A(447)+0.3*A(448)+0.15*A(449)& + &+A(454)+0.28*A(493)+1.5*A(496)+1.5*A(497)+0.063*A(498)+0.063*A(500)+A(502)+1.5*A(503)+A(504)+1.5*A(505)& + &+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+1.085*A(524)+1.165*A(525)+A(526)& + &+A(527)+1.065*A(528)+A(529)+A(532)+A(534)+0.405*A(537)+0.745*A(538)+A(539)+0.275*A(542)+A(543)+0.275& + &*A(546)+A(548)+1.3*A(550)+A(557)+0.65*A(558)+A(562)+0.65*A(565)+0.65*A(566)+A(569)+A(570)+2*A(571)+A(572)& + &+2*A(573)+0.6*A(582)+0.6*A(583)+0.518*A(585)+0.599*A(589)+0.582*A(594)+0.506*A(597)+0.379*A(600)+0.527& + &*A(604)+A(623)+A(624)+A(628)+A(629)+A(630)+1.147*A(631)+0.646*A(632)+0.435*A(633)+0.096*A(635)+0.244& + &*A(638)+A(640)+0.82*A(643)+0.08*A(645)+0.12*A(648)+0.68*A(649)+0.02*A(650)+A(651)+A(652)+A(654)+A(656)& + &+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) + 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) + 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) ! Destruction function - D_VAR(1) = RCT(823) - D_VAR(2) = RCT(825) - D_VAR(3) = RCT(824) + D_VAR(1) = RCT(975) + D_VAR(2) = RCT(977) + D_VAR(3) = RCT(976) D_VAR(4) = 0 D_VAR(5) = 0 D_VAR(6) = 0 @@ -5655,21 +6779,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(629)*V(284)+RCT(630)*V(279) + D_VAR(13) = RCT(773)*V(337)+RCT(774)*V(346) D_VAR(14) = 0 D_VAR(15) = 0 D_VAR(16) = 0 D_VAR(17) = 0 - D_VAR(18) = RCT(575)*V(284)+RCT(576)*V(279) - D_VAR(19) = RCT(574)*V(286) + D_VAR(18) = RCT(699)*V(337)+RCT(700)*V(346) + D_VAR(19) = RCT(698)*V(345) D_VAR(20) = 0 D_VAR(21) = 0 - D_VAR(22) = RCT(631)*V(284)+RCT(632)*V(279) + D_VAR(22) = RCT(775)*V(337)+RCT(776)*V(346) D_VAR(23) = 0 - D_VAR(24) = RCT(128)*V(286)+RCT(717) + D_VAR(24) = RCT(177)*V(345)+RCT(861) D_VAR(25) = 0 D_VAR(26) = 0 - D_VAR(27) = RCT(633)*V(284)+RCT(634)*V(279) + D_VAR(27) = RCT(777)*V(337)+RCT(778)*V(346) D_VAR(28) = 0 D_VAR(29) = 0 D_VAR(30) = 0 @@ -5683,371 +6807,456 @@ 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(636)*V(286) - D_VAR(42) = RCT(296)+RCT(692)+RCT(693)+RCT(694)+RCT(826) - D_VAR(43) = RCT(235)*V(286)+RCT(799) - D_VAR(44) = RCT(307)+RCT(686)+RCT(687)+RCT(688)+RCT(821) - D_VAR(45) = RCT(363) - D_VAR(46) = RCT(308)*V(286)+RCT(822) - D_VAR(47) = RCT(214)*V(272)+RCT(810) - D_VAR(48) = RCT(221)*V(272)+RCT(812) - D_VAR(49) = RCT(689)+RCT(690)+RCT(691)+RCT(827) - D_VAR(50) = RCT(79) - D_VAR(51) = RCT(784) - D_VAR(52) = RCT(205)*V(272)+RCT(800) - D_VAR(53) = RCT(211)*V(272)+RCT(801) - D_VAR(54) = RCT(212)*V(272)+RCT(802) - D_VAR(55) = RCT(218)*V(272)+RCT(803) - D_VAR(56) = RCT(219)*V(272)+RCT(804) - D_VAR(57) = RCT(220)*V(272)+RCT(805) - D_VAR(58) = RCT(579)*V(286) - D_VAR(59) = RCT(213)*V(272)+RCT(811) - D_VAR(60) = RCT(284)*2*V(60)+RCT(818) - D_VAR(61) = RCT(179)*V(272)+RCT(833) - D_VAR(62) = RCT(844)+RCT(845) - D_VAR(63) = RCT(842)+RCT(843) - D_VAR(64) = RCT(589)*V(286) - D_VAR(65) = RCT(197)*F(3)+RCT(198)*V(279)+RCT(199)*V(291) - D_VAR(66) = RCT(187)*V(288)+RCT(188)*V(286)+RCT(834) - D_VAR(67) = RCT(54)+RCT(755) - D_VAR(68) = RCT(586)*V(286) - D_VAR(69) = RCT(302)*V(286)+RCT(681)+RCT(682)+RCT(683) - D_VAR(70) = RCT(609)*V(286)+RCT(892) - D_VAR(71) = RCT(173)*V(286)+RCT(208)*V(272)+RCT(786) - D_VAR(72) = RCT(233)*V(286)+RCT(265)*V(290)+RCT(789) - D_VAR(73) = RCT(828) - D_VAR(74) = RCT(147)+RCT(830)+RCT(831) - D_VAR(75) = RCT(227)*V(286)+RCT(257)+RCT(794) - D_VAR(76) = RCT(577)*V(282)+RCT(578)*V(286) - D_VAR(77) = RCT(172)*V(286)+RCT(209)*V(272)+RCT(785) - D_VAR(78) = RCT(234)*V(286)+RCT(266)*V(290) - D_VAR(79) = RCT(590)*V(286) - D_VAR(80) = RCT(591)*V(286) - D_VAR(81) = RCT(217)*V(272)+RCT(239)*V(286)+RCT(806) - D_VAR(82) = RCT(215)*V(272)+RCT(237)*V(286)+RCT(807) - D_VAR(83) = RCT(216)*V(272)+RCT(238)*V(286)+RCT(808) - D_VAR(84) = RCT(210)*V(272)+RCT(236)*V(286)+RCT(809) - D_VAR(85) = RCT(570)*V(286)+RCT(850) - D_VAR(86) = RCT(11)+RCT(12)*V(276)*V(286) - D_VAR(87) = RCT(367)*V(286)+RCT(848) - D_VAR(88) = RCT(129)*V(286)+RCT(778) - D_VAR(89) = RCT(365)*V(286)+RCT(846) - D_VAR(90) = RCT(148)*V(286)+RCT(149)*V(286)+RCT(150)*V(281) - D_VAR(91) = RCT(368)*V(286)+RCT(849) - D_VAR(92) = RCT(294)*V(227)+RCT(295)*2*V(92)+RCT(297)*V(279)+RCT(817) - D_VAR(93) = RCT(125)*V(286)+RCT(774) - D_VAR(94) = RCT(123)*V(286)+RCT(772) - D_VAR(95) = RCT(124)*V(286)+RCT(773) - D_VAR(96) = RCT(366)*V(286)+RCT(847) - D_VAR(97) = RCT(610)+RCT(611)*V(286) - D_VAR(98) = RCT(362) - D_VAR(99) = RCT(829) - D_VAR(100) = RCT(174)*V(286)+RCT(207)*V(272)+RCT(787) - D_VAR(101) = RCT(604)*V(286)+RCT(605)*V(281)+RCT(891) - D_VAR(102) = RCT(40)+RCT(41)*V(286)+RCT(748)+RCT(749) - D_VAR(103) = RCT(255)+RCT(258)*V(290)+RCT(813) - D_VAR(104) = RCT(569)*V(286)+RCT(723)+RCT(852) - D_VAR(105) = RCT(561)*V(286)+RCT(724) - D_VAR(106) = RCT(126)*V(286)+RCT(776) - D_VAR(107) = RCT(616)*V(286)+RCT(893) - D_VAR(108) = RCT(584)+RCT(585)*F(3) - D_VAR(109) = RCT(406)*V(286) - D_VAR(110) = RCT(122)*V(286)+RCT(771) - D_VAR(111) = RCT(226)*V(286)+RCT(793) - D_VAR(112) = RCT(127)*V(286)+RCT(775) - D_VAR(113) = RCT(121)*V(286)+RCT(770) - D_VAR(114) = RCT(65)*V(286)+RCT(74)*V(281)+RCT(280)*V(290) - D_VAR(115) = RCT(599)*V(286)+RCT(600)*V(281) - D_VAR(116) = RCT(427)*V(286)+RCT(716) - D_VAR(117) = RCT(539)*V(286) - D_VAR(118) = RCT(597)*V(286)+RCT(598)*V(281) - D_VAR(119) = RCT(343)*V(286)+RCT(837) - D_VAR(120) = RCT(587)*V(286)+RCT(588)*V(286)+RCT(890) - D_VAR(121) = RCT(446)*V(279)+RCT(447)*V(284) - D_VAR(122) = RCT(835) - D_VAR(123) = RCT(448)*V(279)+RCT(449)*V(284) - D_VAR(124) = RCT(60)*V(286)+RCT(61)*V(286)+RCT(169)*V(273)+RCT(276)*V(290)+RCT(277)*V(290) - D_VAR(125) = RCT(563)*V(286)+RCT(885) - D_VAR(126) = RCT(495)*F(3)+RCT(496) - D_VAR(127) = RCT(403)*V(286)+RCT(871) - D_VAR(128) = RCT(160)*V(286)+RCT(779) - D_VAR(129) = RCT(402)*V(286)+RCT(870) - D_VAR(130) = RCT(428)*V(286)+RCT(429)*V(286)+RCT(714) - D_VAR(131) = RCT(430)*V(286)+RCT(431)*V(286)+RCT(715) - D_VAR(132) = RCT(542)*V(286) - D_VAR(133) = RCT(101)*V(286)+RCT(274)*V(290) - D_VAR(134) = RCT(364)*V(286)+RCT(722)+RCT(841) - D_VAR(135) = RCT(790) - D_VAR(136) = RCT(548)*V(286)+RCT(860) - D_VAR(137) = RCT(32)*V(286)+RCT(269)*V(290)+RCT(743) - D_VAR(138) = RCT(4)*V(276)*V(282)+RCT(5)*V(275)+RCT(6)*V(265) - D_VAR(139) = RCT(450)*V(286)+RCT(451)*V(286)+RCT(726)+RCT(873) - D_VAR(140) = RCT(452)*V(286)+RCT(453)*V(286)+RCT(727)+RCT(874) - D_VAR(141) = RCT(564)*V(286)+RCT(883) - D_VAR(142) = RCT(601)*V(286)+RCT(602)*V(282)+RCT(603)*V(281) - D_VAR(143) = RCT(288)*V(281)+RCT(301)*V(286)+RCT(814) - D_VAR(144) = RCT(531)*V(279)+RCT(532)*V(284)+RCT(533)*V(291) - D_VAR(145) = RCT(534)*V(279)+RCT(535)*V(284)+RCT(536)*V(291) - D_VAR(146) = RCT(518)*V(279)+RCT(519)*V(284) - D_VAR(147) = RCT(1)*V(276)*V(282)+RCT(2)*V(275)+RCT(3)*V(265) - D_VAR(148) = RCT(626)*V(286)+RCT(627)*V(282)+RCT(628) - D_VAR(149) = RCT(206)*V(272)+RCT(232)*V(286)+RCT(264)*V(290)+RCT(788) - D_VAR(150) = RCT(515)*V(279)+RCT(516)*V(284) - D_VAR(151) = RCT(498)*V(286)+RCT(500)*V(286)+RCT(501)*V(286)+RCT(503)*V(286)+RCT(504)*V(286)+RCT(730)+RCT(877)& - &+RCT(878) - D_VAR(152) = RCT(464)+RCT(465)*V(284)+RCT(466)*V(279)+RCT(467)*V(279) - D_VAR(153) = RCT(559)+RCT(560)*V(286) - D_VAR(154) = RCT(324)*V(286)+RCT(331)*V(282)+RCT(333)*V(281) - D_VAR(155) = RCT(325)*V(286)+RCT(332)*V(282)+RCT(334)*V(281) - D_VAR(156) = RCT(538)*V(286)+RCT(857) - D_VAR(157) = RCT(407)*V(286)+RCT(408)*V(286)+RCT(411)*V(286)+RCT(864) - D_VAR(158) = RCT(102)*V(286) - D_VAR(159) = RCT(623)*V(286)+RCT(624)*V(282)+RCT(625) - D_VAR(160) = RCT(617)*V(282)+RCT(618)*V(291) - D_VAR(161) = RCT(56)*V(286)+RCT(130)*V(281)+RCT(168)*V(273)+RCT(270)*V(290) - D_VAR(162) = RCT(409)*V(286)+RCT(410)*V(286)+RCT(412)*V(286)+RCT(865) - D_VAR(163) = RCT(537)*V(286)+RCT(858) - D_VAR(164) = RCT(565)*V(286)+RCT(884) - D_VAR(165) = RCT(414)*V(286)+RCT(867) - D_VAR(166) = RCT(468)+RCT(470)*V(284)+RCT(471)*V(279)+RCT(472)*V(279) - D_VAR(167) = RCT(460)+RCT(461)*V(284)+RCT(462)*V(279)+RCT(463)*V(279) - D_VAR(168) = RCT(469)+RCT(473)*V(284)+RCT(474)*V(279)+RCT(475)*V(279) - D_VAR(169) = RCT(541)*V(286)+RCT(854) - D_VAR(170) = RCT(335)*V(286)+RCT(336)*V(282)+RCT(337)*V(281) - D_VAR(171) = RCT(413)*V(286)+RCT(866) - D_VAR(172) = RCT(572)*V(286)+RCT(573)*V(286)+RCT(851) - D_VAR(173) = RCT(46)+RCT(642)*V(278)+RCT(643)*V(275)+RCT(644)+RCT(645)*V(280)+RCT(646)*V(287)+RCT(752) - D_VAR(174) = RCT(405)*V(286)+RCT(729) - D_VAR(175) = RCT(530)*V(286)+RCT(735)+RCT(863) - D_VAR(176) = RCT(159)*V(273)+RCT(649)*V(278)+RCT(650)*V(275)+RCT(782)+RCT(783) - D_VAR(177) = RCT(194)*F(3)+RCT(195)*V(282)+RCT(196)*V(284) - D_VAR(178) = RCT(357)*V(286)+RCT(361)*V(281)+RCT(720)+RCT(839) - D_VAR(179) = RCT(580)*V(284)+RCT(581)*V(279)+RCT(582)*V(281)+RCT(583)*V(266) - D_VAR(180) = RCT(606)*V(284)+RCT(607)*V(279)+RCT(608)*V(291)+RCT(622)*V(266) - D_VAR(181) = RCT(497)*V(286)+RCT(499)*V(286)+RCT(502)*V(286)+RCT(731)+RCT(876) - D_VAR(182) = RCT(415)+RCT(416)*V(279)+RCT(417)*V(279)+RCT(418)*V(284) - D_VAR(183) = RCT(419)+RCT(420)*V(279)+RCT(421)*V(279)+RCT(422)*V(284) - D_VAR(184) = RCT(592)*V(284)+RCT(593)*V(279)+RCT(594)*V(281)+RCT(595)*V(266)+RCT(596)*V(261) - D_VAR(185) = RCT(540)*V(286)+RCT(855) - D_VAR(186) = RCT(400)*V(286)+RCT(868) - D_VAR(187) = RCT(423)+RCT(424)*V(279)+RCT(425)*V(279)+RCT(426)*V(284) - D_VAR(188) = RCT(401)*V(286)+RCT(869) - D_VAR(189) = RCT(505)+RCT(508)*V(284)+RCT(511)*V(279)+RCT(512)*V(279) - D_VAR(190) = RCT(25)*V(286)+RCT(180)*V(272)+RCT(240)*V(290) - D_VAR(191) = RCT(612)*V(291)+RCT(613)*V(279)+RCT(614)*V(281)+RCT(615)*V(284)+RCT(621)*V(266) - D_VAR(192) = RCT(404)*V(286) - D_VAR(193) = RCT(38)*V(286)+RCT(747) - D_VAR(194) = RCT(442)*V(284)+RCT(443)*V(279)+RCT(444)*V(279)+RCT(445) - D_VAR(195) = RCT(318)*V(267)+RCT(319)*V(279)+RCT(320)*V(291)+RCT(321)*V(276)+RCT(322)*V(278)+RCT(323)*V(278) - D_VAR(196) = RCT(33)*V(286)+RCT(832) - D_VAR(197) = RCT(204)*V(272)+RCT(222)*V(286)+RCT(791) - D_VAR(198) = RCT(310)*V(286)+RCT(853) - D_VAR(199) = RCT(358)*V(286)+RCT(359)*V(282)+RCT(360)*V(281)+RCT(721)+RCT(840) - D_VAR(200) = RCT(529)*V(286)+RCT(736)+RCT(862) - D_VAR(201) = RCT(73)*V(279)+RCT(90)*V(284)+RCT(100)*V(266)+RCT(138)*V(261) - D_VAR(202) = RCT(75)*V(286)+RCT(719)+RCT(777) - D_VAR(203) = RCT(286)+RCT(287)*2*V(203)+RCT(695)+RCT(696)+RCT(700)*V(283)+RCT(701)*V(277)+RCT(702)*V(280)+RCT(703)& - &*V(287)+RCT(819) - D_VAR(204) = RCT(543)*V(284)+RCT(544)*V(279)+RCT(545)*V(279) - D_VAR(205) = RCT(546)*V(284)+RCT(549)+RCT(550)*V(279)+RCT(551)*V(279) - D_VAR(206) = RCT(562)*V(286)+RCT(881)+RCT(882) - D_VAR(207) = RCT(547)*V(284)+RCT(552)*V(279)+RCT(553)*V(291) - D_VAR(208) = RCT(309)*V(286)+RCT(568)*V(281)+RCT(838) - D_VAR(209) = RCT(64)*V(279)+RCT(84)*V(266)+RCT(108)*V(284)+RCT(141)*V(261) - D_VAR(210) = RCT(619)*V(286)+RCT(620)*V(281)+RCT(737)+RCT(894) - D_VAR(211) = RCT(47)*V(286)+RCT(267)*V(290) - D_VAR(212) = RCT(7)*V(276)+RCT(21)*V(286)+RCT(193)*V(288)+RCT(244)*V(290)+RCT(742) - D_VAR(213) = RCT(566)*V(286)+RCT(733)+RCT(888)+RCT(889) - D_VAR(214) = RCT(456)*V(286)+RCT(457)*V(286)+RCT(459)*V(286)+RCT(728)+RCT(875) - D_VAR(215) = RCT(344)*V(279)+RCT(346)*V(284)+RCT(348)*V(266)+RCT(350)*V(261)+RCT(352)*V(281)+RCT(354)*2*V(215)& - &+RCT(355)*V(216) - D_VAR(216) = RCT(345)*V(279)+RCT(347)*V(284)+RCT(349)*V(266)+RCT(351)*V(261)+RCT(353)*V(281)+RCT(355)*V(215)+RCT(356)& - &*2*V(216) - D_VAR(217) = RCT(57)*V(279)+RCT(58)*V(279)+RCT(92)*V(266)+RCT(103)*2*V(217)+RCT(105)*V(284)+RCT(139)*V(261)+RCT(271)& - &*V(290) - D_VAR(218) = RCT(48)*V(286)+RCT(273)*V(290) - D_VAR(219) = RCT(76)*V(286)+RCT(275)*V(290) - D_VAR(220) = RCT(454)*V(286)+RCT(455)*V(286)+RCT(458)*V(286)+RCT(725)+RCT(872) - D_VAR(221) = RCT(82)*V(286)+RCT(167)*V(273)+RCT(278)*V(290)+RCT(757)+RCT(758) - D_VAR(222) = RCT(506)+RCT(507)*V(284)+RCT(509)*V(279)+RCT(510)*V(279) - D_VAR(223) = RCT(115)*V(286)+RCT(117)*V(281)+RCT(712)+RCT(761)+RCT(762)+RCT(763) - D_VAR(224) = RCT(279)*V(290)+RCT(369)*V(282)+RCT(370)*V(286)+RCT(371)*V(286)+RCT(372)*V(286)+RCT(373)*V(286)+RCT(479)& - &*V(281) - D_VAR(225) = RCT(338)*V(279)+RCT(339)*V(284)+RCT(340)*V(266)+RCT(341)*V(261)+RCT(342)*V(281) - D_VAR(226) = RCT(91)*V(286)+RCT(94)*V(281)+RCT(759) - D_VAR(227) = RCT(289)*V(291)+RCT(293)*V(274)+RCT(294)*V(92)+RCT(298)*V(285)+RCT(304)*V(284)+RCT(305)*V(279)+RCT(306)*2& - &*V(227)+RCT(816) - D_VAR(228) = RCT(432)+RCT(433)+RCT(434)*V(284)+RCT(435)*V(279)+RCT(436)*V(279) - D_VAR(229) = RCT(437)+RCT(438)+RCT(439)*V(279)+RCT(440)*V(279)+RCT(441)*V(284) - D_VAR(230) = RCT(527)*V(286)+RCT(856) - D_VAR(231) = RCT(528)*V(286)+RCT(859) - D_VAR(232) = RCT(476)*V(284)+RCT(477)*V(279)+RCT(478)*V(279) - D_VAR(233) = RCT(116)*V(286)+RCT(118)*V(281)+RCT(713)+RCT(764) - D_VAR(234) = RCT(311)*V(267)+RCT(312)*V(279)+RCT(313)*V(291)+RCT(314)*V(278)+RCT(315)*V(278)*V(278)+RCT(316)*V(282)& - &+RCT(317)*V(276) - D_VAR(235) = RCT(230)*V(286)+RCT(658)*V(280)+RCT(659)*V(287)+RCT(660)*V(275)+RCT(661)*V(283)+RCT(662)*V(277)+RCT(663)& - &*V(289)+RCT(795) - D_VAR(236) = RCT(112)*V(286)+RCT(113)*V(286)+RCT(760) - D_VAR(237) = RCT(62)*V(279)+RCT(63)*V(279)+RCT(83)*V(266)+RCT(107)*V(284)+RCT(142)*V(261) - D_VAR(238) = RCT(326)*V(279)+RCT(327)*V(284)+RCT(328)*V(266)+RCT(329)*V(261)+RCT(330)*V(281) - D_VAR(239) = RCT(59)*V(279)+RCT(93)*V(266)+RCT(104)*2*V(239)+RCT(106)*V(284)+RCT(140)*V(261)+RCT(272)*V(290) - D_VAR(240) = RCT(513)*V(286)+RCT(514)*V(286)+RCT(879) - D_VAR(241) = RCT(526)*V(286)+RCT(718)+RCT(861) - D_VAR(242) = RCT(567)*V(286)+RCT(734)+RCT(886)+RCT(887) - D_VAR(243) = RCT(517)*V(286)+RCT(732)+RCT(880) - D_VAR(244) = RCT(376)*V(284)+RCT(377)*V(284)+RCT(380)+RCT(381)+RCT(383)*2*V(244)+RCT(384)*V(245)+RCT(386)*2*V(244)& - &+RCT(387)*V(245)+RCT(390)*V(266)+RCT(391)*V(266)+RCT(396)*V(279)+RCT(397)*V(279)+RCT(398)*V(279)+RCT(399)& - &*V(279) - D_VAR(245) = RCT(374)*V(284)+RCT(375)*V(284)+RCT(378)+RCT(379)+RCT(382)*2*V(245)+RCT(384)*V(244)+RCT(385)*2*V(245)& - &+RCT(387)*V(244)+RCT(388)*V(266)+RCT(389)*V(266)+RCT(392)*V(279)+RCT(393)*V(279)+RCT(394)*V(279)+RCT(395)& - &*V(279) - D_VAR(246) = RCT(481)*V(284)+RCT(483)*V(247)+RCT(484)*2*V(246)+RCT(485)*V(266)+RCT(488)*V(261)+RCT(490)*V(281)& - &+RCT(493)*V(279)+RCT(494)*V(279) - D_VAR(247) = RCT(480)*V(284)+RCT(482)*2*V(247)+RCT(483)*V(246)+RCT(486)*V(266)+RCT(487)*V(261)+RCT(489)*V(281)& - &+RCT(491)*V(279)+RCT(492)*V(279) - D_VAR(248) = RCT(520)*V(286)+RCT(521)*V(282)+RCT(765)+RCT(766)+RCT(767) - D_VAR(249) = RCT(554)*V(284)+RCT(555)*V(279)+RCT(556)*V(291)+RCT(557)*V(281)+RCT(558)*V(266) - D_VAR(250) = RCT(119)*V(286)+RCT(120)*V(286)+RCT(769) - D_VAR(251) = RCT(522)*V(286)+RCT(523)*V(286)+RCT(524)*V(282)+RCT(525)*V(281)+RCT(768) - D_VAR(252) = RCT(69)*V(279)+RCT(87)*V(284)+RCT(97)*V(266)+RCT(134)*V(261) - D_VAR(253) = RCT(110)*V(286)+RCT(111)*V(282)+RCT(114)*V(281)+RCT(281)*V(290)+RCT(282)*V(273) - D_VAR(254) = RCT(70)*V(279)+RCT(88)*V(284)+RCT(98)*V(266)+RCT(135)*V(261) - D_VAR(255) = RCT(78)*V(291)+RCT(80)*V(279)+RCT(109)*V(284)+RCT(143)*V(261)+RCT(144)*V(266) - D_VAR(256) = RCT(66)*V(279)+RCT(67)*V(279)+RCT(85)*V(284)+RCT(95)*V(266)+RCT(133)*V(261) - D_VAR(257) = RCT(68)*V(279)+RCT(86)*V(284)+RCT(96)*V(266)+RCT(137)*V(261) - D_VAR(258) = RCT(71)*V(279)+RCT(72)*V(279)+RCT(89)*V(284)+RCT(99)*V(266)+RCT(136)*V(261) - D_VAR(259) = RCT(77)*V(286)+RCT(81)*V(281)+RCT(756) - D_VAR(260) = RCT(161)*V(288)+RCT(669)*V(289)+RCT(670)*V(275)+RCT(671)*V(280)+RCT(672)*V(287)+RCT(673)*V(283)+RCT(674)& - &*V(277)+RCT(675)*V(276)+RCT(781) - D_VAR(261) = RCT(53)*V(291)+RCT(55)*V(279)+RCT(131)*2*V(261)+RCT(132)*V(266)+RCT(133)*V(256)+RCT(134)*V(252)+RCT(135)& - &*V(254)+RCT(136)*V(258)+RCT(137)*V(257)+RCT(138)*V(201)+RCT(139)*V(217)+RCT(140)*V(239)+RCT(141)*V(209)& - &+RCT(142)*V(237)+RCT(143)*V(255)+RCT(329)*V(238)+RCT(341)*V(225)+RCT(350)*V(215)+RCT(351)*V(216)+RCT(487)& - &*V(247)+RCT(488)*V(246)+RCT(571)*V(284)+RCT(596)*V(184) - D_VAR(262) = RCT(231)*V(286)+RCT(262)*V(288)+RCT(263)*V(290)+RCT(651)*V(278)+RCT(652)*V(275)+RCT(653)*V(289)+RCT(654)& - &*V(283)+RCT(655)*V(277)+RCT(656)*V(280)+RCT(657)*V(287)+RCT(796)+RCT(797) - D_VAR(263) = RCT(10)*V(276)+RCT(34)*V(286)+RCT(50)*V(281)+RCT(165)*V(273)+RCT(201)*V(288)+RCT(241)*V(290)+RCT(744)& - &+RCT(745) - D_VAR(264) = RCT(51)*V(286)+RCT(52)*V(281)+RCT(166)*V(273)+RCT(753)+RCT(754) - D_VAR(265) = RCT(3)*V(147)+RCT(6)*V(138)+RCT(36)*V(286)+RCT(746) - D_VAR(266) = RCT(17)*V(282)+RCT(26)*V(279)+RCT(27)*V(279)+RCT(28)*V(284)+RCT(29)*2*V(266)+RCT(30)*2*V(266)+RCT(31)& - &*V(286)+RCT(83)*V(237)+RCT(84)*V(209)+RCT(92)*V(217)+RCT(93)*V(239)+RCT(95)*V(256)+RCT(96)*V(257)+RCT(97)& - &*V(252)+RCT(98)*V(254)+RCT(99)*V(258)+RCT(100)*V(201)+RCT(132)*V(261)+RCT(144)*V(255)+RCT(146)*V(291)& - &+RCT(223)*V(285)+RCT(268)*V(290)+RCT(328)*V(238)+RCT(340)*V(225)+RCT(348)*V(215)+RCT(349)*V(216)+RCT(388)& - &*V(245)+RCT(389)*V(245)+RCT(390)*V(244)+RCT(391)*V(244)+RCT(485)*V(246)+RCT(486)*V(247)+RCT(558)*V(249)& - &+RCT(583)*V(179)+RCT(595)*V(184)+RCT(621)*V(191)+RCT(622)*V(180)+RCT(635)*V(281) - D_VAR(267) = RCT(24)*V(286)+RCT(311)*V(234)+RCT(318)*V(195) - D_VAR(268) = RCT(303)*V(286)+RCT(684)+RCT(685)+RCT(708)*V(283)+RCT(709)*V(277)+RCT(710)*V(280)+RCT(711)*V(287)& - &+RCT(815) - D_VAR(269) = RCT(283)*V(279)+RCT(285)*V(291)+RCT(291)*V(270)+RCT(292)*V(274)+RCT(299)*V(282)+RCT(300)*V(284) - D_VAR(270) = RCT(290)+RCT(291)*V(269)+RCT(697)+RCT(698)+RCT(699)*V(278)+RCT(704)*V(283)+RCT(705)*V(277)+RCT(706)& - &*V(280)+RCT(707)*V(287)+RCT(820) - D_VAR(271) = RCT(229)*V(286)+RCT(664)*V(275)+RCT(665)*V(289)+RCT(666)*V(280)+RCT(667)*V(287)+RCT(668)*V(276)+RCT(798) - D_VAR(272) = RCT(175)*V(278)+RCT(176)*F(2)+RCT(177)*F(3)+RCT(178)*F(1)+RCT(179)*V(61)+RCT(180)*V(190)+RCT(186)*V(282)& - &+RCT(202)*V(275)+RCT(203)*V(289)+RCT(204)*V(197)+RCT(205)*V(52)+RCT(206)*V(149)+RCT(207)*V(100)+RCT(208)& - &*V(71)+RCT(209)*V(77)+RCT(210)*V(84)+RCT(211)*V(53)+RCT(212)*V(54)+RCT(213)*V(59)+RCT(214)*V(47)+RCT(215)& - &*V(82)+RCT(216)*V(83)+RCT(217)*V(81)+RCT(218)*V(55)+RCT(219)*V(56)+RCT(220)*V(57)+RCT(221)*V(48) - D_VAR(273) = RCT(152)*V(282)+RCT(154)*V(284)+RCT(159)*V(176)+RCT(164)*V(281)+RCT(165)*V(263)+RCT(166)*V(264)+RCT(167)& - &*V(221)+RCT(168)*V(161)+RCT(169)*V(124)+RCT(170)*V(291)+RCT(282)*V(253) - D_VAR(274) = RCT(153)*V(284)+RCT(156)*2*V(274)+RCT(157)*2*V(274)+RCT(158)*V(279)+RCT(163)*V(286)+RCT(171)*V(291)& - &+RCT(200)*V(288)+RCT(259)*V(285)+RCT(260)*V(285)+RCT(261)*V(285)+RCT(292)*V(269)+RCT(293)*V(227)+RCT(780) - D_VAR(275) = RCT(2)*V(147)+RCT(5)*V(138)+RCT(202)*V(272)+RCT(228)*V(286)+RCT(643)*V(173)+RCT(650)*V(176)+RCT(652)& - &*V(262)+RCT(660)*V(235)+RCT(664)*V(271)+RCT(670)*V(260) - D_VAR(276) = RCT(1)*V(147)*V(282)+RCT(4)*V(138)*V(282)+RCT(7)*V(212)+RCT(8)*V(282)+RCT(9)+RCT(10)*V(263)+RCT(12)*V(86)& - &*V(286)+RCT(151)*V(286)+RCT(317)*V(234)+RCT(321)*V(195)+RCT(668)*V(271)+RCT(675)*V(260) - D_VAR(277) = RCT(655)*V(262)+RCT(662)*V(235)+RCT(674)*V(260)+RCT(678)*V(282)+RCT(701)*V(203)+RCT(705)*V(270)+RCT(709)& - &*V(268) - D_VAR(278) = RCT(175)*V(272)+RCT(314)*V(234)+RCT(315)*2*V(234)*V(278)+RCT(322)*V(195)+RCT(323)*V(195)+RCT(642)*V(173)& - &+RCT(649)*V(176)+RCT(651)*V(262)+RCT(699)*V(270) - D_VAR(279) = RCT(13)*V(282)+RCT(22)*V(284)+RCT(26)*V(266)+RCT(27)*V(266)+RCT(37)*V(286)+RCT(43)*V(281)+RCT(55)*V(261)& - &+RCT(57)*V(217)+RCT(58)*V(217)+RCT(59)*V(239)+RCT(62)*V(237)+RCT(63)*V(237)+RCT(64)*V(209)+RCT(66)*V(256)& - &+RCT(67)*V(256)+RCT(68)*V(257)+RCT(69)*V(252)+RCT(70)*V(254)+RCT(71)*V(258)+RCT(72)*V(258)+RCT(73)*V(201)& - &+RCT(80)*V(255)+RCT(158)*V(274)+RCT(191)*V(288)+RCT(198)*V(65)+RCT(249)*V(285)+RCT(283)*V(269)+RCT(297)& - &*V(92)+RCT(305)*V(227)+RCT(312)*V(234)+RCT(319)*V(195)+RCT(326)*V(238)+RCT(338)*V(225)+RCT(344)*V(215)& - &+RCT(345)*V(216)+RCT(392)*V(245)+RCT(393)*V(245)+RCT(394)*V(245)+RCT(395)*V(245)+RCT(396)*V(244)+RCT(397)& - &*V(244)+RCT(398)*V(244)+RCT(399)*V(244)+RCT(416)*V(182)+RCT(417)*V(182)+RCT(420)*V(183)+RCT(421)*V(183)& - &+RCT(424)*V(187)+RCT(425)*V(187)+RCT(435)*V(228)+RCT(436)*V(228)+RCT(439)*V(229)+RCT(440)*V(229)+RCT(443)& - &*V(194)+RCT(444)*V(194)+RCT(446)*V(121)+RCT(448)*V(123)+RCT(462)*V(167)+RCT(463)*V(167)+RCT(466)*V(152)& - &+RCT(467)*V(152)+RCT(471)*V(166)+RCT(472)*V(166)+RCT(474)*V(168)+RCT(475)*V(168)+RCT(477)*V(232)+RCT(478)& - &*V(232)+RCT(491)*V(247)+RCT(492)*V(247)+RCT(493)*V(246)+RCT(494)*V(246)+RCT(509)*V(222)+RCT(510)*V(222)& - &+RCT(511)*V(189)+RCT(512)*V(189)+RCT(515)*V(150)+RCT(518)*V(146)+RCT(531)*V(144)+RCT(534)*V(145)+RCT(544)& - &*V(204)+RCT(545)*V(204)+RCT(550)*V(205)+RCT(551)*V(205)+RCT(552)*V(207)+RCT(555)*V(249)+RCT(576)*V(18)& - &+RCT(581)*V(179)+RCT(593)*V(184)+RCT(607)*V(180)+RCT(613)*V(191)+RCT(630)*V(13)+RCT(632)*V(22)+RCT(634)& - &*V(27)+RCT(836) - D_VAR(280) = RCT(645)*V(173)+RCT(647)*V(286)+RCT(656)*V(262)+RCT(658)*V(235)+RCT(666)*V(271)+RCT(671)*V(260)+RCT(702)& - &*V(203)+RCT(706)*V(270)+RCT(710)*V(268) - D_VAR(281) = RCT(42)*V(284)+RCT(43)*V(279)+RCT(44)*V(286)+RCT(45)*V(291)+RCT(49)*V(291)+RCT(50)*V(263)+RCT(52)*V(264)& - &+RCT(74)*V(114)+RCT(81)*V(259)+RCT(94)*V(226)+RCT(114)*V(253)+RCT(117)*V(223)+RCT(118)*V(233)+RCT(130)& - &*V(161)+RCT(145)*2*V(281)+RCT(150)*V(90)+RCT(164)*V(273)+RCT(190)*V(288)+RCT(288)*V(143)+RCT(330)*V(238)& - &+RCT(333)*V(154)+RCT(334)*V(155)+RCT(337)*V(170)+RCT(342)*V(225)+RCT(352)*V(215)+RCT(353)*V(216)+RCT(360)& - &*V(199)+RCT(361)*V(178)+RCT(479)*V(224)+RCT(489)*V(247)+RCT(490)*V(246)+RCT(525)*V(251)+RCT(557)*V(249)& - &+RCT(568)*V(208)+RCT(582)*V(179)+RCT(594)*V(184)+RCT(598)*V(118)+RCT(600)*V(115)+RCT(603)*V(142)+RCT(605)& - &*V(101)+RCT(614)*V(191)+RCT(620)*V(210)+RCT(635)*V(266)+RCT(639)+RCT(640)+RCT(641)+RCT(750)+RCT(751) - D_VAR(282) = RCT(1)*V(147)*V(276)+RCT(4)*V(138)*V(276)+RCT(8)*V(276)+RCT(13)*V(279)+RCT(14)*V(286)+RCT(15)*V(284)& - &+RCT(16)*V(291)+RCT(17)*V(266)+RCT(111)*V(253)+RCT(152)*V(273)+RCT(182)*V(288)+RCT(186)*V(272)+RCT(195)& - &*V(177)+RCT(242)*V(290)+RCT(299)*V(269)+RCT(316)*V(234)+RCT(331)*V(154)+RCT(332)*V(155)+RCT(336)*V(170)& - &+RCT(359)*V(199)+RCT(369)*V(224)+RCT(521)*V(248)+RCT(524)*V(251)+RCT(577)*V(76)+RCT(602)*V(142)+RCT(617)& - &*V(160)+RCT(624)*V(159)+RCT(627)*V(148)+RCT(676)*V(289)+RCT(677)*V(283)+RCT(678)*V(277)+RCT(738)+RCT(739) - D_VAR(283) = RCT(654)*V(262)+RCT(661)*V(235)+RCT(673)*V(260)+RCT(677)*V(282)+RCT(700)*V(203)+RCT(704)*V(270)+RCT(708)& - &*V(268) - D_VAR(284) = RCT(15)*V(282)+RCT(20)*V(286)+RCT(22)*V(279)+RCT(23)*2*V(284)+RCT(28)*V(266)+RCT(39)*V(291)+RCT(42)& - &*V(281)+RCT(85)*V(256)+RCT(86)*V(257)+RCT(87)*V(252)+RCT(88)*V(254)+RCT(89)*V(258)+RCT(90)*V(201)+RCT(105)& - &*V(217)+RCT(106)*V(239)+RCT(107)*V(237)+RCT(108)*V(209)+RCT(109)*V(255)+RCT(153)*V(274)+RCT(154)*V(273)& - &+RCT(185)*V(288)+RCT(196)*V(177)+RCT(245)*V(290)+RCT(246)*V(290)+RCT(248)*V(285)+RCT(300)*V(269)+RCT(304)& - &*V(227)+RCT(327)*V(238)+RCT(339)*V(225)+RCT(346)*V(215)+RCT(347)*V(216)+RCT(374)*V(245)+RCT(375)*V(245)& - &+RCT(376)*V(244)+RCT(377)*V(244)+RCT(418)*V(182)+RCT(422)*V(183)+RCT(426)*V(187)+RCT(434)*V(228)+RCT(441)& - &*V(229)+RCT(442)*V(194)+RCT(447)*V(121)+RCT(449)*V(123)+RCT(461)*V(167)+RCT(465)*V(152)+RCT(470)*V(166)& - &+RCT(473)*V(168)+RCT(476)*V(232)+RCT(480)*V(247)+RCT(481)*V(246)+RCT(507)*V(222)+RCT(508)*V(189)+RCT(516)& - &*V(150)+RCT(519)*V(146)+RCT(532)*V(144)+RCT(535)*V(145)+RCT(543)*V(204)+RCT(546)*V(205)+RCT(547)*V(207)& - &+RCT(554)*V(249)+RCT(571)*V(261)+RCT(575)*V(18)+RCT(580)*V(179)+RCT(592)*V(184)+RCT(606)*V(180)+RCT(615)& - &*V(191)+RCT(629)*V(13)+RCT(631)*V(22)+RCT(633)*V(27)+RCT(637) - D_VAR(285) = RCT(223)*V(266)+RCT(224)*V(286)+RCT(225)*V(286)+RCT(247)*V(288)+RCT(248)*V(284)+RCT(249)*V(279)+RCT(250)& - &*V(291)+RCT(251)*2*V(285)+RCT(252)*2*V(285)+RCT(253)*2*V(285)+RCT(256)*2*V(285)+RCT(259)*V(274)+RCT(260)& - &*V(274)+RCT(261)*V(274)+RCT(298)*V(227)+RCT(792) - D_VAR(286) = RCT(12)*V(86)*V(276)+RCT(14)*V(282)+RCT(18)*2*V(286)+RCT(19)*2*V(286)+RCT(20)*V(284)+RCT(21)*V(212)& - &+RCT(24)*V(267)+RCT(25)*V(190)+RCT(31)*V(266)+RCT(32)*V(137)+RCT(33)*V(196)+RCT(34)*V(263)+RCT(35)*V(291)& - &+RCT(36)*V(265)+RCT(37)*V(279)+RCT(38)*V(193)+RCT(41)*V(102)+RCT(44)*V(281)+RCT(47)*V(211)+RCT(48)*V(218)& - &+RCT(51)*V(264)+RCT(56)*V(161)+RCT(60)*V(124)+RCT(61)*V(124)+RCT(65)*V(114)+RCT(75)*V(202)+RCT(76)*V(219)& - &+RCT(77)*V(259)+RCT(82)*V(221)+RCT(91)*V(226)+RCT(101)*V(133)+RCT(102)*V(158)+RCT(110)*V(253)+RCT(112)& - &*V(236)+RCT(113)*V(236)+RCT(115)*V(223)+RCT(116)*V(233)+RCT(119)*V(250)+RCT(120)*V(250)+RCT(121)*V(113)& - &+RCT(122)*V(110)+RCT(123)*V(94)+RCT(124)*V(95)+RCT(125)*V(93)+RCT(126)*V(106)+RCT(127)*V(112)+RCT(128)& - &*V(24)+RCT(129)*V(88)+RCT(148)*V(90)+RCT(149)*V(90)+RCT(151)*V(276)+RCT(155)*V(289)+RCT(160)*V(128)& - &+RCT(163)*V(274)+RCT(172)*V(77)+RCT(173)*V(71)+RCT(174)*V(100)+RCT(183)*F(1)+RCT(184)*V(288)+RCT(188)& - &*V(66)+RCT(222)*V(197)+RCT(224)*V(285)+RCT(225)*V(285)+RCT(226)*V(111)+RCT(227)*V(75)+RCT(228)*V(275)& - &+RCT(229)*V(271)+RCT(230)*V(235)+RCT(231)*V(262)+RCT(232)*V(149)+RCT(233)*V(72)+RCT(234)*V(78)+RCT(235)& - &*V(43)+RCT(236)*V(84)+RCT(237)*V(82)+RCT(238)*V(83)+RCT(239)*V(81)+RCT(301)*V(143)+RCT(302)*V(69)+RCT(303)& - &*V(268)+RCT(308)*V(46)+RCT(309)*V(208)+RCT(310)*V(198)+RCT(324)*V(154)+RCT(325)*V(155)+RCT(335)*V(170)& - &+RCT(343)*V(119)+RCT(357)*V(178)+RCT(358)*V(199)+RCT(364)*V(134)+RCT(365)*V(89)+RCT(366)*V(96)+RCT(367)& - &*V(87)+RCT(368)*V(91)+RCT(370)*V(224)+RCT(371)*V(224)+RCT(372)*V(224)+RCT(373)*V(224)+RCT(400)*V(186)& - &+RCT(401)*V(188)+RCT(402)*V(129)+RCT(403)*V(127)+RCT(404)*V(192)+RCT(405)*V(174)+RCT(406)*V(109)+RCT(407)& - &*V(157)+RCT(408)*V(157)+RCT(409)*V(162)+RCT(410)*V(162)+RCT(411)*V(157)+RCT(412)*V(162)+RCT(413)*V(171)& - &+RCT(414)*V(165)+RCT(427)*V(116)+RCT(428)*V(130)+RCT(429)*V(130)+RCT(430)*V(131)+RCT(431)*V(131)+RCT(450)& - &*V(139)+RCT(451)*V(139)+RCT(452)*V(140)+RCT(453)*V(140)+RCT(454)*V(220)+RCT(455)*V(220)+RCT(456)*V(214)& - &+RCT(457)*V(214)+RCT(458)*V(220)+RCT(459)*V(214)+RCT(497)*V(181)+RCT(498)*V(151)+RCT(499)*V(181)+RCT(500)& - &*V(151)+RCT(501)*V(151)+RCT(502)*V(181)+RCT(503)*V(151)+RCT(504)*V(151)+RCT(513)*V(240)+RCT(514)*V(240)& - &+RCT(517)*V(243)+RCT(520)*V(248)+RCT(522)*V(251)+RCT(523)*V(251)+RCT(526)*V(241)+RCT(527)*V(230)+RCT(528)& - &*V(231)+RCT(529)*V(200)+RCT(530)*V(175)+RCT(537)*V(163)+RCT(538)*V(156)+RCT(539)*V(117)+RCT(540)*V(185)& - &+RCT(541)*V(169)+RCT(542)*V(132)+RCT(548)*V(136)+RCT(560)*V(153)+RCT(561)*V(105)+RCT(562)*V(206)+RCT(563)& - &*V(125)+RCT(564)*V(141)+RCT(565)*V(164)+RCT(566)*V(213)+RCT(567)*V(242)+RCT(569)*V(104)+RCT(570)*V(85)& - &+RCT(572)*V(172)+RCT(573)*V(172)+RCT(574)*V(19)+RCT(578)*V(76)+RCT(579)*V(58)+RCT(586)*V(68)+RCT(587)& - &*V(120)+RCT(588)*V(120)+RCT(589)*V(64)+RCT(590)*V(79)+RCT(591)*V(80)+RCT(597)*V(118)+RCT(599)*V(115)& - &+RCT(601)*V(142)+RCT(604)*V(101)+RCT(609)*V(70)+RCT(611)*V(97)+RCT(616)*V(107)+RCT(619)*V(210)+RCT(623)& - &*V(159)+RCT(626)*V(148)+RCT(636)*V(41)+RCT(647)*V(280)+RCT(648)*V(287) - D_VAR(287) = RCT(646)*V(173)+RCT(648)*V(286)+RCT(657)*V(262)+RCT(659)*V(235)+RCT(667)*V(271)+RCT(672)*V(260)+RCT(703)& - &*V(203)+RCT(707)*V(270)+RCT(711)*V(268) - D_VAR(288) = RCT(161)*V(260)+RCT(162)*V(289)+RCT(181)*F(3)+RCT(182)*V(282)+RCT(184)*V(286)+RCT(185)*V(284)+RCT(187)& - &*V(66)+RCT(189)*V(291)+RCT(190)*V(281)+RCT(191)*V(279)+RCT(192)*V(291)+RCT(193)*V(212)+RCT(200)*V(274)& - &+RCT(201)*V(263)+RCT(247)*V(285)+RCT(262)*V(262) - D_VAR(289) = RCT(155)*V(286)+RCT(162)*V(288)+RCT(203)*V(272)+RCT(653)*V(262)+RCT(663)*V(235)+RCT(665)*V(271)+RCT(669)& - &*V(260)+RCT(676)*V(282)+RCT(679)+RCT(680) - D_VAR(290) = RCT(240)*V(190)+RCT(241)*V(263)+RCT(242)*V(282)+RCT(243)*F(1)+RCT(244)*V(212)+RCT(245)*V(284)+RCT(246)& - &*V(284)+RCT(254)*F(3)+RCT(258)*V(103)+RCT(263)*V(262)+RCT(264)*V(149)+RCT(265)*V(72)+RCT(266)*V(78)& - &+RCT(267)*V(211)+RCT(268)*V(266)+RCT(269)*V(137)+RCT(270)*V(161)+RCT(271)*V(217)+RCT(272)*V(239)+RCT(273)& - &*V(218)+RCT(274)*V(133)+RCT(275)*V(219)+RCT(276)*V(124)+RCT(277)*V(124)+RCT(278)*V(221)+RCT(279)*V(224)& - &+RCT(280)*V(114)+RCT(281)*V(253) - D_VAR(291) = RCT(16)*V(282)+RCT(35)*V(286)+RCT(39)*V(284)+RCT(45)*V(281)+RCT(49)*V(281)+RCT(53)*V(261)+RCT(78)*V(255)& - &+RCT(146)*V(266)+RCT(170)*V(273)+RCT(171)*V(274)+RCT(189)*V(288)+RCT(192)*V(288)+RCT(199)*V(65)+RCT(250)& - &*V(285)+RCT(285)*V(269)+RCT(289)*V(227)+RCT(313)*V(234)+RCT(320)*V(195)+RCT(533)*V(144)+RCT(536)*V(145)& - &+RCT(553)*V(207)+RCT(556)*V(249)+RCT(608)*V(180)+RCT(612)*V(191)+RCT(618)*V(160)+RCT(638)+RCT(741) + 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) END SUBROUTINE Fun_SPLITF ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! @@ -6063,274 +7272,346 @@ SUBROUTINE CalcStoichNum ( StoichNum ) REAL(kind=dp) :: StoichNum(NVAR,NREACT) StoichNum(:,:) = 0. - StoichNum(1,823) = -1 - StoichNum(2,825) = -1 - StoichNum(3,824) = -1 - StoichNum(4,681) = 1 - StoichNum(4,686) = 2 - StoichNum(4,689) = 2 - StoichNum(4,692) = 2 - StoichNum(5,737) = 1 - StoichNum(6,636) = 1 + StoichNum(1,975) = -1 + StoichNum(2,977) = -1 + StoichNum(3,976) = -1 + StoichNum(4,825) = 1 + StoichNum(4,830) = 2 + StoichNum(4,833) = 2 + StoichNum(4,836) = 2 + StoichNum(5,881) = 1 + StoichNum(6,780) = 1 StoichNum(7,24) = 1 StoichNum(7,47) = 1 - StoichNum(7,55) = 1 - StoichNum(7,76) = 1 - StoichNum(7,80) = 1 - StoichNum(7,97) = 0.3 - StoichNum(7,109) = 0.43 - StoichNum(7,111) = 0.1 - StoichNum(7,112) = 0.361 - StoichNum(7,120) = 0.5 - StoichNum(7,129) = 0.22 - StoichNum(7,131) = 2 - StoichNum(7,132) = 0.9 - StoichNum(7,133) = 0.9 - StoichNum(7,134) = 0.9 - StoichNum(7,135) = 0.9 - StoichNum(7,136) = 0.9 - StoichNum(7,137) = 0.645 - StoichNum(7,138) = 0.9 - StoichNum(7,139) = 0.9 - StoichNum(7,140) = 0.9 - StoichNum(7,141) = 0.9 - StoichNum(7,142) = 0.9 - StoichNum(7,143) = 2 - StoichNum(7,144) = 1 - StoichNum(7,188) = 1 - StoichNum(7,267) = 1 - StoichNum(7,275) = 1 - StoichNum(7,309) = 1 - StoichNum(7,311) = 1 + StoichNum(7,56) = 1 + StoichNum(7,104) = 1 + StoichNum(7,109) = 1 + StoichNum(7,127) = 1 + StoichNum(7,128) = 0.44 + StoichNum(7,136) = 0.3 + StoichNum(7,148) = 0.43 + StoichNum(7,150) = 0.1 + StoichNum(7,151) = 0.361 + StoichNum(7,158) = 0.44 + StoichNum(7,168) = 0.5 + StoichNum(7,178) = 0.22 + StoichNum(7,180) = 2 + StoichNum(7,181) = 0.9 + StoichNum(7,182) = 0.9 + StoichNum(7,183) = 0.9 + StoichNum(7,184) = 0.9 + StoichNum(7,185) = 0.9 + StoichNum(7,186) = 0.9 + StoichNum(7,187) = 0.645 + StoichNum(7,188) = 0.645 + StoichNum(7,189) = 0.9 + StoichNum(7,190) = 0.9 + StoichNum(7,191) = 0.9 + StoichNum(7,192) = 0.9 + StoichNum(7,193) = 0.9 + StoichNum(7,194) = 2 + StoichNum(7,195) = 1 + StoichNum(7,239) = 1 StoichNum(7,318) = 1 - StoichNum(7,329) = 1 - StoichNum(7,350) = 1 - StoichNum(7,369) = 0.407 - StoichNum(7,404) = 0.355 - StoichNum(7,446) = 1 - StoichNum(7,447) = 1 - StoichNum(7,448) = 1 - StoichNum(7,449) = 1 - StoichNum(7,487) = 1 - StoichNum(7,488) = 1 - StoichNum(7,515) = 0.429 - StoichNum(7,516) = 0.429 - StoichNum(7,528) = 0.23 - StoichNum(7,530) = 0.75 - StoichNum(7,537) = 0.097 - StoichNum(7,547) = 0.5 - StoichNum(7,548) = 0.41 - StoichNum(7,552) = 1 - StoichNum(7,554) = 0.5 - StoichNum(7,555) = 1 - StoichNum(7,557) = 1 - StoichNum(7,558) = 0.7 - StoichNum(7,565) = 1 - StoichNum(7,569) = 1 - StoichNum(7,571) = 0.5 - StoichNum(7,596) = 1 - StoichNum(7,606) = 0.35 - StoichNum(7,607) = 1 + StoichNum(7,326) = 1 + StoichNum(7,360) = 1 + StoichNum(7,362) = 1 + StoichNum(7,369) = 1 + StoichNum(7,392) = 1 + StoichNum(7,395) = 1 + StoichNum(7,397) = 1 + StoichNum(7,436) = 0.44 + StoichNum(7,437) = 1 + StoichNum(7,440) = 1 + StoichNum(7,442) = 1 + StoichNum(7,457) = 0.9 + StoichNum(7,459) = 0.9 + StoichNum(7,461) = 0.9 + StoichNum(7,463) = 0.9 + StoichNum(7,464) = 0.75 + StoichNum(7,465) = 2 + StoichNum(7,466) = 0.75 + StoichNum(7,467) = 1 + StoichNum(7,474) = 1 + StoichNum(7,493) = 0.407 + StoichNum(7,528) = 0.355 + StoichNum(7,570) = 1 + StoichNum(7,571) = 1 + StoichNum(7,572) = 1 + StoichNum(7,573) = 1 StoichNum(7,611) = 1 - StoichNum(7,622) = 1 - StoichNum(7,755) = 0.3 - StoichNum(7,778) = 1 - StoichNum(7,852) = 1 - StoichNum(7,860) = 1.238 - StoichNum(7,892) = 1 - StoichNum(7,894) = 1 - StoichNum(8,362) = 1 - StoichNum(8,363) = 1 - StoichNum(9,682) = 1 - StoichNum(9,684) = 1 - StoichNum(9,687) = 2 - StoichNum(9,690) = 2 - StoichNum(9,693) = 2 - StoichNum(9,695) = 1 - StoichNum(9,697) = 1 - StoichNum(10,683) = 1 - StoichNum(10,685) = 1 - StoichNum(10,688) = 2 - StoichNum(10,691) = 2 - StoichNum(10,694) = 2 - StoichNum(10,696) = 1 - StoichNum(10,698) = 1 - StoichNum(11,629) = 1 - StoichNum(12,630) = 1 - StoichNum(13,589) = 1 - StoichNum(13,629) = -1 - StoichNum(13,630) = -1 - StoichNum(14,370) = 1 - StoichNum(14,371) = 1 - StoichNum(14,372) = 1 - StoichNum(14,373) = 1 - StoichNum(15,479) = 1 - StoichNum(16,575) = 1 - StoichNum(17,576) = 1 - StoichNum(18,574) = 1 - StoichNum(18,575) = -1 - StoichNum(18,576) = -1 - StoichNum(19,574) = -1 - StoichNum(20,631) = 1 - StoichNum(21,632) = 1 - StoichNum(22,590) = 1 - StoichNum(22,631) = -1 - StoichNum(22,632) = -1 - StoichNum(23,717) = 1 - StoichNum(24,128) = -1 - StoichNum(24,407) = 0.005 - StoichNum(24,408) = 0.005 - StoichNum(24,409) = 0.005 - StoichNum(24,410) = 0.005 - StoichNum(24,411) = 0.005 - StoichNum(24,412) = 0.005 - StoichNum(24,413) = 0.005 - StoichNum(24,414) = 0.005 - StoichNum(24,717) = -1 - StoichNum(25,633) = 1 - StoichNum(26,634) = 1 - StoichNum(27,591) = 1 - StoichNum(27,633) = -1 - StoichNum(27,634) = -1 - StoichNum(28,149) = 0.25 + StoichNum(7,612) = 1 + StoichNum(7,639) = 0.429 + StoichNum(7,640) = 0.429 + StoichNum(7,652) = 0.23 + StoichNum(7,654) = 0.75 + StoichNum(7,661) = 0.097 + StoichNum(7,671) = 0.5 + StoichNum(7,672) = 0.41 + StoichNum(7,676) = 1 + StoichNum(7,678) = 0.5 + StoichNum(7,679) = 1 + StoichNum(7,681) = 1 + StoichNum(7,682) = 0.7 + StoichNum(7,689) = 1 + StoichNum(7,693) = 1 + StoichNum(7,695) = 0.5 + StoichNum(7,701) = 1 + StoichNum(7,731) = 1 + StoichNum(7,736) = 2 + StoichNum(7,737) = 0.44 + StoichNum(7,750) = 0.35 + 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,1051) = 1 + StoichNum(7,1055) = 1 + StoichNum(7,1056) = 1 + StoichNum(8,486) = 1 + StoichNum(8,487) = 1 + StoichNum(9,826) = 1 + StoichNum(9,828) = 1 + StoichNum(9,831) = 2 + StoichNum(9,834) = 2 + StoichNum(9,837) = 2 + StoichNum(9,839) = 1 + StoichNum(9,841) = 1 + StoichNum(10,827) = 1 + StoichNum(10,829) = 1 + StoichNum(10,832) = 2 + StoichNum(10,835) = 2 + StoichNum(10,838) = 2 + StoichNum(10,840) = 1 + StoichNum(10,842) = 1 + StoichNum(11,773) = 1 + StoichNum(12,774) = 1 + StoichNum(13,724) = 1 + StoichNum(13,773) = -1 + StoichNum(13,774) = -1 + StoichNum(14,494) = 1 + StoichNum(14,495) = 1 + StoichNum(14,496) = 1 + StoichNum(14,497) = 1 + StoichNum(15,603) = 1 + StoichNum(16,699) = 1 + StoichNum(17,700) = 1 + StoichNum(18,698) = 1 + StoichNum(18,699) = -1 + StoichNum(18,700) = -1 + StoichNum(19,698) = -1 + StoichNum(20,775) = 1 + StoichNum(21,776) = 1 + StoichNum(22,725) = 1 + StoichNum(22,775) = -1 + StoichNum(22,776) = -1 + StoichNum(23,861) = 1 + StoichNum(24,177) = -1 + StoichNum(24,531) = 0.005 + StoichNum(24,532) = 0.005 + StoichNum(24,533) = 0.005 + StoichNum(24,534) = 0.005 + StoichNum(24,535) = 0.005 + StoichNum(24,536) = 0.005 + StoichNum(24,537) = 0.005 + StoichNum(24,538) = 0.005 + StoichNum(24,861) = -1 + StoichNum(25,777) = 1 + StoichNum(26,778) = 1 + StoichNum(27,726) = 1 + StoichNum(27,777) = -1 + StoichNum(27,778) = -1 + StoichNum(28,200) = 0.25 StoichNum(29,4) = 1 - StoichNum(30,712) = 1 - StoichNum(30,713) = 1.5 - StoichNum(30,723) = 1.5 - StoichNum(31,714) = 1 - StoichNum(31,715) = 1 - StoichNum(31,716) = 1 - StoichNum(31,724) = 0.8 - StoichNum(31,729) = 1 - StoichNum(32,151) = 1 - StoichNum(32,317) = 1 - StoichNum(32,321) = 1 - StoichNum(33,7) = 1 - StoichNum(33,8) = 1 - StoichNum(33,9) = 1 + StoichNum(30,856) = 1 + StoichNum(30,857) = 1.5 + StoichNum(30,867) = 1.5 + StoichNum(31,858) = 1 + StoichNum(31,859) = 1 + StoichNum(31,860) = 1 + StoichNum(31,868) = 0.8 + StoichNum(31,873) = 1 + StoichNum(32,202) = 1 + StoichNum(32,368) = 1 + StoichNum(32,372) = 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,55) = 1 - StoichNum(34,57) = 1 - StoichNum(34,59) = 1 - StoichNum(34,62) = 1 - StoichNum(34,64) = 1 - StoichNum(34,66) = 1 - StoichNum(34,67) = 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,69) = 1 - StoichNum(34,70) = 1 - StoichNum(34,71) = 1 - StoichNum(34,73) = 1 + StoichNum(34,73) = 2 + StoichNum(34,78) = 0.942 StoichNum(34,80) = 1 - StoichNum(34,109) = 0.15 + 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,196) = 0.02 - StoichNum(34,197) = 1 - StoichNum(34,198) = 1 - StoichNum(34,222) = 1 - StoichNum(34,230) = 1 - StoichNum(34,231) = 1 - StoichNum(34,246) = 1 - StoichNum(34,258) = 0.1 - StoichNum(34,268) = 1 - StoichNum(34,271) = 1 - StoichNum(34,272) = 1 - StoichNum(34,301) = 1 - StoichNum(34,312) = 1 - StoichNum(34,313) = 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,320) = 1 - StoichNum(34,326) = 1 - StoichNum(34,338) = 1 - StoichNum(34,344) = 1 - StoichNum(34,345) = 1 - StoichNum(34,362) = 1 + StoichNum(34,322) = 1 + StoichNum(34,323) = 1 + StoichNum(34,352) = 1 StoichNum(34,363) = 1 StoichNum(34,364) = 1 - StoichNum(34,365) = 1 - StoichNum(34,366) = 1 - StoichNum(34,367) = 1 - StoichNum(34,368) = 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,393) = 1 StoichNum(34,394) = 1 - StoichNum(34,395) = 1 - StoichNum(34,396) = 1 - StoichNum(34,397) = 1 - StoichNum(34,398) = 1 - StoichNum(34,399) = 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,417) = 1 - StoichNum(34,420) = 1 - StoichNum(34,421) = 1 - StoichNum(34,424) = 1 - StoichNum(34,425) = 1 + StoichNum(34,418) = 0.75 + StoichNum(34,426) = 0.5 + StoichNum(34,429) = 0.84 StoichNum(34,435) = 1 - StoichNum(34,436) = 1 + StoichNum(34,436) = 0.15 + StoichNum(34,437) = 1 StoichNum(34,439) = 1 - StoichNum(34,440) = 1 - StoichNum(34,443) = 1 - StoichNum(34,444) = 1 - StoichNum(34,446) = 1 - StoichNum(34,448) = 1 - StoichNum(34,462) = 1 - StoichNum(34,463) = 1 - StoichNum(34,466) = 1 - StoichNum(34,467) = 1 - StoichNum(34,471) = 1 - StoichNum(34,472) = 1 - StoichNum(34,474) = 1 - StoichNum(34,475) = 1 - StoichNum(34,477) = 1 - StoichNum(34,478) = 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,493) = 1 - StoichNum(34,494) = 1 - StoichNum(34,509) = 1 - StoichNum(34,510) = 1 - StoichNum(34,511) = 1 - StoichNum(34,512) = 1 - StoichNum(34,515) = 1 + StoichNum(34,516) = 1 + StoichNum(34,517) = 1 StoichNum(34,518) = 1 - StoichNum(34,526) = 0.69 - StoichNum(34,531) = 1 - StoichNum(34,534) = 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,547) = 0.13 - StoichNum(34,550) = 1 - StoichNum(34,551) = 1 - StoichNum(34,552) = 1 - StoichNum(34,554) = 0.13 - StoichNum(34,555) = 1 + StoichNum(34,548) = 1 + StoichNum(34,549) = 1 + StoichNum(34,559) = 1 StoichNum(34,560) = 1 - StoichNum(34,571) = 0.13 - StoichNum(34,581) = 0.995 + 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,593) = 1 - StoichNum(34,606) = 0.15 - StoichNum(34,607) = 1 - StoichNum(34,610) = 1 - StoichNum(34,611) = 1 - StoichNum(34,612) = 1 - StoichNum(34,613) = 1 - StoichNum(34,619) = 1 - StoichNum(34,740) = 2 - StoichNum(34,748) = 1 - StoichNum(34,755) = 0.3 - StoichNum(34,830) = 1 - StoichNum(34,833) = 1 - StoichNum(34,836) = 1 - StoichNum(34,846) = 1 - StoichNum(34,847) = 1 - StoichNum(34,848) = 1 - StoichNum(34,849) = 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 @@ -6342,4212 +7623,5166 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(35,49) = 2 StoichNum(35,50) = 1 StoichNum(35,52) = 1 - StoichNum(35,74) = 1 - StoichNum(35,81) = 1 - StoichNum(35,94) = 1 - StoichNum(35,111) = 1 - StoichNum(35,114) = 1 - StoichNum(35,117) = 1 - StoichNum(35,118) = 1 - StoichNum(35,130) = 1 - StoichNum(35,145) = 2 + 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,156) = 2 - StoichNum(35,157) = 2 - StoichNum(35,161) = 1 + StoichNum(35,154) = 1 + StoichNum(35,155) = 1 + StoichNum(35,159) = 1 StoichNum(35,162) = 1 - StoichNum(35,163) = 1 - StoichNum(35,175) = 1 - StoichNum(35,178) = 1 + StoichNum(35,165) = 1 + StoichNum(35,166) = 1 StoichNum(35,179) = 1 - StoichNum(35,180) = 1 - StoichNum(35,182) = 2 - StoichNum(35,184) = 1 - StoichNum(35,185) = 1 - StoichNum(35,186) = 1 - StoichNum(35,187) = 1 - StoichNum(35,189) = 2 - StoichNum(35,190) = 2 - StoichNum(35,193) = 1 - StoichNum(35,195) = 1 - StoichNum(35,200) = 2 + StoichNum(35,196) = 2 StoichNum(35,201) = 1 - StoichNum(35,202) = 0.66 - StoichNum(35,203) = 0.6 - StoichNum(35,206) = 0.44 - StoichNum(35,207) = 0.56 - StoichNum(35,210) = 0.19 - StoichNum(35,218) = 0.1 - StoichNum(35,219) = 0.05 - StoichNum(35,223) = 1 - StoichNum(35,224) = 1 - StoichNum(35,225) = 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,227) = 1 - StoichNum(35,247) = 2 + 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) = 2 - StoichNum(35,260) = 2 - StoichNum(35,261) = 2 - StoichNum(35,293) = 0.4 - StoichNum(35,298) = 0.88 - StoichNum(35,316) = 1 - StoichNum(35,330) = 1 - StoichNum(35,331) = 1 - StoichNum(35,332) = 1 - StoichNum(35,333) = 1 - StoichNum(35,334) = 1 - StoichNum(35,336) = 1 - StoichNum(35,337) = 1 - StoichNum(35,342) = 1 - StoichNum(35,352) = 1 - StoichNum(35,353) = 1 - StoichNum(35,359) = 1 - StoichNum(35,360) = 2 - StoichNum(35,361) = 2 - StoichNum(35,369) = 1 - StoichNum(35,479) = 1 - StoichNum(35,489) = 1 - StoichNum(35,490) = 1 - StoichNum(35,521) = 1 - StoichNum(35,524) = 1 - StoichNum(35,525) = 1 - StoichNum(35,557) = 1 - StoichNum(35,568) = 1 - StoichNum(35,577) = 1 - StoichNum(35,582) = 1 - StoichNum(35,594) = 1 - StoichNum(35,598) = 1.258 - StoichNum(35,600) = 1.5 - StoichNum(35,602) = 1 - StoichNum(35,603) = 1.5 - StoichNum(35,605) = 1 - StoichNum(35,608) = 1 + 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,617) = 1 - StoichNum(35,618) = 1 - StoichNum(35,624) = 1 - StoichNum(35,627) = 1 - StoichNum(35,635) = 1 - StoichNum(35,638) = 0.5 - StoichNum(35,639) = 1 - StoichNum(35,640) = 1 - StoichNum(35,641) = 1 - StoichNum(35,642) = 1 - StoichNum(35,643) = 1 - StoichNum(35,644) = 1 StoichNum(35,645) = 1 - StoichNum(35,646) = 1 - StoichNum(35,650) = 1 - StoichNum(35,652) = 1 - StoichNum(35,653) = 1 - StoichNum(35,654) = 1 - StoichNum(35,655) = 1 - StoichNum(35,656) = 1 - StoichNum(35,657) = 1 - StoichNum(35,658) = 1 - StoichNum(35,659) = 1 - StoichNum(35,660) = 1 - StoichNum(35,661) = 1 - StoichNum(35,662) = 1 - StoichNum(35,663) = 1 - StoichNum(35,664) = 1 - StoichNum(35,665) = 1 - StoichNum(35,666) = 1 - StoichNum(35,667) = 1 - StoichNum(35,668) = 1 - StoichNum(35,669) = 1 - StoichNum(35,670) = 1 - StoichNum(35,671) = 1 - StoichNum(35,672) = 1 - StoichNum(35,673) = 1 - StoichNum(35,674) = 1 - StoichNum(35,675) = 1 - StoichNum(35,684) = 1 - StoichNum(35,685) = 1 - StoichNum(35,686) = 2 - StoichNum(35,687) = 2 - StoichNum(35,688) = 2 - StoichNum(35,689) = 3 - StoichNum(35,690) = 3 - StoichNum(35,691) = 3 - StoichNum(35,692) = 4 - StoichNum(35,693) = 4 - StoichNum(35,694) = 4 - StoichNum(35,695) = 1 - StoichNum(35,696) = 1 - StoichNum(35,697) = 1 - StoichNum(35,698) = 1 - StoichNum(35,700) = 1 - StoichNum(35,701) = 1 - StoichNum(35,702) = 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,705) = 1 StoichNum(35,706) = 1 - StoichNum(35,707) = 1 StoichNum(35,708) = 1 - StoichNum(35,709) = 1 - StoichNum(35,710) = 1 - StoichNum(35,711) = 1 - StoichNum(35,718) = 1 - StoichNum(35,719) = 1 - StoichNum(35,720) = 1 - StoichNum(35,721) = 1 - StoichNum(35,722) = 1 - StoichNum(35,725) = 1 - StoichNum(35,726) = 1 - StoichNum(35,727) = 1 - StoichNum(35,728) = 1 - StoichNum(35,730) = 1 - StoichNum(35,731) = 1 - StoichNum(35,732) = 2 - StoichNum(35,733) = 1 - StoichNum(35,734) = 1 - StoichNum(35,735) = 1 - StoichNum(35,736) = 1 - StoichNum(35,751) = 2 - StoichNum(35,781) = 1 - StoichNum(35,794) = 2 + 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,817) = 2 + 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,111) = 0.56 - StoichNum(36,112) = 0.505 - StoichNum(36,113) = 1 - StoichNum(36,115) = 2 - StoichNum(36,116) = 1 - StoichNum(36,117) = 2 - StoichNum(36,118) = 1 - StoichNum(36,120) = 0.5 - StoichNum(36,165) = 1 - StoichNum(36,187) = 1 - StoichNum(36,201) = 1 - StoichNum(36,241) = 1 - StoichNum(36,264) = 1 - StoichNum(36,265) = 1 - StoichNum(36,266) = 1 - StoichNum(36,331) = 0.14 - StoichNum(36,332) = 0.14 - StoichNum(36,336) = 0.14 - StoichNum(36,369) = 0.407 - StoichNum(36,372) = 0.6 - StoichNum(36,373) = 0.9 - StoichNum(36,379) = 0.6 - StoichNum(36,381) = 0.9 - StoichNum(36,385) = 1 - StoichNum(36,386) = 1 - StoichNum(36,387) = 1 - StoichNum(36,389) = 0.5 - StoichNum(36,391) = 0.5 - StoichNum(36,395) = 0.55 - StoichNum(36,399) = 0.55 - StoichNum(36,400) = 0.45 - StoichNum(36,401) = 0.37 - StoichNum(36,402) = 0.42 - StoichNum(36,403) = 0.23 - StoichNum(36,404) = 0.638 - StoichNum(36,405) = 1.5 - StoichNum(36,406) = 1 - StoichNum(36,411) = 0.25 - StoichNum(36,412) = 0.33 - StoichNum(36,413) = 0.036 - StoichNum(36,414) = 0.054 - StoichNum(36,433) = 1 - StoichNum(36,434) = 0.13 - StoichNum(36,435) = 0.2 - StoichNum(36,438) = 1 - StoichNum(36,439) = 0.2 - StoichNum(36,441) = 0.13 - StoichNum(36,442) = 0.52 - StoichNum(36,444) = 0.8 - StoichNum(36,445) = 2 - StoichNum(36,458) = 0.6 - StoichNum(36,459) = 0.6 - StoichNum(36,514) = 0.539 - StoichNum(36,515) = 0.33 - StoichNum(36,516) = 0.33 - StoichNum(36,521) = 0.28 - StoichNum(36,522) = 0.036 - StoichNum(36,524) = 0.12 - StoichNum(36,525) = 0.68 - StoichNum(36,528) = 0.77 - StoichNum(36,530) = 0.25 - StoichNum(36,537) = 0.75 - StoichNum(36,538) = 1 - StoichNum(36,540) = 1 - StoichNum(36,541) = 2 - StoichNum(36,542) = 0.84 - StoichNum(36,546) = 0.507 - StoichNum(36,547) = 0.325 - StoichNum(36,548) = 0.488 - StoichNum(36,549) = 1 - StoichNum(36,550) = 0.86 - StoichNum(36,552) = 0.65 - StoichNum(36,560) = 0.25 - StoichNum(36,561) = 1 + 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.888 - StoichNum(36,566) = 1 - StoichNum(36,572) = 1 - StoichNum(36,579) = 0.364 - StoichNum(36,589) = 0.2 - StoichNum(36,590) = 0.27 - StoichNum(36,591) = 0.3 - StoichNum(36,619) = 0.15 - StoichNum(36,620) = 0.15 - StoichNum(36,623) = 0.26 - StoichNum(36,624) = 0.5 - StoichNum(36,626) = 0.25 - StoichNum(36,627) = 0.5 - StoichNum(36,628) = 0.05 - StoichNum(36,744) = 1 - StoichNum(36,745) = 1 - StoichNum(36,753) = 0.88 - StoichNum(36,754) = 1 - StoichNum(36,756) = 1 - StoichNum(36,758) = 1 - StoichNum(36,760) = 1 - StoichNum(36,761) = 2 - StoichNum(36,762) = 2 - StoichNum(36,763) = 1 - StoichNum(36,764) = 1 - StoichNum(36,765) = 1 - StoichNum(36,766) = 1 - StoichNum(36,768) = 1 - StoichNum(36,834) = 1 - StoichNum(36,838) = 1 - StoichNum(36,851) = 1 - StoichNum(36,854) = 1 - StoichNum(36,855) = 0.5 - StoichNum(36,857) = 0.571 - StoichNum(36,858) = 0.875 - StoichNum(36,859) = 0.77 - StoichNum(36,862) = 1 - StoichNum(36,863) = 1 - StoichNum(36,868) = 0.888 - StoichNum(36,869) = 0.818 - StoichNum(36,870) = 1 - StoichNum(36,871) = 1 - StoichNum(36,872) = 0.55 - StoichNum(36,875) = 0.55 - StoichNum(36,879) = 0.839 - StoichNum(36,881) = 1 - StoichNum(36,882) = 0.163 - StoichNum(36,885) = 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,891) = 1 - StoichNum(36,894) = 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,311) = 1 - StoichNum(37,318) = 1 + StoichNum(37,362) = 1 + StoichNum(37,369) = 1 StoichNum(38,1) = 1 StoichNum(38,7) = 1 StoichNum(38,8) = 1 StoichNum(38,9) = 1 StoichNum(38,12) = 2 - StoichNum(38,151) = 1 - StoichNum(38,317) = 1 - StoichNum(38,321) = 1 - StoichNum(38,668) = 1 - StoichNum(38,675) = 1 + StoichNum(38,202) = 1 + StoichNum(38,368) = 1 + StoichNum(38,372) = 1 + StoichNum(38,812) = 1 + StoichNum(38,819) = 1 StoichNum(39,25) = 1 - StoichNum(39,180) = 1 - StoichNum(39,240) = 1 + StoichNum(39,231) = 1 + StoichNum(39,291) = 1 StoichNum(40,19) = 1 StoichNum(40,23) = 1 - StoichNum(40,314) = 0.06 - StoichNum(40,315) = 0.06 - StoichNum(40,322) = 1 - StoichNum(40,331) = 0.02 - StoichNum(40,332) = 0.02 - StoichNum(40,336) = 0.02 - StoichNum(40,369) = 0.013 - StoichNum(40,521) = 0.045 - StoichNum(41,636) = -1 - StoichNum(42,295) = 1 - StoichNum(42,296) = -1 - StoichNum(42,692) = -1 - StoichNum(42,693) = -1 - StoichNum(42,694) = -1 - StoichNum(42,826) = -1 - StoichNum(43,235) = -1 - StoichNum(43,799) = -1 - StoichNum(44,306) = 0.6 - StoichNum(44,307) = -1 - StoichNum(44,686) = -1 - StoichNum(44,687) = -1 - StoichNum(44,688) = -1 - StoichNum(44,821) = -1 - StoichNum(45,363) = -1 - StoichNum(45,720) = 1 - StoichNum(45,721) = 1 - StoichNum(45,722) = 1 - StoichNum(46,308) = -1 - StoichNum(46,822) = -1 - StoichNum(47,214) = -0.45 - StoichNum(47,810) = -1 - StoichNum(48,221) = -0.75 - StoichNum(48,812) = -1 - StoichNum(49,294) = 1 - StoichNum(49,689) = -1 - StoichNum(49,690) = -1 - StoichNum(49,691) = -1 - StoichNum(49,827) = -1 - StoichNum(50,78) = 1 - StoichNum(50,79) = -1 - StoichNum(51,170) = 1 - StoichNum(51,784) = -1 - StoichNum(52,205) = -0.79 - StoichNum(52,800) = -1 - StoichNum(53,211) = -0.9 - StoichNum(53,801) = -1 - StoichNum(54,212) = -0.86 - StoichNum(54,802) = -1 - StoichNum(55,218) = -0.9 - StoichNum(55,803) = -1 - StoichNum(56,219) = -0.9 - StoichNum(56,804) = -1 - StoichNum(57,220) = -0.86 - StoichNum(57,805) = -1 - StoichNum(58,579) = -1 - StoichNum(59,213) = -0.65 - StoichNum(59,811) = -1 - StoichNum(60,283) = 1 - StoichNum(60,284) = -2 - StoichNum(60,818) = -1 - StoichNum(61,179) = -1 - StoichNum(61,199) = 1 - StoichNum(61,833) = -1 - StoichNum(62,3) = 1 - StoichNum(62,640) = 1 - StoichNum(62,844) = -1 - StoichNum(62,845) = -1 - StoichNum(63,6) = 1 - StoichNum(63,641) = 1 - StoichNum(63,842) = -1 - StoichNum(63,843) = -1 - StoichNum(64,589) = -1 - StoichNum(65,197) = -1 - StoichNum(65,198) = -1 - StoichNum(65,199) = -1 - StoichNum(65,836) = 1 - StoichNum(66,187) = -1 - StoichNum(66,188) = -1 - StoichNum(66,834) = -1 - StoichNum(67,53) = 1 - StoichNum(67,54) = -1 - StoichNum(67,755) = -1 - StoichNum(68,581) = 0.005 - StoichNum(68,586) = -1 - StoichNum(69,300) = 1 - StoichNum(69,302) = -1 - StoichNum(69,681) = -1 - StoichNum(69,682) = -1 - StoichNum(69,683) = -1 - StoichNum(70,606) = 0.65 - StoichNum(70,609) = -1 - StoichNum(70,892) = -1 - StoichNum(71,173) = -1 - StoichNum(71,208) = -0.95 - StoichNum(71,786) = -1 - StoichNum(72,233) = -1 - StoichNum(72,265) = -1 - StoichNum(72,789) = -1 - StoichNum(73,700) = 1 - StoichNum(73,701) = 1 - StoichNum(73,704) = 1 - StoichNum(73,705) = 1 - StoichNum(73,708) = 1 - StoichNum(73,709) = 1 - StoichNum(73,828) = -1 - StoichNum(74,146) = 1 - StoichNum(74,147) = -1 - StoichNum(74,830) = -1 - StoichNum(74,831) = -1 - StoichNum(75,227) = -1 - StoichNum(75,256) = 1 - StoichNum(75,257) = -1 - StoichNum(75,794) = -1 - StoichNum(76,577) = -1 - StoichNum(76,578) = -1 - StoichNum(77,172) = -1 - StoichNum(77,209) = -0.7 - StoichNum(77,785) = -1 - StoichNum(78,234) = -1 - StoichNum(78,266) = -1 - StoichNum(79,590) = -1 - StoichNum(80,591) = -1 - StoichNum(81,217) = -0.79 - StoichNum(81,239) = -1 - StoichNum(81,806) = -1 - StoichNum(82,215) = -0.69 - StoichNum(82,237) = -1 - StoichNum(82,807) = -1 - StoichNum(83,216) = -0.65 - StoichNum(83,238) = -1 - StoichNum(83,808) = -1 - StoichNum(84,210) = -0.75 - StoichNum(84,236) = -1 - StoichNum(84,809) = -1 - StoichNum(85,314) = 0.73 - StoichNum(85,315) = 0.4 - StoichNum(85,570) = -1 - StoichNum(85,850) = -1 - StoichNum(86,10) = 1 - StoichNum(86,11) = -1 - StoichNum(86,12) = -1 - StoichNum(87,72) = 1 - StoichNum(87,367) = -1 - StoichNum(87,848) = -1 - StoichNum(88,129) = -1 - StoichNum(88,571) = 0.37 - StoichNum(88,778) = -1 - StoichNum(89,27) = 1 - StoichNum(89,365) = -1 - StoichNum(89,846) = -1 - StoichNum(90,148) = -1 - StoichNum(90,149) = -1 - StoichNum(90,150) = -1 - StoichNum(91,63) = 1 - StoichNum(91,368) = -1 - StoichNum(91,849) = -1 - StoichNum(92,293) = 0.8 - StoichNum(92,294) = -1 - StoichNum(92,295) = -2 - StoichNum(92,296) = 2 - StoichNum(92,297) = -1 - StoichNum(92,306) = 0.4 - StoichNum(92,307) = 0.996 - StoichNum(92,817) = -1 - StoichNum(92,821) = 1 - StoichNum(92,826) = 2 - StoichNum(92,827) = 1 - StoichNum(93,85) = 1 - StoichNum(93,125) = -1 - StoichNum(93,774) = -1 - StoichNum(94,107) = 1 - StoichNum(94,123) = -1 - StoichNum(94,772) = -1 - StoichNum(95,89) = 1 - StoichNum(95,124) = -1 - StoichNum(95,773) = -1 - StoichNum(96,58) = 1 - StoichNum(96,366) = -1 - StoichNum(96,847) = -1 - StoichNum(97,608) = 1 - StoichNum(97,610) = -1 - StoichNum(97,611) = -1 - StoichNum(98,362) = -1 - StoichNum(98,718) = 1 - StoichNum(98,719) = 1 - StoichNum(98,725) = 1 - StoichNum(98,726) = 1 - StoichNum(98,727) = 1 - StoichNum(98,728) = 1 - StoichNum(98,730) = 1 - StoichNum(98,731) = 1 - StoichNum(98,732) = 1 - StoichNum(98,733) = 1 - StoichNum(98,734) = 1 - StoichNum(98,735) = 1 - StoichNum(98,736) = 1 - StoichNum(99,298) = 0.191 - StoichNum(99,702) = 1 - StoichNum(99,703) = 1 - StoichNum(99,706) = 1 - StoichNum(99,707) = 1 - StoichNum(99,710) = 1 - StoichNum(99,711) = 1 - StoichNum(99,829) = -1 - StoichNum(100,174) = -1 - StoichNum(100,207) = -1 - StoichNum(100,787) = -1 - StoichNum(101,590) = 0.06 - StoichNum(101,591) = 0.06 - StoichNum(101,604) = -1 - StoichNum(101,605) = -1 - StoichNum(101,891) = -1 - StoichNum(102,39) = 1 - StoichNum(102,40) = -1 - StoichNum(102,41) = -1 - StoichNum(102,748) = -1 - StoichNum(102,749) = -1 - StoichNum(103,223) = 1 - StoichNum(103,227) = 1 - StoichNum(103,252) = 1 - StoichNum(103,254) = 1 - StoichNum(103,255) = -1 - StoichNum(103,258) = -1 - StoichNum(103,260) = 1 - StoichNum(103,794) = 1 - StoichNum(103,813) = -1 - StoichNum(104,521) = 0.075 - StoichNum(104,526) = 0.241 - StoichNum(104,537) = 0.653 - StoichNum(104,569) = -1 - StoichNum(104,723) = -1 - StoichNum(104,852) = -1 - StoichNum(104,858) = 0.75 - StoichNum(105,548) = 0.098 - StoichNum(105,560) = 0.75 - StoichNum(105,561) = -1 - StoichNum(105,724) = -1 - StoichNum(106,109) = 0.41 - StoichNum(106,126) = -1 - StoichNum(106,776) = -1 - StoichNum(107,606) = 0.15 - StoichNum(107,611) = 1 - StoichNum(107,615) = 1 - StoichNum(107,616) = -1 - StoichNum(107,893) = -1 - StoichNum(108,581) = 0.995 - StoichNum(108,582) = 1 - StoichNum(108,583) = 0.6 - StoichNum(108,584) = -1 - StoichNum(108,585) = -1 - StoichNum(108,890) = 1 - StoichNum(109,400) = 0.15 - StoichNum(109,401) = 0.15 - StoichNum(109,406) = -1 - StoichNum(109,868) = 0.112 - StoichNum(109,869) = 0.182 - StoichNum(109,879) = 0.161 - StoichNum(110,105) = 1 - StoichNum(110,106) = 1 - StoichNum(110,122) = -1 - StoichNum(110,771) = -1 - StoichNum(111,226) = -1 - StoichNum(111,253) = 1 - StoichNum(111,259) = 1 - StoichNum(111,298) = 0.56 - StoichNum(111,793) = -1 - StoichNum(112,108) = 1 - StoichNum(112,127) = -1 - StoichNum(112,775) = -1 - StoichNum(113,90) = 1 - StoichNum(113,121) = -1 - StoichNum(113,770) = -1 - StoichNum(114,65) = -1 - StoichNum(114,74) = -1 - StoichNum(114,280) = -1 - StoichNum(115,590) = 0.19 - StoichNum(115,591) = 0.15 - StoichNum(115,599) = -1 - StoichNum(115,600) = -1 - StoichNum(116,413) = 0.255 - StoichNum(116,414) = 0.595 - StoichNum(116,427) = -1 - StoichNum(116,454) = 1 - StoichNum(116,456) = 1 - StoichNum(116,716) = -1 - StoichNum(117,433) = 1 - StoichNum(117,434) = 0.13 - StoichNum(117,435) = 0.2 - StoichNum(117,539) = -1 - StoichNum(117,562) = 0.35 - StoichNum(117,881) = 0.35 - StoichNum(118,589) = 0.54 - StoichNum(118,597) = -1 - StoichNum(118,598) = -1 - StoichNum(119,327) = 1 - StoichNum(119,339) = 1 - StoichNum(119,343) = -1 - StoichNum(119,837) = -1 - StoichNum(120,580) = 1 - StoichNum(120,583) = 0.2 - StoichNum(120,587) = -1 - StoichNum(120,588) = -1 - StoichNum(120,890) = -1 - StoichNum(121,400) = 0.315 - StoichNum(121,446) = -1 - StoichNum(121,447) = -1 - StoichNum(122,1) = 1 - StoichNum(122,7) = 1 - StoichNum(122,8) = 1 - StoichNum(122,9) = 1 - StoichNum(122,12) = 2 - StoichNum(122,151) = 1 - StoichNum(122,317) = 1 - StoichNum(122,321) = 1 - StoichNum(122,668) = 1 - StoichNum(122,675) = 1 - StoichNum(122,835) = -1 - StoichNum(123,401) = 0.315 - StoichNum(123,448) = -1 - StoichNum(123,449) = -1 - StoichNum(124,60) = -1 - StoichNum(124,61) = -1 - StoichNum(124,169) = -1 - StoichNum(124,276) = -1 - StoichNum(124,277) = -1 - StoichNum(125,432) = 1 - StoichNum(125,437) = 1 - StoichNum(125,563) = -1 - StoichNum(125,885) = -1 - StoichNum(126,483) = 0.474 - StoichNum(126,484) = 0.34 - StoichNum(126,485) = 0.244 - StoichNum(126,488) = 0.841 - StoichNum(126,490) = 0.841 - StoichNum(126,493) = 0.841 - StoichNum(126,495) = -1 - StoichNum(126,496) = -1 - StoichNum(126,877) = 0.841 - StoichNum(126,880) = 0.222 - StoichNum(127,373) = 0.15 - StoichNum(127,381) = 0.15 - StoichNum(127,403) = -1 - StoichNum(127,414) = 0.009 - StoichNum(127,871) = -1 - StoichNum(128,157) = 1 - StoichNum(128,159) = 1 - StoichNum(128,160) = -1 - StoichNum(128,669) = 1 - StoichNum(128,673) = 1 - StoichNum(128,674) = 1 - StoichNum(128,779) = -1 - StoichNum(129,372) = 0.15 - StoichNum(129,379) = 0.15 - StoichNum(129,402) = -1 - StoichNum(129,413) = 0.009 - StoichNum(129,870) = -1 - StoichNum(130,408) = 0.67 - StoichNum(130,410) = 0.68 - StoichNum(130,428) = -1 - StoichNum(130,429) = -1 - StoichNum(130,451) = 0.67 - StoichNum(130,453) = 0.67 - StoichNum(130,714) = -1 - StoichNum(131,408) = 0.33 - StoichNum(131,410) = 0.32 - StoichNum(131,430) = -1 - StoichNum(131,431) = -1 - StoichNum(131,451) = 0.33 - StoichNum(131,453) = 0.33 - StoichNum(131,715) = -1 - StoichNum(132,438) = 1 - StoichNum(132,439) = 0.2 - StoichNum(132,441) = 0.13 - StoichNum(132,542) = -1 - StoichNum(132,562) = 0.15 - StoichNum(132,881) = 0.15 - StoichNum(132,882) = 0.163 - StoichNum(133,92) = 0.25 - StoichNum(133,93) = 0.25 - StoichNum(133,101) = -1 - StoichNum(133,103) = 0.4 - StoichNum(133,104) = 0.4 - StoichNum(133,274) = -1 - StoichNum(134,357) = 1 - StoichNum(134,358) = 1 - StoichNum(134,359) = 1 - StoichNum(134,360) = 1 - StoichNum(134,361) = 1 - StoichNum(134,364) = -1 - StoichNum(134,722) = -1 - StoichNum(134,841) = -1 - StoichNum(135,261) = 1 - StoichNum(135,650) = 1 - StoichNum(135,653) = 1 - StoichNum(135,654) = 1 - StoichNum(135,655) = 1 - StoichNum(135,661) = 1 - StoichNum(135,662) = 1 - StoichNum(135,663) = 1 - StoichNum(135,665) = 1 - StoichNum(135,670) = 1 - StoichNum(135,671) = 1 - StoichNum(135,672) = 1 - StoichNum(135,790) = -1 - StoichNum(136,547) = 0.5 - StoichNum(136,548) = -1 - StoichNum(136,860) = -0.75 - StoichNum(137,28) = 1 - StoichNum(137,32) = -1 - StoichNum(137,269) = -1 - StoichNum(137,743) = -1 - StoichNum(138,4) = -2 - StoichNum(138,5) = -1 - StoichNum(138,6) = -1 - StoichNum(139,392) = 1 - StoichNum(139,450) = -1 - StoichNum(139,451) = -1 - StoichNum(139,726) = -1 - StoichNum(139,873) = -1 - StoichNum(140,396) = 1 - StoichNum(140,452) = -1 - StoichNum(140,453) = -1 - StoichNum(140,727) = -1 - StoichNum(140,874) = -1 - StoichNum(141,418) = 0.725 - StoichNum(141,422) = 0.725 - StoichNum(141,426) = 0.35 - StoichNum(141,564) = -1 - StoichNum(141,883) = -1 - StoichNum(142,597) = 0.8 - StoichNum(142,599) = 0.727 - StoichNum(142,601) = -1 - StoichNum(142,602) = -1 - StoichNum(142,603) = -1 - StoichNum(143,284) = 1 - StoichNum(143,287) = 1 - StoichNum(143,288) = -1 - StoichNum(143,291) = 1 - StoichNum(143,301) = -1 - StoichNum(143,814) = -1 - StoichNum(144,531) = -1 - StoichNum(144,532) = -1 - StoichNum(144,533) = -1 - StoichNum(144,868) = 0.224 - StoichNum(144,879) = 0.068 - StoichNum(145,534) = -1 - StoichNum(145,535) = -1 - StoichNum(145,536) = -1 - StoichNum(145,869) = 0.182 - StoichNum(145,879) = 0.128 - StoichNum(146,517) = 0.435 - StoichNum(146,518) = -1 - StoichNum(146,519) = -1 - StoichNum(147,1) = -2 - StoichNum(147,2) = -1 - StoichNum(147,3) = -1 - StoichNum(148,590) = 0.3 - StoichNum(148,591) = 0.56 - StoichNum(148,599) = 0.44 - StoichNum(148,600) = 0.44 - StoichNum(148,626) = -1 - StoichNum(148,627) = -1 - StoichNum(148,628) = -1 - StoichNum(149,206) = -0.9 - StoichNum(149,232) = -1 - StoichNum(149,264) = -1 - StoichNum(149,788) = -1 - StoichNum(150,514) = 0.461 - StoichNum(150,515) = -0.33 - StoichNum(150,516) = -0.33 - StoichNum(150,567) = 0.041 - StoichNum(151,481) = 1 - StoichNum(151,498) = -1 - StoichNum(151,500) = -1 - StoichNum(151,501) = -1 - StoichNum(151,503) = -1 - StoichNum(151,504) = -1 - StoichNum(151,730) = -1 - StoichNum(151,877) = -1 - StoichNum(151,878) = -1 - StoichNum(152,452) = 1 - StoichNum(152,464) = -1 - StoichNum(152,465) = -1 - StoichNum(152,466) = -1 - StoichNum(152,467) = -1 - StoichNum(153,553) = 1 - StoichNum(153,556) = 1 - StoichNum(153,559) = -1 - StoichNum(153,560) = -1 - StoichNum(154,324) = -1 - StoichNum(154,331) = -1 - StoichNum(154,333) = -1 - StoichNum(155,325) = -1 - StoichNum(155,332) = -1 - StoichNum(155,334) = -1 - StoichNum(156,406) = 1 - StoichNum(156,538) = -1 - StoichNum(156,563) = 0.444 - StoichNum(156,857) = -1 - StoichNum(156,868) = 0.112 - StoichNum(156,869) = 0.182 - StoichNum(156,879) = 0.162 - StoichNum(156,885) = 0.454 - StoichNum(157,374) = 0.937 - StoichNum(157,407) = -1 - StoichNum(157,408) = -1 - StoichNum(157,411) = -1 - StoichNum(157,864) = -1 - StoichNum(158,83) = 0.25 - StoichNum(158,84) = 0.25 - StoichNum(158,95) = 0.38 - StoichNum(158,96) = 0.375 - StoichNum(158,98) = 0.25 - StoichNum(158,99) = 0.25 - StoichNum(158,100) = 0.25 - StoichNum(158,102) = -1 - StoichNum(158,328) = 0.25 - StoichNum(158,340) = 0.25 - StoichNum(158,349) = 0.25 - StoichNum(159,589) = 0.55 - StoichNum(159,590) = 0.68 - StoichNum(159,591) = 0.28 - StoichNum(159,597) = 0.18 - StoichNum(159,601) = 1.05 - StoichNum(159,602) = 1 - StoichNum(159,603) = 0.3 - StoichNum(159,619) = 0.9 - StoichNum(159,620) = 0.9 - StoichNum(159,623) = -1 - StoichNum(159,624) = -1 - StoichNum(159,625) = -1 - StoichNum(159,894) = 1 - StoichNum(160,597) = 0.06 - StoichNum(160,598) = 0.742 - StoichNum(160,599) = 0.073 - StoichNum(160,600) = 0.3 - StoichNum(160,601) = 0.3 - StoichNum(160,603) = 0.3 - StoichNum(160,612) = 1 - StoichNum(160,613) = 1 - StoichNum(160,614) = 1 - StoichNum(160,617) = -1 - StoichNum(160,618) = -1 - StoichNum(160,621) = 1 - StoichNum(160,893) = 1 - StoichNum(161,56) = -1 - StoichNum(161,130) = -1 - StoichNum(161,168) = -1 - StoichNum(161,270) = -1 - StoichNum(162,376) = 0.937 - StoichNum(162,409) = -1 - StoichNum(162,410) = -1 - StoichNum(162,412) = -1 - StoichNum(162,865) = -1 - StoichNum(163,537) = -1 - StoichNum(163,567) = 0.022 - StoichNum(163,858) = -1 - StoichNum(163,868) = 0.552 - StoichNum(163,869) = 0.454 - StoichNum(163,879) = 0.481 - StoichNum(164,415) = 0.824 - StoichNum(164,419) = 0.452 - StoichNum(164,423) = 1 - StoichNum(164,564) = 0.667 - StoichNum(164,565) = -1 - StoichNum(164,884) = -1 - StoichNum(165,377) = 1 - StoichNum(165,414) = -1 - StoichNum(165,867) = -1 - StoichNum(166,455) = 1 - StoichNum(166,468) = -1 - StoichNum(166,470) = -1 - StoichNum(166,471) = -1 - StoichNum(166,472) = -1 - StoichNum(167,450) = 1 - StoichNum(167,460) = -1 - StoichNum(167,461) = -1 - StoichNum(167,462) = -1 - StoichNum(167,463) = -1 - StoichNum(168,457) = 1 - StoichNum(168,469) = -1 - StoichNum(168,473) = -1 - StoichNum(168,474) = -1 - StoichNum(168,475) = -1 - StoichNum(169,442) = 0.13 - StoichNum(169,444) = 0.2 - StoichNum(169,527) = 0.53 - StoichNum(169,539) = 0.6 - StoichNum(169,541) = -1 - StoichNum(169,543) = 0.255 - StoichNum(169,563) = 0.318 - StoichNum(169,854) = -1 - StoichNum(169,885) = 0.391 - StoichNum(170,335) = -1 - StoichNum(170,336) = -1 - StoichNum(170,337) = -1 - StoichNum(171,375) = 1 - StoichNum(171,413) = -1 - StoichNum(171,866) = -1 - StoichNum(172,372) = 0.3 - StoichNum(172,379) = 0.3 - StoichNum(172,413) = 0.018 - StoichNum(172,416) = 0.284 - StoichNum(172,418) = 0.135 - StoichNum(172,507) = 0.249 - StoichNum(172,508) = 0.471 - StoichNum(172,509) = 0.303 - StoichNum(172,511) = 0.59 - StoichNum(172,572) = -1 - StoichNum(172,573) = -1 - StoichNum(172,851) = -1 - StoichNum(172,887) = 0.5 - StoichNum(173,45) = 1 - StoichNum(173,46) = -1 - StoichNum(173,642) = -1 - StoichNum(173,643) = -1 - StoichNum(173,644) = -1 - StoichNum(173,645) = -1 - StoichNum(173,646) = -1 - StoichNum(173,752) = -1 - StoichNum(174,400) = 0.085 - StoichNum(174,401) = 0.165 - StoichNum(174,402) = 0.58 - StoichNum(174,403) = 0.77 - StoichNum(174,405) = -1 - StoichNum(174,427) = 0.75 - StoichNum(174,428) = 1 - StoichNum(174,430) = 1 - StoichNum(174,501) = 1 - StoichNum(174,513) = 1 - StoichNum(174,729) = -1 - StoichNum(175,458) = 0.6 - StoichNum(175,470) = 0.031 - StoichNum(175,471) = 0.065 - StoichNum(175,476) = 0.094 - StoichNum(175,477) = 0.355 - StoichNum(175,507) = 0.06 - StoichNum(175,508) = 0.073 - StoichNum(175,509) = 0.17 - StoichNum(175,511) = 0.291 - StoichNum(175,514) = 0.378 - StoichNum(175,530) = -1 - StoichNum(175,554) = 0.13 - StoichNum(175,558) = 0.3 - StoichNum(175,735) = -1 - StoichNum(175,863) = -1 - StoichNum(176,159) = -1 - StoichNum(176,171) = 1 - StoichNum(176,649) = -1 - StoichNum(176,650) = -1 - StoichNum(176,782) = -1 - StoichNum(176,783) = -1 - StoichNum(177,178) = 1 - StoichNum(177,180) = 0.2 - StoichNum(177,183) = 1 - StoichNum(177,184) = 1 - StoichNum(177,194) = -1 - StoichNum(177,195) = -1 - StoichNum(177,196) = -1 - StoichNum(177,202) = 0.22 - StoichNum(177,203) = 0.2 - StoichNum(177,206) = 0.09 - StoichNum(177,243) = 1 - StoichNum(177,744) = 1 - StoichNum(178,326) = 0.12 - StoichNum(178,344) = 1 - StoichNum(178,346) = 0.7 - StoichNum(178,347) = 0.7 - StoichNum(178,348) = 0.7 - StoichNum(178,349) = 0.35 - StoichNum(178,350) = 0.7 - StoichNum(178,352) = 0.7 - StoichNum(178,354) = 1.4 - StoichNum(178,355) = 1.05 - StoichNum(178,356) = 0.7 - StoichNum(178,357) = -1 - StoichNum(178,361) = -1 - StoichNum(178,720) = -1 - StoichNum(178,839) = -1 - StoichNum(179,578) = 1 - StoichNum(179,580) = -1 - StoichNum(179,581) = -1 - StoichNum(179,582) = -1 - StoichNum(179,583) = -1 - StoichNum(179,587) = 1 - StoichNum(180,604) = 1 - StoichNum(180,605) = 1 - StoichNum(180,606) = -1 - StoichNum(180,607) = -1 - StoichNum(180,608) = -1 - StoichNum(180,609) = 1 - StoichNum(180,610) = 1 - StoichNum(180,622) = -1 - StoichNum(181,480) = 0.473 - StoichNum(181,482) = 0.07 - StoichNum(181,483) = 0.399 - StoichNum(181,486) = 0.355 - StoichNum(181,497) = -1 - StoichNum(181,499) = -1 - StoichNum(181,502) = -1 - StoichNum(181,731) = -1 - StoichNum(181,876) = -1 - StoichNum(182,407) = 0.345 - StoichNum(182,413) = 0.595 - StoichNum(182,415) = -1 - StoichNum(182,416) = -1 - StoichNum(182,417) = -1 - StoichNum(182,418) = -1 - StoichNum(183,409) = 0.345 - StoichNum(183,414) = 0.255 - StoichNum(183,419) = -1 - StoichNum(183,420) = -1 - StoichNum(183,421) = -1 - StoichNum(183,422) = -1 - StoichNum(184,589) = 0.46 - StoichNum(184,590) = 0.81 - StoichNum(184,591) = 0.85 - StoichNum(184,592) = -1 - StoichNum(184,593) = -1 - StoichNum(184,594) = -1 - StoichNum(184,595) = -1 - StoichNum(184,596) = -1 - StoichNum(184,597) = 0.14 - StoichNum(184,599) = 0.2 - StoichNum(184,600) = 0.2 - StoichNum(184,601) = 0.7 - StoichNum(184,603) = 0.2 - StoichNum(185,526) = 0.29 - StoichNum(185,527) = 0.47 - StoichNum(185,537) = 0.063 - StoichNum(185,539) = 0.4 - StoichNum(185,540) = -1 - StoichNum(185,542) = 0.16 - StoichNum(185,563) = 0.126 - StoichNum(185,855) = -1 - StoichNum(185,882) = 0.133 - StoichNum(185,885) = 0.155 - StoichNum(186,372) = 0.25 - StoichNum(186,379) = 0.25 - StoichNum(186,400) = -1 - StoichNum(186,413) = 0.015 - StoichNum(186,868) = -1 - StoichNum(187,407) = 0.655 - StoichNum(187,409) = 0.655 - StoichNum(187,423) = -1 - StoichNum(187,424) = -1 - StoichNum(187,425) = -1 - StoichNum(187,426) = -1 - StoichNum(188,373) = 0.25 - StoichNum(188,381) = 0.25 - StoichNum(188,401) = -1 - StoichNum(188,414) = 0.015 - StoichNum(188,869) = -1 - StoichNum(189,498) = 1 - StoichNum(189,505) = -1 - StoichNum(189,508) = -1 - StoichNum(189,511) = -1 - StoichNum(189,512) = -1 - StoichNum(190,25) = -1 - StoichNum(190,111) = 0.1 - StoichNum(190,180) = -1 - StoichNum(190,240) = -1 - StoichNum(190,754) = 1 - StoichNum(191,606) = 0.2 - StoichNum(191,607) = 1 - StoichNum(191,612) = -1 - StoichNum(191,613) = -1 - StoichNum(191,614) = -1 - StoichNum(191,615) = -1 - StoichNum(191,616) = 1 - StoichNum(191,617) = 1 - StoichNum(191,621) = -1 - StoichNum(191,622) = 1 - StoichNum(191,891) = 1 - StoichNum(191,892) = 1 - StoichNum(192,385) = 1 - StoichNum(192,386) = 1 - StoichNum(192,387) = 1 - StoichNum(192,389) = 0.5 - StoichNum(192,391) = 0.5 - StoichNum(192,395) = 0.45 - StoichNum(192,399) = 0.45 - StoichNum(192,404) = -1 - StoichNum(192,413) = 0.06 - StoichNum(192,414) = 0.06 - StoichNum(192,866) = 1 - StoichNum(192,867) = 1 - StoichNum(192,872) = 0.45 - StoichNum(192,875) = 0.45 - StoichNum(193,37) = 1 - StoichNum(193,38) = -1 - StoichNum(193,638) = 0.5 - StoichNum(193,658) = 1 - StoichNum(193,659) = 1 - StoichNum(193,660) = 1 - StoichNum(193,661) = 1 - StoichNum(193,662) = 1 - StoichNum(193,663) = 1 - StoichNum(193,695) = 1 - StoichNum(193,696) = 1 - StoichNum(193,700) = 1 - StoichNum(193,701) = 1 - StoichNum(193,702) = 1 - StoichNum(193,703) = 1 - StoichNum(193,747) = -1 - StoichNum(193,842) = 1 - StoichNum(193,844) = 1 - StoichNum(193,894) = 1 - StoichNum(194,412) = 0.16 - StoichNum(194,427) = 0.25 - StoichNum(194,442) = -1 - StoichNum(194,443) = -1 - StoichNum(194,444) = -1 - StoichNum(194,445) = -1 - StoichNum(195,111) = 0.12 - StoichNum(195,318) = -1 - StoichNum(195,319) = -1 - StoichNum(195,320) = -1 - StoichNum(195,321) = -1 - StoichNum(195,322) = -1 - StoichNum(195,323) = -1 - StoichNum(196,33) = -1 - StoichNum(196,87) = 0.85 - StoichNum(196,88) = 0.85 - StoichNum(196,373) = 0.3 - StoichNum(196,381) = 0.3 - StoichNum(196,414) = 0.018 - StoichNum(196,420) = 0.294 - StoichNum(196,422) = 0.135 - StoichNum(196,507) = 0.009 - StoichNum(196,508) = 0.054 - StoichNum(196,509) = 0.013 - StoichNum(196,511) = 0.07 - StoichNum(196,522) = 0.036 - StoichNum(196,528) = 0.23 - StoichNum(196,832) = -1 - StoichNum(196,887) = 0.05 - StoichNum(197,204) = -0.75 - StoichNum(197,222) = -1 - StoichNum(197,251) = 1 - StoichNum(197,258) = 0.95 - StoichNum(197,263) = 1 - StoichNum(197,647) = 0.5 - StoichNum(197,648) = 0.5 - StoichNum(197,652) = 1 - StoichNum(197,656) = 1 - StoichNum(197,657) = 1 - StoichNum(197,658) = 1 - StoichNum(197,659) = 1 - StoichNum(197,660) = 1 - StoichNum(197,664) = 1 - StoichNum(197,666) = 1 - StoichNum(197,667) = 1 - StoichNum(197,791) = -1 - StoichNum(198,121) = 0.791 - StoichNum(198,310) = -1 - StoichNum(198,470) = 0.551 - StoichNum(198,471) = 0.935 - StoichNum(198,476) = 0.242 - StoichNum(198,477) = 0.546 - StoichNum(198,507) = 0.589 - StoichNum(198,508) = 0.471 - StoichNum(198,509) = 0.687 - StoichNum(198,511) = 0.59 - StoichNum(198,515) = 0.231 - StoichNum(198,516) = 0.231 - StoichNum(198,518) = 1 - StoichNum(198,519) = 0.82 - StoichNum(198,525) = 0.68 - StoichNum(198,530) = 1 - StoichNum(198,853) = -1 - StoichNum(198,863) = 1 - StoichNum(199,326) = 0.06 - StoichNum(199,338) = 0.22 - StoichNum(199,346) = 0.3 - StoichNum(199,347) = 0.3 - StoichNum(199,348) = 0.3 - StoichNum(199,349) = 0.15 - StoichNum(199,350) = 0.3 - StoichNum(199,352) = 0.3 - StoichNum(199,354) = 0.6 - StoichNum(199,355) = 0.45 - StoichNum(199,356) = 0.3 - StoichNum(199,358) = -1 - StoichNum(199,359) = -1 - StoichNum(199,360) = -1 - StoichNum(199,721) = -1 - StoichNum(199,840) = -1 - StoichNum(200,461) = 0.059 - StoichNum(200,462) = 0.272 - StoichNum(200,529) = -1 - StoichNum(200,536) = 1 - StoichNum(200,551) = 1 - StoichNum(200,554) = 0.37 - StoichNum(200,736) = -1 - StoichNum(200,862) = -1 - StoichNum(200,886) = 0.5 - StoichNum(201,73) = -1 - StoichNum(201,90) = -1 - StoichNum(201,100) = -1 - StoichNum(201,114) = 1 - StoichNum(201,121) = 0.209 - StoichNum(201,138) = -1 - StoichNum(202,67) = 1 - StoichNum(202,70) = 0.072 - StoichNum(202,75) = -1 - StoichNum(202,86) = 1 - StoichNum(202,719) = -1 - StoichNum(202,777) = -1 - StoichNum(203,285) = 1 - StoichNum(203,286) = -1 - StoichNum(203,287) = -2 - StoichNum(203,695) = -1 - StoichNum(203,696) = -1 - StoichNum(203,700) = -1 - StoichNum(203,701) = -1 - StoichNum(203,702) = -1 - StoichNum(203,703) = -1 - StoichNum(203,819) = -1 - StoichNum(204,520) = 1 - StoichNum(204,531) = 1 - StoichNum(204,532) = 1 - StoichNum(204,543) = -1 - StoichNum(204,544) = -1 - StoichNum(204,545) = -1 - StoichNum(205,522) = 0.964 - StoichNum(205,534) = 1 - StoichNum(205,535) = 1 - StoichNum(205,546) = -1 - StoichNum(205,549) = -1 - StoichNum(205,550) = -1 - StoichNum(205,551) = -1 - StoichNum(206,415) = 0.176 - StoichNum(206,419) = 0.548 - StoichNum(206,434) = 0.35 - StoichNum(206,441) = 0.35 - StoichNum(206,442) = 0.35 - StoichNum(206,562) = -1 - StoichNum(206,564) = 0.333 - StoichNum(206,881) = -1 - StoichNum(206,882) = -1 - StoichNum(206,883) = 0.75 - StoichNum(207,523) = 1 - StoichNum(207,525) = 0.32 - StoichNum(207,547) = -1 - StoichNum(207,548) = 0.165 - StoichNum(207,552) = -1 - StoichNum(207,553) = -1 - StoichNum(207,559) = 1 - StoichNum(208,309) = -1 - StoichNum(208,473) = 0.441 - StoichNum(208,474) = 0.858 - StoichNum(208,476) = 0.033 - StoichNum(208,477) = 0.071 - StoichNum(208,507) = 0.051 - StoichNum(208,508) = 0.054 - StoichNum(208,509) = 0.064 - StoichNum(208,511) = 0.07 - StoichNum(208,515) = 0.099 - StoichNum(208,516) = 0.099 - StoichNum(208,518) = 0.89 - StoichNum(208,519) = 0.73 - StoichNum(208,568) = -1 - StoichNum(208,838) = -1 - StoichNum(208,861) = 0.3 - StoichNum(208,886) = 0.15 - StoichNum(209,64) = -1 - StoichNum(209,84) = -1 - StoichNum(209,108) = -1 - StoichNum(209,110) = 1 - StoichNum(209,127) = 0.209 - StoichNum(209,141) = -1 - StoichNum(209,281) = 1 - StoichNum(209,282) = 1 - StoichNum(210,598) = 0.258 - StoichNum(210,600) = 0.5 - StoichNum(210,603) = 0.5 - StoichNum(210,618) = 1 - StoichNum(210,619) = -1 - StoichNum(210,620) = -1 - StoichNum(210,737) = -1 - StoichNum(210,894) = -1 - StoichNum(211,47) = -1 - StoichNum(211,112) = 0.134 - StoichNum(211,113) = 1 - StoichNum(211,120) = 0.5 - StoichNum(211,267) = -1 - StoichNum(211,314) = 0.21 - StoichNum(211,315) = 0.54 - StoichNum(211,326) = 0.07 - StoichNum(211,336) = 0.01 - StoichNum(211,526) = 0.449 - StoichNum(211,537) = 0.187 - StoichNum(211,561) = 0.3 - StoichNum(211,570) = 0.5 - StoichNum(211,579) = 0.364 - StoichNum(211,623) = 0.26 - StoichNum(211,624) = 0.5 - StoichNum(211,626) = 0.1 - StoichNum(211,627) = 0.2 - StoichNum(212,7) = -1 - StoichNum(212,19) = 1 - StoichNum(212,21) = -1 - StoichNum(212,23) = 1 - StoichNum(212,193) = -1 - StoichNum(212,244) = -1 - StoichNum(212,314) = 0.06 - StoichNum(212,315) = 0.06 - StoichNum(212,322) = 1 - StoichNum(212,331) = 0.02 - StoichNum(212,332) = 0.02 - StoichNum(212,336) = 0.02 - StoichNum(212,369) = 0.013 - StoichNum(212,521) = 0.045 - StoichNum(212,742) = -1 - StoichNum(213,436) = 1 - StoichNum(213,440) = 1 - StoichNum(213,443) = 1 - StoichNum(213,460) = 1 - StoichNum(213,464) = 1 - StoichNum(213,468) = 1 - StoichNum(213,469) = 1 - StoichNum(213,505) = 1 - StoichNum(213,506) = 0.5 - StoichNum(213,566) = -1 - StoichNum(213,567) = 0.9 - StoichNum(213,733) = -1 - StoichNum(213,888) = -1 - StoichNum(213,889) = -1 - StoichNum(214,394) = 1 - StoichNum(214,456) = -1 - StoichNum(214,457) = -1 - StoichNum(214,459) = -1 - StoichNum(214,484) = 0.127 - StoichNum(214,485) = 0.057 - StoichNum(214,728) = -1 - StoichNum(214,875) = -1 - StoichNum(215,333) = 0.1 - StoichNum(215,334) = 0.1 - StoichNum(215,337) = 0.5 - StoichNum(215,344) = -1 - StoichNum(215,346) = -1 - StoichNum(215,348) = -1 - StoichNum(215,350) = -1 - StoichNum(215,352) = -1 - StoichNum(215,354) = -2 - StoichNum(215,355) = -1 - StoichNum(216,333) = 0.9 - StoichNum(216,334) = 0.9 - StoichNum(216,337) = 0.5 - StoichNum(216,345) = -1 - StoichNum(216,347) = -1 - StoichNum(216,349) = -1 - StoichNum(216,351) = -1 - StoichNum(216,353) = -1 - StoichNum(216,355) = -1 - StoichNum(216,356) = -2 - StoichNum(217,56) = 1 - StoichNum(217,57) = -1 - StoichNum(217,58) = -1 - StoichNum(217,92) = -1 - StoichNum(217,103) = -2 - StoichNum(217,105) = -1 - StoichNum(217,130) = 1 - StoichNum(217,139) = -1 - StoichNum(217,168) = 1 - StoichNum(217,270) = 1 - StoichNum(217,271) = -1 - StoichNum(218,29) = 1 - StoichNum(218,31) = 0.13 - StoichNum(218,48) = -1 - StoichNum(218,83) = 0.25 - StoichNum(218,84) = 0.25 - StoichNum(218,92) = 0.25 - StoichNum(218,93) = 0.25 - StoichNum(218,95) = 0.25 - StoichNum(218,96) = 0.25 - StoichNum(218,97) = 0.5 - StoichNum(218,98) = 0.25 - StoichNum(218,99) = 0.25 - StoichNum(218,100) = 0.25 - StoichNum(218,273) = -1 - StoichNum(218,328) = 0.25 - StoichNum(218,340) = 0.25 - StoichNum(218,349) = 0.25 - StoichNum(218,485) = 0.355 - StoichNum(218,486) = 0.034 - StoichNum(218,583) = 0.2 - StoichNum(218,760) = 0.1 - StoichNum(219,76) = -1 - StoichNum(219,120) = 0.5 - StoichNum(219,132) = 0.1 - StoichNum(219,133) = 0.1 - StoichNum(219,134) = 0.1 - StoichNum(219,135) = 0.1 - StoichNum(219,136) = 0.1 - StoichNum(219,137) = 0.1 - StoichNum(219,138) = 0.1 - StoichNum(219,139) = 0.1 - StoichNum(219,140) = 0.1 - StoichNum(219,141) = 0.1 - StoichNum(219,142) = 0.1 - StoichNum(219,275) = -1 - StoichNum(219,323) = 1 - StoichNum(219,571) = 0.13 - StoichNum(219,626) = 0.15 - StoichNum(219,627) = 0.3 - StoichNum(220,398) = 1 - StoichNum(220,454) = -1 - StoichNum(220,455) = -1 - StoichNum(220,458) = -1 - StoichNum(220,483) = 0.032 - StoichNum(220,484) = 0.671 - StoichNum(220,485) = 0.298 - StoichNum(220,725) = -1 - StoichNum(220,872) = -1 - StoichNum(221,66) = 0.34 - StoichNum(221,71) = 1 - StoichNum(221,82) = -1 - StoichNum(221,95) = 0.16 - StoichNum(221,99) = 0.75 - StoichNum(221,124) = 0.791 - StoichNum(221,133) = 0.29 - StoichNum(221,136) = 1 - StoichNum(221,167) = -1 - StoichNum(221,278) = -1 - StoichNum(221,326) = 0.11 - StoichNum(221,367) = 1 - StoichNum(221,757) = -1 - StoichNum(221,758) = -1 - StoichNum(221,773) = 1 - StoichNum(221,777) = 0.34 - StoichNum(221,848) = 1 - StoichNum(222,497) = 0.67 - StoichNum(222,506) = -1 - StoichNum(222,507) = -1 - StoichNum(222,509) = -1 - StoichNum(222,510) = -1 - StoichNum(223,112) = 0.134 - StoichNum(223,115) = -1 - StoichNum(223,117) = -1 - StoichNum(223,439) = 0.8 - StoichNum(223,441) = 0.52 - StoichNum(223,573) = 1 - StoichNum(223,579) = 0.636 - StoichNum(223,589) = 0.18 - StoichNum(223,590) = 0.12 - StoichNum(223,591) = 0.1 - StoichNum(223,597) = 0.06 - StoichNum(223,623) = 0.6 - StoichNum(223,624) = 0.6 - StoichNum(223,625) = 0.2 - StoichNum(223,712) = -1 - StoichNum(223,761) = -1 - StoichNum(223,762) = -1 - StoichNum(223,763) = -1 - StoichNum(223,855) = 0.5 - StoichNum(223,857) = 0.429 - StoichNum(223,858) = 0.125 - StoichNum(223,882) = 0.586 - StoichNum(223,884) = 0.571 - StoichNum(224,279) = -1 - StoichNum(224,369) = -1 - StoichNum(224,370) = -1 - StoichNum(224,371) = -1 - StoichNum(224,372) = -1 - StoichNum(224,373) = -1 - StoichNum(224,479) = -1 - StoichNum(225,335) = 1 - StoichNum(225,338) = -1 - StoichNum(225,339) = -1 - StoichNum(225,340) = -1 - StoichNum(225,341) = -1 - StoichNum(225,342) = -1 - StoichNum(226,66) = 0.19 - StoichNum(226,91) = -1 - StoichNum(226,94) = -1 - StoichNum(226,95) = 0.35 - StoichNum(226,98) = 0.25 - StoichNum(226,133) = 0.271 - StoichNum(226,135) = 0.1 - StoichNum(226,326) = 0.44 - StoichNum(226,328) = 0.75 - StoichNum(226,329) = 1.125 - StoichNum(226,330) = 1 - StoichNum(226,331) = 0.53 - StoichNum(226,332) = 0.53 - StoichNum(226,338) = 0.289 - StoichNum(226,343) = 0.41 - StoichNum(226,345) = 0.464 - StoichNum(226,349) = 0.34 - StoichNum(226,351) = 0.464 - StoichNum(226,353) = 0.464 - StoichNum(226,355) = 0.149 - StoichNum(226,356) = 0.285 - StoichNum(226,759) = -1 - StoichNum(226,777) = 0.19 - StoichNum(226,839) = 1 - StoichNum(227,289) = -1 - StoichNum(227,290) = 1 - StoichNum(227,292) = 1 - StoichNum(227,293) = -1 - StoichNum(227,294) = -1 - StoichNum(227,297) = 1 - StoichNum(227,298) = -1 - StoichNum(227,299) = 1 - StoichNum(227,303) = 1 - StoichNum(227,304) = -1 - StoichNum(227,305) = -1 - StoichNum(227,306) = -2 - StoichNum(227,307) = 0.008 - StoichNum(227,816) = -1 - StoichNum(227,827) = 1 - StoichNum(228,404) = 0.294 - StoichNum(228,429) = 0.67 - StoichNum(228,431) = 0.81 - StoichNum(228,432) = -1 - StoichNum(228,433) = -1 - StoichNum(228,434) = -1 - StoichNum(228,435) = -1 - StoichNum(228,436) = -1 - StoichNum(228,563) = 0.08 - StoichNum(229,404) = 0.068 - StoichNum(229,429) = 0.33 - StoichNum(229,431) = 0.19 - StoichNum(229,437) = -1 - StoichNum(229,438) = -1 - StoichNum(229,439) = -1 - StoichNum(229,440) = -1 - StoichNum(229,441) = -1 - StoichNum(229,563) = 0.032 - StoichNum(230,385) = 1 - StoichNum(230,387) = 0.5 - StoichNum(230,389) = 0.5 - StoichNum(230,395) = 0.55 - StoichNum(230,400) = 0.33 - StoichNum(230,402) = 0.19 - StoichNum(230,404) = 0.125 - StoichNum(230,411) = 0.125 - StoichNum(230,420) = 0.706 - StoichNum(230,422) = 0.14 - StoichNum(230,507) = 0.054 - StoichNum(230,509) = 0.059 - StoichNum(230,527) = -1 - StoichNum(230,543) = 0.335 - StoichNum(230,565) = 0.429 - StoichNum(230,566) = 0.75 - StoichNum(230,856) = -1 - StoichNum(230,872) = 0.55 - StoichNum(230,889) = 0.5 - StoichNum(231,386) = 1 - StoichNum(231,387) = 0.5 - StoichNum(231,391) = 0.5 - StoichNum(231,399) = 0.55 - StoichNum(231,401) = 0.17 - StoichNum(231,403) = 0.09 - StoichNum(231,404) = 0.158 - StoichNum(231,412) = 0.165 - StoichNum(231,416) = 0.716 - StoichNum(231,418) = 0.14 - StoichNum(231,507) = 0.004 - StoichNum(231,509) = 0.006 - StoichNum(231,528) = -1 - StoichNum(231,546) = 0.41 - StoichNum(231,562) = 0.5 - StoichNum(231,565) = 0.571 - StoichNum(231,566) = 0.25 - StoichNum(231,859) = -1 - StoichNum(231,875) = 0.55 - StoichNum(231,881) = 0.5 - StoichNum(231,887) = 0.15 - StoichNum(231,889) = 0.5 - StoichNum(232,476) = -1 - StoichNum(232,477) = -1 - StoichNum(232,478) = -1 - StoichNum(232,496) = 1 - StoichNum(232,497) = 0.33 - StoichNum(232,567) = 0.037 - StoichNum(233,33) = 0.3 - StoichNum(233,97) = 0.5 - StoichNum(233,116) = -1 - StoichNum(233,118) = -1 - StoichNum(233,119) = 1 - StoichNum(233,134) = 0.1 - StoichNum(233,310) = 1 - StoichNum(233,372) = 0.3 - StoichNum(233,373) = 0.3 - StoichNum(233,379) = 0.3 - StoichNum(233,381) = 0.3 - StoichNum(233,400) = 0.085 - StoichNum(233,401) = 0.165 - StoichNum(233,404) = 0.355 - StoichNum(233,405) = 0.5 - StoichNum(233,413) = 0.018 - StoichNum(233,414) = 0.018 - StoichNum(233,434) = 0.52 - StoichNum(233,435) = 0.8 - StoichNum(233,521) = 0.545 - StoichNum(233,524) = 0.88 - StoichNum(233,526) = 0.449 - StoichNum(233,537) = 0.187 - StoichNum(233,538) = 1 - StoichNum(233,540) = 1 - StoichNum(233,543) = 0.05 - StoichNum(233,544) = 0.242 - StoichNum(233,546) = 0.083 - StoichNum(233,550) = 0.14 - StoichNum(233,561) = 0.7 - StoichNum(233,590) = 0.12 - StoichNum(233,591) = 0.2 - StoichNum(233,626) = 0.6 - StoichNum(233,627) = 0.6 - StoichNum(233,628) = 0.2 - StoichNum(233,713) = -1 - StoichNum(233,764) = -1 - StoichNum(233,855) = 0.5 - StoichNum(233,856) = 0.47 - StoichNum(233,857) = 0.571 - StoichNum(233,858) = 0.125 - StoichNum(233,859) = 0.23 - StoichNum(233,882) = 0.118 - StoichNum(233,884) = 0.429 - StoichNum(233,888) = 1 - StoichNum(234,111) = 0.22 - StoichNum(234,311) = -1 - StoichNum(234,312) = -1 - StoichNum(234,313) = -1 - StoichNum(234,314) = -1 - StoichNum(234,315) = -1 - StoichNum(234,316) = -1 - StoichNum(234,317) = -1 - StoichNum(234,369) = 0.58 - StoichNum(234,521) = 0.5 - StoichNum(234,524) = 0.88 - StoichNum(234,577) = 1 - StoichNum(235,230) = -1 - StoichNum(235,643) = 1 - StoichNum(235,645) = 1 - StoichNum(235,646) = 1 - StoichNum(235,658) = -1 - StoichNum(235,659) = -1 - StoichNum(235,660) = -1 - StoichNum(235,661) = -1 - StoichNum(235,662) = -1 - StoichNum(235,663) = -1 - StoichNum(235,795) = -1 - StoichNum(236,112) = -1 - StoichNum(236,113) = -1 - StoichNum(236,420) = 0.294 - StoichNum(236,422) = 0.135 - StoichNum(236,424) = 1 - StoichNum(236,426) = 0.65 - StoichNum(236,434) = 0.52 - StoichNum(236,435) = 0.8 - StoichNum(236,461) = 0.459 - StoichNum(236,462) = 0.728 - StoichNum(236,470) = 0.551 - StoichNum(236,471) = 0.935 - StoichNum(236,476) = 0.242 - StoichNum(236,477) = 0.546 - StoichNum(236,507) = 0.34 - StoichNum(236,509) = 0.384 - StoichNum(236,518) = 0.11 - StoichNum(236,519) = 0.09 - StoichNum(236,543) = 0.36 - StoichNum(236,544) = 0.758 - StoichNum(236,583) = 0.2 - StoichNum(236,585) = 1 - StoichNum(236,586) = 1 - StoichNum(236,588) = 1 - StoichNum(236,602) = 1 - StoichNum(236,624) = 0.9 - StoichNum(236,627) = 0.95 - StoichNum(236,760) = -1 - StoichNum(236,856) = 0.53 - StoichNum(236,861) = 0.69 - StoichNum(236,880) = 0.5 - StoichNum(236,882) = 0.118 - StoichNum(236,883) = 0.25 - StoichNum(236,884) = 0.429 - StoichNum(236,886) = 0.3 - StoichNum(236,887) = 0.35 - StoichNum(236,888) = 1 - StoichNum(237,61) = 1 - StoichNum(237,62) = -1 - StoichNum(237,63) = -1 - StoichNum(237,66) = 0.05 - StoichNum(237,80) = 0.07 - StoichNum(237,83) = -1 - StoichNum(237,95) = 0.03 - StoichNum(237,107) = -1 - StoichNum(237,109) = 0.03 - StoichNum(237,123) = 0.36 - StoichNum(237,133) = 0.045 - StoichNum(237,142) = -1 - StoichNum(237,143) = 0.07 - StoichNum(237,144) = 0.07 - StoichNum(237,169) = 1 - StoichNum(237,277) = 1 - StoichNum(237,756) = 0.07 - StoichNum(237,759) = 0.06 - StoichNum(237,777) = 0.05 - StoichNum(238,324) = 1 - StoichNum(238,325) = 1 - StoichNum(238,326) = -1 - StoichNum(238,327) = -1 - StoichNum(238,328) = -1 - StoichNum(238,329) = -1 - StoichNum(238,330) = -1 - StoichNum(239,59) = -1 - StoichNum(239,66) = 0.34 - StoichNum(239,80) = 0.49 - StoichNum(239,93) = -1 - StoichNum(239,95) = 0.16 - StoichNum(239,104) = -2 - StoichNum(239,106) = -1 - StoichNum(239,109) = 0.22 - StoichNum(239,122) = 0.36 - StoichNum(239,133) = 0.29 - StoichNum(239,140) = -1 - StoichNum(239,143) = 0.49 - StoichNum(239,144) = 0.49 - StoichNum(239,272) = -1 - StoichNum(239,336) = 0.16 - StoichNum(239,756) = 0.49 - StoichNum(239,759) = 0.415 - StoichNum(239,777) = 0.34 - StoichNum(240,458) = 0.4 - StoichNum(240,459) = 0.4 - StoichNum(240,482) = 0.07 - StoichNum(240,483) = 0.532 - StoichNum(240,484) = 0.862 - StoichNum(240,485) = 0.401 - StoichNum(240,486) = 0.034 - StoichNum(240,488) = 0.159 - StoichNum(240,490) = 0.159 - StoichNum(240,493) = 0.159 - StoichNum(240,495) = 1 - StoichNum(240,504) = 1 - StoichNum(240,513) = -1 - StoichNum(240,514) = -1 - StoichNum(240,877) = 0.159 - StoichNum(240,879) = -1 - StoichNum(240,880) = 0.223 - StoichNum(241,459) = 0.6 - StoichNum(241,465) = 0.599 - StoichNum(241,466) = 1 - StoichNum(241,473) = 0.065 - StoichNum(241,474) = 0.142 - StoichNum(241,476) = 0.01 - StoichNum(241,477) = 0.028 - StoichNum(241,507) = 0.008 - StoichNum(241,508) = 0.015 - StoichNum(241,509) = 0.014 - StoichNum(241,511) = 0.049 - StoichNum(241,514) = 0.161 - StoichNum(241,526) = -1 - StoichNum(241,533) = 1 - StoichNum(241,545) = 1 - StoichNum(241,718) = -1 - StoichNum(241,861) = -1 - StoichNum(241,886) = 0.05 - StoichNum(242,417) = 1 - StoichNum(242,421) = 1 - StoichNum(242,425) = 1 - StoichNum(242,461) = 0.482 - StoichNum(242,465) = 0.401 - StoichNum(242,470) = 0.418 - StoichNum(242,473) = 0.494 - StoichNum(242,476) = 0.621 - StoichNum(242,499) = 1 - StoichNum(242,500) = 1 - StoichNum(242,506) = 0.5 - StoichNum(242,507) = 0.234 - StoichNum(242,508) = 0.387 - StoichNum(242,517) = 0.565 - StoichNum(242,567) = -1 - StoichNum(242,734) = -1 - StoichNum(242,886) = -1 - StoichNum(242,887) = -1 - StoichNum(243,463) = 1 - StoichNum(243,467) = 1 - StoichNum(243,472) = 1 - StoichNum(243,475) = 1 - StoichNum(243,478) = 1 - StoichNum(243,492) = 1 - StoichNum(243,494) = 1 - StoichNum(243,510) = 1 - StoichNum(243,512) = 1 - StoichNum(243,517) = -1 - StoichNum(243,519) = 0.18 - StoichNum(243,732) = -1 - StoichNum(243,880) = -1 - StoichNum(244,279) = 0.5 - StoichNum(244,371) = 1 - StoichNum(244,376) = -1 - StoichNum(244,377) = -1 - StoichNum(244,380) = -1 - StoichNum(244,381) = -1 - StoichNum(244,383) = -2 - StoichNum(244,384) = -1 - StoichNum(244,386) = -2 - StoichNum(244,387) = -1 - StoichNum(244,390) = -1 - StoichNum(244,391) = -1 - StoichNum(244,396) = -1 - StoichNum(244,397) = -1 - StoichNum(244,398) = -1 - StoichNum(244,399) = -1 - StoichNum(244,412) = 0.51 - StoichNum(244,414) = 0.03 - StoichNum(244,878) = 0.159 - StoichNum(245,279) = 0.5 - StoichNum(245,370) = 1 - StoichNum(245,374) = -1 - StoichNum(245,375) = -1 - StoichNum(245,378) = -1 - StoichNum(245,379) = -1 - StoichNum(245,382) = -2 - StoichNum(245,384) = -1 - StoichNum(245,385) = -2 - StoichNum(245,387) = -1 - StoichNum(245,388) = -1 - StoichNum(245,389) = -1 - StoichNum(245,392) = -1 - StoichNum(245,393) = -1 - StoichNum(245,394) = -1 - StoichNum(245,395) = -1 - StoichNum(245,411) = 0.75 - StoichNum(245,413) = 0.03 - StoichNum(245,878) = 0.841 - StoichNum(246,479) = 0.535 - StoichNum(246,481) = -1 - StoichNum(246,483) = -1 - StoichNum(246,484) = -2 - StoichNum(246,485) = -1 - StoichNum(246,488) = -1 - StoichNum(246,490) = -1 - StoichNum(246,493) = -1 - StoichNum(246,494) = -1 - StoichNum(246,503) = 1 - StoichNum(247,479) = 0.465 - StoichNum(247,480) = -1 - StoichNum(247,482) = -2 - StoichNum(247,483) = -1 - StoichNum(247,486) = -1 - StoichNum(247,487) = -1 - StoichNum(247,489) = -1 - StoichNum(247,491) = -1 - StoichNum(247,492) = -1 - StoichNum(247,502) = 1 - StoichNum(248,369) = 0.177 - StoichNum(248,374) = 0.063 - StoichNum(248,378) = 1 - StoichNum(248,382) = 2 - StoichNum(248,384) = 1 - StoichNum(248,388) = 1 - StoichNum(248,393) = 1 - StoichNum(248,400) = 0.035 - StoichNum(248,402) = 0.23 - StoichNum(248,411) = 0.125 - StoichNum(248,446) = 1 - StoichNum(248,447) = 1 - StoichNum(248,480) = 0.479 - StoichNum(248,482) = 1.737 - StoichNum(248,483) = 0.544 - StoichNum(248,486) = 0.583 - StoichNum(248,487) = 0.903 - StoichNum(248,489) = 0.903 - StoichNum(248,491) = 0.904 - StoichNum(248,520) = -1 - StoichNum(248,521) = -1 - StoichNum(248,590) = 0.04 - StoichNum(248,591) = 0.04 - StoichNum(248,765) = -1 - StoichNum(248,766) = -1 - StoichNum(248,767) = -1 - StoichNum(248,864) = 1 - StoichNum(248,870) = 1 - StoichNum(248,873) = 1 - StoichNum(248,876) = 0.903 - StoichNum(248,880) = 0.05 - StoichNum(249,529) = 1 - StoichNum(249,554) = -1 - StoichNum(249,555) = -1 - StoichNum(249,556) = -1 - StoichNum(249,557) = -1 - StoichNum(249,558) = -1 - StoichNum(250,84) = 0.16 - StoichNum(250,97) = 0.2 - StoichNum(250,119) = -1 - StoichNum(250,120) = -1 - StoichNum(250,127) = 0.791 - StoichNum(250,141) = 0.065 - StoichNum(250,338) = 0.058 - StoichNum(250,364) = 1 - StoichNum(250,405) = 0.5 - StoichNum(250,416) = 0.284 - StoichNum(250,418) = 0.135 - StoichNum(250,424) = 1 - StoichNum(250,426) = 0.65 - StoichNum(250,439) = 0.8 - StoichNum(250,441) = 0.52 - StoichNum(250,442) = 0.52 - StoichNum(250,444) = 0.8 - StoichNum(250,445) = 1 - StoichNum(250,461) = 0.459 - StoichNum(250,462) = 0.728 - StoichNum(250,473) = 0.441 - StoichNum(250,474) = 0.858 - StoichNum(250,476) = 0.033 - StoichNum(250,477) = 0.071 - StoichNum(250,507) = 0.042 - StoichNum(250,509) = 0.051 - StoichNum(250,528) = 0.77 - StoichNum(250,542) = 0.84 - StoichNum(250,546) = 0.507 - StoichNum(250,548) = 0.488 - StoichNum(250,549) = 1 - StoichNum(250,550) = 0.86 - StoichNum(250,554) = 0.5 - StoichNum(250,555) = 1 - StoichNum(250,557) = 1 - StoichNum(250,558) = 0.7 - StoichNum(250,560) = 0.25 - StoichNum(250,769) = -1 - StoichNum(250,841) = 1 - StoichNum(250,859) = 0.77 - StoichNum(250,862) = 1 - StoichNum(250,880) = 0.5 - StoichNum(250,882) = 0.586 - StoichNum(250,883) = 0.25 - StoichNum(250,884) = 0.571 - StoichNum(250,886) = 0.45 - StoichNum(250,887) = 0.8 - StoichNum(251,336) = 0.79 - StoichNum(251,340) = 0.308 - StoichNum(251,341) = 0.308 - StoichNum(251,342) = 0.615 - StoichNum(251,369) = 0.416 - StoichNum(251,376) = 0.063 - StoichNum(251,380) = 1 - StoichNum(251,383) = 2 - StoichNum(251,384) = 1 - StoichNum(251,390) = 1 - StoichNum(251,397) = 1 - StoichNum(251,401) = 0.035 - StoichNum(251,403) = 0.14 - StoichNum(251,412) = 0.165 - StoichNum(251,448) = 1 - StoichNum(251,449) = 1 - StoichNum(251,480) = 0.048 - StoichNum(251,482) = 0.123 - StoichNum(251,483) = 0.019 - StoichNum(251,486) = 0.028 - StoichNum(251,487) = 0.097 - StoichNum(251,489) = 0.097 - StoichNum(251,491) = 0.096 - StoichNum(251,522) = -1 - StoichNum(251,523) = -1 - StoichNum(251,524) = -1 - StoichNum(251,525) = -1 - StoichNum(251,768) = -1 - StoichNum(251,865) = 1 - StoichNum(251,871) = 1 - StoichNum(251,874) = 1 - StoichNum(251,876) = 0.097 - StoichNum(251,880) = 0.005 - StoichNum(252,33) = 0.7 - StoichNum(252,69) = -1 - StoichNum(252,82) = 1 - StoichNum(252,87) = -1 - StoichNum(252,97) = -1 - StoichNum(252,134) = -1 - StoichNum(252,167) = 1 - StoichNum(252,278) = 1 - StoichNum(253,110) = -1 - StoichNum(253,111) = -1 - StoichNum(253,114) = -1 - StoichNum(253,281) = -1 - StoichNum(253,282) = -1 - StoichNum(253,336) = 0.46 - StoichNum(253,338) = 0.289 - StoichNum(253,340) = 0.192 - StoichNum(253,341) = 0.192 - StoichNum(253,342) = 0.385 - StoichNum(253,765) = 1 - StoichNum(254,70) = -1 - StoichNum(254,88) = -1 - StoichNum(254,91) = 1 - StoichNum(254,94) = 1 - StoichNum(254,98) = -1 - StoichNum(254,135) = -1 - StoichNum(254,331) = 0.62 - StoichNum(254,332) = 0.62 - StoichNum(254,336) = 0.42 - StoichNum(255,77) = 1 - StoichNum(255,78) = -1 - StoichNum(255,79) = 1 - StoichNum(255,80) = -1 - StoichNum(255,81) = 1 - StoichNum(255,109) = -1 - StoichNum(255,126) = 1 - StoichNum(255,143) = -1 - StoichNum(255,144) = -1 - StoichNum(255,623) = 0.33 - StoichNum(255,626) = 0.33 - StoichNum(255,759) = 0.15 - StoichNum(255,767) = 1 - StoichNum(256,65) = 1 - StoichNum(256,66) = -1 - StoichNum(256,67) = -1 - StoichNum(256,74) = 1 - StoichNum(256,85) = -1 - StoichNum(256,95) = -1 - StoichNum(256,96) = 0.15 - StoichNum(256,125) = 0.21 - StoichNum(256,133) = -1 - StoichNum(256,137) = 0.27 - StoichNum(256,280) = 1 - StoichNum(256,343) = 0.44 - StoichNum(256,628) = 0.2 - StoichNum(257,68) = -1 - StoichNum(257,75) = 1 - StoichNum(257,86) = -1 - StoichNum(257,96) = -1 - StoichNum(257,137) = -1 - StoichNum(257,619) = 0.5 - StoichNum(257,620) = 0.5 - StoichNum(258,60) = 1 - StoichNum(258,66) = 0.19 - StoichNum(258,71) = -1 - StoichNum(258,72) = -1 - StoichNum(258,80) = 0.27 - StoichNum(258,89) = -1 - StoichNum(258,95) = 0.09 - StoichNum(258,99) = -1 - StoichNum(258,109) = 0.12 - StoichNum(258,124) = 0.209 - StoichNum(258,133) = 0.162 - StoichNum(258,136) = -1 - StoichNum(258,143) = 0.27 - StoichNum(258,144) = 0.27 - StoichNum(258,276) = 1 - StoichNum(258,756) = 0.27 - StoichNum(258,759) = 0.23 - StoichNum(258,777) = 0.19 - StoichNum(259,62) = 1 - StoichNum(259,66) = 0.15 - StoichNum(259,68) = 0.64 - StoichNum(259,77) = -1 - StoichNum(259,81) = -1 - StoichNum(259,83) = 0.75 - StoichNum(259,84) = 0.09 - StoichNum(259,95) = 0.13 - StoichNum(259,96) = 0.58 - StoichNum(259,100) = 0.25 - StoichNum(259,102) = 1 - StoichNum(259,123) = 0.64 - StoichNum(259,125) = 1.185 - StoichNum(259,133) = 0.255 - StoichNum(259,137) = 0.613 - StoichNum(259,138) = 0.1 - StoichNum(259,141) = 0.035 - StoichNum(259,142) = 1 - StoichNum(259,326) = 0.43 - StoichNum(259,328) = 0.75 - StoichNum(259,329) = 1 - StoichNum(259,330) = 1 - StoichNum(259,331) = 0.65 - StoichNum(259,332) = 0.65 - StoichNum(259,338) = 0.491 - StoichNum(259,343) = 0.08 - StoichNum(259,345) = 1.24 - StoichNum(259,349) = 0.93 - StoichNum(259,351) = 1.24 - StoichNum(259,353) = 1.24 - StoichNum(259,355) = 0.64 - StoichNum(259,356) = 1.21 - StoichNum(259,368) = 1 - StoichNum(259,625) = 1.2 - StoichNum(259,628) = 1.15 - StoichNum(259,756) = -1 - StoichNum(259,770) = 1 - StoichNum(259,772) = 1 - StoichNum(259,774) = 1.5 - StoichNum(259,777) = 0.15 - StoichNum(259,837) = 1 - StoichNum(259,840) = 1 - StoichNum(259,849) = 1 - StoichNum(260,153) = 1 - StoichNum(260,160) = 1 - StoichNum(260,161) = -1 - StoichNum(260,649) = 1 - StoichNum(260,669) = -1 - StoichNum(260,670) = -1 - StoichNum(260,671) = -1 - StoichNum(260,672) = -1 - StoichNum(260,673) = -1 - StoichNum(260,674) = -1 - StoichNum(260,675) = -1 - StoichNum(260,676) = 1 - StoichNum(260,677) = 1 - StoichNum(260,678) = 1 - StoichNum(260,781) = -1 - StoichNum(261,51) = 0.95 - StoichNum(261,52) = 1 - StoichNum(261,53) = -1 - StoichNum(261,54) = 1 - StoichNum(261,55) = -1 - StoichNum(261,69) = 1 - StoichNum(261,70) = 0.919 - StoichNum(261,87) = 0.15 - StoichNum(261,88) = 0.15 - StoichNum(261,97) = 0.3 - StoichNum(261,98) = 0.5 - StoichNum(261,116) = 1 - StoichNum(261,118) = 1 - StoichNum(261,129) = 0.78 - StoichNum(261,131) = -2 - StoichNum(261,132) = -1 - StoichNum(261,133) = -1 - StoichNum(261,134) = -0.1 - StoichNum(261,135) = -0.1 - StoichNum(261,136) = -1 - StoichNum(261,137) = -1 - StoichNum(261,138) = -1 - StoichNum(261,139) = -1 - StoichNum(261,140) = -1 - StoichNum(261,141) = -1 - StoichNum(261,142) = -1 - StoichNum(261,143) = -1 - StoichNum(261,166) = 1 - StoichNum(261,329) = -1 - StoichNum(261,341) = -1 - StoichNum(261,350) = -1 - StoichNum(261,351) = -1 - StoichNum(261,372) = 0.3 - StoichNum(261,379) = 0.3 - StoichNum(261,413) = 0.018 - StoichNum(261,487) = -1 - StoichNum(261,488) = -1 - StoichNum(261,521) = 0.38 - StoichNum(261,524) = 0.12 - StoichNum(261,526) = 0.04 - StoichNum(261,537) = 0.097 - StoichNum(261,541) = 1 - StoichNum(261,543) = 0.36 - StoichNum(261,544) = 0.758 - StoichNum(261,547) = 0.175 - StoichNum(261,548) = 0.087 - StoichNum(261,552) = 0.35 - StoichNum(261,561) = 0.3 - StoichNum(261,568) = 1 - StoichNum(261,569) = 1 - StoichNum(261,571) = -1 - StoichNum(261,596) = -1 - StoichNum(261,753) = 0.12 - StoichNum(261,755) = 0.7 - StoichNum(261,757) = 1 - StoichNum(261,759) = 0.85 - StoichNum(261,764) = 1 - StoichNum(261,766) = 1 - StoichNum(261,768) = 1 - StoichNum(261,769) = 1 - StoichNum(261,832) = 1 - StoichNum(261,852) = 1 - StoichNum(261,853) = 1 - StoichNum(261,854) = 1 - StoichNum(261,855) = 0.5 - StoichNum(261,856) = 0.53 - StoichNum(261,857) = 0.429 - StoichNum(261,858) = 0.125 - StoichNum(261,860) = 0.262 - StoichNum(261,861) = 1.01 - StoichNum(262,231) = -1 - StoichNum(262,250) = 1 - StoichNum(262,262) = -1 - StoichNum(262,263) = -1 - StoichNum(262,651) = -1 - StoichNum(262,652) = -1 - StoichNum(262,653) = -1 - StoichNum(262,654) = -1 - StoichNum(262,655) = -1 - StoichNum(262,656) = -1 - StoichNum(262,657) = -1 - StoichNum(262,796) = -1 - StoichNum(262,797) = -1 - StoichNum(263,10) = -1 - StoichNum(263,11) = 1 - StoichNum(263,12) = 1 - StoichNum(263,17) = 1 - StoichNum(263,26) = 1 - StoichNum(263,29) = 1 - StoichNum(263,30) = 2 - StoichNum(263,31) = 0.87 - StoichNum(263,32) = 0.3 - StoichNum(263,34) = -1 - StoichNum(263,48) = 1 - StoichNum(263,50) = -1 - StoichNum(263,51) = 0.05 - StoichNum(263,64) = 1 - StoichNum(263,68) = 0.64 - StoichNum(263,69) = 1 - StoichNum(263,73) = 1 - StoichNum(263,83) = 0.75 - StoichNum(263,84) = 1.25 - StoichNum(263,87) = 0.15 - StoichNum(263,92) = 0.75 - StoichNum(263,93) = 0.75 - StoichNum(263,95) = 0.75 - StoichNum(263,96) = 0.95 - StoichNum(263,97) = 0.5 - StoichNum(263,98) = 0.75 - StoichNum(263,99) = 0.75 - StoichNum(263,100) = 1.25 - StoichNum(263,111) = 0.5 - StoichNum(263,112) = 0.732 - StoichNum(263,129) = 0.22 - StoichNum(263,132) = 1 - StoichNum(263,134) = 0.9 - StoichNum(263,137) = 0.351 - StoichNum(263,138) = 0.9 - StoichNum(263,141) = 0.9 - StoichNum(263,144) = 1 - StoichNum(263,148) = 1 - StoichNum(263,150) = 1 - StoichNum(263,165) = -1 - StoichNum(263,180) = 0.25 - StoichNum(263,201) = -1 - StoichNum(263,223) = 1 - StoichNum(263,241) = -1 - StoichNum(263,268) = 1 - StoichNum(263,273) = 1 - StoichNum(263,309) = 1 - StoichNum(263,311) = 1 - StoichNum(263,312) = 1 - StoichNum(263,313) = 1 - StoichNum(263,314) = 0.06 - StoichNum(263,315) = 0.06 - StoichNum(263,316) = 1 - StoichNum(263,317) = 1 - StoichNum(263,326) = 0.23 - StoichNum(263,328) = 0.75 - StoichNum(263,336) = 0.04 - StoichNum(263,338) = 0.231 - StoichNum(263,340) = 1.04 - StoichNum(263,341) = 0.385 - StoichNum(263,342) = 0.385 - StoichNum(263,345) = 0.287 - StoichNum(263,348) = 1 - StoichNum(263,349) = 0.85 - StoichNum(263,351) = 0.287 - StoichNum(263,353) = 0.287 - StoichNum(263,355) = 0.202 - StoichNum(263,356) = 0.504 - StoichNum(263,365) = 1 - StoichNum(263,369) = 0.827 - StoichNum(263,372) = 0.3 - StoichNum(263,373) = 0.3 - StoichNum(263,374) = 0.063 - StoichNum(263,376) = 0.063 - StoichNum(263,378) = 1 - StoichNum(263,379) = 0.3 - StoichNum(263,380) = 1 - StoichNum(263,381) = 0.3 - StoichNum(263,382) = 2 - StoichNum(263,383) = 2 - StoichNum(263,384) = 2 - StoichNum(263,388) = 2 - StoichNum(263,389) = 1 - StoichNum(263,390) = 2 - StoichNum(263,391) = 1 - StoichNum(263,393) = 1 - StoichNum(263,397) = 1 - StoichNum(263,400) = 0.085 - StoichNum(263,401) = 0.165 - StoichNum(263,405) = 0.5 - StoichNum(263,413) = 0.018 - StoichNum(263,414) = 0.018 - StoichNum(263,416) = 0.716 - StoichNum(263,418) = 0.14 - StoichNum(263,420) = 0.706 - StoichNum(263,422) = 0.14 - StoichNum(263,442) = 0.65 - StoichNum(263,444) = 1 - StoichNum(263,461) = 0.059 - StoichNum(263,462) = 0.272 - StoichNum(263,465) = 0.599 - StoichNum(263,466) = 1 - StoichNum(263,470) = 0.031 - StoichNum(263,471) = 0.065 - StoichNum(263,473) = 0.065 - StoichNum(263,474) = 0.142 - StoichNum(263,476) = 0.104 - StoichNum(263,477) = 0.383 - StoichNum(263,480) = 0.527 - StoichNum(263,482) = 1.86 - StoichNum(263,483) = 0.563 - StoichNum(263,485) = 0.645 - StoichNum(263,486) = 1.577 - StoichNum(263,487) = 1 - StoichNum(263,489) = 1 - StoichNum(263,491) = 1 - StoichNum(263,507) = 0.126 - StoichNum(263,508) = 0.088 - StoichNum(263,509) = 0.249 - StoichNum(263,511) = 0.34 - StoichNum(263,521) = 0.6 - StoichNum(263,524) = 0.12 - StoichNum(263,526) = 0.241 - StoichNum(263,543) = 0.05 - StoichNum(263,544) = 0.242 - StoichNum(263,546) = 0.083 - StoichNum(263,547) = 0.5 - StoichNum(263,548) = 0.25 - StoichNum(263,550) = 0.14 - StoichNum(263,552) = 1 - StoichNum(263,558) = 1 - StoichNum(263,567) = 0.022 - StoichNum(263,570) = 0.5 - StoichNum(263,572) = 1 - StoichNum(263,577) = 1 - StoichNum(263,583) = 0.8 - StoichNum(263,584) = 2 - StoichNum(263,595) = 1 - StoichNum(263,621) = 1 - StoichNum(263,622) = 1 - StoichNum(263,635) = 1 - StoichNum(263,743) = 1 - StoichNum(263,744) = -1 - StoichNum(263,745) = -1 - StoichNum(263,760) = 0.9 - StoichNum(263,763) = 1 - StoichNum(263,766) = 1 - StoichNum(263,768) = 1 - StoichNum(263,769) = 1 - StoichNum(263,775) = 1 - StoichNum(263,830) = 1 - StoichNum(263,832) = 1 - StoichNum(263,838) = 1 - StoichNum(263,846) = 1 - StoichNum(263,850) = 1 - StoichNum(263,851) = 1 - StoichNum(263,853) = 1 - StoichNum(263,854) = 1 - StoichNum(263,856) = 0.47 - StoichNum(263,859) = 0.23 - StoichNum(263,860) = 0.75 - StoichNum(263,864) = 1 - StoichNum(263,865) = 1 - StoichNum(263,873) = 1 - StoichNum(263,874) = 1 - StoichNum(263,876) = 1 - StoichNum(263,880) = 0.055 - StoichNum(263,882) = 0.133 - StoichNum(263,886) = 0.55 - StoichNum(263,887) = 0.15 - StoichNum(264,51) = -1 - StoichNum(264,52) = -1 - StoichNum(264,57) = 1 - StoichNum(264,59) = 1 - StoichNum(264,64) = 1 - StoichNum(264,66) = 0.34 - StoichNum(264,68) = 0.97 - StoichNum(264,70) = 0.919 - StoichNum(264,73) = 1 - StoichNum(264,84) = 0.5 - StoichNum(264,88) = 0.15 - StoichNum(264,92) = 0.75 - StoichNum(264,93) = 0.75 - StoichNum(264,95) = 0.16 - StoichNum(264,96) = 0.38 - StoichNum(264,98) = 0.5 - StoichNum(264,100) = 0.5 - StoichNum(264,101) = 1 - StoichNum(264,103) = 1.6 - StoichNum(264,104) = 1.6 - StoichNum(264,111) = 0.5 - StoichNum(264,122) = 0.64 - StoichNum(264,133) = 0.29 - StoichNum(264,135) = 0.9 - StoichNum(264,137) = 0.675 - StoichNum(264,138) = 0.9 - StoichNum(264,139) = 1 - StoichNum(264,140) = 1 - StoichNum(264,141) = 0.9 - StoichNum(264,166) = -1 - StoichNum(264,271) = 1 - StoichNum(264,272) = 1 - StoichNum(264,274) = 1 - StoichNum(264,318) = 1 - StoichNum(264,319) = 1 - StoichNum(264,320) = 1 - StoichNum(264,321) = 1 - StoichNum(264,322) = 1 - StoichNum(264,366) = 1 - StoichNum(264,753) = -1 - StoichNum(264,754) = -1 - StoichNum(264,771) = 1 - StoichNum(264,775) = 1 - StoichNum(264,776) = 1 - StoichNum(264,777) = 0.34 - StoichNum(264,847) = 1 - StoichNum(265,3) = -1 - StoichNum(265,6) = -1 - StoichNum(265,35) = 1 - StoichNum(265,36) = -1 - StoichNum(265,50) = 1 - StoichNum(265,52) = 1 - StoichNum(265,74) = 1 - StoichNum(265,81) = 1 - StoichNum(265,94) = 1 - StoichNum(265,117) = 1 - StoichNum(265,118) = 1 - StoichNum(265,130) = 1 - StoichNum(265,150) = 1 - StoichNum(265,362) = 1 - StoichNum(265,363) = 1 - StoichNum(265,525) = 0.32 - StoichNum(265,568) = 1 - StoichNum(265,598) = 0.742 - StoichNum(265,600) = 0.5 - StoichNum(265,603) = 0.5 - StoichNum(265,605) = 1 - StoichNum(265,620) = 0.5 - StoichNum(265,638) = 0.5 - StoichNum(265,639) = 1 - StoichNum(265,642) = 2 - StoichNum(265,643) = 1 - StoichNum(265,644) = 2 - StoichNum(265,645) = 1 - StoichNum(265,646) = 1 - StoichNum(265,649) = 1 - StoichNum(265,650) = 1 - StoichNum(265,651) = 1 - StoichNum(265,652) = 1 - StoichNum(265,653) = 1 - StoichNum(265,654) = 1 - StoichNum(265,655) = 1 - StoichNum(265,656) = 1 - StoichNum(265,657) = 1 - StoichNum(265,697) = 1 - StoichNum(265,698) = 1 - StoichNum(265,699) = 1 - StoichNum(265,704) = 1 - StoichNum(265,705) = 1 - StoichNum(265,706) = 1 - StoichNum(265,707) = 1 - StoichNum(265,746) = -1 - StoichNum(266,17) = -1 - StoichNum(266,25) = 1 - StoichNum(266,26) = -1 - StoichNum(266,27) = -1 - StoichNum(266,28) = -1 - StoichNum(266,29) = -2 - StoichNum(266,30) = -2 - StoichNum(266,31) = -1 - StoichNum(266,32) = 0.7 - StoichNum(266,55) = 1 - StoichNum(266,66) = 0.19 - StoichNum(266,76) = 1 - StoichNum(266,83) = -1 - StoichNum(266,84) = -1 - StoichNum(266,88) = 0.85 - StoichNum(266,92) = -1 - StoichNum(266,93) = -1 - StoichNum(266,95) = -0.91 - StoichNum(266,96) = -1 - StoichNum(266,97) = -1 - StoichNum(266,98) = -0.75 - StoichNum(266,99) = -1 - StoichNum(266,100) = -1 - StoichNum(266,111) = 0.28 - StoichNum(266,120) = 0.5 - StoichNum(266,131) = 2 - StoichNum(266,132) = -0.1 - StoichNum(266,133) = 0.9 - StoichNum(266,134) = 0.9 - StoichNum(266,135) = 0.9 - StoichNum(266,136) = 0.9 - StoichNum(266,137) = 0.9 - StoichNum(266,138) = 0.9 - StoichNum(266,139) = 0.9 - StoichNum(266,140) = 0.9 - StoichNum(266,141) = 0.9 - StoichNum(266,142) = 0.9 - StoichNum(266,143) = 1 - StoichNum(266,144) = -1 - StoichNum(266,146) = -1 - StoichNum(266,147) = 1 - StoichNum(266,148) = 1 - StoichNum(266,149) = 1 - StoichNum(266,150) = 1 - StoichNum(266,180) = 0.75 - StoichNum(266,206) = 0.9 - StoichNum(266,207) = 1 - StoichNum(266,223) = -1 - StoichNum(266,240) = 1 - StoichNum(266,268) = -1 - StoichNum(266,269) = 1 - StoichNum(266,275) = 1 - StoichNum(266,308) = 1 - StoichNum(266,328) = -1 - StoichNum(266,329) = 0.5 - StoichNum(266,340) = -1 - StoichNum(266,341) = 0.5 - StoichNum(266,348) = -1 - StoichNum(266,349) = -1 - StoichNum(266,350) = 1 - StoichNum(266,351) = 0.5 - StoichNum(266,369) = 0.407 - StoichNum(266,388) = -1 - StoichNum(266,389) = -1 - StoichNum(266,390) = -1 - StoichNum(266,391) = -1 - StoichNum(266,485) = -1 - StoichNum(266,486) = -1 - StoichNum(266,487) = 1 - StoichNum(266,488) = 1 - StoichNum(266,547) = 0.325 - StoichNum(266,548) = 0.162 - StoichNum(266,552) = 0.65 - StoichNum(266,558) = -1 - StoichNum(266,571) = 0.5 - StoichNum(266,583) = -1 - StoichNum(266,595) = -1 - StoichNum(266,596) = 1 - StoichNum(266,621) = -1 - StoichNum(266,622) = -1 - StoichNum(266,635) = -1 - StoichNum(266,753) = 0.88 - StoichNum(266,755) = 0.3 - StoichNum(266,757) = 1 - StoichNum(266,758) = 2 - StoichNum(266,759) = 0.15 - StoichNum(266,767) = 1 - StoichNum(266,776) = 1 - StoichNum(266,777) = 0.19 - StoichNum(266,778) = 1 - StoichNum(266,787) = 1 - StoichNum(266,788) = 1 - StoichNum(266,831) = 1 - StoichNum(266,860) = 0.488 - StoichNum(267,24) = -1 - StoichNum(267,34) = 1 - StoichNum(267,50) = 1 - StoichNum(267,51) = 0.05 - StoichNum(267,111) = 0.56 - StoichNum(267,112) = 0.505 - StoichNum(267,113) = 1 - StoichNum(267,115) = 2 - StoichNum(267,116) = 1 - StoichNum(267,117) = 2 - StoichNum(267,118) = 1 - StoichNum(267,120) = 0.5 - StoichNum(267,165) = 1 - StoichNum(267,187) = 1 - StoichNum(267,201) = 1 - StoichNum(267,241) = 1 - StoichNum(267,264) = 1 - StoichNum(267,265) = 1 - StoichNum(267,266) = 1 - StoichNum(267,311) = -1 - StoichNum(267,318) = -1 - StoichNum(267,331) = 0.14 - StoichNum(267,332) = 0.14 - StoichNum(267,336) = 0.14 - StoichNum(267,369) = 0.407 - StoichNum(267,372) = 0.6 - StoichNum(267,373) = 0.9 - StoichNum(267,379) = 0.6 - StoichNum(267,381) = 0.9 - StoichNum(267,385) = 1 - StoichNum(267,386) = 1 - StoichNum(267,387) = 1 - StoichNum(267,389) = 0.5 - StoichNum(267,391) = 0.5 - StoichNum(267,395) = 0.55 - StoichNum(267,399) = 0.55 - StoichNum(267,400) = 0.45 - StoichNum(267,401) = 0.37 - StoichNum(267,402) = 0.42 - StoichNum(267,403) = 0.23 - StoichNum(267,404) = 0.638 - StoichNum(267,405) = 1.5 - StoichNum(267,406) = 1 - StoichNum(267,411) = 0.25 - StoichNum(267,412) = 0.33 - StoichNum(267,413) = 0.036 - StoichNum(267,414) = 0.054 - StoichNum(267,433) = 1 - StoichNum(267,434) = 0.13 - StoichNum(267,435) = 0.2 - StoichNum(267,438) = 1 - StoichNum(267,439) = 0.2 - StoichNum(267,441) = 0.13 - StoichNum(267,442) = 0.52 - StoichNum(267,444) = 0.8 - StoichNum(267,445) = 2 - StoichNum(267,458) = 0.6 - StoichNum(267,459) = 0.6 - StoichNum(267,514) = 0.539 - StoichNum(267,515) = 0.33 - StoichNum(267,516) = 0.33 - StoichNum(267,521) = 0.28 - StoichNum(267,522) = 0.036 - StoichNum(267,524) = 0.12 - StoichNum(267,525) = 0.68 - StoichNum(267,528) = 0.77 - StoichNum(267,530) = 0.25 - StoichNum(267,537) = 0.75 - StoichNum(267,538) = 1 - StoichNum(267,540) = 1 - StoichNum(267,541) = 2 - StoichNum(267,542) = 0.84 - StoichNum(267,546) = 0.507 - StoichNum(267,547) = 0.325 - StoichNum(267,548) = 0.488 - StoichNum(267,549) = 1 - StoichNum(267,550) = 0.86 - StoichNum(267,552) = 0.65 - StoichNum(267,560) = 0.25 - StoichNum(267,561) = 1 - StoichNum(267,562) = 1 - StoichNum(267,563) = 0.888 - StoichNum(267,566) = 1 - StoichNum(267,572) = 1 - StoichNum(267,579) = 0.364 - StoichNum(267,589) = 0.2 - StoichNum(267,590) = 0.27 - StoichNum(267,591) = 0.3 - StoichNum(267,619) = 0.15 - StoichNum(267,620) = 0.15 - StoichNum(267,623) = 0.26 - StoichNum(267,624) = 0.5 - StoichNum(267,626) = 0.25 - StoichNum(267,627) = 0.5 - StoichNum(267,628) = 0.05 - StoichNum(267,744) = 1 - StoichNum(267,745) = 1 - StoichNum(267,753) = 0.88 - StoichNum(267,754) = 1 - StoichNum(267,756) = 1 - StoichNum(267,758) = 1 - StoichNum(267,760) = 1 - StoichNum(267,761) = 2 - StoichNum(267,762) = 2 - StoichNum(267,763) = 1 - StoichNum(267,764) = 1 - StoichNum(267,765) = 1 - StoichNum(267,766) = 1 - StoichNum(267,768) = 1 - StoichNum(267,834) = 1 - StoichNum(267,838) = 1 - StoichNum(267,851) = 1 - StoichNum(267,854) = 1 - StoichNum(267,855) = 0.5 - StoichNum(267,857) = 0.571 - StoichNum(267,858) = 0.875 - StoichNum(267,859) = 0.77 - StoichNum(267,862) = 1 - StoichNum(267,863) = 1 - StoichNum(267,868) = 0.888 - StoichNum(267,869) = 0.818 - StoichNum(267,870) = 1 - StoichNum(267,871) = 1 - StoichNum(267,872) = 0.55 - StoichNum(267,875) = 0.55 - StoichNum(267,879) = 0.839 - StoichNum(267,881) = 1 - StoichNum(267,882) = 0.163 - StoichNum(267,885) = 1 - StoichNum(267,889) = 1 - StoichNum(267,891) = 1 - StoichNum(267,894) = 1 - StoichNum(268,301) = 1 - StoichNum(268,303) = -1 - StoichNum(268,304) = 1 - StoichNum(268,684) = -1 - StoichNum(268,685) = -1 - StoichNum(268,699) = 1 - StoichNum(268,708) = -1 - StoichNum(268,709) = -1 - StoichNum(268,710) = -1 - StoichNum(268,711) = -1 - StoichNum(268,815) = -1 - StoichNum(269,283) = -1 - StoichNum(269,285) = -1 - StoichNum(269,286) = 1 - StoichNum(269,288) = 1 - StoichNum(269,291) = -1 - StoichNum(269,292) = -1 - StoichNum(269,293) = 0.2 - StoichNum(269,298) = 0.809 - StoichNum(269,299) = -1 - StoichNum(269,300) = -1 - StoichNum(269,301) = 1 - StoichNum(269,302) = 1 - StoichNum(269,305) = 1 - StoichNum(269,306) = 0.4 - StoichNum(269,307) = 0.996 - StoichNum(269,308) = 1 - StoichNum(269,814) = 2 - StoichNum(269,815) = 1 - StoichNum(269,816) = 1 - StoichNum(269,817) = 1 - StoichNum(269,818) = 1 - StoichNum(269,819) = 1 - StoichNum(269,820) = 1 - StoichNum(269,821) = 1 - StoichNum(269,822) = 1 - StoichNum(269,823) = 2 - StoichNum(269,824) = 1 - StoichNum(269,825) = 1 - StoichNum(269,828) = 1 - StoichNum(269,829) = 1 - StoichNum(270,288) = 1 - StoichNum(270,289) = 1 - StoichNum(270,290) = -1 - StoichNum(270,291) = -1 - StoichNum(270,697) = -1 - StoichNum(270,698) = -1 - StoichNum(270,699) = -1 - StoichNum(270,704) = -1 - StoichNum(270,705) = -1 - StoichNum(270,706) = -1 - StoichNum(270,707) = -1 - StoichNum(270,820) = -1 - StoichNum(271,222) = 1 - StoichNum(271,226) = 1 - StoichNum(271,227) = 1 - StoichNum(271,229) = -1 - StoichNum(271,230) = 1 - StoichNum(271,231) = 1 - StoichNum(271,248) = 1 - StoichNum(271,651) = 1 - StoichNum(271,664) = -1 - StoichNum(271,665) = -1 - StoichNum(271,666) = -1 - StoichNum(271,667) = -1 - StoichNum(271,668) = -1 - StoichNum(271,798) = -1 - StoichNum(272,175) = -1 - StoichNum(272,176) = -1 - StoichNum(272,177) = -1 - StoichNum(272,178) = -1 - StoichNum(272,179) = -1 - StoichNum(272,180) = -1 - StoichNum(272,186) = -1 - StoichNum(272,202) = -1 - StoichNum(272,203) = -1 - StoichNum(272,204) = -1 - StoichNum(272,205) = -1 - StoichNum(272,206) = -1 - StoichNum(272,207) = -1 - StoichNum(272,208) = -1 - StoichNum(272,209) = -1 - StoichNum(272,210) = -1 - StoichNum(272,211) = -1 - StoichNum(272,212) = -1 - StoichNum(272,213) = -1 - StoichNum(272,214) = -1 - StoichNum(272,215) = -1 - StoichNum(272,216) = -1 - StoichNum(272,217) = -1 - StoichNum(272,218) = -1 - StoichNum(272,219) = -1 - StoichNum(272,220) = -1 - StoichNum(272,221) = -1 - StoichNum(272,739) = 1 - StoichNum(272,833) = 1 - StoichNum(273,152) = -1 - StoichNum(273,154) = -1 - StoichNum(273,155) = 1 - StoichNum(273,156) = 2 - StoichNum(273,158) = 1 - StoichNum(273,159) = -1 - StoichNum(273,160) = 1 - StoichNum(273,162) = 1 - StoichNum(273,163) = 1 - StoichNum(273,164) = -1 - StoichNum(273,165) = -1 - StoichNum(273,166) = -1 - StoichNum(273,167) = -1 - StoichNum(273,168) = -1 - StoichNum(273,169) = -1 - StoichNum(273,170) = -1 - StoichNum(273,172) = 3 - StoichNum(273,173) = 2 - StoichNum(273,174) = 1 - StoichNum(273,200) = 1 - StoichNum(273,203) = 0.6 - StoichNum(273,207) = 0.56 - StoichNum(273,208) = 0.95 - StoichNum(273,209) = 1.4 - StoichNum(273,213) = 0.34 - StoichNum(273,221) = 0.75 - StoichNum(273,259) = 1 - StoichNum(273,260) = 1 - StoichNum(273,282) = -1 - StoichNum(273,292) = 1 - StoichNum(273,293) = 1 - StoichNum(273,779) = 2 - StoichNum(273,780) = 1 - StoichNum(273,781) = 1 - StoichNum(273,782) = 1 - StoichNum(273,784) = 1 - StoichNum(273,785) = 3 - StoichNum(273,786) = 2 - StoichNum(273,787) = 1 - StoichNum(273,790) = 1 - StoichNum(273,810) = 1 - StoichNum(273,811) = 1 - StoichNum(273,812) = 2 - StoichNum(273,825) = 1 - StoichNum(273,828) = 1 - StoichNum(274,152) = 1 - StoichNum(274,153) = -1 - StoichNum(274,156) = -2 - StoichNum(274,157) = -2 - StoichNum(274,158) = -1 - StoichNum(274,161) = 1 - StoichNum(274,163) = -1 - StoichNum(274,164) = 1 - StoichNum(274,171) = -1 - StoichNum(274,200) = -1 - StoichNum(274,203) = 0.2 - StoichNum(274,207) = 0.44 - StoichNum(274,208) = 0.95 - StoichNum(274,209) = 0.7 - StoichNum(274,213) = 0.31 - StoichNum(274,214) = 0.45 - StoichNum(274,221) = 0.75 - StoichNum(274,259) = -1 - StoichNum(274,260) = -1 - StoichNum(274,261) = -1 - StoichNum(274,292) = -1 - StoichNum(274,293) = -1 - StoichNum(274,780) = -1 - StoichNum(274,783) = 1 - StoichNum(275,2) = -1 - StoichNum(275,5) = -1 - StoichNum(275,202) = -0.88 - StoichNum(275,225) = 1 - StoichNum(275,228) = -1 - StoichNum(275,240) = 1 - StoichNum(275,241) = 1 - StoichNum(275,243) = 1 - StoichNum(275,244) = 1 - StoichNum(275,245) = 1 - StoichNum(275,264) = 2 - StoichNum(275,265) = 1 - StoichNum(275,266) = 1 - StoichNum(275,267) = 1 - StoichNum(275,269) = 1 - StoichNum(275,270) = 1 - StoichNum(275,273) = 1 - StoichNum(275,274) = 1 - StoichNum(275,275) = 1 - StoichNum(275,276) = 1 - StoichNum(275,277) = 1 - StoichNum(275,278) = 1 - StoichNum(275,279) = 1 - StoichNum(275,280) = 1 - StoichNum(275,281) = 1 - StoichNum(275,643) = -1 - StoichNum(275,650) = -1 - StoichNum(275,652) = -1 - StoichNum(275,660) = -1 - StoichNum(275,664) = -1 - StoichNum(275,668) = 1 - StoichNum(275,670) = -1 - StoichNum(276,1) = -1 - StoichNum(276,4) = -1 - StoichNum(276,7) = -1 - StoichNum(276,8) = -1 - StoichNum(276,9) = -1 - StoichNum(276,10) = -1 - StoichNum(276,11) = 1 - StoichNum(276,12) = -1 - StoichNum(276,148) = 1 - StoichNum(276,149) = 0.75 - StoichNum(276,150) = 1 - StoichNum(276,151) = -1 - StoichNum(276,187) = 1 - StoichNum(276,188) = 1 - StoichNum(276,317) = -1 - StoichNum(276,321) = -1 - StoichNum(276,668) = -1 - StoichNum(276,675) = -1 - StoichNum(276,834) = 1 - StoichNum(276,835) = 1 - StoichNum(277,655) = -1 - StoichNum(277,662) = -1 - StoichNum(277,674) = -1 - StoichNum(277,678) = -1 - StoichNum(277,680) = 1 - StoichNum(277,701) = -1 - StoichNum(277,705) = -1 - StoichNum(277,709) = -1 - StoichNum(278,18) = 1 - StoichNum(278,20) = 1 - StoichNum(278,21) = 1 - StoichNum(278,25) = 1 - StoichNum(278,32) = 1 - StoichNum(278,33) = 1 - StoichNum(278,34) = 1 - StoichNum(278,36) = 1 - StoichNum(278,38) = 1 - StoichNum(278,41) = 1 - StoichNum(278,47) = 1 - StoichNum(278,51) = 1 - StoichNum(278,56) = 1 - StoichNum(278,75) = 1 - StoichNum(278,76) = 1 - StoichNum(278,77) = 1 - StoichNum(278,82) = 1 - StoichNum(278,91) = 1 - StoichNum(278,155) = 1 - StoichNum(278,174) = 1 - StoichNum(278,175) = -1 - StoichNum(278,183) = 1 - StoichNum(278,196) = 0.02 - StoichNum(278,228) = 1 - StoichNum(278,229) = 1 - StoichNum(278,232) = 1 - StoichNum(278,235) = 1 - StoichNum(278,236) = 1 - StoichNum(278,237) = 1 - StoichNum(278,238) = 1 - StoichNum(278,239) = 1 - StoichNum(278,267) = 1 - StoichNum(278,302) = 1 - StoichNum(278,303) = 1 - StoichNum(278,308) = 1 - StoichNum(278,314) = -1 - StoichNum(278,315) = -2 - StoichNum(278,322) = -1 - StoichNum(278,323) = -1 - StoichNum(278,637) = 1 - StoichNum(278,642) = -1 - StoichNum(278,649) = -1 - StoichNum(278,651) = -1 - StoichNum(278,664) = 1 - StoichNum(278,665) = 1 - StoichNum(278,666) = 1 - StoichNum(278,667) = 1 - StoichNum(278,669) = 1 - StoichNum(278,670) = 1 - StoichNum(278,671) = 1 - StoichNum(278,672) = 1 - StoichNum(278,699) = -1 - StoichNum(279,13) = -1 - StoichNum(279,22) = -1 - StoichNum(279,26) = -1 - StoichNum(279,27) = -1 - StoichNum(279,37) = -1 - StoichNum(279,43) = -1 - StoichNum(279,49) = 1 - StoichNum(279,55) = -1 - StoichNum(279,57) = -1 - StoichNum(279,58) = -1 - StoichNum(279,59) = -1 - StoichNum(279,62) = -1 - StoichNum(279,63) = -1 - StoichNum(279,64) = -1 - StoichNum(279,66) = -1 - StoichNum(279,67) = -1 - StoichNum(279,68) = -1 - StoichNum(279,69) = -1 - StoichNum(279,70) = -1 - StoichNum(279,71) = -1 - StoichNum(279,72) = -1 - StoichNum(279,73) = -1 - StoichNum(279,80) = -1 - StoichNum(279,158) = -1 - StoichNum(279,179) = 1.22 - StoichNum(279,189) = 1 - StoichNum(279,191) = -1 - StoichNum(279,197) = 1 - StoichNum(279,198) = -1 - StoichNum(279,249) = -1 - StoichNum(279,283) = -1 - StoichNum(279,284) = 2 - StoichNum(279,297) = -1 - StoichNum(279,305) = -1 - StoichNum(279,312) = -1 - StoichNum(279,319) = -1 - StoichNum(279,326) = -1 - StoichNum(279,338) = -1 - StoichNum(279,344) = -1 - StoichNum(279,345) = -1 - StoichNum(279,392) = -1 - StoichNum(279,393) = -1 - StoichNum(279,394) = -1 - StoichNum(279,395) = -1 - StoichNum(279,396) = -1 - StoichNum(279,397) = -1 - StoichNum(279,398) = -1 - StoichNum(279,399) = -1 - StoichNum(279,416) = -1 - StoichNum(279,417) = -1 - StoichNum(279,420) = -1 - StoichNum(279,421) = -1 - StoichNum(279,424) = -1 - StoichNum(279,425) = -1 - StoichNum(279,435) = -1 - StoichNum(279,436) = -1 - StoichNum(279,439) = -1 - StoichNum(279,440) = -1 - StoichNum(279,443) = -1 - StoichNum(279,444) = -1 - StoichNum(279,446) = -1 - StoichNum(279,448) = -1 - StoichNum(279,462) = -1 - StoichNum(279,463) = -1 - StoichNum(279,466) = -1 - StoichNum(279,467) = -1 - StoichNum(279,471) = -1 - StoichNum(279,472) = -1 - StoichNum(279,474) = -1 - StoichNum(279,475) = -1 - StoichNum(279,477) = -1 - StoichNum(279,478) = -1 - StoichNum(279,491) = -1 - StoichNum(279,492) = -1 - StoichNum(279,493) = -1 - StoichNum(279,494) = -1 - StoichNum(279,509) = -1 - StoichNum(279,510) = -1 - StoichNum(279,511) = -1 - StoichNum(279,512) = -1 - StoichNum(279,515) = -1 - StoichNum(279,518) = -1 - StoichNum(279,531) = -1 - StoichNum(279,534) = -1 - StoichNum(279,544) = -1 - StoichNum(279,545) = -1 - StoichNum(279,550) = -1 - StoichNum(279,551) = -1 - StoichNum(279,552) = -1 - StoichNum(279,555) = -1 - StoichNum(279,581) = -1 - StoichNum(279,593) = -1 - StoichNum(279,607) = -1 - StoichNum(279,613) = -1 - StoichNum(279,741) = 1 - StoichNum(279,747) = 1 - StoichNum(279,751) = 1 - StoichNum(279,818) = 1 - StoichNum(279,836) = -1 - StoichNum(280,2) = 1 - StoichNum(280,645) = -1 - StoichNum(280,647) = -1 - StoichNum(280,656) = -1 - StoichNum(280,658) = -1 - StoichNum(280,666) = -1 - StoichNum(280,671) = -1 - StoichNum(280,702) = -1 - StoichNum(280,706) = -1 - StoichNum(280,710) = -1 - StoichNum(281,16) = 1 - StoichNum(281,36) = 1 - StoichNum(281,42) = -1 - StoichNum(281,43) = -1 - StoichNum(281,44) = -1 - StoichNum(281,45) = -1 - StoichNum(281,46) = 1 - StoichNum(281,49) = -1 - StoichNum(281,50) = -1 - StoichNum(281,52) = -1 - StoichNum(281,74) = -1 - StoichNum(281,81) = -1 - StoichNum(281,94) = -1 - StoichNum(281,114) = -1 - StoichNum(281,117) = -1 - StoichNum(281,118) = -1 - StoichNum(281,130) = -1 - StoichNum(281,145) = -2 - StoichNum(281,150) = -1 - StoichNum(281,159) = 1 - StoichNum(281,164) = -1 - StoichNum(281,190) = -1 - StoichNum(281,192) = 1 - StoichNum(281,231) = 1 - StoichNum(281,262) = 1 - StoichNum(281,263) = 1 - StoichNum(281,288) = -1 - StoichNum(281,291) = 1 - StoichNum(281,313) = 1 - StoichNum(281,320) = 1 - StoichNum(281,330) = -1 - StoichNum(281,333) = -1 - StoichNum(281,334) = -1 - StoichNum(281,337) = -1 - StoichNum(281,342) = -1 - StoichNum(281,352) = -1 - StoichNum(281,353) = -1 - StoichNum(281,360) = -1 - StoichNum(281,361) = -1 - StoichNum(281,364) = 1 - StoichNum(281,479) = -1 - StoichNum(281,489) = -1 - StoichNum(281,490) = -1 - StoichNum(281,525) = -1 - StoichNum(281,526) = 0.69 - StoichNum(281,557) = -1 - StoichNum(281,560) = 1 - StoichNum(281,568) = -1 - StoichNum(281,582) = -1 - StoichNum(281,594) = -1 - StoichNum(281,598) = -1 - StoichNum(281,600) = -1 - StoichNum(281,603) = -1 - StoichNum(281,605) = -1 - StoichNum(281,612) = 1 - StoichNum(281,614) = -1 - StoichNum(281,620) = -1 - StoichNum(281,635) = -1 - StoichNum(281,639) = -1 - StoichNum(281,640) = -1 - StoichNum(281,641) = -1 - StoichNum(281,748) = 1 - StoichNum(281,750) = -1 - StoichNum(281,751) = -1 - StoichNum(281,752) = 1 - StoichNum(281,755) = 0.3 - StoichNum(281,782) = 1 - StoichNum(281,796) = 1 - StoichNum(281,820) = 1 - StoichNum(281,830) = 1 - StoichNum(282,1) = -1 - StoichNum(282,4) = -1 - StoichNum(282,8) = -1 - StoichNum(282,13) = -1 - StoichNum(282,14) = -1 - StoichNum(282,15) = -1 - StoichNum(282,16) = -1 - StoichNum(282,17) = -1 - StoichNum(282,109) = 0.15 - StoichNum(282,111) = -1 - StoichNum(282,152) = -1 - StoichNum(282,181) = 1 - StoichNum(282,182) = -1 - StoichNum(282,186) = -1 - StoichNum(282,195) = -1 - StoichNum(282,242) = -1 - StoichNum(282,299) = -1 - StoichNum(282,316) = -1 - StoichNum(282,331) = -1 - StoichNum(282,332) = -1 - StoichNum(282,336) = -1 - StoichNum(282,359) = -1 - StoichNum(282,369) = -1 - StoichNum(282,521) = -1 - StoichNum(282,524) = -1 - StoichNum(282,547) = 0.13 - StoichNum(282,554) = 0.13 - StoichNum(282,571) = 0.13 - StoichNum(282,577) = -1 - StoichNum(282,602) = -1 - StoichNum(282,606) = 0.15 - StoichNum(282,617) = -1 - StoichNum(282,624) = -1 - StoichNum(282,627) = -1 - StoichNum(282,676) = -1 - StoichNum(282,677) = -1 - StoichNum(282,678) = -1 - StoichNum(282,738) = -1 - StoichNum(282,739) = -1 - StoichNum(283,654) = -1 - StoichNum(283,661) = -1 - StoichNum(283,673) = -1 - StoichNum(283,677) = -1 - StoichNum(283,679) = 1 - StoichNum(283,700) = -1 - StoichNum(283,704) = -1 - StoichNum(283,708) = -1 - StoichNum(284,14) = 1 - StoichNum(284,15) = -1 - StoichNum(284,17) = 1 - StoichNum(284,20) = -1 - StoichNum(284,21) = 1 - StoichNum(284,22) = -1 - StoichNum(284,23) = -2 - StoichNum(284,24) = 1 - StoichNum(284,26) = 1 - StoichNum(284,28) = -1 - StoichNum(284,30) = 2 - StoichNum(284,31) = 1.74 - StoichNum(284,34) = 1 - StoichNum(284,39) = -1 - StoichNum(284,40) = 1 - StoichNum(284,42) = -1 - StoichNum(284,44) = 1 - StoichNum(284,47) = 1 - StoichNum(284,48) = 1 - StoichNum(284,50) = 1 - StoichNum(284,51) = 0.05 - StoichNum(284,57) = 1 - StoichNum(284,59) = 1 - StoichNum(284,62) = 1 - StoichNum(284,64) = 1 - StoichNum(284,66) = 0.27 - StoichNum(284,71) = 1 - StoichNum(284,83) = 1 - StoichNum(284,84) = 1 - StoichNum(284,85) = -1 - StoichNum(284,86) = -1 - StoichNum(284,87) = -1 - StoichNum(284,88) = -1 - StoichNum(284,89) = -1 - StoichNum(284,90) = -1 - StoichNum(284,92) = 1 - StoichNum(284,93) = 1 - StoichNum(284,95) = 0.64 - StoichNum(284,96) = 0.5 - StoichNum(284,97) = 0.3 - StoichNum(284,98) = 0.5 - StoichNum(284,99) = 1 - StoichNum(284,100) = 0.5 - StoichNum(284,101) = 1 - StoichNum(284,102) = 1 - StoichNum(284,103) = 1.2 - StoichNum(284,104) = 1.2 - StoichNum(284,105) = -1 - StoichNum(284,106) = -1 - StoichNum(284,107) = -1 - StoichNum(284,108) = -1 - StoichNum(284,109) = -1 - StoichNum(284,111) = 0.28 - StoichNum(284,112) = 0.773 - StoichNum(284,115) = 1 - StoichNum(284,117) = 1 - StoichNum(284,119) = 1 - StoichNum(284,132) = 0.9 - StoichNum(284,133) = 0.243 - StoichNum(284,136) = 0.9 - StoichNum(284,139) = 0.9 - StoichNum(284,140) = 0.9 - StoichNum(284,141) = 0.9 - StoichNum(284,142) = 0.9 - StoichNum(284,144) = 1 - StoichNum(284,151) = 1 - StoichNum(284,153) = -1 - StoichNum(284,154) = -1 - StoichNum(284,163) = 1 - StoichNum(284,165) = 1 - StoichNum(284,174) = 1 - StoichNum(284,180) = 0.2 - StoichNum(284,185) = -1 - StoichNum(284,193) = 1 - StoichNum(284,194) = 1 - StoichNum(284,196) = -1 - StoichNum(284,201) = 1 - StoichNum(284,223) = 1 - StoichNum(284,224) = 1 - StoichNum(284,232) = 1 - StoichNum(284,233) = 1 - StoichNum(284,234) = 1 - StoichNum(284,241) = 1 - StoichNum(284,244) = 1 - StoichNum(284,245) = -1 - StoichNum(284,246) = -1 - StoichNum(284,248) = -1 - StoichNum(284,264) = 1 - StoichNum(284,265) = 1 - StoichNum(284,266) = 1 - StoichNum(284,268) = 1 - StoichNum(284,271) = 1 - StoichNum(284,272) = 1 - StoichNum(284,273) = 1 - StoichNum(284,300) = -1 - StoichNum(284,304) = -1 - StoichNum(284,326) = 0.82 - StoichNum(284,327) = -1 - StoichNum(284,328) = 1 - StoichNum(284,329) = 0.5 - StoichNum(284,330) = 1 - StoichNum(284,331) = 0.1 - StoichNum(284,332) = 0.1 - StoichNum(284,336) = 0.1 - StoichNum(284,338) = 0.686 - StoichNum(284,339) = -1 - StoichNum(284,340) = 1 - StoichNum(284,341) = 0.5 - StoichNum(284,342) = 1 - StoichNum(284,344) = 1 - StoichNum(284,346) = -1 - StoichNum(284,347) = -1 - StoichNum(284,348) = 2 - StoichNum(284,349) = 0.5 + 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(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(111,384) = 1 + StoichNum(111,387) = -1 + StoichNum(111,1048) = -1 + StoichNum(112,404) = 1 + StoichNum(112,408) = -1 + StoichNum(112,1053) = -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(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(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(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(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(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(280,375) = 0.1 + StoichNum(280,376) = 0.1 + StoichNum(280,377) = 0.5 + StoichNum(280,449) = 0.5 + StoichNum(280,452) = 0.5 + StoichNum(280,455) = 0.5 + StoichNum(280,468) = -1 + StoichNum(280,470) = -1 + StoichNum(280,472) = -1 + StoichNum(280,474) = -1 + 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,352) = 1 StoichNum(284,354) = 1 - StoichNum(284,355) = 0.5 - StoichNum(284,369) = 0.16 - StoichNum(284,372) = 0.4 - StoichNum(284,373) = 0.7 - StoichNum(284,374) = -0.937 - StoichNum(284,375) = -1 - StoichNum(284,376) = -0.937 - StoichNum(284,377) = -1 - StoichNum(284,379) = 0.4 - StoichNum(284,381) = 0.7 - StoichNum(284,382) = 2 - StoichNum(284,383) = 2 - StoichNum(284,384) = 2 - StoichNum(284,385) = 1 - StoichNum(284,386) = 1 - StoichNum(284,387) = 1 - StoichNum(284,388) = 2 - StoichNum(284,389) = 1.5 - StoichNum(284,390) = 2 - StoichNum(284,391) = 1.5 - StoichNum(284,393) = 1 - StoichNum(284,395) = 0.45 - StoichNum(284,397) = 1 - StoichNum(284,399) = 0.45 - StoichNum(284,400) = 0.085 - StoichNum(284,401) = 0.165 - StoichNum(284,404) = 0.283 - StoichNum(284,406) = 1 - StoichNum(284,411) = 0.25 - StoichNum(284,412) = 0.33 - StoichNum(284,413) = 0.024 - StoichNum(284,414) = 0.042 - StoichNum(284,416) = 1 - StoichNum(284,418) = -0.725 - StoichNum(284,420) = 1 - StoichNum(284,422) = -0.725 - StoichNum(284,426) = -1 - StoichNum(284,427) = 0.75 - StoichNum(284,428) = 1 - StoichNum(284,430) = 1 - StoichNum(284,432) = 1 - StoichNum(284,434) = -0.35 - StoichNum(284,435) = 1 - StoichNum(284,437) = 1 - StoichNum(284,439) = 1 - StoichNum(284,441) = -0.35 - StoichNum(284,442) = -0.35 - StoichNum(284,444) = 1 - StoichNum(284,445) = 1 - StoichNum(284,447) = -1 - StoichNum(284,449) = -1 - StoichNum(284,458) = 0.4 - StoichNum(284,459) = 0.4 - StoichNum(284,460) = 1 - StoichNum(284,461) = -0.941 - StoichNum(284,462) = 0.272 - StoichNum(284,464) = 1 - StoichNum(284,465) = -0.401 - StoichNum(284,466) = 1 - StoichNum(284,468) = 1 - StoichNum(284,469) = 1 - StoichNum(284,470) = -0.418 - StoichNum(284,471) = 1 - StoichNum(284,473) = -0.494 - StoichNum(284,474) = 1 - StoichNum(284,476) = -0.621 - StoichNum(284,477) = 1 - StoichNum(284,480) = -1 - StoichNum(284,481) = -1 - StoichNum(284,483) = 0.089 - StoichNum(284,484) = 0.064 - StoichNum(284,485) = 0.336 - StoichNum(284,486) = 0.611 - StoichNum(284,488) = 0.159 - StoichNum(284,490) = 0.159 - StoichNum(284,493) = 0.159 - StoichNum(284,495) = 1 - StoichNum(284,507) = -0.674 - StoichNum(284,508) = -0.42 - StoichNum(284,509) = 0.5 - StoichNum(284,511) = 0.904 - StoichNum(284,514) = 0.295 - StoichNum(284,515) = 0.33 - StoichNum(284,516) = -0.67 - StoichNum(284,518) = 0.89 - StoichNum(284,519) = -0.27 - StoichNum(284,521) = 0.1 - StoichNum(284,522) = 0.036 - StoichNum(284,532) = -1 - StoichNum(284,535) = -1 - StoichNum(284,537) = 0.715 - StoichNum(284,539) = 1 - StoichNum(284,541) = 1 - StoichNum(284,542) = 1 - StoichNum(284,543) = -0.695 - StoichNum(284,544) = 0.242 - StoichNum(284,546) = -0.493 - StoichNum(284,547) = -1 - StoichNum(284,550) = 0.86 - StoichNum(284,554) = -1 - StoichNum(284,558) = 0.7 - StoichNum(284,562) = 0.5 - StoichNum(284,563) = 0.444 - StoichNum(284,567) = 0.62 - StoichNum(284,570) = 0.5 - StoichNum(284,571) = -1 - StoichNum(284,579) = 0.364 - StoichNum(284,580) = -1 - StoichNum(284,583) = 0.6 - StoichNum(284,584) = 1 - StoichNum(284,585) = 1 - StoichNum(284,589) = 0.54 - StoichNum(284,590) = 0.19 - StoichNum(284,591) = 0.15 - StoichNum(284,593) = 1 - StoichNum(284,594) = 1 - StoichNum(284,595) = 2 - StoichNum(284,596) = 1 - StoichNum(284,597) = 0.8 - StoichNum(284,599) = 0.727 - StoichNum(284,602) = 1 - StoichNum(284,606) = -1 - StoichNum(284,615) = -1 - StoichNum(284,621) = 1 - StoichNum(284,622) = 1 - StoichNum(284,623) = 0.33 - StoichNum(284,624) = 0.1 - StoichNum(284,625) = 0.2 - StoichNum(284,626) = 0.33 - StoichNum(284,627) = 0.1 - StoichNum(284,628) = 0.2 - StoichNum(284,635) = 1 - StoichNum(284,637) = -1 - StoichNum(284,743) = 1 - StoichNum(284,744) = 1 - StoichNum(284,749) = 1 - StoichNum(284,753) = 1 - StoichNum(284,756) = 1 - StoichNum(284,760) = 1.73 - StoichNum(284,761) = 2 - StoichNum(284,764) = 1 - StoichNum(284,766) = 1 - StoichNum(284,768) = 1 - StoichNum(284,769) = 1 - StoichNum(284,770) = 1 - StoichNum(284,771) = 1 - StoichNum(284,772) = 1 - StoichNum(284,773) = 1 - StoichNum(284,774) = 1 - StoichNum(284,775) = 1 - StoichNum(284,776) = 1 - StoichNum(284,777) = 0.27 - StoichNum(284,830) = 1 - StoichNum(284,837) = 1 - StoichNum(284,838) = 1 - StoichNum(284,846) = 1 - StoichNum(284,847) = 1 - StoichNum(284,848) = 1 - StoichNum(284,849) = 1 - StoichNum(284,851) = 1 - StoichNum(284,852) = 1 - StoichNum(284,854) = 1 - StoichNum(284,855) = 1.5 - StoichNum(284,856) = 0.47 - StoichNum(284,857) = 0.571 - StoichNum(284,858) = 0.125 - StoichNum(284,859) = 1 - StoichNum(284,861) = 0.29 - StoichNum(284,862) = 1 - StoichNum(284,863) = 1 - StoichNum(284,864) = 1 - StoichNum(284,865) = 1 - StoichNum(284,866) = 1 - StoichNum(284,867) = 1 - StoichNum(284,868) = 0.112 - StoichNum(284,869) = 0.182 - StoichNum(284,870) = 1 - StoichNum(284,871) = 1 - StoichNum(284,872) = 0.45 - StoichNum(284,873) = 1 - StoichNum(284,874) = 1 - StoichNum(284,875) = 0.45 - StoichNum(284,876) = 0.33 - StoichNum(284,877) = 0.159 - StoichNum(284,879) = 0.161 - StoichNum(284,880) = 0.228 - StoichNum(284,881) = 1.5 - StoichNum(284,882) = 1 - StoichNum(284,883) = 0.75 - StoichNum(284,884) = 1 - StoichNum(284,885) = 1.454 - StoichNum(284,886) = 0.7 - StoichNum(284,887) = 0.7 - StoichNum(284,889) = 1 - StoichNum(284,891) = 1 - StoichNum(284,894) = 1 - StoichNum(285,202) = 0.22 - StoichNum(285,204) = 0.75 - StoichNum(285,205) = 0.79 - StoichNum(285,206) = 0.46 - StoichNum(285,210) = 0.56 - StoichNum(285,211) = 0.9 - StoichNum(285,212) = 0.86 - StoichNum(285,213) = 0.34 - StoichNum(285,215) = 0.69 - StoichNum(285,216) = 0.65 - StoichNum(285,217) = 0.79 - StoichNum(285,218) = 0.8 - StoichNum(285,219) = 0.85 - StoichNum(285,220) = 0.86 - StoichNum(285,223) = -1 - StoichNum(285,224) = -1 - StoichNum(285,225) = -1 - StoichNum(285,229) = 1 - StoichNum(285,242) = 1 - StoichNum(285,246) = 1 - StoichNum(285,247) = -1 - StoichNum(285,248) = -1 - StoichNum(285,249) = -1 - StoichNum(285,250) = -1 - StoichNum(285,251) = -2 - StoichNum(285,252) = -2 - StoichNum(285,253) = -2 - StoichNum(285,256) = -2 - StoichNum(285,257) = 2 - StoichNum(285,258) = 0.1 - StoichNum(285,259) = -1 - StoichNum(285,260) = -1 - StoichNum(285,261) = -1 - StoichNum(285,262) = 1 - StoichNum(285,268) = 1 - StoichNum(285,271) = 1 - StoichNum(285,272) = 1 - StoichNum(285,298) = -1 - StoichNum(285,792) = -1 - StoichNum(285,793) = 1 - StoichNum(285,797) = 1 - StoichNum(286,12) = -1 - StoichNum(286,14) = -1 - StoichNum(286,15) = 1 - StoichNum(286,18) = -2 - StoichNum(286,19) = -2 - StoichNum(286,20) = -1 - StoichNum(286,21) = -1 - StoichNum(286,22) = 1 - StoichNum(286,24) = -1 - StoichNum(286,25) = -1 - StoichNum(286,31) = -1 - StoichNum(286,32) = -0.7 - StoichNum(286,33) = -0.7 - StoichNum(286,34) = -1 - StoichNum(286,35) = -1 - StoichNum(286,36) = -1 - StoichNum(286,37) = -1 - StoichNum(286,38) = -1 - StoichNum(286,41) = -1 - StoichNum(286,42) = 1 - StoichNum(286,44) = -1 - StoichNum(286,47) = -1 - StoichNum(286,48) = -1 - StoichNum(286,51) = -1 - StoichNum(286,56) = -1 - StoichNum(286,60) = -1 - StoichNum(286,61) = -1 - StoichNum(286,65) = -1 - StoichNum(286,75) = -1 - StoichNum(286,76) = -1 - StoichNum(286,77) = -1 - StoichNum(286,82) = -1 - StoichNum(286,87) = 0.15 - StoichNum(286,88) = 0.15 - StoichNum(286,91) = -1 - StoichNum(286,101) = -1 - StoichNum(286,102) = -1 - StoichNum(286,109) = 0.44 - StoichNum(286,110) = -1 - StoichNum(286,111) = 0.36 - StoichNum(286,112) = -0.773 - StoichNum(286,115) = -1 - StoichNum(286,116) = -1 - StoichNum(286,119) = -1 - StoichNum(286,121) = -0.209 - StoichNum(286,122) = -0.36 - StoichNum(286,123) = -0.36 - StoichNum(286,124) = -0.209 - StoichNum(286,125) = -0.21 - StoichNum(286,126) = -1 - StoichNum(286,127) = -0.209 - StoichNum(286,129) = -0.78 - StoichNum(286,148) = -1 - StoichNum(286,149) = -1 - StoichNum(286,151) = -1 - StoichNum(286,155) = -1 - StoichNum(286,160) = -1 - StoichNum(286,161) = 1 - StoichNum(286,162) = 1 - StoichNum(286,163) = -1 - StoichNum(286,172) = -1 - StoichNum(286,173) = -1 - StoichNum(286,174) = -1 - StoichNum(286,175) = 2 - StoichNum(286,178) = 1 - StoichNum(286,180) = 0.75 - StoichNum(286,183) = -1 - StoichNum(286,184) = -1 - StoichNum(286,185) = 1 - StoichNum(286,188) = -1 - StoichNum(286,193) = 1 - StoichNum(286,195) = 1 - StoichNum(286,196) = 1.788 - StoichNum(286,201) = 1 - StoichNum(286,202) = 0.66 - StoichNum(286,203) = 0.6 - StoichNum(286,210) = 0.05 - StoichNum(286,222) = -1 - StoichNum(286,224) = -1 - StoichNum(286,225) = -1 - StoichNum(286,226) = -1 - StoichNum(286,227) = -1 - StoichNum(286,228) = -1 - StoichNum(286,229) = -1 - StoichNum(286,230) = -1 - StoichNum(286,231) = -1 - StoichNum(286,232) = -1 - StoichNum(286,233) = -1 - StoichNum(286,234) = -1 - StoichNum(286,235) = -1 - StoichNum(286,236) = -1 - StoichNum(286,237) = -1 - StoichNum(286,238) = -1 - StoichNum(286,239) = -1 - StoichNum(286,246) = 1 - StoichNum(286,301) = -1 - StoichNum(286,302) = -1 - StoichNum(286,303) = -1 - StoichNum(286,308) = -1 - StoichNum(286,309) = -1 - StoichNum(286,310) = -1 - StoichNum(286,324) = -1 - StoichNum(286,325) = -1 - StoichNum(286,331) = 0.85 - StoichNum(286,332) = 0.85 - StoichNum(286,335) = -1 - StoichNum(286,336) = 0.85 - StoichNum(286,343) = -0.51 - StoichNum(286,357) = -1 - StoichNum(286,358) = -1 - StoichNum(286,364) = -1 - StoichNum(286,365) = -1 - StoichNum(286,366) = -1 - StoichNum(286,367) = -1 - StoichNum(286,368) = -1 - StoichNum(286,369) = 0.28 - StoichNum(286,370) = -1 - StoichNum(286,371) = -1 - StoichNum(286,372) = 0.5 - StoichNum(286,373) = 0.5 - StoichNum(286,374) = 0.063 - StoichNum(286,376) = 0.063 - StoichNum(286,378) = 1 - StoichNum(286,379) = 1.5 - StoichNum(286,380) = 1 - StoichNum(286,381) = 1.5 - StoichNum(286,385) = 1 - StoichNum(286,386) = 1 - StoichNum(286,387) = 1 - StoichNum(286,389) = 0.5 - StoichNum(286,391) = 0.5 - StoichNum(286,395) = 0.55 - StoichNum(286,399) = 0.55 - StoichNum(286,400) = 0.085 - StoichNum(286,401) = 0.165 - StoichNum(286,404) = 0.065 - StoichNum(286,406) = -1 - StoichNum(286,407) = -1 - StoichNum(286,409) = -1 - StoichNum(286,411) = -1 - StoichNum(286,412) = -1 - StoichNum(286,413) = -0.595 - StoichNum(286,414) = -0.255 - StoichNum(286,415) = 1 - StoichNum(286,418) = 0.275 - StoichNum(286,419) = 1 - StoichNum(286,422) = 0.275 - StoichNum(286,424) = 1 - StoichNum(286,426) = 1.3 - StoichNum(286,427) = -1 - StoichNum(286,428) = -1 - StoichNum(286,429) = -1 - StoichNum(286,430) = -1 - StoichNum(286,431) = -1 - StoichNum(286,433) = 1 - StoichNum(286,434) = 0.65 - StoichNum(286,438) = 1 - StoichNum(286,441) = 0.65 - StoichNum(286,442) = 0.65 - StoichNum(286,445) = 1 - StoichNum(286,446) = 1 - StoichNum(286,447) = 2 - StoichNum(286,448) = 1 - StoichNum(286,449) = 2 - StoichNum(286,450) = -1 - StoichNum(286,451) = -1 - StoichNum(286,452) = -1 - StoichNum(286,453) = -1 - StoichNum(286,454) = -1 - StoichNum(286,455) = -1 - StoichNum(286,456) = -1 - StoichNum(286,457) = -1 - StoichNum(286,458) = -0.4 - StoichNum(286,459) = -0.4 - StoichNum(286,461) = 0.518 - StoichNum(286,465) = 0.599 - StoichNum(286,470) = 0.582 - StoichNum(286,473) = 0.506 - StoichNum(286,476) = 0.379 - StoichNum(286,480) = 0.527 - StoichNum(286,497) = -1 - StoichNum(286,498) = -1 - StoichNum(286,501) = -1 - StoichNum(286,502) = -1 - StoichNum(286,503) = -1 - StoichNum(286,505) = 1 - StoichNum(286,506) = 1 - StoichNum(286,507) = 1.147 - StoichNum(286,508) = 0.646 - StoichNum(286,509) = 0.435 - StoichNum(286,511) = 0.096 - StoichNum(286,513) = -1 - StoichNum(286,514) = -0.756 - StoichNum(286,516) = 1 - StoichNum(286,517) = -1 - StoichNum(286,519) = 0.82 - StoichNum(286,520) = -1 - StoichNum(286,521) = 0.08 - StoichNum(286,522) = -1 - StoichNum(286,523) = -1 - StoichNum(286,524) = 0.12 - StoichNum(286,525) = 0.68 - StoichNum(286,526) = -0.98 - StoichNum(286,529) = -1 - StoichNum(286,532) = 1 - StoichNum(286,535) = 1 - StoichNum(286,537) = -0.715 - StoichNum(286,539) = -1 - StoichNum(286,541) = -1 - StoichNum(286,542) = -1 - StoichNum(286,543) = 0.665 - StoichNum(286,546) = 0.59 - StoichNum(286,547) = 0.5 - StoichNum(286,548) = -0.415 - StoichNum(286,549) = 1 - StoichNum(286,554) = 0.5 + 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,561) = -0.3 - StoichNum(286,562) = -0.5 - StoichNum(286,563) = -0.556 - StoichNum(286,566) = -1 - StoichNum(286,567) = -0.7 - StoichNum(286,569) = -1 - StoichNum(286,570) = -0.5 - StoichNum(286,571) = 0.5 - StoichNum(286,578) = -1 - StoichNum(286,579) = -0.364 - StoichNum(286,586) = -1 - StoichNum(286,587) = -1 - StoichNum(286,589) = -1 - StoichNum(286,590) = -1 - StoichNum(286,591) = -1 - StoichNum(286,592) = 1 - StoichNum(286,597) = -1 - StoichNum(286,599) = -1 - StoichNum(286,601) = -1 - StoichNum(286,602) = 1 - StoichNum(286,604) = -1 - StoichNum(286,606) = 0.2 - StoichNum(286,609) = -1 - StoichNum(286,611) = -1 - StoichNum(286,616) = -1 - StoichNum(286,619) = -1 - StoichNum(286,623) = -0.75 - StoichNum(286,624) = 0.1 - StoichNum(286,626) = -0.75 - StoichNum(286,627) = 0.1 - StoichNum(286,636) = -1 - StoichNum(286,647) = -1 - StoichNum(286,648) = -1 - StoichNum(286,742) = 2 - StoichNum(286,743) = 1 - StoichNum(286,746) = 1 - StoichNum(286,747) = 1 - StoichNum(286,748) = 1 - StoichNum(286,760) = 0.07 - StoichNum(286,770) = 1 - StoichNum(286,771) = 1 - StoichNum(286,772) = 1 - StoichNum(286,773) = 1 - StoichNum(286,774) = 1 - StoichNum(286,775) = 1 - StoichNum(286,776) = 1 - StoichNum(286,778) = 1 - StoichNum(286,781) = 1 - StoichNum(286,798) = 1 - StoichNum(286,815) = 1 - StoichNum(286,832) = 1 - StoichNum(286,835) = 2 - StoichNum(286,837) = 1 - StoichNum(286,850) = 2 - StoichNum(286,851) = 1 - StoichNum(286,856) = 1 - StoichNum(286,857) = 1 - StoichNum(286,858) = 1.75 - StoichNum(286,859) = 1 - StoichNum(286,860) = 0.75 - StoichNum(286,861) = 0.01 - StoichNum(286,863) = 1 - StoichNum(286,864) = 1 - StoichNum(286,865) = 1 - StoichNum(286,866) = 1 - StoichNum(286,867) = 1 - StoichNum(286,868) = 1.662 - StoichNum(286,869) = 1.637 - StoichNum(286,870) = 1 - StoichNum(286,871) = 1 - StoichNum(286,872) = 0.55 - StoichNum(286,875) = 0.55 - StoichNum(286,876) = 0.67 - StoichNum(286,877) = 1 - StoichNum(286,879) = 0.645 - StoichNum(286,881) = 0.5 - StoichNum(286,882) = 1 - StoichNum(286,883) = 1.25 - StoichNum(286,884) = 1 - StoichNum(286,885) = 0.546 - StoichNum(286,886) = 1 - StoichNum(286,887) = 0.3 - StoichNum(286,888) = 1 - StoichNum(286,890) = 1 - StoichNum(286,892) = 1 - StoichNum(287,5) = 1 - StoichNum(287,646) = -1 - StoichNum(287,648) = -1 - StoichNum(287,657) = -1 - StoichNum(287,659) = -1 - StoichNum(287,667) = -1 - StoichNum(287,672) = -1 - StoichNum(287,703) = -1 - StoichNum(287,707) = -1 - StoichNum(287,711) = -1 - StoichNum(288,18) = 1 - StoichNum(288,161) = -1 - StoichNum(288,162) = -1 - StoichNum(288,176) = 1 - StoichNum(288,177) = 1 - StoichNum(288,181) = -1 - StoichNum(288,182) = -1 - StoichNum(288,184) = -1 - StoichNum(288,185) = -1 - StoichNum(288,186) = 1 - StoichNum(288,187) = -1 - StoichNum(288,189) = -1 - StoichNum(288,190) = -1 - StoichNum(288,191) = -1 - StoichNum(288,192) = -1 - StoichNum(288,193) = -1 - StoichNum(288,196) = 0.02 - StoichNum(288,197) = 1 - StoichNum(288,198) = 1 - StoichNum(288,199) = 1 - StoichNum(288,200) = -1 - StoichNum(288,201) = -1 - StoichNum(288,202) = 0.12 - StoichNum(288,203) = 0.2 - StoichNum(288,204) = 0.25 - StoichNum(288,205) = 0.21 - StoichNum(288,206) = 0.1 - StoichNum(288,208) = 0.05 - StoichNum(288,209) = 0.3 - StoichNum(288,210) = 0.25 - StoichNum(288,211) = 0.1 - StoichNum(288,212) = 0.14 - StoichNum(288,213) = 0.35 - StoichNum(288,214) = 0.55 - StoichNum(288,215) = 0.31 - StoichNum(288,216) = 0.35 - StoichNum(288,217) = 0.21 - StoichNum(288,218) = 0.1 - StoichNum(288,219) = 0.1 - StoichNum(288,220) = 0.14 - StoichNum(288,221) = 0.25 - StoichNum(288,247) = -1 - StoichNum(288,262) = -1 - StoichNum(288,738) = 1 - StoichNum(288,740) = 2 - StoichNum(288,741) = 1 - StoichNum(288,750) = 1 - StoichNum(288,780) = 1 - StoichNum(288,792) = 1 - StoichNum(288,793) = 1 - StoichNum(288,816) = 1 - StoichNum(288,836) = 1 - StoichNum(289,154) = 1 - StoichNum(289,155) = -1 - StoichNum(289,162) = -1 - StoichNum(289,165) = 1 - StoichNum(289,166) = 1 - StoichNum(289,167) = 1 - StoichNum(289,168) = 1 - StoichNum(289,169) = 1 - StoichNum(289,203) = -0.8 - StoichNum(289,282) = 1 - StoichNum(289,653) = -1 - StoichNum(289,663) = -1 - StoichNum(289,665) = -1 - StoichNum(289,669) = -1 - StoichNum(289,675) = 1 - StoichNum(289,676) = -1 - StoichNum(289,679) = -1 - StoichNum(289,680) = -1 - StoichNum(290,202) = 0.66 - StoichNum(290,204) = 0.75 - StoichNum(290,205) = 2.37 - StoichNum(290,206) = 0.35 - StoichNum(290,210) = 0.19 - StoichNum(290,211) = 1.8 - StoichNum(290,212) = 0.86 - StoichNum(290,213) = 0.31 - StoichNum(290,215) = 0.69 - StoichNum(290,217) = 0.79 - StoichNum(290,218) = 1.9 - StoichNum(290,219) = 0.95 - StoichNum(290,222) = 1 - StoichNum(290,224) = 1 - StoichNum(290,228) = 1 - StoichNum(290,232) = 1 - StoichNum(290,233) = 2 - StoichNum(290,234) = 3 - StoichNum(290,235) = 3 - StoichNum(290,236) = 1 - StoichNum(290,237) = 2 - StoichNum(290,238) = 1 - StoichNum(290,239) = 2 - StoichNum(290,240) = -1 - StoichNum(290,241) = -1 - StoichNum(290,242) = -1 - StoichNum(290,243) = -1 - StoichNum(290,244) = -1 - StoichNum(290,245) = -1 - StoichNum(290,246) = -1 - StoichNum(290,247) = 1 - StoichNum(290,249) = 1 - StoichNum(290,252) = 1 - StoichNum(290,253) = 1 - StoichNum(290,254) = -1 - StoichNum(290,255) = 1 - StoichNum(290,258) = -1 - StoichNum(290,263) = -1 - StoichNum(290,264) = -1 - StoichNum(290,265) = 1 - StoichNum(290,266) = 2 - StoichNum(290,267) = -1 - StoichNum(290,268) = -1 - StoichNum(290,269) = -1 - StoichNum(290,270) = -1 - StoichNum(290,271) = -1 - StoichNum(290,272) = -1 - StoichNum(290,273) = -1 - StoichNum(290,274) = -1 - StoichNum(290,275) = -1 - StoichNum(290,276) = -1 - StoichNum(290,277) = -1 - StoichNum(290,278) = -1 - StoichNum(290,279) = -1 - StoichNum(290,280) = -1 - StoichNum(290,281) = -1 - StoichNum(290,298) = 0.249 - StoichNum(290,788) = 1 - StoichNum(290,789) = 2 - StoichNum(290,790) = 1 - StoichNum(290,791) = 2 - StoichNum(290,792) = 1 - StoichNum(290,794) = 1 - StoichNum(290,795) = 1 - StoichNum(290,796) = 1 - StoichNum(290,798) = 1 - StoichNum(290,799) = 3 - StoichNum(290,800) = 4 - StoichNum(290,801) = 3 - StoichNum(290,802) = 2 - StoichNum(290,803) = 3 - StoichNum(290,804) = 2 - StoichNum(290,805) = 1 - StoichNum(290,806) = 2 - StoichNum(290,807) = 2 - StoichNum(290,808) = 1 - StoichNum(290,809) = 1 - StoichNum(290,811) = 1 - StoichNum(290,813) = 1 - StoichNum(290,824) = 1 - StoichNum(290,829) = 1 - StoichNum(291,13) = 1 - StoichNum(291,16) = -1 - StoichNum(291,22) = 1 - StoichNum(291,26) = 1 - StoichNum(291,35) = -1 - StoichNum(291,38) = 1 - StoichNum(291,39) = -1 - StoichNum(291,40) = 1 - StoichNum(291,41) = 1 - StoichNum(291,42) = 1 - StoichNum(291,43) = 2 - StoichNum(291,44) = 1 - StoichNum(291,45) = -1 - StoichNum(291,46) = 1 - StoichNum(291,53) = -1 - StoichNum(291,54) = 1 - StoichNum(291,55) = 1 - StoichNum(291,57) = 1 - StoichNum(291,59) = 1 - StoichNum(291,62) = 1 - StoichNum(291,64) = 1 - StoichNum(291,66) = 1 - StoichNum(291,68) = 2 - StoichNum(291,69) = 1 - StoichNum(291,70) = 0.928 - StoichNum(291,71) = 1 - StoichNum(291,73) = 2 - StoichNum(291,78) = -1 - StoichNum(291,79) = 1 - StoichNum(291,80) = 1 - StoichNum(291,96) = 1 - StoichNum(291,100) = 1 - StoichNum(291,137) = 1 - StoichNum(291,138) = 1 - StoichNum(291,145) = 2 - StoichNum(291,146) = -1 - StoichNum(291,147) = 1 - StoichNum(291,158) = 1 - StoichNum(291,164) = 1 - StoichNum(291,170) = -1 - StoichNum(291,171) = -1 - StoichNum(291,189) = -1 - StoichNum(291,190) = 1 - StoichNum(291,191) = 1 - StoichNum(291,192) = -1 - StoichNum(291,199) = -1 - StoichNum(291,230) = 1 - StoichNum(291,249) = 1 - StoichNum(291,250) = -1 - StoichNum(291,285) = -1 - StoichNum(291,286) = 1 - StoichNum(291,287) = 2 - StoichNum(291,289) = -1 - StoichNum(291,290) = 1 - StoichNum(291,297) = 1 - StoichNum(291,305) = 1 - StoichNum(291,309) = 1 - StoichNum(291,310) = 1 - StoichNum(291,312) = 1 - StoichNum(291,313) = -1 - StoichNum(291,319) = 1 - StoichNum(291,320) = -1 - StoichNum(291,326) = 0.82 - StoichNum(291,330) = 1 - StoichNum(291,338) = 0.78 - StoichNum(291,342) = 1 - StoichNum(291,344) = 1 - StoichNum(291,345) = 2 - StoichNum(291,349) = 0.5 - StoichNum(291,351) = 1 - StoichNum(291,352) = 1 - StoichNum(291,353) = 2 - StoichNum(291,355) = 0.5 - StoichNum(291,356) = 1 - StoichNum(291,365) = 1 - StoichNum(291,366) = 1 - StoichNum(291,367) = 1 - StoichNum(291,368) = 1 - StoichNum(291,393) = 1 - StoichNum(291,395) = 1 - StoichNum(291,397) = 1 - StoichNum(291,399) = 1 - StoichNum(291,416) = 1 - StoichNum(291,420) = 1 - StoichNum(291,424) = 1 - StoichNum(291,435) = 1 - StoichNum(291,439) = 1 - StoichNum(291,444) = 1 - StoichNum(291,446) = 1 - StoichNum(291,448) = 1 - StoichNum(291,451) = 1 - StoichNum(291,453) = 1 - StoichNum(291,454) = 1 - StoichNum(291,456) = 1 - StoichNum(291,461) = 0.459 - StoichNum(291,462) = 1.728 - StoichNum(291,466) = 1 - StoichNum(291,471) = 1 - StoichNum(291,474) = 1 - StoichNum(291,477) = 1 - StoichNum(291,480) = 0.527 - StoichNum(291,482) = 1.86 - StoichNum(291,483) = 0.563 - StoichNum(291,486) = 0.611 - StoichNum(291,487) = 1 - StoichNum(291,489) = 2 - StoichNum(291,490) = 1 - StoichNum(291,491) = 2 - StoichNum(291,493) = 1 - StoichNum(291,501) = 1 - StoichNum(291,507) = 0.058 - StoichNum(291,509) = 1.065 - StoichNum(291,511) = 1 - StoichNum(291,513) = 1 - StoichNum(291,515) = 1 - StoichNum(291,517) = 0.565 - StoichNum(291,518) = 1.11 - StoichNum(291,519) = 0.09 - StoichNum(291,526) = 0.31 - StoichNum(291,531) = 1 - StoichNum(291,533) = -1 - StoichNum(291,534) = 1 - StoichNum(291,536) = -1 - StoichNum(291,544) = 1 - StoichNum(291,550) = 1 - StoichNum(291,552) = 1 - StoichNum(291,553) = -1 - StoichNum(291,554) = 0.5 - StoichNum(291,555) = 2 - StoichNum(291,557) = 2 - StoichNum(291,558) = 0.7 - StoichNum(291,559) = 1 - StoichNum(291,566) = 1 - StoichNum(291,567) = 0.022 - StoichNum(291,568) = 1 - StoichNum(291,581) = 0.995 - StoichNum(291,582) = 1 - StoichNum(291,586) = 1 - StoichNum(291,593) = 1 - StoichNum(291,594) = 1 - StoichNum(291,607) = 1 - StoichNum(291,608) = -1 - StoichNum(291,610) = 1 - StoichNum(291,611) = 1 - StoichNum(291,612) = -1 - StoichNum(291,613) = 1 - StoichNum(291,614) = 1 - StoichNum(291,618) = -1 - StoichNum(291,619) = 0.5 - StoichNum(291,620) = 1 - StoichNum(291,635) = 1 - StoichNum(291,638) = -1 - StoichNum(291,741) = -1 - StoichNum(291,746) = 1 - StoichNum(291,749) = 1 - StoichNum(291,750) = 1 - StoichNum(291,752) = 1 - StoichNum(291,755) = 0.7 - StoichNum(291,770) = 1 - StoichNum(291,777) = 1 - StoichNum(291,783) = 1 - StoichNum(291,784) = 1 - StoichNum(291,795) = 1 - StoichNum(291,797) = 1 - StoichNum(291,819) = 1 - StoichNum(291,831) = 1 - StoichNum(291,838) = 1 - StoichNum(291,839) = 1 - StoichNum(291,840) = 1 - StoichNum(291,841) = 1 - StoichNum(291,843) = 1 - StoichNum(291,845) = 1 - StoichNum(291,846) = 1 - StoichNum(291,847) = 1 - StoichNum(291,848) = 1 - StoichNum(291,849) = 1 - StoichNum(291,853) = 1 - StoichNum(291,861) = 0.7 - StoichNum(291,862) = 1 - StoichNum(291,872) = 1 - StoichNum(291,873) = 1 - StoichNum(291,874) = 1 - StoichNum(291,875) = 1 - StoichNum(291,876) = 1 - StoichNum(291,878) = 1 - StoichNum(291,879) = 1 - StoichNum(291,880) = 1.555 - StoichNum(291,886) = 0.3 - StoichNum(291,887) = 1 - StoichNum(291,888) = 1 - StoichNum(291,889) = 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(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(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(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(325,399) = 0.84 + StoichNum(325,400) = 1 + StoichNum(325,401) = 1.5 + 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(329,51) = 0.05 + StoichNum(329,55) = 1 + StoichNum(329,80) = 1 + StoichNum(329,82) = 1 + StoichNum(329,83) = 1 + 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,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,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,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,696) = 1 + StoichNum(329,704) = 0.18 + 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,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,1023) = 1 + StoichNum(329,1024) = 0.55 + StoichNum(329,1027) = 0.55 + StoichNum(329,1031) = 0.839 + 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(331,334) = -1 + StoichNum(331,336) = -1 + StoichNum(331,337) = 1 + StoichNum(331,339) = 1 + StoichNum(331,342) = -1 + StoichNum(331,343) = -1 + StoichNum(331,344) = 0.2 + StoichNum(331,349) = 0.809 + StoichNum(331,350) = -1 + StoichNum(331,351) = -1 + StoichNum(331,352) = 1 + StoichNum(331,353) = 1 + StoichNum(331,356) = 1 + 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,974) = 1 + StoichNum(331,975) = 2 + StoichNum(331,976) = 1 + StoichNum(331,977) = 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(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(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,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,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,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,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,896) = 1 + StoichNum(335,899) = 0.7 + StoichNum(335,900) = 1 + 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,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,1030) = 1 + StoichNum(335,1031) = 1 + StoichNum(335,1032) = 1.555 + StoichNum(335,1038) = 0.3 + StoichNum(335,1039) = 1 + 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(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(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(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(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(342,203) = -1 + StoichNum(342,205) = -1 + StoichNum(342,206) = 1 + StoichNum(342,207) = 2 + StoichNum(342,209) = 1 + StoichNum(342,210) = -1 + StoichNum(342,211) = 1 + StoichNum(342,213) = 1 + StoichNum(342,214) = 1 + StoichNum(342,215) = -1 + StoichNum(342,216) = -1 + StoichNum(342,217) = -1 + StoichNum(342,218) = -1 + StoichNum(342,219) = -1 + StoichNum(342,220) = -1 + StoichNum(342,221) = -1 + StoichNum(342,223) = 3 + StoichNum(342,224) = 2 + StoichNum(342,225) = 1 + StoichNum(342,251) = 1 + StoichNum(342,254) = 0.6 + StoichNum(342,258) = 0.56 + StoichNum(342,259) = 0.95 + StoichNum(342,260) = 1.4 + StoichNum(342,264) = 0.34 + StoichNum(342,272) = 0.75 + StoichNum(342,310) = 1 + StoichNum(342,311) = 1 + 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(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,894) = 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(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,35) = -1 + StoichNum(345,36) = -1 + StoichNum(345,37) = -1 + StoichNum(345,38) = -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,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,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,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,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,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,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,1034) = 1 + StoichNum(345,1035) = 1.25 + StoichNum(345,1036) = 1 + StoichNum(345,1037) = 0.546 + StoichNum(345,1038) = 1 + StoichNum(345,1039) = 0.3 + StoichNum(345,1040) = 1 + StoichNum(345,1042) = 1 + StoichNum(345,1044) = 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(347,203) = 1 + StoichNum(347,204) = -1 + StoichNum(347,207) = -2 + StoichNum(347,208) = -2 + StoichNum(347,209) = -1 + StoichNum(347,212) = 1 + StoichNum(347,214) = -1 + StoichNum(347,215) = 1 + StoichNum(347,222) = -1 + StoichNum(347,251) = -1 + StoichNum(347,254) = 0.2 + StoichNum(347,258) = 0.44 + StoichNum(347,259) = 0.95 + StoichNum(347,260) = 0.7 + StoichNum(347,264) = 0.31 + StoichNum(347,265) = 0.45 + StoichNum(347,272) = 0.75 + StoichNum(347,310) = -1 + StoichNum(347,311) = -1 + 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(349,798) = -1 + StoichNum(349,805) = -1 + StoichNum(349,817) = -1 + StoichNum(349,821) = -1 + StoichNum(349,823) = 1 + StoichNum(349,844) = -1 + StoichNum(349,848) = -1 + StoichNum(349,852) = -1 + StoichNum(350,799) = -1 + StoichNum(350,806) = -1 + StoichNum(350,818) = -1 + StoichNum(350,822) = -1 + StoichNum(350,824) = 1 + 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,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,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 END SUBROUTINE CalcStoichNum diff --git a/KPP/fullchem/gckpp_Global.F90 b/KPP/fullchem/gckpp_Global.F90 index e0cef6580..c0cadad75 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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 effce0552..86eff80bc 100644 --- a/KPP/fullchem/gckpp_Initialize.F90 +++ b/KPP/fullchem/gckpp_Initialize.F90 @@ -2,7 +2,7 @@ ! ! Initialization File ! -! Generated by KPP-3.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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) @@ -57,6 +57,8 @@ SUBROUTINE Initialize ( ) ! ~~~ Set initial species concentrations ! constant rate coefficients + RCONST(126) = 4.51e-12 + RCONST(735) = 7.09e-11 ! END constant rate coefficients ! INLINED initializations diff --git a/KPP/fullchem/gckpp_Integrator.F90 b/KPP/fullchem/gckpp_Integrator.F90 index 988cf0ebf..5c43c9c06 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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 32c494b29..19fe17bdb 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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,17021 +59,20830 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! Local variables ! B - Temporary array - REAL(kind=dp) :: B(1515) + REAL(kind=dp) :: B(1817) -! B(1) = dA(1)/dV(147) - B(1) = RCT(1)*V(276)*V(282) -! B(2) = dA(1)/dV(276) - B(2) = RCT(1)*V(147)*V(282) -! B(3) = dA(1)/dV(282) - B(3) = RCT(1)*V(147)*V(276) -! B(4) = dA(2)/dV(147) - B(4) = RCT(2)*V(275) -! B(5) = dA(2)/dV(275) - B(5) = RCT(2)*V(147) -! B(6) = dA(3)/dV(147) - B(6) = RCT(3)*V(265) -! B(7) = dA(3)/dV(265) - B(7) = RCT(3)*V(147) -! B(8) = dA(4)/dV(138) - B(8) = RCT(4)*V(276)*V(282) -! B(9) = dA(4)/dV(276) - B(9) = RCT(4)*V(138)*V(282) -! B(10) = dA(4)/dV(282) - B(10) = RCT(4)*V(138)*V(276) -! B(11) = dA(5)/dV(138) - B(11) = RCT(5)*V(275) -! B(12) = dA(5)/dV(275) - B(12) = RCT(5)*V(138) -! B(13) = dA(6)/dV(138) - B(13) = RCT(6)*V(265) -! B(14) = dA(6)/dV(265) - B(14) = RCT(6)*V(138) -! B(15) = dA(7)/dV(212) - B(15) = RCT(7)*V(276) -! B(16) = dA(7)/dV(276) - B(16) = RCT(7)*V(212) -! B(17) = dA(8)/dV(276) - B(17) = RCT(8)*V(282) -! B(18) = dA(8)/dV(282) - B(18) = RCT(8)*V(276) -! B(19) = dA(9)/dV(276) +! 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(19) = RCT(9) -! B(20) = dA(10)/dV(263) - B(20) = RCT(10)*V(276) -! B(21) = dA(10)/dV(276) - B(21) = RCT(10)*V(263) -! B(22) = dA(11)/dV(86) +! 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(22) = RCT(11) -! B(23) = dA(12)/dV(86) - B(23) = RCT(12)*V(276)*V(286) -! B(24) = dA(12)/dV(276) - B(24) = RCT(12)*V(86)*V(286) -! B(25) = dA(12)/dV(286) - B(25) = RCT(12)*V(86)*V(276) -! B(26) = dA(13)/dV(279) - B(26) = RCT(13)*V(282) -! B(27) = dA(13)/dV(282) - B(27) = RCT(13)*V(279) -! B(28) = dA(14)/dV(282) - B(28) = RCT(14)*V(286) -! B(29) = dA(14)/dV(286) - B(29) = RCT(14)*V(282) -! B(30) = dA(15)/dV(282) - B(30) = RCT(15)*V(284) -! B(31) = dA(15)/dV(284) - B(31) = RCT(15)*V(282) -! B(32) = dA(16)/dV(282) - B(32) = RCT(16)*V(291) -! B(33) = dA(16)/dV(291) - B(33) = RCT(16)*V(282) -! B(34) = dA(17)/dV(266) - B(34) = RCT(17)*V(282) -! B(35) = dA(17)/dV(282) - B(35) = RCT(17)*V(266) -! B(36) = dA(18)/dV(286) - B(36) = RCT(18)*2*V(286) -! B(37) = dA(19)/dV(286) - B(37) = RCT(19)*2*V(286) -! B(38) = dA(20)/dV(284) - B(38) = RCT(20)*V(286) -! B(39) = dA(20)/dV(286) - B(39) = RCT(20)*V(284) -! B(40) = dA(21)/dV(212) - B(40) = RCT(21)*V(286) -! B(41) = dA(21)/dV(286) - B(41) = RCT(21)*V(212) -! B(42) = dA(22)/dV(279) - B(42) = RCT(22)*V(284) -! B(43) = dA(22)/dV(284) - B(43) = RCT(22)*V(279) -! B(44) = dA(23)/dV(284) - B(44) = RCT(23)*2*V(284) -! B(45) = dA(24)/dV(267) - B(45) = RCT(24)*V(286) -! B(46) = dA(24)/dV(286) - B(46) = RCT(24)*V(267) -! B(47) = dA(25)/dV(190) - B(47) = RCT(25)*V(286) -! B(48) = dA(25)/dV(286) - B(48) = RCT(25)*V(190) -! B(49) = dA(26)/dV(266) - B(49) = RCT(26)*V(279) -! B(50) = dA(26)/dV(279) - B(50) = RCT(26)*V(266) -! B(51) = dA(27)/dV(266) - B(51) = RCT(27)*V(279) -! B(52) = dA(27)/dV(279) - B(52) = RCT(27)*V(266) -! B(53) = dA(28)/dV(266) - B(53) = RCT(28)*V(284) -! B(54) = dA(28)/dV(284) - B(54) = RCT(28)*V(266) -! B(55) = dA(29)/dV(266) - B(55) = RCT(29)*2*V(266) -! B(56) = dA(30)/dV(266) - B(56) = RCT(30)*2*V(266) -! B(57) = dA(31)/dV(266) - B(57) = RCT(31)*V(286) -! B(58) = dA(31)/dV(286) - B(58) = RCT(31)*V(266) -! B(59) = dA(32)/dV(137) - B(59) = RCT(32)*V(286) -! B(60) = dA(32)/dV(286) - B(60) = RCT(32)*V(137) -! B(61) = dA(33)/dV(196) - B(61) = RCT(33)*V(286) -! B(62) = dA(33)/dV(286) - B(62) = RCT(33)*V(196) -! B(63) = dA(34)/dV(263) - B(63) = RCT(34)*V(286) -! B(64) = dA(34)/dV(286) - B(64) = RCT(34)*V(263) -! B(65) = dA(35)/dV(286) - B(65) = RCT(35)*V(291) -! B(66) = dA(35)/dV(291) - B(66) = RCT(35)*V(286) -! B(67) = dA(36)/dV(265) - B(67) = RCT(36)*V(286) -! B(68) = dA(36)/dV(286) - B(68) = RCT(36)*V(265) -! B(69) = dA(37)/dV(279) - B(69) = RCT(37)*V(286) -! B(70) = dA(37)/dV(286) - B(70) = RCT(37)*V(279) -! B(71) = dA(38)/dV(193) - B(71) = RCT(38)*V(286) -! B(72) = dA(38)/dV(286) - B(72) = RCT(38)*V(193) -! B(73) = dA(39)/dV(284) - B(73) = RCT(39)*V(291) -! B(74) = dA(39)/dV(291) - B(74) = RCT(39)*V(284) -! B(75) = dA(40)/dV(102) +! 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(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(75) = RCT(40) -! B(76) = dA(41)/dV(102) - B(76) = RCT(41)*V(286) -! B(77) = dA(41)/dV(286) - B(77) = RCT(41)*V(102) -! B(78) = dA(42)/dV(281) - B(78) = RCT(42)*V(284) -! B(79) = dA(42)/dV(284) - B(79) = RCT(42)*V(281) -! B(80) = dA(43)/dV(279) - B(80) = RCT(43)*V(281) -! B(81) = dA(43)/dV(281) - B(81) = RCT(43)*V(279) -! B(82) = dA(44)/dV(281) - B(82) = RCT(44)*V(286) -! B(83) = dA(44)/dV(286) - B(83) = RCT(44)*V(281) -! B(84) = dA(45)/dV(281) - B(84) = RCT(45)*V(291) -! B(85) = dA(45)/dV(291) - B(85) = RCT(45)*V(281) -! B(86) = dA(46)/dV(173) +! 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(86) = RCT(46) -! B(87) = dA(47)/dV(211) - B(87) = RCT(47)*V(286) -! B(88) = dA(47)/dV(286) - B(88) = RCT(47)*V(211) -! B(89) = dA(48)/dV(218) - B(89) = RCT(48)*V(286) -! B(90) = dA(48)/dV(286) - B(90) = RCT(48)*V(218) -! B(91) = dA(49)/dV(281) - B(91) = RCT(49)*V(291) -! B(92) = dA(49)/dV(291) - B(92) = RCT(49)*V(281) -! B(93) = dA(50)/dV(263) - B(93) = RCT(50)*V(281) -! B(94) = dA(50)/dV(281) - B(94) = RCT(50)*V(263) -! B(95) = dA(51)/dV(264) - B(95) = RCT(51)*V(286) -! B(96) = dA(51)/dV(286) - B(96) = RCT(51)*V(264) -! B(97) = dA(52)/dV(264) - B(97) = RCT(52)*V(281) -! B(98) = dA(52)/dV(281) - B(98) = RCT(52)*V(264) -! B(99) = dA(53)/dV(261) - B(99) = RCT(53)*V(291) -! B(100) = dA(53)/dV(291) - B(100) = RCT(53)*V(261) -! B(101) = dA(54)/dV(67) +! 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(101) = RCT(54) -! B(102) = dA(55)/dV(261) - B(102) = RCT(55)*V(279) -! B(103) = dA(55)/dV(279) - B(103) = RCT(55)*V(261) -! B(104) = dA(56)/dV(161) - B(104) = RCT(56)*V(286) -! B(105) = dA(56)/dV(286) - B(105) = RCT(56)*V(161) -! B(106) = dA(57)/dV(217) - B(106) = RCT(57)*V(279) -! B(107) = dA(57)/dV(279) - B(107) = RCT(57)*V(217) -! B(108) = dA(58)/dV(217) - B(108) = RCT(58)*V(279) -! B(109) = dA(58)/dV(279) - B(109) = RCT(58)*V(217) -! B(110) = dA(59)/dV(239) - B(110) = RCT(59)*V(279) -! B(111) = dA(59)/dV(279) - B(111) = RCT(59)*V(239) -! B(112) = dA(60)/dV(124) - B(112) = RCT(60)*V(286) -! B(113) = dA(60)/dV(286) - B(113) = RCT(60)*V(124) -! B(114) = dA(61)/dV(124) - B(114) = RCT(61)*V(286) -! B(115) = dA(61)/dV(286) - B(115) = RCT(61)*V(124) -! B(116) = dA(62)/dV(237) - B(116) = RCT(62)*V(279) -! B(117) = dA(62)/dV(279) - B(117) = RCT(62)*V(237) -! B(118) = dA(63)/dV(237) - B(118) = RCT(63)*V(279) -! B(119) = dA(63)/dV(279) - B(119) = RCT(63)*V(237) -! B(120) = dA(64)/dV(209) - B(120) = RCT(64)*V(279) -! B(121) = dA(64)/dV(279) - B(121) = RCT(64)*V(209) -! B(122) = dA(65)/dV(114) - B(122) = RCT(65)*V(286) -! B(123) = dA(65)/dV(286) - B(123) = RCT(65)*V(114) -! B(124) = dA(66)/dV(256) - B(124) = RCT(66)*V(279) -! B(125) = dA(66)/dV(279) - B(125) = RCT(66)*V(256) -! B(126) = dA(67)/dV(256) - B(126) = RCT(67)*V(279) -! B(127) = dA(67)/dV(279) - B(127) = RCT(67)*V(256) -! B(128) = dA(68)/dV(257) - B(128) = RCT(68)*V(279) -! B(129) = dA(68)/dV(279) - B(129) = RCT(68)*V(257) -! B(130) = dA(69)/dV(252) - B(130) = RCT(69)*V(279) -! B(131) = dA(69)/dV(279) - B(131) = RCT(69)*V(252) -! B(132) = dA(70)/dV(254) - B(132) = RCT(70)*V(279) -! B(133) = dA(70)/dV(279) - B(133) = RCT(70)*V(254) -! B(134) = dA(71)/dV(258) - B(134) = RCT(71)*V(279) -! B(135) = dA(71)/dV(279) - B(135) = RCT(71)*V(258) -! B(136) = dA(72)/dV(258) - B(136) = RCT(72)*V(279) -! B(137) = dA(72)/dV(279) - B(137) = RCT(72)*V(258) -! B(138) = dA(73)/dV(201) - B(138) = RCT(73)*V(279) -! B(139) = dA(73)/dV(279) - B(139) = RCT(73)*V(201) -! B(140) = dA(74)/dV(114) - B(140) = RCT(74)*V(281) -! B(141) = dA(74)/dV(281) - B(141) = RCT(74)*V(114) -! B(142) = dA(75)/dV(202) - B(142) = RCT(75)*V(286) -! B(143) = dA(75)/dV(286) - B(143) = RCT(75)*V(202) -! B(144) = dA(76)/dV(219) - B(144) = RCT(76)*V(286) -! B(145) = dA(76)/dV(286) - B(145) = RCT(76)*V(219) -! B(146) = dA(77)/dV(259) - B(146) = RCT(77)*V(286) -! B(147) = dA(77)/dV(286) - B(147) = RCT(77)*V(259) -! B(148) = dA(78)/dV(255) - B(148) = RCT(78)*V(291) -! B(149) = dA(78)/dV(291) - B(149) = RCT(78)*V(255) -! B(150) = dA(79)/dV(50) - B(150) = RCT(79) -! B(151) = dA(80)/dV(255) - B(151) = RCT(80)*V(279) -! B(152) = dA(80)/dV(279) - B(152) = RCT(80)*V(255) -! B(153) = dA(81)/dV(259) - B(153) = RCT(81)*V(281) -! B(154) = dA(81)/dV(281) - B(154) = RCT(81)*V(259) -! B(155) = dA(82)/dV(221) - B(155) = RCT(82)*V(286) -! B(156) = dA(82)/dV(286) - B(156) = RCT(82)*V(221) -! B(157) = dA(83)/dV(237) - B(157) = RCT(83)*V(266) -! B(158) = dA(83)/dV(266) - B(158) = RCT(83)*V(237) -! B(159) = dA(84)/dV(209) - B(159) = RCT(84)*V(266) -! B(160) = dA(84)/dV(266) - B(160) = RCT(84)*V(209) -! B(161) = dA(85)/dV(256) - B(161) = RCT(85)*V(284) -! B(162) = dA(85)/dV(284) - B(162) = RCT(85)*V(256) -! B(163) = dA(86)/dV(257) - B(163) = RCT(86)*V(284) -! B(164) = dA(86)/dV(284) - B(164) = RCT(86)*V(257) -! B(165) = dA(87)/dV(252) - B(165) = RCT(87)*V(284) -! B(166) = dA(87)/dV(284) - B(166) = RCT(87)*V(252) -! B(167) = dA(88)/dV(254) - B(167) = RCT(88)*V(284) -! B(168) = dA(88)/dV(284) - B(168) = RCT(88)*V(254) -! B(169) = dA(89)/dV(258) - B(169) = RCT(89)*V(284) -! B(170) = dA(89)/dV(284) - B(170) = RCT(89)*V(258) -! B(171) = dA(90)/dV(201) - B(171) = RCT(90)*V(284) -! B(172) = dA(90)/dV(284) - B(172) = RCT(90)*V(201) -! B(173) = dA(91)/dV(226) - B(173) = RCT(91)*V(286) -! B(174) = dA(91)/dV(286) - B(174) = RCT(91)*V(226) -! B(175) = dA(92)/dV(217) - B(175) = RCT(92)*V(266) -! B(176) = dA(92)/dV(266) - B(176) = RCT(92)*V(217) -! B(177) = dA(93)/dV(239) - B(177) = RCT(93)*V(266) -! B(178) = dA(93)/dV(266) - B(178) = RCT(93)*V(239) -! B(179) = dA(94)/dV(226) - B(179) = RCT(94)*V(281) -! B(180) = dA(94)/dV(281) - B(180) = RCT(94)*V(226) -! B(181) = dA(95)/dV(256) - B(181) = RCT(95)*V(266) -! B(182) = dA(95)/dV(266) - B(182) = RCT(95)*V(256) -! B(183) = dA(96)/dV(257) - B(183) = RCT(96)*V(266) -! B(184) = dA(96)/dV(266) - B(184) = RCT(96)*V(257) -! B(185) = dA(97)/dV(252) - B(185) = RCT(97)*V(266) -! B(186) = dA(97)/dV(266) - B(186) = RCT(97)*V(252) -! B(187) = dA(98)/dV(254) - B(187) = RCT(98)*V(266) -! B(188) = dA(98)/dV(266) - B(188) = RCT(98)*V(254) -! B(189) = dA(99)/dV(258) - B(189) = RCT(99)*V(266) -! B(190) = dA(99)/dV(266) - B(190) = RCT(99)*V(258) -! B(191) = dA(100)/dV(201) - B(191) = RCT(100)*V(266) -! B(192) = dA(100)/dV(266) - B(192) = RCT(100)*V(201) -! B(193) = dA(101)/dV(133) - B(193) = RCT(101)*V(286) -! B(194) = dA(101)/dV(286) - B(194) = RCT(101)*V(133) -! B(195) = dA(102)/dV(158) - B(195) = RCT(102)*V(286) -! B(196) = dA(102)/dV(286) - B(196) = RCT(102)*V(158) -! B(197) = dA(103)/dV(217) - B(197) = RCT(103)*2*V(217) -! B(198) = dA(104)/dV(239) - B(198) = RCT(104)*2*V(239) -! B(199) = dA(105)/dV(217) - B(199) = RCT(105)*V(284) -! B(200) = dA(105)/dV(284) - B(200) = RCT(105)*V(217) -! B(201) = dA(106)/dV(239) - B(201) = RCT(106)*V(284) -! B(202) = dA(106)/dV(284) - B(202) = RCT(106)*V(239) -! B(203) = dA(107)/dV(237) - B(203) = RCT(107)*V(284) -! B(204) = dA(107)/dV(284) - B(204) = RCT(107)*V(237) -! B(205) = dA(108)/dV(209) - B(205) = RCT(108)*V(284) -! B(206) = dA(108)/dV(284) - B(206) = RCT(108)*V(209) -! B(207) = dA(109)/dV(255) - B(207) = RCT(109)*V(284) -! B(208) = dA(109)/dV(284) - B(208) = RCT(109)*V(255) -! B(209) = dA(110)/dV(253) - B(209) = RCT(110)*V(286) -! B(210) = dA(110)/dV(286) - B(210) = RCT(110)*V(253) -! B(211) = dA(111)/dV(253) - B(211) = RCT(111)*V(282) -! B(212) = dA(111)/dV(282) - B(212) = RCT(111)*V(253) -! B(213) = dA(112)/dV(236) - B(213) = RCT(112)*V(286) -! B(214) = dA(112)/dV(286) - B(214) = RCT(112)*V(236) -! B(215) = dA(113)/dV(236) - B(215) = RCT(113)*V(286) -! B(216) = dA(113)/dV(286) - B(216) = RCT(113)*V(236) -! B(217) = dA(114)/dV(253) - B(217) = RCT(114)*V(281) -! B(218) = dA(114)/dV(281) - B(218) = RCT(114)*V(253) -! B(219) = dA(115)/dV(223) - B(219) = RCT(115)*V(286) -! B(220) = dA(115)/dV(286) - B(220) = RCT(115)*V(223) -! B(221) = dA(116)/dV(233) - B(221) = RCT(116)*V(286) -! B(222) = dA(116)/dV(286) - B(222) = RCT(116)*V(233) -! B(223) = dA(117)/dV(223) - B(223) = RCT(117)*V(281) -! B(224) = dA(117)/dV(281) - B(224) = RCT(117)*V(223) -! B(225) = dA(118)/dV(233) - B(225) = RCT(118)*V(281) -! B(226) = dA(118)/dV(281) - B(226) = RCT(118)*V(233) -! B(227) = dA(119)/dV(250) - B(227) = RCT(119)*V(286) -! B(228) = dA(119)/dV(286) - B(228) = RCT(119)*V(250) -! B(229) = dA(120)/dV(250) - B(229) = RCT(120)*V(286) -! B(230) = dA(120)/dV(286) - B(230) = RCT(120)*V(250) -! B(231) = dA(121)/dV(113) - B(231) = RCT(121)*V(286) -! B(232) = dA(121)/dV(286) - B(232) = RCT(121)*V(113) -! B(233) = dA(122)/dV(110) - B(233) = RCT(122)*V(286) -! B(234) = dA(122)/dV(286) - B(234) = RCT(122)*V(110) -! B(235) = dA(123)/dV(94) - B(235) = RCT(123)*V(286) -! B(236) = dA(123)/dV(286) - B(236) = RCT(123)*V(94) -! B(237) = dA(124)/dV(95) - B(237) = RCT(124)*V(286) -! B(238) = dA(124)/dV(286) - B(238) = RCT(124)*V(95) -! B(239) = dA(125)/dV(93) - B(239) = RCT(125)*V(286) -! B(240) = dA(125)/dV(286) - B(240) = RCT(125)*V(93) -! B(241) = dA(126)/dV(106) - B(241) = RCT(126)*V(286) -! B(242) = dA(126)/dV(286) - B(242) = RCT(126)*V(106) -! B(243) = dA(127)/dV(112) - B(243) = RCT(127)*V(286) -! B(244) = dA(127)/dV(286) - B(244) = RCT(127)*V(112) -! B(245) = dA(128)/dV(24) - B(245) = RCT(128)*V(286) -! B(246) = dA(128)/dV(286) - B(246) = RCT(128)*V(24) -! B(247) = dA(129)/dV(88) - B(247) = RCT(129)*V(286) -! B(248) = dA(129)/dV(286) - B(248) = RCT(129)*V(88) -! B(249) = dA(130)/dV(161) - B(249) = RCT(130)*V(281) -! B(250) = dA(130)/dV(281) - B(250) = RCT(130)*V(161) -! B(251) = dA(131)/dV(261) - B(251) = RCT(131)*2*V(261) -! B(252) = dA(132)/dV(261) - B(252) = RCT(132)*V(266) -! B(253) = dA(132)/dV(266) - B(253) = RCT(132)*V(261) -! B(254) = dA(133)/dV(256) - B(254) = RCT(133)*V(261) -! B(255) = dA(133)/dV(261) - B(255) = RCT(133)*V(256) -! B(256) = dA(134)/dV(252) - B(256) = RCT(134)*V(261) -! B(257) = dA(134)/dV(261) - B(257) = RCT(134)*V(252) -! B(258) = dA(135)/dV(254) - B(258) = RCT(135)*V(261) -! B(259) = dA(135)/dV(261) - B(259) = RCT(135)*V(254) -! B(260) = dA(136)/dV(258) - B(260) = RCT(136)*V(261) -! B(261) = dA(136)/dV(261) - B(261) = RCT(136)*V(258) -! B(262) = dA(137)/dV(257) - B(262) = RCT(137)*V(261) -! B(263) = dA(137)/dV(261) - B(263) = RCT(137)*V(257) -! B(264) = dA(138)/dV(201) - B(264) = RCT(138)*V(261) -! B(265) = dA(138)/dV(261) - B(265) = RCT(138)*V(201) -! B(266) = dA(139)/dV(217) - B(266) = RCT(139)*V(261) -! B(267) = dA(139)/dV(261) - B(267) = RCT(139)*V(217) -! B(268) = dA(140)/dV(239) - B(268) = RCT(140)*V(261) -! B(269) = dA(140)/dV(261) - B(269) = RCT(140)*V(239) -! B(270) = dA(141)/dV(209) - B(270) = RCT(141)*V(261) -! B(271) = dA(141)/dV(261) - B(271) = RCT(141)*V(209) -! B(272) = dA(142)/dV(237) - B(272) = RCT(142)*V(261) -! B(273) = dA(142)/dV(261) - B(273) = RCT(142)*V(237) -! B(274) = dA(143)/dV(255) - B(274) = RCT(143)*V(261) -! B(275) = dA(143)/dV(261) - B(275) = RCT(143)*V(255) -! B(276) = dA(144)/dV(255) - B(276) = RCT(144)*V(266) -! B(277) = dA(144)/dV(266) - B(277) = RCT(144)*V(255) -! B(278) = dA(145)/dV(281) - B(278) = RCT(145)*2*V(281) -! B(279) = dA(146)/dV(266) - B(279) = RCT(146)*V(291) -! B(280) = dA(146)/dV(291) - B(280) = RCT(146)*V(266) -! B(281) = dA(147)/dV(74) - B(281) = RCT(147) -! B(282) = dA(148)/dV(90) - B(282) = RCT(148)*V(286) -! B(283) = dA(148)/dV(286) - B(283) = RCT(148)*V(90) -! B(284) = dA(149)/dV(90) - B(284) = RCT(149)*V(286) -! B(285) = dA(149)/dV(286) - B(285) = RCT(149)*V(90) -! B(286) = dA(150)/dV(90) - B(286) = RCT(150)*V(281) -! B(287) = dA(150)/dV(281) - B(287) = RCT(150)*V(90) -! B(288) = dA(151)/dV(276) - B(288) = RCT(151)*V(286) -! B(289) = dA(151)/dV(286) - B(289) = RCT(151)*V(276) -! B(290) = dA(152)/dV(273) - B(290) = RCT(152)*V(282) -! B(291) = dA(152)/dV(282) - B(291) = RCT(152)*V(273) -! B(292) = dA(153)/dV(274) - B(292) = RCT(153)*V(284) -! B(293) = dA(153)/dV(284) - B(293) = RCT(153)*V(274) -! B(294) = dA(154)/dV(273) - B(294) = RCT(154)*V(284) -! B(295) = dA(154)/dV(284) - B(295) = RCT(154)*V(273) -! B(296) = dA(155)/dV(286) - B(296) = RCT(155)*V(289) -! B(297) = dA(155)/dV(289) - B(297) = RCT(155)*V(286) -! B(298) = dA(156)/dV(274) - B(298) = RCT(156)*2*V(274) -! B(299) = dA(157)/dV(274) - B(299) = RCT(157)*2*V(274) -! B(300) = dA(158)/dV(274) - B(300) = RCT(158)*V(279) -! B(301) = dA(158)/dV(279) - B(301) = RCT(158)*V(274) -! B(302) = dA(159)/dV(176) - B(302) = RCT(159)*V(273) -! B(303) = dA(159)/dV(273) - B(303) = RCT(159)*V(176) -! B(304) = dA(160)/dV(128) - B(304) = RCT(160)*V(286) -! B(305) = dA(160)/dV(286) - B(305) = RCT(160)*V(128) -! B(306) = dA(161)/dV(260) - B(306) = RCT(161)*V(288) -! B(307) = dA(161)/dV(288) - B(307) = RCT(161)*V(260) -! B(308) = dA(162)/dV(288) - B(308) = RCT(162)*V(289) -! B(309) = dA(162)/dV(289) - B(309) = RCT(162)*V(288) -! B(310) = dA(163)/dV(274) - B(310) = RCT(163)*V(286) -! B(311) = dA(163)/dV(286) - B(311) = RCT(163)*V(274) -! B(312) = dA(164)/dV(273) - B(312) = RCT(164)*V(281) -! B(313) = dA(164)/dV(281) - B(313) = RCT(164)*V(273) -! B(314) = dA(165)/dV(263) - B(314) = RCT(165)*V(273) -! B(315) = dA(165)/dV(273) - B(315) = RCT(165)*V(263) -! B(316) = dA(166)/dV(264) - B(316) = RCT(166)*V(273) -! B(317) = dA(166)/dV(273) - B(317) = RCT(166)*V(264) -! B(318) = dA(167)/dV(221) - B(318) = RCT(167)*V(273) -! B(319) = dA(167)/dV(273) - B(319) = RCT(167)*V(221) -! B(320) = dA(168)/dV(161) - B(320) = RCT(168)*V(273) -! B(321) = dA(168)/dV(273) - B(321) = RCT(168)*V(161) -! B(322) = dA(169)/dV(124) - B(322) = RCT(169)*V(273) -! B(323) = dA(169)/dV(273) - B(323) = RCT(169)*V(124) -! B(324) = dA(170)/dV(273) - B(324) = RCT(170)*V(291) -! B(325) = dA(170)/dV(291) - B(325) = RCT(170)*V(273) -! B(326) = dA(171)/dV(274) - B(326) = RCT(171)*V(291) -! B(327) = dA(171)/dV(291) - B(327) = RCT(171)*V(274) -! B(328) = dA(172)/dV(77) - B(328) = RCT(172)*V(286) -! B(329) = dA(172)/dV(286) - B(329) = RCT(172)*V(77) -! B(330) = dA(173)/dV(71) - B(330) = RCT(173)*V(286) -! B(331) = dA(173)/dV(286) - B(331) = RCT(173)*V(71) -! B(332) = dA(174)/dV(100) - B(332) = RCT(174)*V(286) -! B(333) = dA(174)/dV(286) - B(333) = RCT(174)*V(100) -! B(334) = dA(175)/dV(272) - B(334) = RCT(175)*V(278) -! B(335) = dA(175)/dV(278) - B(335) = RCT(175)*V(272) -! B(336) = dA(176)/dV(272) - B(336) = RCT(176)*F(2) -! B(338) = dA(177)/dV(272) - B(338) = RCT(177)*F(3) -! B(340) = dA(178)/dV(272) - B(340) = RCT(178)*F(1) -! B(342) = dA(179)/dV(61) - B(342) = RCT(179)*V(272) -! B(343) = dA(179)/dV(272) - B(343) = RCT(179)*V(61) -! B(344) = dA(180)/dV(190) - B(344) = RCT(180)*V(272) -! B(345) = dA(180)/dV(272) - B(345) = RCT(180)*V(190) -! B(346) = dA(181)/dV(288) - B(346) = RCT(181)*F(3) -! B(348) = dA(182)/dV(282) - B(348) = RCT(182)*V(288) -! B(349) = dA(182)/dV(288) - B(349) = RCT(182)*V(282) -! B(350) = dA(183)/dV(286) - B(350) = RCT(183)*F(1) -! B(352) = dA(184)/dV(286) - B(352) = RCT(184)*V(288) -! B(353) = dA(184)/dV(288) - B(353) = RCT(184)*V(286) -! B(354) = dA(185)/dV(284) - B(354) = RCT(185)*V(288) -! B(355) = dA(185)/dV(288) - B(355) = RCT(185)*V(284) -! B(356) = dA(186)/dV(272) - B(356) = RCT(186)*V(282) -! B(357) = dA(186)/dV(282) - B(357) = RCT(186)*V(272) -! B(358) = dA(187)/dV(66) - B(358) = RCT(187)*V(288) -! B(359) = dA(187)/dV(288) - B(359) = RCT(187)*V(66) -! B(360) = dA(188)/dV(66) - B(360) = RCT(188)*V(286) -! B(361) = dA(188)/dV(286) - B(361) = RCT(188)*V(66) -! B(362) = dA(189)/dV(288) - B(362) = RCT(189)*V(291) -! B(363) = dA(189)/dV(291) - B(363) = RCT(189)*V(288) -! B(364) = dA(190)/dV(281) - B(364) = RCT(190)*V(288) -! B(365) = dA(190)/dV(288) - B(365) = RCT(190)*V(281) -! B(366) = dA(191)/dV(279) - B(366) = RCT(191)*V(288) -! B(367) = dA(191)/dV(288) - B(367) = RCT(191)*V(279) -! B(368) = dA(192)/dV(288) - B(368) = RCT(192)*V(291) -! B(369) = dA(192)/dV(291) - B(369) = RCT(192)*V(288) -! B(370) = dA(193)/dV(212) - B(370) = RCT(193)*V(288) -! B(371) = dA(193)/dV(288) - B(371) = RCT(193)*V(212) -! B(372) = dA(194)/dV(177) - B(372) = RCT(194)*F(3) -! B(374) = dA(195)/dV(177) - B(374) = RCT(195)*V(282) -! B(375) = dA(195)/dV(282) - B(375) = RCT(195)*V(177) -! B(376) = dA(196)/dV(177) - B(376) = RCT(196)*V(284) -! B(377) = dA(196)/dV(284) - B(377) = RCT(196)*V(177) -! B(378) = dA(197)/dV(65) - B(378) = RCT(197)*F(3) -! B(380) = dA(198)/dV(65) - B(380) = RCT(198)*V(279) -! B(381) = dA(198)/dV(279) - B(381) = RCT(198)*V(65) -! B(382) = dA(199)/dV(65) - B(382) = RCT(199)*V(291) -! B(383) = dA(199)/dV(291) - B(383) = RCT(199)*V(65) -! B(384) = dA(200)/dV(274) - B(384) = RCT(200)*V(288) -! B(385) = dA(200)/dV(288) - B(385) = RCT(200)*V(274) -! B(386) = dA(201)/dV(263) - B(386) = RCT(201)*V(288) -! B(387) = dA(201)/dV(288) - B(387) = RCT(201)*V(263) -! B(388) = dA(202)/dV(272) - B(388) = RCT(202)*V(275) -! B(389) = dA(202)/dV(275) - B(389) = RCT(202)*V(272) -! B(390) = dA(203)/dV(272) - B(390) = RCT(203)*V(289) -! B(391) = dA(203)/dV(289) - B(391) = RCT(203)*V(272) -! B(392) = dA(204)/dV(197) - B(392) = RCT(204)*V(272) -! B(393) = dA(204)/dV(272) - B(393) = RCT(204)*V(197) -! B(394) = dA(205)/dV(52) - B(394) = RCT(205)*V(272) -! B(395) = dA(205)/dV(272) - B(395) = RCT(205)*V(52) -! B(396) = dA(206)/dV(149) - B(396) = RCT(206)*V(272) -! B(397) = dA(206)/dV(272) - B(397) = RCT(206)*V(149) -! B(398) = dA(207)/dV(100) - B(398) = RCT(207)*V(272) -! B(399) = dA(207)/dV(272) - B(399) = RCT(207)*V(100) -! B(400) = dA(208)/dV(71) - B(400) = RCT(208)*V(272) -! B(401) = dA(208)/dV(272) - B(401) = RCT(208)*V(71) -! B(402) = dA(209)/dV(77) - B(402) = RCT(209)*V(272) -! B(403) = dA(209)/dV(272) - B(403) = RCT(209)*V(77) -! B(404) = dA(210)/dV(84) - B(404) = RCT(210)*V(272) -! B(405) = dA(210)/dV(272) - B(405) = RCT(210)*V(84) -! B(406) = dA(211)/dV(53) - B(406) = RCT(211)*V(272) -! B(407) = dA(211)/dV(272) - B(407) = RCT(211)*V(53) -! B(408) = dA(212)/dV(54) - B(408) = RCT(212)*V(272) -! B(409) = dA(212)/dV(272) - B(409) = RCT(212)*V(54) -! B(410) = dA(213)/dV(59) - B(410) = RCT(213)*V(272) -! B(411) = dA(213)/dV(272) - B(411) = RCT(213)*V(59) -! B(412) = dA(214)/dV(47) - B(412) = RCT(214)*V(272) -! B(413) = dA(214)/dV(272) - B(413) = RCT(214)*V(47) -! B(414) = dA(215)/dV(82) - B(414) = RCT(215)*V(272) -! B(415) = dA(215)/dV(272) - B(415) = RCT(215)*V(82) -! B(416) = dA(216)/dV(83) - B(416) = RCT(216)*V(272) -! B(417) = dA(216)/dV(272) - B(417) = RCT(216)*V(83) -! B(418) = dA(217)/dV(81) - B(418) = RCT(217)*V(272) -! B(419) = dA(217)/dV(272) - B(419) = RCT(217)*V(81) -! B(420) = dA(218)/dV(55) - B(420) = RCT(218)*V(272) -! B(421) = dA(218)/dV(272) - B(421) = RCT(218)*V(55) -! B(422) = dA(219)/dV(56) - B(422) = RCT(219)*V(272) -! B(423) = dA(219)/dV(272) - B(423) = RCT(219)*V(56) -! B(424) = dA(220)/dV(57) - B(424) = RCT(220)*V(272) -! B(425) = dA(220)/dV(272) - B(425) = RCT(220)*V(57) -! B(426) = dA(221)/dV(48) - B(426) = RCT(221)*V(272) -! B(427) = dA(221)/dV(272) - B(427) = RCT(221)*V(48) -! B(428) = dA(222)/dV(197) - B(428) = RCT(222)*V(286) -! B(429) = dA(222)/dV(286) - B(429) = RCT(222)*V(197) -! B(430) = dA(223)/dV(266) - B(430) = RCT(223)*V(285) -! B(431) = dA(223)/dV(285) - B(431) = RCT(223)*V(266) -! B(432) = dA(224)/dV(285) - B(432) = RCT(224)*V(286) -! B(433) = dA(224)/dV(286) - B(433) = RCT(224)*V(285) -! B(434) = dA(225)/dV(285) - B(434) = RCT(225)*V(286) -! B(435) = dA(225)/dV(286) - B(435) = RCT(225)*V(285) -! B(436) = dA(226)/dV(111) - B(436) = RCT(226)*V(286) -! B(437) = dA(226)/dV(286) - B(437) = RCT(226)*V(111) -! B(438) = dA(227)/dV(75) - B(438) = RCT(227)*V(286) -! B(439) = dA(227)/dV(286) - B(439) = RCT(227)*V(75) -! B(440) = dA(228)/dV(275) - B(440) = RCT(228)*V(286) -! B(441) = dA(228)/dV(286) - B(441) = RCT(228)*V(275) -! B(442) = dA(229)/dV(271) - B(442) = RCT(229)*V(286) -! B(443) = dA(229)/dV(286) - B(443) = RCT(229)*V(271) -! B(444) = dA(230)/dV(235) - B(444) = RCT(230)*V(286) -! B(445) = dA(230)/dV(286) - B(445) = RCT(230)*V(235) -! B(446) = dA(231)/dV(262) - B(446) = RCT(231)*V(286) -! B(447) = dA(231)/dV(286) - B(447) = RCT(231)*V(262) -! B(448) = dA(232)/dV(149) - B(448) = RCT(232)*V(286) -! B(449) = dA(232)/dV(286) - B(449) = RCT(232)*V(149) -! B(450) = dA(233)/dV(72) - B(450) = RCT(233)*V(286) -! B(451) = dA(233)/dV(286) - B(451) = RCT(233)*V(72) -! B(452) = dA(234)/dV(78) - B(452) = RCT(234)*V(286) -! B(453) = dA(234)/dV(286) - B(453) = RCT(234)*V(78) -! B(454) = dA(235)/dV(43) - B(454) = RCT(235)*V(286) -! B(455) = dA(235)/dV(286) - B(455) = RCT(235)*V(43) -! B(456) = dA(236)/dV(84) - B(456) = RCT(236)*V(286) -! B(457) = dA(236)/dV(286) - B(457) = RCT(236)*V(84) -! B(458) = dA(237)/dV(82) - B(458) = RCT(237)*V(286) -! B(459) = dA(237)/dV(286) - B(459) = RCT(237)*V(82) -! B(460) = dA(238)/dV(83) - B(460) = RCT(238)*V(286) -! B(461) = dA(238)/dV(286) - B(461) = RCT(238)*V(83) -! B(462) = dA(239)/dV(81) - B(462) = RCT(239)*V(286) -! B(463) = dA(239)/dV(286) - B(463) = RCT(239)*V(81) -! B(464) = dA(240)/dV(190) - B(464) = RCT(240)*V(290) -! B(465) = dA(240)/dV(290) - B(465) = RCT(240)*V(190) -! B(466) = dA(241)/dV(263) - B(466) = RCT(241)*V(290) -! B(467) = dA(241)/dV(290) - B(467) = RCT(241)*V(263) -! B(468) = dA(242)/dV(282) - B(468) = RCT(242)*V(290) -! B(469) = dA(242)/dV(290) - B(469) = RCT(242)*V(282) -! B(470) = dA(243)/dV(290) - B(470) = RCT(243)*F(1) -! B(472) = dA(244)/dV(212) - B(472) = RCT(244)*V(290) -! B(473) = dA(244)/dV(290) - B(473) = RCT(244)*V(212) -! B(474) = dA(245)/dV(284) - B(474) = RCT(245)*V(290) -! B(475) = dA(245)/dV(290) - B(475) = RCT(245)*V(284) -! B(476) = dA(246)/dV(284) - B(476) = RCT(246)*V(290) -! B(477) = dA(246)/dV(290) - B(477) = RCT(246)*V(284) -! B(478) = dA(247)/dV(285) - B(478) = RCT(247)*V(288) -! B(479) = dA(247)/dV(288) - B(479) = RCT(247)*V(285) -! B(480) = dA(248)/dV(284) - B(480) = RCT(248)*V(285) -! B(481) = dA(248)/dV(285) - B(481) = RCT(248)*V(284) -! B(482) = dA(249)/dV(279) - B(482) = RCT(249)*V(285) -! B(483) = dA(249)/dV(285) - B(483) = RCT(249)*V(279) -! B(484) = dA(250)/dV(285) - B(484) = RCT(250)*V(291) -! B(485) = dA(250)/dV(291) - B(485) = RCT(250)*V(285) -! B(486) = dA(251)/dV(285) - B(486) = RCT(251)*2*V(285) -! B(487) = dA(252)/dV(285) - B(487) = RCT(252)*2*V(285) -! B(488) = dA(253)/dV(285) - B(488) = RCT(253)*2*V(285) -! B(489) = dA(254)/dV(290) - B(489) = RCT(254)*F(3) -! B(491) = dA(255)/dV(103) - B(491) = RCT(255) -! B(492) = dA(256)/dV(285) - B(492) = RCT(256)*2*V(285) -! B(493) = dA(257)/dV(75) - B(493) = RCT(257) -! B(494) = dA(258)/dV(103) - B(494) = RCT(258)*V(290) -! B(495) = dA(258)/dV(290) - B(495) = RCT(258)*V(103) -! B(496) = dA(259)/dV(274) - B(496) = RCT(259)*V(285) -! B(497) = dA(259)/dV(285) - B(497) = RCT(259)*V(274) -! B(498) = dA(260)/dV(274) - B(498) = RCT(260)*V(285) -! B(499) = dA(260)/dV(285) - B(499) = RCT(260)*V(274) -! B(500) = dA(261)/dV(274) - B(500) = RCT(261)*V(285) -! B(501) = dA(261)/dV(285) - B(501) = RCT(261)*V(274) -! B(502) = dA(262)/dV(262) - B(502) = RCT(262)*V(288) -! B(503) = dA(262)/dV(288) - B(503) = RCT(262)*V(262) -! B(504) = dA(263)/dV(262) - B(504) = RCT(263)*V(290) -! B(505) = dA(263)/dV(290) - B(505) = RCT(263)*V(262) -! B(506) = dA(264)/dV(149) - B(506) = RCT(264)*V(290) -! B(507) = dA(264)/dV(290) - B(507) = RCT(264)*V(149) -! B(508) = dA(265)/dV(72) - B(508) = RCT(265)*V(290) -! B(509) = dA(265)/dV(290) - B(509) = RCT(265)*V(72) -! B(510) = dA(266)/dV(78) - B(510) = RCT(266)*V(290) -! B(511) = dA(266)/dV(290) - B(511) = RCT(266)*V(78) -! B(512) = dA(267)/dV(211) - B(512) = RCT(267)*V(290) -! B(513) = dA(267)/dV(290) - B(513) = RCT(267)*V(211) -! B(514) = dA(268)/dV(266) - B(514) = RCT(268)*V(290) -! B(515) = dA(268)/dV(290) - B(515) = RCT(268)*V(266) -! B(516) = dA(269)/dV(137) - B(516) = RCT(269)*V(290) -! B(517) = dA(269)/dV(290) - B(517) = RCT(269)*V(137) -! B(518) = dA(270)/dV(161) - B(518) = RCT(270)*V(290) -! B(519) = dA(270)/dV(290) - B(519) = RCT(270)*V(161) -! B(520) = dA(271)/dV(217) - B(520) = RCT(271)*V(290) -! B(521) = dA(271)/dV(290) - B(521) = RCT(271)*V(217) -! B(522) = dA(272)/dV(239) - B(522) = RCT(272)*V(290) -! B(523) = dA(272)/dV(290) - B(523) = RCT(272)*V(239) -! B(524) = dA(273)/dV(218) - B(524) = RCT(273)*V(290) -! B(525) = dA(273)/dV(290) - B(525) = RCT(273)*V(218) -! B(526) = dA(274)/dV(133) - B(526) = RCT(274)*V(290) -! B(527) = dA(274)/dV(290) - B(527) = RCT(274)*V(133) -! B(528) = dA(275)/dV(219) - B(528) = RCT(275)*V(290) -! B(529) = dA(275)/dV(290) - B(529) = RCT(275)*V(219) -! B(530) = dA(276)/dV(124) - B(530) = RCT(276)*V(290) -! B(531) = dA(276)/dV(290) - B(531) = RCT(276)*V(124) -! B(532) = dA(277)/dV(124) - B(532) = RCT(277)*V(290) -! B(533) = dA(277)/dV(290) - B(533) = RCT(277)*V(124) -! B(534) = dA(278)/dV(221) - B(534) = RCT(278)*V(290) -! B(535) = dA(278)/dV(290) - B(535) = RCT(278)*V(221) -! B(536) = dA(279)/dV(224) - B(536) = RCT(279)*V(290) -! B(537) = dA(279)/dV(290) - B(537) = RCT(279)*V(224) -! B(538) = dA(280)/dV(114) - B(538) = RCT(280)*V(290) -! B(539) = dA(280)/dV(290) - B(539) = RCT(280)*V(114) -! B(540) = dA(281)/dV(253) - B(540) = RCT(281)*V(290) -! B(541) = dA(281)/dV(290) - B(541) = RCT(281)*V(253) -! B(542) = dA(282)/dV(253) - B(542) = RCT(282)*V(273) -! B(543) = dA(282)/dV(273) - B(543) = RCT(282)*V(253) -! B(544) = dA(283)/dV(269) - B(544) = RCT(283)*V(279) -! B(545) = dA(283)/dV(279) - B(545) = RCT(283)*V(269) -! B(546) = dA(284)/dV(60) - B(546) = RCT(284)*2*V(60) -! B(547) = dA(285)/dV(269) - B(547) = RCT(285)*V(291) -! B(548) = dA(285)/dV(291) - B(548) = RCT(285)*V(269) -! B(549) = dA(286)/dV(203) - B(549) = RCT(286) -! B(550) = dA(287)/dV(203) - B(550) = RCT(287)*2*V(203) -! B(551) = dA(288)/dV(143) - B(551) = RCT(288)*V(281) -! B(552) = dA(288)/dV(281) - B(552) = RCT(288)*V(143) -! B(553) = dA(289)/dV(227) - B(553) = RCT(289)*V(291) -! B(554) = dA(289)/dV(291) - B(554) = RCT(289)*V(227) -! B(555) = dA(290)/dV(270) - B(555) = RCT(290) -! B(556) = dA(291)/dV(269) - B(556) = RCT(291)*V(270) -! B(557) = dA(291)/dV(270) - B(557) = RCT(291)*V(269) -! B(558) = dA(292)/dV(269) - B(558) = RCT(292)*V(274) -! B(559) = dA(292)/dV(274) - B(559) = RCT(292)*V(269) -! B(560) = dA(293)/dV(227) - B(560) = RCT(293)*V(274) -! B(561) = dA(293)/dV(274) - B(561) = RCT(293)*V(227) -! B(562) = dA(294)/dV(92) - B(562) = RCT(294)*V(227) -! B(563) = dA(294)/dV(227) - B(563) = RCT(294)*V(92) -! B(564) = dA(295)/dV(92) - B(564) = RCT(295)*2*V(92) -! B(565) = dA(296)/dV(42) - B(565) = RCT(296) -! B(566) = dA(297)/dV(92) - B(566) = RCT(297)*V(279) -! B(567) = dA(297)/dV(279) - B(567) = RCT(297)*V(92) -! B(568) = dA(298)/dV(227) - B(568) = RCT(298)*V(285) -! B(569) = dA(298)/dV(285) - B(569) = RCT(298)*V(227) -! B(570) = dA(299)/dV(269) - B(570) = RCT(299)*V(282) -! B(571) = dA(299)/dV(282) - B(571) = RCT(299)*V(269) -! B(572) = dA(300)/dV(269) - B(572) = RCT(300)*V(284) -! B(573) = dA(300)/dV(284) - B(573) = RCT(300)*V(269) -! B(574) = dA(301)/dV(143) - B(574) = RCT(301)*V(286) -! B(575) = dA(301)/dV(286) - B(575) = RCT(301)*V(143) -! B(576) = dA(302)/dV(69) - B(576) = RCT(302)*V(286) -! B(577) = dA(302)/dV(286) - B(577) = RCT(302)*V(69) -! B(578) = dA(303)/dV(268) - B(578) = RCT(303)*V(286) -! B(579) = dA(303)/dV(286) - B(579) = RCT(303)*V(268) -! B(580) = dA(304)/dV(227) - B(580) = RCT(304)*V(284) -! B(581) = dA(304)/dV(284) - B(581) = RCT(304)*V(227) -! B(582) = dA(305)/dV(227) - B(582) = RCT(305)*V(279) -! B(583) = dA(305)/dV(279) - B(583) = RCT(305)*V(227) -! B(584) = dA(306)/dV(227) - B(584) = RCT(306)*2*V(227) -! B(585) = dA(307)/dV(44) - B(585) = RCT(307) -! B(586) = dA(308)/dV(46) - B(586) = RCT(308)*V(286) -! B(587) = dA(308)/dV(286) - B(587) = RCT(308)*V(46) -! B(588) = dA(309)/dV(208) - B(588) = RCT(309)*V(286) -! B(589) = dA(309)/dV(286) - B(589) = RCT(309)*V(208) -! B(590) = dA(310)/dV(198) - B(590) = RCT(310)*V(286) -! B(591) = dA(310)/dV(286) - B(591) = RCT(310)*V(198) -! B(592) = dA(311)/dV(234) - B(592) = RCT(311)*V(267) -! B(593) = dA(311)/dV(267) - B(593) = RCT(311)*V(234) -! B(594) = dA(312)/dV(234) - B(594) = RCT(312)*V(279) -! B(595) = dA(312)/dV(279) - B(595) = RCT(312)*V(234) -! B(596) = dA(313)/dV(234) - B(596) = RCT(313)*V(291) -! B(597) = dA(313)/dV(291) - B(597) = RCT(313)*V(234) -! B(598) = dA(314)/dV(234) - B(598) = RCT(314)*V(278) -! B(599) = dA(314)/dV(278) - B(599) = RCT(314)*V(234) -! B(600) = dA(315)/dV(234) - B(600) = RCT(315)*V(278)*V(278) -! B(601) = dA(315)/dV(278) - B(601) = RCT(315)*2*V(234)*V(278) -! B(602) = dA(316)/dV(234) - B(602) = RCT(316)*V(282) -! B(603) = dA(316)/dV(282) - B(603) = RCT(316)*V(234) -! B(604) = dA(317)/dV(234) - B(604) = RCT(317)*V(276) -! B(605) = dA(317)/dV(276) - B(605) = RCT(317)*V(234) -! B(606) = dA(318)/dV(195) - B(606) = RCT(318)*V(267) -! B(607) = dA(318)/dV(267) - B(607) = RCT(318)*V(195) -! B(608) = dA(319)/dV(195) - B(608) = RCT(319)*V(279) -! B(609) = dA(319)/dV(279) - B(609) = RCT(319)*V(195) -! B(610) = dA(320)/dV(195) - B(610) = RCT(320)*V(291) -! B(611) = dA(320)/dV(291) - B(611) = RCT(320)*V(195) -! B(612) = dA(321)/dV(195) - B(612) = RCT(321)*V(276) -! B(613) = dA(321)/dV(276) - B(613) = RCT(321)*V(195) -! B(614) = dA(322)/dV(195) - B(614) = RCT(322)*V(278) -! B(615) = dA(322)/dV(278) - B(615) = RCT(322)*V(195) -! B(616) = dA(323)/dV(195) - B(616) = RCT(323)*V(278) -! B(617) = dA(323)/dV(278) - B(617) = RCT(323)*V(195) -! B(618) = dA(324)/dV(154) - B(618) = RCT(324)*V(286) -! B(619) = dA(324)/dV(286) - B(619) = RCT(324)*V(154) -! B(620) = dA(325)/dV(155) - B(620) = RCT(325)*V(286) -! B(621) = dA(325)/dV(286) - B(621) = RCT(325)*V(155) -! B(622) = dA(326)/dV(238) - B(622) = RCT(326)*V(279) -! B(623) = dA(326)/dV(279) - B(623) = RCT(326)*V(238) -! B(624) = dA(327)/dV(238) - B(624) = RCT(327)*V(284) -! B(625) = dA(327)/dV(284) - B(625) = RCT(327)*V(238) -! B(626) = dA(328)/dV(238) - B(626) = RCT(328)*V(266) -! B(627) = dA(328)/dV(266) - B(627) = RCT(328)*V(238) -! B(628) = dA(329)/dV(238) - B(628) = RCT(329)*V(261) -! B(629) = dA(329)/dV(261) - B(629) = RCT(329)*V(238) -! B(630) = dA(330)/dV(238) - B(630) = RCT(330)*V(281) -! B(631) = dA(330)/dV(281) - B(631) = RCT(330)*V(238) -! B(632) = dA(331)/dV(154) - B(632) = RCT(331)*V(282) -! B(633) = dA(331)/dV(282) - B(633) = RCT(331)*V(154) -! B(634) = dA(332)/dV(155) - B(634) = RCT(332)*V(282) -! B(635) = dA(332)/dV(282) - B(635) = RCT(332)*V(155) -! B(636) = dA(333)/dV(154) - B(636) = RCT(333)*V(281) -! B(637) = dA(333)/dV(281) - B(637) = RCT(333)*V(154) -! B(638) = dA(334)/dV(155) - B(638) = RCT(334)*V(281) -! B(639) = dA(334)/dV(281) - B(639) = RCT(334)*V(155) -! B(640) = dA(335)/dV(170) - B(640) = RCT(335)*V(286) -! B(641) = dA(335)/dV(286) - B(641) = RCT(335)*V(170) -! B(642) = dA(336)/dV(170) - B(642) = RCT(336)*V(282) -! B(643) = dA(336)/dV(282) - B(643) = RCT(336)*V(170) -! B(644) = dA(337)/dV(170) - B(644) = RCT(337)*V(281) -! B(645) = dA(337)/dV(281) - B(645) = RCT(337)*V(170) -! B(646) = dA(338)/dV(225) - B(646) = RCT(338)*V(279) -! B(647) = dA(338)/dV(279) - B(647) = RCT(338)*V(225) -! B(648) = dA(339)/dV(225) - B(648) = RCT(339)*V(284) -! B(649) = dA(339)/dV(284) - B(649) = RCT(339)*V(225) -! B(650) = dA(340)/dV(225) - B(650) = RCT(340)*V(266) -! B(651) = dA(340)/dV(266) - B(651) = RCT(340)*V(225) -! B(652) = dA(341)/dV(225) - B(652) = RCT(341)*V(261) -! B(653) = dA(341)/dV(261) - B(653) = RCT(341)*V(225) -! B(654) = dA(342)/dV(225) - B(654) = RCT(342)*V(281) -! B(655) = dA(342)/dV(281) - B(655) = RCT(342)*V(225) -! B(656) = dA(343)/dV(119) - B(656) = RCT(343)*V(286) -! B(657) = dA(343)/dV(286) - B(657) = RCT(343)*V(119) -! B(658) = dA(344)/dV(215) - B(658) = RCT(344)*V(279) -! B(659) = dA(344)/dV(279) - B(659) = RCT(344)*V(215) -! B(660) = dA(345)/dV(216) - B(660) = RCT(345)*V(279) -! B(661) = dA(345)/dV(279) - B(661) = RCT(345)*V(216) -! B(662) = dA(346)/dV(215) - B(662) = RCT(346)*V(284) -! B(663) = dA(346)/dV(284) - B(663) = RCT(346)*V(215) -! B(664) = dA(347)/dV(216) - B(664) = RCT(347)*V(284) -! B(665) = dA(347)/dV(284) - B(665) = RCT(347)*V(216) -! B(666) = dA(348)/dV(215) - B(666) = RCT(348)*V(266) -! B(667) = dA(348)/dV(266) - B(667) = RCT(348)*V(215) -! B(668) = dA(349)/dV(216) - B(668) = RCT(349)*V(266) -! B(669) = dA(349)/dV(266) - B(669) = RCT(349)*V(216) -! B(670) = dA(350)/dV(215) - B(670) = RCT(350)*V(261) -! B(671) = dA(350)/dV(261) - B(671) = RCT(350)*V(215) -! B(672) = dA(351)/dV(216) - B(672) = RCT(351)*V(261) -! B(673) = dA(351)/dV(261) - B(673) = RCT(351)*V(216) -! B(674) = dA(352)/dV(215) - B(674) = RCT(352)*V(281) -! B(675) = dA(352)/dV(281) - B(675) = RCT(352)*V(215) -! B(676) = dA(353)/dV(216) - B(676) = RCT(353)*V(281) -! B(677) = dA(353)/dV(281) - B(677) = RCT(353)*V(216) -! B(678) = dA(354)/dV(215) - B(678) = RCT(354)*2*V(215) -! B(679) = dA(355)/dV(215) - B(679) = RCT(355)*V(216) -! B(680) = dA(355)/dV(216) - B(680) = RCT(355)*V(215) -! B(681) = dA(356)/dV(216) - B(681) = RCT(356)*2*V(216) -! B(682) = dA(357)/dV(178) - B(682) = RCT(357)*V(286) -! B(683) = dA(357)/dV(286) - B(683) = RCT(357)*V(178) -! B(684) = dA(358)/dV(199) - B(684) = RCT(358)*V(286) -! B(685) = dA(358)/dV(286) - B(685) = RCT(358)*V(199) -! B(686) = dA(359)/dV(199) - B(686) = RCT(359)*V(282) -! B(687) = dA(359)/dV(282) - B(687) = RCT(359)*V(199) -! B(688) = dA(360)/dV(199) - B(688) = RCT(360)*V(281) -! B(689) = dA(360)/dV(281) - B(689) = RCT(360)*V(199) -! B(690) = dA(361)/dV(178) - B(690) = RCT(361)*V(281) -! B(691) = dA(361)/dV(281) - B(691) = RCT(361)*V(178) -! B(692) = dA(362)/dV(98) - B(692) = RCT(362) -! B(693) = dA(363)/dV(45) - B(693) = RCT(363) -! B(694) = dA(364)/dV(134) - B(694) = RCT(364)*V(286) -! B(695) = dA(364)/dV(286) - B(695) = RCT(364)*V(134) -! B(696) = dA(365)/dV(89) - B(696) = RCT(365)*V(286) -! B(697) = dA(365)/dV(286) - B(697) = RCT(365)*V(89) -! B(698) = dA(366)/dV(96) - B(698) = RCT(366)*V(286) -! B(699) = dA(366)/dV(286) - B(699) = RCT(366)*V(96) -! B(700) = dA(367)/dV(87) - B(700) = RCT(367)*V(286) -! B(701) = dA(367)/dV(286) - B(701) = RCT(367)*V(87) -! B(702) = dA(368)/dV(91) - B(702) = RCT(368)*V(286) -! B(703) = dA(368)/dV(286) - B(703) = RCT(368)*V(91) -! B(704) = dA(369)/dV(224) - B(704) = RCT(369)*V(282) -! B(705) = dA(369)/dV(282) - B(705) = RCT(369)*V(224) -! B(706) = dA(370)/dV(224) - B(706) = RCT(370)*V(286) -! B(707) = dA(370)/dV(286) - B(707) = RCT(370)*V(224) -! B(708) = dA(371)/dV(224) - B(708) = RCT(371)*V(286) -! B(709) = dA(371)/dV(286) - B(709) = RCT(371)*V(224) -! B(710) = dA(372)/dV(224) - B(710) = RCT(372)*V(286) -! B(711) = dA(372)/dV(286) - B(711) = RCT(372)*V(224) -! B(712) = dA(373)/dV(224) - B(712) = RCT(373)*V(286) -! B(713) = dA(373)/dV(286) - B(713) = RCT(373)*V(224) -! B(714) = dA(374)/dV(245) - B(714) = RCT(374)*V(284) -! B(715) = dA(374)/dV(284) - B(715) = RCT(374)*V(245) -! B(716) = dA(375)/dV(245) - B(716) = RCT(375)*V(284) -! B(717) = dA(375)/dV(284) - B(717) = RCT(375)*V(245) -! B(718) = dA(376)/dV(244) - B(718) = RCT(376)*V(284) -! B(719) = dA(376)/dV(284) - B(719) = RCT(376)*V(244) -! B(720) = dA(377)/dV(244) - B(720) = RCT(377)*V(284) -! B(721) = dA(377)/dV(284) - B(721) = RCT(377)*V(244) -! B(722) = dA(378)/dV(245) - B(722) = RCT(378) -! B(723) = dA(379)/dV(245) - B(723) = RCT(379) -! B(724) = dA(380)/dV(244) - B(724) = RCT(380) -! B(725) = dA(381)/dV(244) - B(725) = RCT(381) -! B(726) = dA(382)/dV(245) - B(726) = RCT(382)*2*V(245) -! B(727) = dA(383)/dV(244) - B(727) = RCT(383)*2*V(244) -! B(728) = dA(384)/dV(244) - B(728) = RCT(384)*V(245) -! B(729) = dA(384)/dV(245) - B(729) = RCT(384)*V(244) -! B(730) = dA(385)/dV(245) - B(730) = RCT(385)*2*V(245) -! B(731) = dA(386)/dV(244) - B(731) = RCT(386)*2*V(244) -! B(732) = dA(387)/dV(244) - B(732) = RCT(387)*V(245) -! B(733) = dA(387)/dV(245) - B(733) = RCT(387)*V(244) -! B(734) = dA(388)/dV(245) - B(734) = RCT(388)*V(266) -! B(735) = dA(388)/dV(266) - B(735) = RCT(388)*V(245) -! B(736) = dA(389)/dV(245) - B(736) = RCT(389)*V(266) -! B(737) = dA(389)/dV(266) - B(737) = RCT(389)*V(245) -! B(738) = dA(390)/dV(244) - B(738) = RCT(390)*V(266) -! B(739) = dA(390)/dV(266) - B(739) = RCT(390)*V(244) -! B(740) = dA(391)/dV(244) - B(740) = RCT(391)*V(266) -! B(741) = dA(391)/dV(266) - B(741) = RCT(391)*V(244) -! B(742) = dA(392)/dV(245) - B(742) = RCT(392)*V(279) -! B(743) = dA(392)/dV(279) - B(743) = RCT(392)*V(245) -! B(744) = dA(393)/dV(245) - B(744) = RCT(393)*V(279) -! B(745) = dA(393)/dV(279) - B(745) = RCT(393)*V(245) -! B(746) = dA(394)/dV(245) - B(746) = RCT(394)*V(279) -! B(747) = dA(394)/dV(279) - B(747) = RCT(394)*V(245) -! B(748) = dA(395)/dV(245) - B(748) = RCT(395)*V(279) -! B(749) = dA(395)/dV(279) - B(749) = RCT(395)*V(245) -! B(750) = dA(396)/dV(244) - B(750) = RCT(396)*V(279) -! B(751) = dA(396)/dV(279) - B(751) = RCT(396)*V(244) -! B(752) = dA(397)/dV(244) - B(752) = RCT(397)*V(279) -! B(753) = dA(397)/dV(279) - B(753) = RCT(397)*V(244) -! B(754) = dA(398)/dV(244) - B(754) = RCT(398)*V(279) -! B(755) = dA(398)/dV(279) - B(755) = RCT(398)*V(244) -! B(756) = dA(399)/dV(244) - B(756) = RCT(399)*V(279) -! B(757) = dA(399)/dV(279) - B(757) = RCT(399)*V(244) -! B(758) = dA(400)/dV(186) - B(758) = RCT(400)*V(286) -! B(759) = dA(400)/dV(286) - B(759) = RCT(400)*V(186) -! B(760) = dA(401)/dV(188) - B(760) = RCT(401)*V(286) -! B(761) = dA(401)/dV(286) - B(761) = RCT(401)*V(188) -! B(762) = dA(402)/dV(129) - B(762) = RCT(402)*V(286) -! B(763) = dA(402)/dV(286) - B(763) = RCT(402)*V(129) -! B(764) = dA(403)/dV(127) - B(764) = RCT(403)*V(286) -! B(765) = dA(403)/dV(286) - B(765) = RCT(403)*V(127) -! B(766) = dA(404)/dV(192) - B(766) = RCT(404)*V(286) -! B(767) = dA(404)/dV(286) - B(767) = RCT(404)*V(192) -! B(768) = dA(405)/dV(174) - B(768) = RCT(405)*V(286) -! B(769) = dA(405)/dV(286) - B(769) = RCT(405)*V(174) -! B(770) = dA(406)/dV(109) - B(770) = RCT(406)*V(286) -! B(771) = dA(406)/dV(286) - B(771) = RCT(406)*V(109) -! B(772) = dA(407)/dV(157) - B(772) = RCT(407)*V(286) -! B(773) = dA(407)/dV(286) - B(773) = RCT(407)*V(157) -! B(774) = dA(408)/dV(157) - B(774) = RCT(408)*V(286) -! B(775) = dA(408)/dV(286) - B(775) = RCT(408)*V(157) -! B(776) = dA(409)/dV(162) - B(776) = RCT(409)*V(286) -! B(777) = dA(409)/dV(286) - B(777) = RCT(409)*V(162) -! B(778) = dA(410)/dV(162) - B(778) = RCT(410)*V(286) -! B(779) = dA(410)/dV(286) - B(779) = RCT(410)*V(162) -! B(780) = dA(411)/dV(157) - B(780) = RCT(411)*V(286) -! B(781) = dA(411)/dV(286) - B(781) = RCT(411)*V(157) -! B(782) = dA(412)/dV(162) - B(782) = RCT(412)*V(286) -! B(783) = dA(412)/dV(286) - B(783) = RCT(412)*V(162) -! B(784) = dA(413)/dV(171) - B(784) = RCT(413)*V(286) -! B(785) = dA(413)/dV(286) - B(785) = RCT(413)*V(171) -! B(786) = dA(414)/dV(165) - B(786) = RCT(414)*V(286) -! B(787) = dA(414)/dV(286) - B(787) = RCT(414)*V(165) -! B(788) = dA(415)/dV(182) - B(788) = RCT(415) -! B(789) = dA(416)/dV(182) - B(789) = RCT(416)*V(279) -! B(790) = dA(416)/dV(279) - B(790) = RCT(416)*V(182) -! B(791) = dA(417)/dV(182) - B(791) = RCT(417)*V(279) -! B(792) = dA(417)/dV(279) - B(792) = RCT(417)*V(182) -! B(793) = dA(418)/dV(182) - B(793) = RCT(418)*V(284) -! B(794) = dA(418)/dV(284) - B(794) = RCT(418)*V(182) -! B(795) = dA(419)/dV(183) - B(795) = RCT(419) -! B(796) = dA(420)/dV(183) - B(796) = RCT(420)*V(279) -! B(797) = dA(420)/dV(279) - B(797) = RCT(420)*V(183) -! B(798) = dA(421)/dV(183) - B(798) = RCT(421)*V(279) -! B(799) = dA(421)/dV(279) - B(799) = RCT(421)*V(183) -! B(800) = dA(422)/dV(183) - B(800) = RCT(422)*V(284) -! B(801) = dA(422)/dV(284) - B(801) = RCT(422)*V(183) -! B(802) = dA(423)/dV(187) - B(802) = RCT(423) -! B(803) = dA(424)/dV(187) - B(803) = RCT(424)*V(279) -! B(804) = dA(424)/dV(279) - B(804) = RCT(424)*V(187) -! B(805) = dA(425)/dV(187) - B(805) = RCT(425)*V(279) -! B(806) = dA(425)/dV(279) - B(806) = RCT(425)*V(187) -! B(807) = dA(426)/dV(187) - B(807) = RCT(426)*V(284) -! B(808) = dA(426)/dV(284) - B(808) = RCT(426)*V(187) -! B(809) = dA(427)/dV(116) - B(809) = RCT(427)*V(286) -! B(810) = dA(427)/dV(286) - B(810) = RCT(427)*V(116) -! B(811) = dA(428)/dV(130) - B(811) = RCT(428)*V(286) -! B(812) = dA(428)/dV(286) - B(812) = RCT(428)*V(130) -! B(813) = dA(429)/dV(130) - B(813) = RCT(429)*V(286) -! B(814) = dA(429)/dV(286) - B(814) = RCT(429)*V(130) -! B(815) = dA(430)/dV(131) - B(815) = RCT(430)*V(286) -! B(816) = dA(430)/dV(286) - B(816) = RCT(430)*V(131) -! B(817) = dA(431)/dV(131) - B(817) = RCT(431)*V(286) -! B(818) = dA(431)/dV(286) - B(818) = RCT(431)*V(131) -! B(819) = dA(432)/dV(228) - B(819) = RCT(432) -! B(820) = dA(433)/dV(228) - B(820) = RCT(433) -! B(821) = dA(434)/dV(228) - B(821) = RCT(434)*V(284) -! B(822) = dA(434)/dV(284) - B(822) = RCT(434)*V(228) -! B(823) = dA(435)/dV(228) - B(823) = RCT(435)*V(279) -! B(824) = dA(435)/dV(279) - B(824) = RCT(435)*V(228) -! B(825) = dA(436)/dV(228) - B(825) = RCT(436)*V(279) -! B(826) = dA(436)/dV(279) - B(826) = RCT(436)*V(228) -! B(827) = dA(437)/dV(229) - B(827) = RCT(437) -! B(828) = dA(438)/dV(229) - B(828) = RCT(438) -! B(829) = dA(439)/dV(229) - B(829) = RCT(439)*V(279) -! B(830) = dA(439)/dV(279) - B(830) = RCT(439)*V(229) -! B(831) = dA(440)/dV(229) - B(831) = RCT(440)*V(279) -! B(832) = dA(440)/dV(279) - B(832) = RCT(440)*V(229) -! B(833) = dA(441)/dV(229) - B(833) = RCT(441)*V(284) -! B(834) = dA(441)/dV(284) - B(834) = RCT(441)*V(229) -! B(835) = dA(442)/dV(194) - B(835) = RCT(442)*V(284) -! B(836) = dA(442)/dV(284) - B(836) = RCT(442)*V(194) -! B(837) = dA(443)/dV(194) - B(837) = RCT(443)*V(279) -! B(838) = dA(443)/dV(279) - B(838) = RCT(443)*V(194) -! B(839) = dA(444)/dV(194) - B(839) = RCT(444)*V(279) -! B(840) = dA(444)/dV(279) - B(840) = RCT(444)*V(194) -! B(841) = dA(445)/dV(194) - B(841) = RCT(445) -! B(842) = dA(446)/dV(121) - B(842) = RCT(446)*V(279) -! B(843) = dA(446)/dV(279) - B(843) = RCT(446)*V(121) -! B(844) = dA(447)/dV(121) - B(844) = RCT(447)*V(284) -! B(845) = dA(447)/dV(284) - B(845) = RCT(447)*V(121) -! B(846) = dA(448)/dV(123) - B(846) = RCT(448)*V(279) -! B(847) = dA(448)/dV(279) - B(847) = RCT(448)*V(123) -! B(848) = dA(449)/dV(123) - B(848) = RCT(449)*V(284) -! B(849) = dA(449)/dV(284) - B(849) = RCT(449)*V(123) -! B(850) = dA(450)/dV(139) - B(850) = RCT(450)*V(286) -! B(851) = dA(450)/dV(286) - B(851) = RCT(450)*V(139) -! B(852) = dA(451)/dV(139) - B(852) = RCT(451)*V(286) -! B(853) = dA(451)/dV(286) - B(853) = RCT(451)*V(139) -! B(854) = dA(452)/dV(140) - B(854) = RCT(452)*V(286) -! B(855) = dA(452)/dV(286) - B(855) = RCT(452)*V(140) -! B(856) = dA(453)/dV(140) - B(856) = RCT(453)*V(286) -! B(857) = dA(453)/dV(286) - B(857) = RCT(453)*V(140) -! B(858) = dA(454)/dV(220) - B(858) = RCT(454)*V(286) -! B(859) = dA(454)/dV(286) - B(859) = RCT(454)*V(220) -! B(860) = dA(455)/dV(220) - B(860) = RCT(455)*V(286) -! B(861) = dA(455)/dV(286) - B(861) = RCT(455)*V(220) -! B(862) = dA(456)/dV(214) - B(862) = RCT(456)*V(286) -! B(863) = dA(456)/dV(286) - B(863) = RCT(456)*V(214) -! B(864) = dA(457)/dV(214) - B(864) = RCT(457)*V(286) -! B(865) = dA(457)/dV(286) - B(865) = RCT(457)*V(214) -! B(866) = dA(458)/dV(220) - B(866) = RCT(458)*V(286) -! B(867) = dA(458)/dV(286) - B(867) = RCT(458)*V(220) -! B(868) = dA(459)/dV(214) - B(868) = RCT(459)*V(286) -! B(869) = dA(459)/dV(286) - B(869) = RCT(459)*V(214) -! B(870) = dA(460)/dV(167) - B(870) = RCT(460) -! B(871) = dA(461)/dV(167) - B(871) = RCT(461)*V(284) -! B(872) = dA(461)/dV(284) - B(872) = RCT(461)*V(167) -! B(873) = dA(462)/dV(167) - B(873) = RCT(462)*V(279) -! B(874) = dA(462)/dV(279) - B(874) = RCT(462)*V(167) -! B(875) = dA(463)/dV(167) - B(875) = RCT(463)*V(279) -! B(876) = dA(463)/dV(279) - B(876) = RCT(463)*V(167) -! B(877) = dA(464)/dV(152) - B(877) = RCT(464) -! B(878) = dA(465)/dV(152) - B(878) = RCT(465)*V(284) -! B(879) = dA(465)/dV(284) - B(879) = RCT(465)*V(152) -! B(880) = dA(466)/dV(152) - B(880) = RCT(466)*V(279) -! B(881) = dA(466)/dV(279) - B(881) = RCT(466)*V(152) -! B(882) = dA(467)/dV(152) - B(882) = RCT(467)*V(279) -! B(883) = dA(467)/dV(279) - B(883) = RCT(467)*V(152) -! B(884) = dA(468)/dV(166) - B(884) = RCT(468) -! B(885) = dA(469)/dV(168) - B(885) = RCT(469) -! B(886) = dA(470)/dV(166) - B(886) = RCT(470)*V(284) -! B(887) = dA(470)/dV(284) - B(887) = RCT(470)*V(166) -! B(888) = dA(471)/dV(166) - B(888) = RCT(471)*V(279) -! B(889) = dA(471)/dV(279) - B(889) = RCT(471)*V(166) -! B(890) = dA(472)/dV(166) - B(890) = RCT(472)*V(279) -! B(891) = dA(472)/dV(279) - B(891) = RCT(472)*V(166) -! B(892) = dA(473)/dV(168) - B(892) = RCT(473)*V(284) -! B(893) = dA(473)/dV(284) - B(893) = RCT(473)*V(168) -! B(894) = dA(474)/dV(168) - B(894) = RCT(474)*V(279) -! B(895) = dA(474)/dV(279) - B(895) = RCT(474)*V(168) -! B(896) = dA(475)/dV(168) - B(896) = RCT(475)*V(279) -! B(897) = dA(475)/dV(279) - B(897) = RCT(475)*V(168) -! B(898) = dA(476)/dV(232) - B(898) = RCT(476)*V(284) -! B(899) = dA(476)/dV(284) - B(899) = RCT(476)*V(232) -! B(900) = dA(477)/dV(232) - B(900) = RCT(477)*V(279) -! B(901) = dA(477)/dV(279) - B(901) = RCT(477)*V(232) -! B(902) = dA(478)/dV(232) - B(902) = RCT(478)*V(279) -! B(903) = dA(478)/dV(279) - B(903) = RCT(478)*V(232) -! B(904) = dA(479)/dV(224) - B(904) = RCT(479)*V(281) -! B(905) = dA(479)/dV(281) - B(905) = RCT(479)*V(224) -! B(906) = dA(480)/dV(247) - B(906) = RCT(480)*V(284) -! B(907) = dA(480)/dV(284) - B(907) = RCT(480)*V(247) -! B(908) = dA(481)/dV(246) - B(908) = RCT(481)*V(284) -! B(909) = dA(481)/dV(284) - B(909) = RCT(481)*V(246) -! B(910) = dA(482)/dV(247) - B(910) = RCT(482)*2*V(247) -! B(911) = dA(483)/dV(246) - B(911) = RCT(483)*V(247) -! B(912) = dA(483)/dV(247) - B(912) = RCT(483)*V(246) -! B(913) = dA(484)/dV(246) - B(913) = RCT(484)*2*V(246) -! B(914) = dA(485)/dV(246) - B(914) = RCT(485)*V(266) -! B(915) = dA(485)/dV(266) - B(915) = RCT(485)*V(246) -! B(916) = dA(486)/dV(247) - B(916) = RCT(486)*V(266) -! B(917) = dA(486)/dV(266) - B(917) = RCT(486)*V(247) -! B(918) = dA(487)/dV(247) - B(918) = RCT(487)*V(261) -! B(919) = dA(487)/dV(261) - B(919) = RCT(487)*V(247) -! B(920) = dA(488)/dV(246) - B(920) = RCT(488)*V(261) -! B(921) = dA(488)/dV(261) - B(921) = RCT(488)*V(246) -! B(922) = dA(489)/dV(247) - B(922) = RCT(489)*V(281) -! B(923) = dA(489)/dV(281) - B(923) = RCT(489)*V(247) -! B(924) = dA(490)/dV(246) - B(924) = RCT(490)*V(281) -! B(925) = dA(490)/dV(281) - B(925) = RCT(490)*V(246) -! B(926) = dA(491)/dV(247) - B(926) = RCT(491)*V(279) -! B(927) = dA(491)/dV(279) - B(927) = RCT(491)*V(247) -! B(928) = dA(492)/dV(247) - B(928) = RCT(492)*V(279) -! B(929) = dA(492)/dV(279) - B(929) = RCT(492)*V(247) -! B(930) = dA(493)/dV(246) - B(930) = RCT(493)*V(279) -! B(931) = dA(493)/dV(279) - B(931) = RCT(493)*V(246) -! B(932) = dA(494)/dV(246) - B(932) = RCT(494)*V(279) -! B(933) = dA(494)/dV(279) - B(933) = RCT(494)*V(246) -! B(934) = dA(495)/dV(126) - B(934) = RCT(495)*F(3) -! B(936) = dA(496)/dV(126) - B(936) = RCT(496) -! B(937) = dA(497)/dV(181) - B(937) = RCT(497)*V(286) -! B(938) = dA(497)/dV(286) - B(938) = RCT(497)*V(181) -! B(939) = dA(498)/dV(151) - B(939) = RCT(498)*V(286) -! B(940) = dA(498)/dV(286) - B(940) = RCT(498)*V(151) -! B(941) = dA(499)/dV(181) - B(941) = RCT(499)*V(286) -! B(942) = dA(499)/dV(286) - B(942) = RCT(499)*V(181) -! B(943) = dA(500)/dV(151) - B(943) = RCT(500)*V(286) -! B(944) = dA(500)/dV(286) - B(944) = RCT(500)*V(151) -! B(945) = dA(501)/dV(151) - B(945) = RCT(501)*V(286) -! B(946) = dA(501)/dV(286) - B(946) = RCT(501)*V(151) -! B(947) = dA(502)/dV(181) - B(947) = RCT(502)*V(286) -! B(948) = dA(502)/dV(286) - B(948) = RCT(502)*V(181) -! B(949) = dA(503)/dV(151) - B(949) = RCT(503)*V(286) -! B(950) = dA(503)/dV(286) - B(950) = RCT(503)*V(151) -! B(951) = dA(504)/dV(151) - B(951) = RCT(504)*V(286) -! B(952) = dA(504)/dV(286) - B(952) = RCT(504)*V(151) -! B(953) = dA(505)/dV(189) - B(953) = RCT(505) -! B(954) = dA(506)/dV(222) - B(954) = RCT(506) -! B(955) = dA(507)/dV(222) - B(955) = RCT(507)*V(284) -! B(956) = dA(507)/dV(284) - B(956) = RCT(507)*V(222) -! B(957) = dA(508)/dV(189) - B(957) = RCT(508)*V(284) -! B(958) = dA(508)/dV(284) - B(958) = RCT(508)*V(189) -! B(959) = dA(509)/dV(222) - B(959) = RCT(509)*V(279) -! B(960) = dA(509)/dV(279) - B(960) = RCT(509)*V(222) -! B(961) = dA(510)/dV(222) - B(961) = RCT(510)*V(279) -! B(962) = dA(510)/dV(279) - B(962) = RCT(510)*V(222) -! B(963) = dA(511)/dV(189) - B(963) = RCT(511)*V(279) -! B(964) = dA(511)/dV(279) - B(964) = RCT(511)*V(189) -! B(965) = dA(512)/dV(189) - B(965) = RCT(512)*V(279) -! B(966) = dA(512)/dV(279) - B(966) = RCT(512)*V(189) -! B(967) = dA(513)/dV(240) - B(967) = RCT(513)*V(286) -! B(968) = dA(513)/dV(286) - B(968) = RCT(513)*V(240) -! B(969) = dA(514)/dV(240) - B(969) = RCT(514)*V(286) -! B(970) = dA(514)/dV(286) - B(970) = RCT(514)*V(240) -! B(971) = dA(515)/dV(150) - B(971) = RCT(515)*V(279) -! B(972) = dA(515)/dV(279) - B(972) = RCT(515)*V(150) -! B(973) = dA(516)/dV(150) - B(973) = RCT(516)*V(284) -! B(974) = dA(516)/dV(284) - B(974) = RCT(516)*V(150) -! B(975) = dA(517)/dV(243) - B(975) = RCT(517)*V(286) -! B(976) = dA(517)/dV(286) - B(976) = RCT(517)*V(243) -! B(977) = dA(518)/dV(146) - B(977) = RCT(518)*V(279) -! B(978) = dA(518)/dV(279) - B(978) = RCT(518)*V(146) -! B(979) = dA(519)/dV(146) - B(979) = RCT(519)*V(284) -! B(980) = dA(519)/dV(284) - B(980) = RCT(519)*V(146) -! B(981) = dA(520)/dV(248) - B(981) = RCT(520)*V(286) -! B(982) = dA(520)/dV(286) - B(982) = RCT(520)*V(248) -! B(983) = dA(521)/dV(248) - B(983) = RCT(521)*V(282) -! B(984) = dA(521)/dV(282) - B(984) = RCT(521)*V(248) -! B(985) = dA(522)/dV(251) - B(985) = RCT(522)*V(286) -! B(986) = dA(522)/dV(286) - B(986) = RCT(522)*V(251) -! B(987) = dA(523)/dV(251) - B(987) = RCT(523)*V(286) -! B(988) = dA(523)/dV(286) - B(988) = RCT(523)*V(251) -! B(989) = dA(524)/dV(251) - B(989) = RCT(524)*V(282) -! B(990) = dA(524)/dV(282) - B(990) = RCT(524)*V(251) -! B(991) = dA(525)/dV(251) - B(991) = RCT(525)*V(281) -! B(992) = dA(525)/dV(281) - B(992) = RCT(525)*V(251) -! B(993) = dA(526)/dV(241) - B(993) = RCT(526)*V(286) -! B(994) = dA(526)/dV(286) - B(994) = RCT(526)*V(241) -! B(995) = dA(527)/dV(230) - B(995) = RCT(527)*V(286) -! B(996) = dA(527)/dV(286) - B(996) = RCT(527)*V(230) -! B(997) = dA(528)/dV(231) - B(997) = RCT(528)*V(286) -! B(998) = dA(528)/dV(286) - B(998) = RCT(528)*V(231) -! B(999) = dA(529)/dV(200) - B(999) = RCT(529)*V(286) -! B(1000) = dA(529)/dV(286) - B(1000) = RCT(529)*V(200) -! B(1001) = dA(530)/dV(175) - B(1001) = RCT(530)*V(286) -! B(1002) = dA(530)/dV(286) - B(1002) = RCT(530)*V(175) -! B(1003) = dA(531)/dV(144) - B(1003) = RCT(531)*V(279) -! B(1004) = dA(531)/dV(279) - B(1004) = RCT(531)*V(144) -! B(1005) = dA(532)/dV(144) - B(1005) = RCT(532)*V(284) -! B(1006) = dA(532)/dV(284) - B(1006) = RCT(532)*V(144) -! B(1007) = dA(533)/dV(144) - B(1007) = RCT(533)*V(291) -! B(1008) = dA(533)/dV(291) - B(1008) = RCT(533)*V(144) -! B(1009) = dA(534)/dV(145) - B(1009) = RCT(534)*V(279) -! B(1010) = dA(534)/dV(279) - B(1010) = RCT(534)*V(145) -! B(1011) = dA(535)/dV(145) - B(1011) = RCT(535)*V(284) -! B(1012) = dA(535)/dV(284) - B(1012) = RCT(535)*V(145) -! B(1013) = dA(536)/dV(145) - B(1013) = RCT(536)*V(291) -! B(1014) = dA(536)/dV(291) - B(1014) = RCT(536)*V(145) -! B(1015) = dA(537)/dV(163) - B(1015) = RCT(537)*V(286) -! B(1016) = dA(537)/dV(286) - B(1016) = RCT(537)*V(163) -! B(1017) = dA(538)/dV(156) - B(1017) = RCT(538)*V(286) -! B(1018) = dA(538)/dV(286) - B(1018) = RCT(538)*V(156) -! B(1019) = dA(539)/dV(117) - B(1019) = RCT(539)*V(286) -! B(1020) = dA(539)/dV(286) - B(1020) = RCT(539)*V(117) -! B(1021) = dA(540)/dV(185) - B(1021) = RCT(540)*V(286) -! B(1022) = dA(540)/dV(286) - B(1022) = RCT(540)*V(185) -! B(1023) = dA(541)/dV(169) - B(1023) = RCT(541)*V(286) -! B(1024) = dA(541)/dV(286) - B(1024) = RCT(541)*V(169) -! B(1025) = dA(542)/dV(132) - B(1025) = RCT(542)*V(286) -! B(1026) = dA(542)/dV(286) - B(1026) = RCT(542)*V(132) -! B(1027) = dA(543)/dV(204) - B(1027) = RCT(543)*V(284) -! B(1028) = dA(543)/dV(284) - B(1028) = RCT(543)*V(204) -! B(1029) = dA(544)/dV(204) - B(1029) = RCT(544)*V(279) -! B(1030) = dA(544)/dV(279) - B(1030) = RCT(544)*V(204) -! B(1031) = dA(545)/dV(204) - B(1031) = RCT(545)*V(279) -! B(1032) = dA(545)/dV(279) - B(1032) = RCT(545)*V(204) -! B(1033) = dA(546)/dV(205) - B(1033) = RCT(546)*V(284) -! B(1034) = dA(546)/dV(284) - B(1034) = RCT(546)*V(205) -! B(1035) = dA(547)/dV(207) - B(1035) = RCT(547)*V(284) -! B(1036) = dA(547)/dV(284) - B(1036) = RCT(547)*V(207) -! B(1037) = dA(548)/dV(136) - B(1037) = RCT(548)*V(286) -! B(1038) = dA(548)/dV(286) - B(1038) = RCT(548)*V(136) -! B(1039) = dA(549)/dV(205) - B(1039) = RCT(549) -! B(1040) = dA(550)/dV(205) - B(1040) = RCT(550)*V(279) -! B(1041) = dA(550)/dV(279) - B(1041) = RCT(550)*V(205) -! B(1042) = dA(551)/dV(205) - B(1042) = RCT(551)*V(279) -! B(1043) = dA(551)/dV(279) - B(1043) = RCT(551)*V(205) -! B(1044) = dA(552)/dV(207) - B(1044) = RCT(552)*V(279) -! B(1045) = dA(552)/dV(279) - B(1045) = RCT(552)*V(207) -! B(1046) = dA(553)/dV(207) - B(1046) = RCT(553)*V(291) -! B(1047) = dA(553)/dV(291) - B(1047) = RCT(553)*V(207) -! B(1048) = dA(554)/dV(249) - B(1048) = RCT(554)*V(284) -! B(1049) = dA(554)/dV(284) - B(1049) = RCT(554)*V(249) -! B(1050) = dA(555)/dV(249) - B(1050) = RCT(555)*V(279) -! B(1051) = dA(555)/dV(279) - B(1051) = RCT(555)*V(249) -! B(1052) = dA(556)/dV(249) - B(1052) = RCT(556)*V(291) -! B(1053) = dA(556)/dV(291) - B(1053) = RCT(556)*V(249) -! B(1054) = dA(557)/dV(249) - B(1054) = RCT(557)*V(281) -! B(1055) = dA(557)/dV(281) - B(1055) = RCT(557)*V(249) -! B(1056) = dA(558)/dV(249) - B(1056) = RCT(558)*V(266) -! B(1057) = dA(558)/dV(266) - B(1057) = RCT(558)*V(249) -! B(1058) = dA(559)/dV(153) - B(1058) = RCT(559) -! B(1059) = dA(560)/dV(153) - B(1059) = RCT(560)*V(286) -! B(1060) = dA(560)/dV(286) - B(1060) = RCT(560)*V(153) -! B(1061) = dA(561)/dV(105) - B(1061) = RCT(561)*V(286) -! B(1062) = dA(561)/dV(286) - B(1062) = RCT(561)*V(105) -! B(1063) = dA(562)/dV(206) - B(1063) = RCT(562)*V(286) -! B(1064) = dA(562)/dV(286) - B(1064) = RCT(562)*V(206) -! B(1065) = dA(563)/dV(125) - B(1065) = RCT(563)*V(286) -! B(1066) = dA(563)/dV(286) - B(1066) = RCT(563)*V(125) -! B(1067) = dA(564)/dV(141) - B(1067) = RCT(564)*V(286) -! B(1068) = dA(564)/dV(286) - B(1068) = RCT(564)*V(141) -! B(1069) = dA(565)/dV(164) - B(1069) = RCT(565)*V(286) -! B(1070) = dA(565)/dV(286) - B(1070) = RCT(565)*V(164) -! B(1071) = dA(566)/dV(213) - B(1071) = RCT(566)*V(286) -! B(1072) = dA(566)/dV(286) - B(1072) = RCT(566)*V(213) -! B(1073) = dA(567)/dV(242) - B(1073) = RCT(567)*V(286) -! B(1074) = dA(567)/dV(286) - B(1074) = RCT(567)*V(242) -! B(1075) = dA(568)/dV(208) - B(1075) = RCT(568)*V(281) -! B(1076) = dA(568)/dV(281) - B(1076) = RCT(568)*V(208) -! B(1077) = dA(569)/dV(104) - B(1077) = RCT(569)*V(286) -! B(1078) = dA(569)/dV(286) - B(1078) = RCT(569)*V(104) -! B(1079) = dA(570)/dV(85) - B(1079) = RCT(570)*V(286) -! B(1080) = dA(570)/dV(286) - B(1080) = RCT(570)*V(85) -! B(1081) = dA(571)/dV(261) - B(1081) = RCT(571)*V(284) -! B(1082) = dA(571)/dV(284) - B(1082) = RCT(571)*V(261) -! B(1083) = dA(572)/dV(172) - B(1083) = RCT(572)*V(286) -! B(1084) = dA(572)/dV(286) - B(1084) = RCT(572)*V(172) -! B(1085) = dA(573)/dV(172) - B(1085) = RCT(573)*V(286) -! B(1086) = dA(573)/dV(286) - B(1086) = RCT(573)*V(172) -! B(1087) = dA(574)/dV(19) - B(1087) = RCT(574)*V(286) -! B(1088) = dA(574)/dV(286) - B(1088) = RCT(574)*V(19) -! B(1089) = dA(575)/dV(18) - B(1089) = RCT(575)*V(284) -! B(1090) = dA(575)/dV(284) - B(1090) = RCT(575)*V(18) -! B(1091) = dA(576)/dV(18) - B(1091) = RCT(576)*V(279) -! B(1092) = dA(576)/dV(279) - B(1092) = RCT(576)*V(18) -! B(1093) = dA(577)/dV(76) - B(1093) = RCT(577)*V(282) -! B(1094) = dA(577)/dV(282) - B(1094) = RCT(577)*V(76) -! B(1095) = dA(578)/dV(76) - B(1095) = RCT(578)*V(286) -! B(1096) = dA(578)/dV(286) - B(1096) = RCT(578)*V(76) -! B(1097) = dA(579)/dV(58) - B(1097) = RCT(579)*V(286) -! B(1098) = dA(579)/dV(286) - B(1098) = RCT(579)*V(58) -! B(1099) = dA(580)/dV(179) - B(1099) = RCT(580)*V(284) -! B(1100) = dA(580)/dV(284) - B(1100) = RCT(580)*V(179) -! B(1101) = dA(581)/dV(179) - B(1101) = RCT(581)*V(279) -! B(1102) = dA(581)/dV(279) - B(1102) = RCT(581)*V(179) -! B(1103) = dA(582)/dV(179) - B(1103) = RCT(582)*V(281) -! B(1104) = dA(582)/dV(281) - B(1104) = RCT(582)*V(179) -! B(1105) = dA(583)/dV(179) - B(1105) = RCT(583)*V(266) -! B(1106) = dA(583)/dV(266) - B(1106) = RCT(583)*V(179) -! B(1107) = dA(584)/dV(108) - B(1107) = RCT(584) -! B(1108) = dA(585)/dV(108) - B(1108) = RCT(585)*F(3) -! B(1110) = dA(586)/dV(68) - B(1110) = RCT(586)*V(286) -! B(1111) = dA(586)/dV(286) - B(1111) = RCT(586)*V(68) -! B(1112) = dA(587)/dV(120) - B(1112) = RCT(587)*V(286) -! B(1113) = dA(587)/dV(286) - B(1113) = RCT(587)*V(120) -! B(1114) = dA(588)/dV(120) - B(1114) = RCT(588)*V(286) -! B(1115) = dA(588)/dV(286) - B(1115) = RCT(588)*V(120) -! B(1116) = dA(589)/dV(64) - B(1116) = RCT(589)*V(286) -! B(1117) = dA(589)/dV(286) - B(1117) = RCT(589)*V(64) -! B(1118) = dA(590)/dV(79) - B(1118) = RCT(590)*V(286) -! B(1119) = dA(590)/dV(286) - B(1119) = RCT(590)*V(79) -! B(1120) = dA(591)/dV(80) - B(1120) = RCT(591)*V(286) -! B(1121) = dA(591)/dV(286) - B(1121) = RCT(591)*V(80) -! B(1122) = dA(592)/dV(184) - B(1122) = RCT(592)*V(284) -! B(1123) = dA(592)/dV(284) - B(1123) = RCT(592)*V(184) -! B(1124) = dA(593)/dV(184) - B(1124) = RCT(593)*V(279) -! B(1125) = dA(593)/dV(279) - B(1125) = RCT(593)*V(184) -! B(1126) = dA(594)/dV(184) - B(1126) = RCT(594)*V(281) -! B(1127) = dA(594)/dV(281) - B(1127) = RCT(594)*V(184) -! B(1128) = dA(595)/dV(184) - B(1128) = RCT(595)*V(266) -! B(1129) = dA(595)/dV(266) - B(1129) = RCT(595)*V(184) -! B(1130) = dA(596)/dV(184) - B(1130) = RCT(596)*V(261) -! B(1131) = dA(596)/dV(261) - B(1131) = RCT(596)*V(184) -! B(1132) = dA(597)/dV(118) - B(1132) = RCT(597)*V(286) -! B(1133) = dA(597)/dV(286) - B(1133) = RCT(597)*V(118) -! B(1134) = dA(598)/dV(118) - B(1134) = RCT(598)*V(281) -! B(1135) = dA(598)/dV(281) - B(1135) = RCT(598)*V(118) -! B(1136) = dA(599)/dV(115) - B(1136) = RCT(599)*V(286) -! B(1137) = dA(599)/dV(286) - B(1137) = RCT(599)*V(115) -! B(1138) = dA(600)/dV(115) - B(1138) = RCT(600)*V(281) -! B(1139) = dA(600)/dV(281) - B(1139) = RCT(600)*V(115) -! B(1140) = dA(601)/dV(142) - B(1140) = RCT(601)*V(286) -! B(1141) = dA(601)/dV(286) - B(1141) = RCT(601)*V(142) -! B(1142) = dA(602)/dV(142) - B(1142) = RCT(602)*V(282) -! B(1143) = dA(602)/dV(282) - B(1143) = RCT(602)*V(142) -! B(1144) = dA(603)/dV(142) - B(1144) = RCT(603)*V(281) -! B(1145) = dA(603)/dV(281) - B(1145) = RCT(603)*V(142) -! B(1146) = dA(604)/dV(101) - B(1146) = RCT(604)*V(286) -! B(1147) = dA(604)/dV(286) - B(1147) = RCT(604)*V(101) -! B(1148) = dA(605)/dV(101) - B(1148) = RCT(605)*V(281) -! B(1149) = dA(605)/dV(281) - B(1149) = RCT(605)*V(101) -! B(1150) = dA(606)/dV(180) - B(1150) = RCT(606)*V(284) -! B(1151) = dA(606)/dV(284) - B(1151) = RCT(606)*V(180) -! B(1152) = dA(607)/dV(180) - B(1152) = RCT(607)*V(279) -! B(1153) = dA(607)/dV(279) - B(1153) = RCT(607)*V(180) -! B(1154) = dA(608)/dV(180) - B(1154) = RCT(608)*V(291) -! B(1155) = dA(608)/dV(291) - B(1155) = RCT(608)*V(180) -! B(1156) = dA(609)/dV(70) - B(1156) = RCT(609)*V(286) -! B(1157) = dA(609)/dV(286) - B(1157) = RCT(609)*V(70) -! B(1158) = dA(610)/dV(97) - B(1158) = RCT(610) -! B(1159) = dA(611)/dV(97) - B(1159) = RCT(611)*V(286) -! B(1160) = dA(611)/dV(286) - B(1160) = RCT(611)*V(97) -! B(1161) = dA(612)/dV(191) - B(1161) = RCT(612)*V(291) -! B(1162) = dA(612)/dV(291) - B(1162) = RCT(612)*V(191) -! B(1163) = dA(613)/dV(191) - B(1163) = RCT(613)*V(279) -! B(1164) = dA(613)/dV(279) - B(1164) = RCT(613)*V(191) -! B(1165) = dA(614)/dV(191) - B(1165) = RCT(614)*V(281) -! B(1166) = dA(614)/dV(281) - B(1166) = RCT(614)*V(191) -! B(1167) = dA(615)/dV(191) - B(1167) = RCT(615)*V(284) -! B(1168) = dA(615)/dV(284) - B(1168) = RCT(615)*V(191) -! B(1169) = dA(616)/dV(107) - B(1169) = RCT(616)*V(286) -! B(1170) = dA(616)/dV(286) - B(1170) = RCT(616)*V(107) -! B(1171) = dA(617)/dV(160) - B(1171) = RCT(617)*V(282) -! B(1172) = dA(617)/dV(282) - B(1172) = RCT(617)*V(160) -! B(1173) = dA(618)/dV(160) - B(1173) = RCT(618)*V(291) -! B(1174) = dA(618)/dV(291) - B(1174) = RCT(618)*V(160) -! B(1175) = dA(619)/dV(210) - B(1175) = RCT(619)*V(286) -! B(1176) = dA(619)/dV(286) - B(1176) = RCT(619)*V(210) -! B(1177) = dA(620)/dV(210) - B(1177) = RCT(620)*V(281) -! B(1178) = dA(620)/dV(281) - B(1178) = RCT(620)*V(210) -! B(1179) = dA(621)/dV(191) - B(1179) = RCT(621)*V(266) -! B(1180) = dA(621)/dV(266) - B(1180) = RCT(621)*V(191) -! B(1181) = dA(622)/dV(180) - B(1181) = RCT(622)*V(266) -! B(1182) = dA(622)/dV(266) - B(1182) = RCT(622)*V(180) -! B(1183) = dA(623)/dV(159) - B(1183) = RCT(623)*V(286) -! B(1184) = dA(623)/dV(286) - B(1184) = RCT(623)*V(159) -! B(1185) = dA(624)/dV(159) - B(1185) = RCT(624)*V(282) -! B(1186) = dA(624)/dV(282) - B(1186) = RCT(624)*V(159) -! B(1187) = dA(625)/dV(159) - B(1187) = RCT(625) -! B(1188) = dA(626)/dV(148) - B(1188) = RCT(626)*V(286) -! B(1189) = dA(626)/dV(286) - B(1189) = RCT(626)*V(148) -! B(1190) = dA(627)/dV(148) - B(1190) = RCT(627)*V(282) -! B(1191) = dA(627)/dV(282) - B(1191) = RCT(627)*V(148) -! B(1192) = dA(628)/dV(148) - B(1192) = RCT(628) -! B(1193) = dA(629)/dV(13) - B(1193) = RCT(629)*V(284) -! B(1194) = dA(629)/dV(284) - B(1194) = RCT(629)*V(13) -! B(1195) = dA(630)/dV(13) - B(1195) = RCT(630)*V(279) -! B(1196) = dA(630)/dV(279) - B(1196) = RCT(630)*V(13) -! B(1197) = dA(631)/dV(22) - B(1197) = RCT(631)*V(284) -! B(1198) = dA(631)/dV(284) - B(1198) = RCT(631)*V(22) -! B(1199) = dA(632)/dV(22) - B(1199) = RCT(632)*V(279) -! B(1200) = dA(632)/dV(279) - B(1200) = RCT(632)*V(22) -! B(1201) = dA(633)/dV(27) - B(1201) = RCT(633)*V(284) -! B(1202) = dA(633)/dV(284) - B(1202) = RCT(633)*V(27) -! B(1203) = dA(634)/dV(27) - B(1203) = RCT(634)*V(279) -! B(1204) = dA(634)/dV(279) - B(1204) = RCT(634)*V(27) -! B(1205) = dA(635)/dV(266) - B(1205) = RCT(635)*V(281) -! B(1206) = dA(635)/dV(281) - B(1206) = RCT(635)*V(266) -! B(1207) = dA(636)/dV(41) - B(1207) = RCT(636)*V(286) -! B(1208) = dA(636)/dV(286) - B(1208) = RCT(636)*V(41) -! B(1209) = dA(637)/dV(284) - B(1209) = RCT(637) -! B(1210) = dA(638)/dV(291) - B(1210) = RCT(638) -! B(1211) = dA(639)/dV(281) - B(1211) = RCT(639) -! B(1212) = dA(640)/dV(281) - B(1212) = RCT(640) -! B(1213) = dA(641)/dV(281) - B(1213) = RCT(641) -! B(1214) = dA(642)/dV(173) - B(1214) = RCT(642)*V(278) -! B(1215) = dA(642)/dV(278) - B(1215) = RCT(642)*V(173) -! B(1216) = dA(643)/dV(173) - B(1216) = RCT(643)*V(275) -! B(1217) = dA(643)/dV(275) - B(1217) = RCT(643)*V(173) -! B(1218) = dA(644)/dV(173) - B(1218) = RCT(644) -! B(1219) = dA(645)/dV(173) - B(1219) = RCT(645)*V(280) -! B(1220) = dA(645)/dV(280) - B(1220) = RCT(645)*V(173) -! B(1221) = dA(646)/dV(173) - B(1221) = RCT(646)*V(287) -! B(1222) = dA(646)/dV(287) - B(1222) = RCT(646)*V(173) -! B(1223) = dA(647)/dV(280) - B(1223) = RCT(647)*V(286) -! B(1224) = dA(647)/dV(286) - B(1224) = RCT(647)*V(280) -! B(1225) = dA(648)/dV(286) - B(1225) = RCT(648)*V(287) -! B(1226) = dA(648)/dV(287) - B(1226) = RCT(648)*V(286) -! B(1227) = dA(649)/dV(176) - B(1227) = RCT(649)*V(278) -! B(1228) = dA(649)/dV(278) - B(1228) = RCT(649)*V(176) -! B(1229) = dA(650)/dV(176) - B(1229) = RCT(650)*V(275) -! B(1230) = dA(650)/dV(275) - B(1230) = RCT(650)*V(176) -! B(1231) = dA(651)/dV(262) - B(1231) = RCT(651)*V(278) -! B(1232) = dA(651)/dV(278) - B(1232) = RCT(651)*V(262) -! B(1233) = dA(652)/dV(262) - B(1233) = RCT(652)*V(275) -! B(1234) = dA(652)/dV(275) - B(1234) = RCT(652)*V(262) -! B(1235) = dA(653)/dV(262) - B(1235) = RCT(653)*V(289) -! B(1236) = dA(653)/dV(289) - B(1236) = RCT(653)*V(262) -! B(1237) = dA(654)/dV(262) - B(1237) = RCT(654)*V(283) -! B(1238) = dA(654)/dV(283) - B(1238) = RCT(654)*V(262) -! B(1239) = dA(655)/dV(262) - B(1239) = RCT(655)*V(277) -! B(1240) = dA(655)/dV(277) - B(1240) = RCT(655)*V(262) -! B(1241) = dA(656)/dV(262) - B(1241) = RCT(656)*V(280) -! B(1242) = dA(656)/dV(280) - B(1242) = RCT(656)*V(262) -! B(1243) = dA(657)/dV(262) - B(1243) = RCT(657)*V(287) -! B(1244) = dA(657)/dV(287) - B(1244) = RCT(657)*V(262) -! B(1245) = dA(658)/dV(235) - B(1245) = RCT(658)*V(280) -! B(1246) = dA(658)/dV(280) - B(1246) = RCT(658)*V(235) -! B(1247) = dA(659)/dV(235) - B(1247) = RCT(659)*V(287) -! B(1248) = dA(659)/dV(287) - B(1248) = RCT(659)*V(235) -! B(1249) = dA(660)/dV(235) - B(1249) = RCT(660)*V(275) -! B(1250) = dA(660)/dV(275) - B(1250) = RCT(660)*V(235) -! B(1251) = dA(661)/dV(235) - B(1251) = RCT(661)*V(283) -! B(1252) = dA(661)/dV(283) - B(1252) = RCT(661)*V(235) -! B(1253) = dA(662)/dV(235) - B(1253) = RCT(662)*V(277) -! B(1254) = dA(662)/dV(277) - B(1254) = RCT(662)*V(235) -! B(1255) = dA(663)/dV(235) - B(1255) = RCT(663)*V(289) -! B(1256) = dA(663)/dV(289) - B(1256) = RCT(663)*V(235) -! B(1257) = dA(664)/dV(271) - B(1257) = RCT(664)*V(275) -! B(1258) = dA(664)/dV(275) - B(1258) = RCT(664)*V(271) -! B(1259) = dA(665)/dV(271) - B(1259) = RCT(665)*V(289) -! B(1260) = dA(665)/dV(289) - B(1260) = RCT(665)*V(271) -! B(1261) = dA(666)/dV(271) - B(1261) = RCT(666)*V(280) -! B(1262) = dA(666)/dV(280) - B(1262) = RCT(666)*V(271) -! B(1263) = dA(667)/dV(271) - B(1263) = RCT(667)*V(287) -! B(1264) = dA(667)/dV(287) - B(1264) = RCT(667)*V(271) -! B(1265) = dA(668)/dV(271) - B(1265) = RCT(668)*V(276) -! B(1266) = dA(668)/dV(276) - B(1266) = RCT(668)*V(271) -! B(1267) = dA(669)/dV(260) - B(1267) = RCT(669)*V(289) -! B(1268) = dA(669)/dV(289) - B(1268) = RCT(669)*V(260) -! B(1269) = dA(670)/dV(260) - B(1269) = RCT(670)*V(275) -! B(1270) = dA(670)/dV(275) - B(1270) = RCT(670)*V(260) -! B(1271) = dA(671)/dV(260) - B(1271) = RCT(671)*V(280) -! B(1272) = dA(671)/dV(280) - B(1272) = RCT(671)*V(260) -! B(1273) = dA(672)/dV(260) - B(1273) = RCT(672)*V(287) -! B(1274) = dA(672)/dV(287) - B(1274) = RCT(672)*V(260) -! B(1275) = dA(673)/dV(260) - B(1275) = RCT(673)*V(283) -! B(1276) = dA(673)/dV(283) - B(1276) = RCT(673)*V(260) -! B(1277) = dA(674)/dV(260) - B(1277) = RCT(674)*V(277) -! B(1278) = dA(674)/dV(277) - B(1278) = RCT(674)*V(260) -! B(1279) = dA(675)/dV(260) - B(1279) = RCT(675)*V(276) -! B(1280) = dA(675)/dV(276) - B(1280) = RCT(675)*V(260) -! B(1281) = dA(676)/dV(282) - B(1281) = RCT(676)*V(289) -! B(1282) = dA(676)/dV(289) - B(1282) = RCT(676)*V(282) -! B(1283) = dA(677)/dV(282) - B(1283) = RCT(677)*V(283) -! B(1284) = dA(677)/dV(283) - B(1284) = RCT(677)*V(282) -! B(1285) = dA(678)/dV(277) - B(1285) = RCT(678)*V(282) -! B(1286) = dA(678)/dV(282) - B(1286) = RCT(678)*V(277) -! B(1287) = dA(679)/dV(289) - B(1287) = RCT(679) -! B(1288) = dA(680)/dV(289) - B(1288) = RCT(680) -! B(1289) = dA(681)/dV(69) - B(1289) = RCT(681) -! B(1290) = dA(682)/dV(69) - B(1290) = RCT(682) -! B(1291) = dA(683)/dV(69) - B(1291) = RCT(683) -! B(1292) = dA(684)/dV(268) - B(1292) = RCT(684) -! B(1293) = dA(685)/dV(268) - B(1293) = RCT(685) -! B(1294) = dA(686)/dV(44) - B(1294) = RCT(686) -! B(1295) = dA(687)/dV(44) - B(1295) = RCT(687) -! B(1296) = dA(688)/dV(44) - B(1296) = RCT(688) -! B(1297) = dA(689)/dV(49) - B(1297) = RCT(689) -! B(1298) = dA(690)/dV(49) - B(1298) = RCT(690) -! B(1299) = dA(691)/dV(49) - B(1299) = RCT(691) -! B(1300) = dA(692)/dV(42) - B(1300) = RCT(692) -! B(1301) = dA(693)/dV(42) - B(1301) = RCT(693) -! B(1302) = dA(694)/dV(42) - B(1302) = RCT(694) -! B(1303) = dA(695)/dV(203) - B(1303) = RCT(695) -! B(1304) = dA(696)/dV(203) - B(1304) = RCT(696) -! B(1305) = dA(697)/dV(270) - B(1305) = RCT(697) -! B(1306) = dA(698)/dV(270) - B(1306) = RCT(698) -! B(1307) = dA(699)/dV(270) - B(1307) = RCT(699)*V(278) -! B(1308) = dA(699)/dV(278) - B(1308) = RCT(699)*V(270) -! B(1309) = dA(700)/dV(203) - B(1309) = RCT(700)*V(283) -! B(1310) = dA(700)/dV(283) - B(1310) = RCT(700)*V(203) -! B(1311) = dA(701)/dV(203) - B(1311) = RCT(701)*V(277) -! B(1312) = dA(701)/dV(277) - B(1312) = RCT(701)*V(203) -! B(1313) = dA(702)/dV(203) - B(1313) = RCT(702)*V(280) -! B(1314) = dA(702)/dV(280) - B(1314) = RCT(702)*V(203) -! B(1315) = dA(703)/dV(203) - B(1315) = RCT(703)*V(287) -! B(1316) = dA(703)/dV(287) - B(1316) = RCT(703)*V(203) -! B(1317) = dA(704)/dV(270) - B(1317) = RCT(704)*V(283) -! B(1318) = dA(704)/dV(283) - B(1318) = RCT(704)*V(270) -! B(1319) = dA(705)/dV(270) - B(1319) = RCT(705)*V(277) -! B(1320) = dA(705)/dV(277) - B(1320) = RCT(705)*V(270) -! B(1321) = dA(706)/dV(270) - B(1321) = RCT(706)*V(280) -! B(1322) = dA(706)/dV(280) - B(1322) = RCT(706)*V(270) -! B(1323) = dA(707)/dV(270) - B(1323) = RCT(707)*V(287) -! B(1324) = dA(707)/dV(287) - B(1324) = RCT(707)*V(270) -! B(1325) = dA(708)/dV(268) - B(1325) = RCT(708)*V(283) -! B(1326) = dA(708)/dV(283) - B(1326) = RCT(708)*V(268) -! B(1327) = dA(709)/dV(268) - B(1327) = RCT(709)*V(277) -! B(1328) = dA(709)/dV(277) - B(1328) = RCT(709)*V(268) -! B(1329) = dA(710)/dV(268) - B(1329) = RCT(710)*V(280) -! B(1330) = dA(710)/dV(280) - B(1330) = RCT(710)*V(268) -! B(1331) = dA(711)/dV(268) - B(1331) = RCT(711)*V(287) -! B(1332) = dA(711)/dV(287) - B(1332) = RCT(711)*V(268) -! B(1333) = dA(712)/dV(223) - B(1333) = RCT(712) -! B(1334) = dA(713)/dV(233) - B(1334) = RCT(713) -! B(1335) = dA(714)/dV(130) - B(1335) = RCT(714) -! B(1336) = dA(715)/dV(131) - B(1336) = RCT(715) -! B(1337) = dA(716)/dV(116) - B(1337) = RCT(716) -! B(1338) = dA(717)/dV(24) - B(1338) = RCT(717) -! B(1339) = dA(718)/dV(241) - B(1339) = RCT(718) -! B(1340) = dA(719)/dV(202) - B(1340) = RCT(719) -! B(1341) = dA(720)/dV(178) - B(1341) = RCT(720) -! B(1342) = dA(721)/dV(199) - B(1342) = RCT(721) -! B(1343) = dA(722)/dV(134) - B(1343) = RCT(722) -! B(1344) = dA(723)/dV(104) - B(1344) = RCT(723) -! B(1345) = dA(724)/dV(105) - B(1345) = RCT(724) -! B(1346) = dA(725)/dV(220) - B(1346) = RCT(725) -! B(1347) = dA(726)/dV(139) - B(1347) = RCT(726) -! B(1348) = dA(727)/dV(140) - B(1348) = RCT(727) -! B(1349) = dA(728)/dV(214) - B(1349) = RCT(728) -! B(1350) = dA(729)/dV(174) - B(1350) = RCT(729) -! B(1351) = dA(730)/dV(151) - B(1351) = RCT(730) -! B(1352) = dA(731)/dV(181) - B(1352) = RCT(731) -! B(1353) = dA(732)/dV(243) - B(1353) = RCT(732) -! B(1354) = dA(733)/dV(213) - B(1354) = RCT(733) -! B(1355) = dA(734)/dV(242) - B(1355) = RCT(734) -! B(1356) = dA(735)/dV(175) - B(1356) = RCT(735) -! B(1357) = dA(736)/dV(200) - B(1357) = RCT(736) -! B(1358) = dA(737)/dV(210) - B(1358) = RCT(737) -! B(1359) = dA(738)/dV(282) - B(1359) = RCT(738) -! B(1360) = dA(739)/dV(282) - B(1360) = RCT(739) -! B(1362) = dA(741)/dV(291) - B(1362) = RCT(741) -! B(1363) = dA(742)/dV(212) - B(1363) = RCT(742) -! B(1364) = dA(743)/dV(137) - B(1364) = RCT(743) -! B(1365) = dA(744)/dV(263) - B(1365) = RCT(744) -! B(1366) = dA(745)/dV(263) - B(1366) = RCT(745) -! B(1367) = dA(746)/dV(265) - B(1367) = RCT(746) -! B(1368) = dA(747)/dV(193) - B(1368) = RCT(747) -! B(1369) = dA(748)/dV(102) - B(1369) = RCT(748) -! B(1370) = dA(749)/dV(102) - B(1370) = RCT(749) -! B(1371) = dA(750)/dV(281) - B(1371) = RCT(750) -! B(1372) = dA(751)/dV(281) - B(1372) = RCT(751) -! B(1373) = dA(752)/dV(173) - B(1373) = RCT(752) -! B(1374) = dA(753)/dV(264) - B(1374) = RCT(753) -! B(1375) = dA(754)/dV(264) - B(1375) = RCT(754) -! B(1376) = dA(755)/dV(67) - B(1376) = RCT(755) -! B(1377) = dA(756)/dV(259) - B(1377) = RCT(756) -! B(1378) = dA(757)/dV(221) - B(1378) = RCT(757) -! B(1379) = dA(758)/dV(221) - B(1379) = RCT(758) -! B(1380) = dA(759)/dV(226) - B(1380) = RCT(759) -! B(1381) = dA(760)/dV(236) - B(1381) = RCT(760) -! B(1382) = dA(761)/dV(223) - B(1382) = RCT(761) -! B(1383) = dA(762)/dV(223) - B(1383) = RCT(762) -! B(1384) = dA(763)/dV(223) - B(1384) = RCT(763) -! B(1385) = dA(764)/dV(233) - B(1385) = RCT(764) -! B(1386) = dA(765)/dV(248) - B(1386) = RCT(765) -! B(1387) = dA(766)/dV(248) - B(1387) = RCT(766) -! B(1388) = dA(767)/dV(248) - B(1388) = RCT(767) -! B(1389) = dA(768)/dV(251) - B(1389) = RCT(768) -! B(1390) = dA(769)/dV(250) - B(1390) = RCT(769) -! B(1391) = dA(770)/dV(113) - B(1391) = RCT(770) -! B(1392) = dA(771)/dV(110) - B(1392) = RCT(771) -! B(1393) = dA(772)/dV(94) - B(1393) = RCT(772) -! B(1394) = dA(773)/dV(95) - B(1394) = RCT(773) -! B(1395) = dA(774)/dV(93) - B(1395) = RCT(774) -! B(1396) = dA(775)/dV(112) - B(1396) = RCT(775) -! B(1397) = dA(776)/dV(106) - B(1397) = RCT(776) -! B(1398) = dA(777)/dV(202) - B(1398) = RCT(777) -! B(1399) = dA(778)/dV(88) - B(1399) = RCT(778) -! B(1400) = dA(779)/dV(128) - B(1400) = RCT(779) -! B(1401) = dA(780)/dV(274) - B(1401) = RCT(780) -! B(1402) = dA(781)/dV(260) - B(1402) = RCT(781) -! B(1403) = dA(782)/dV(176) - B(1403) = RCT(782) -! B(1404) = dA(783)/dV(176) - B(1404) = RCT(783) -! B(1405) = dA(784)/dV(51) - B(1405) = RCT(784) -! B(1406) = dA(785)/dV(77) - B(1406) = RCT(785) -! B(1407) = dA(786)/dV(71) - B(1407) = RCT(786) -! B(1408) = dA(787)/dV(100) - B(1408) = RCT(787) -! B(1409) = dA(788)/dV(149) - B(1409) = RCT(788) -! B(1410) = dA(789)/dV(72) - B(1410) = RCT(789) -! B(1411) = dA(790)/dV(135) - B(1411) = RCT(790) -! B(1412) = dA(791)/dV(197) - B(1412) = RCT(791) -! B(1413) = dA(792)/dV(285) - B(1413) = RCT(792) -! B(1414) = dA(793)/dV(111) - B(1414) = RCT(793) -! B(1415) = dA(794)/dV(75) - B(1415) = RCT(794) -! B(1416) = dA(795)/dV(235) - B(1416) = RCT(795) -! B(1417) = dA(796)/dV(262) - B(1417) = RCT(796) -! B(1418) = dA(797)/dV(262) - B(1418) = RCT(797) -! B(1419) = dA(798)/dV(271) - B(1419) = RCT(798) -! B(1420) = dA(799)/dV(43) - B(1420) = RCT(799) -! B(1421) = dA(800)/dV(52) - B(1421) = RCT(800) -! B(1422) = dA(801)/dV(53) - B(1422) = RCT(801) -! B(1423) = dA(802)/dV(54) - B(1423) = RCT(802) -! B(1424) = dA(803)/dV(55) - B(1424) = RCT(803) -! B(1425) = dA(804)/dV(56) - B(1425) = RCT(804) -! B(1426) = dA(805)/dV(57) - B(1426) = RCT(805) -! B(1427) = dA(806)/dV(81) - B(1427) = RCT(806) -! B(1428) = dA(807)/dV(82) - B(1428) = RCT(807) -! B(1429) = dA(808)/dV(83) - B(1429) = RCT(808) -! B(1430) = dA(809)/dV(84) - B(1430) = RCT(809) -! B(1431) = dA(810)/dV(47) - B(1431) = RCT(810) -! B(1432) = dA(811)/dV(59) - B(1432) = RCT(811) -! B(1433) = dA(812)/dV(48) - B(1433) = RCT(812) -! B(1434) = dA(813)/dV(103) - B(1434) = RCT(813) -! B(1435) = dA(814)/dV(143) - B(1435) = RCT(814) -! B(1436) = dA(815)/dV(268) - B(1436) = RCT(815) -! B(1437) = dA(816)/dV(227) - B(1437) = RCT(816) -! B(1438) = dA(817)/dV(92) - B(1438) = RCT(817) -! B(1439) = dA(818)/dV(60) - B(1439) = RCT(818) -! B(1440) = dA(819)/dV(203) - B(1440) = RCT(819) -! B(1441) = dA(820)/dV(270) - B(1441) = RCT(820) -! B(1442) = dA(821)/dV(44) - B(1442) = RCT(821) -! B(1443) = dA(822)/dV(46) - B(1443) = RCT(822) -! B(1444) = dA(823)/dV(1) - B(1444) = RCT(823) -! B(1445) = dA(824)/dV(3) - B(1445) = RCT(824) -! B(1446) = dA(825)/dV(2) - B(1446) = RCT(825) -! B(1447) = dA(826)/dV(42) - B(1447) = RCT(826) -! B(1448) = dA(827)/dV(49) - B(1448) = RCT(827) -! B(1449) = dA(828)/dV(73) - B(1449) = RCT(828) -! B(1450) = dA(829)/dV(99) - B(1450) = RCT(829) -! B(1451) = dA(830)/dV(74) - B(1451) = RCT(830) -! B(1452) = dA(831)/dV(74) - B(1452) = RCT(831) -! B(1453) = dA(832)/dV(196) - B(1453) = RCT(832) -! B(1454) = dA(833)/dV(61) - B(1454) = RCT(833) -! B(1455) = dA(834)/dV(66) - B(1455) = RCT(834) -! B(1456) = dA(835)/dV(122) - B(1456) = RCT(835) -! B(1457) = dA(836)/dV(279) - B(1457) = RCT(836) -! B(1458) = dA(837)/dV(119) - B(1458) = RCT(837) -! B(1459) = dA(838)/dV(208) - B(1459) = RCT(838) -! B(1460) = dA(839)/dV(178) - B(1460) = RCT(839) -! B(1461) = dA(840)/dV(199) - B(1461) = RCT(840) -! B(1462) = dA(841)/dV(134) - B(1462) = RCT(841) -! B(1463) = dA(842)/dV(63) - B(1463) = RCT(842) -! B(1464) = dA(843)/dV(63) - B(1464) = RCT(843) -! B(1465) = dA(844)/dV(62) - B(1465) = RCT(844) -! B(1466) = dA(845)/dV(62) - B(1466) = RCT(845) -! B(1467) = dA(846)/dV(89) - B(1467) = RCT(846) -! B(1468) = dA(847)/dV(96) - B(1468) = RCT(847) -! B(1469) = dA(848)/dV(87) - B(1469) = RCT(848) -! B(1470) = dA(849)/dV(91) - B(1470) = RCT(849) -! B(1471) = dA(850)/dV(85) - B(1471) = RCT(850) -! B(1472) = dA(851)/dV(172) - B(1472) = RCT(851) -! B(1473) = dA(852)/dV(104) - B(1473) = RCT(852) -! B(1474) = dA(853)/dV(198) - B(1474) = RCT(853) -! B(1475) = dA(854)/dV(169) - B(1475) = RCT(854) -! B(1476) = dA(855)/dV(185) - B(1476) = RCT(855) -! B(1477) = dA(856)/dV(230) - B(1477) = RCT(856) -! B(1478) = dA(857)/dV(156) - B(1478) = RCT(857) -! B(1479) = dA(858)/dV(163) - B(1479) = RCT(858) -! B(1480) = dA(859)/dV(231) - B(1480) = RCT(859) -! B(1481) = dA(860)/dV(136) - B(1481) = RCT(860) -! B(1482) = dA(861)/dV(241) - B(1482) = RCT(861) -! B(1483) = dA(862)/dV(200) - B(1483) = RCT(862) -! B(1484) = dA(863)/dV(175) - B(1484) = RCT(863) -! B(1485) = dA(864)/dV(157) - B(1485) = RCT(864) -! B(1486) = dA(865)/dV(162) - B(1486) = RCT(865) -! B(1487) = dA(866)/dV(171) - B(1487) = RCT(866) -! B(1488) = dA(867)/dV(165) - B(1488) = RCT(867) -! B(1489) = dA(868)/dV(186) - B(1489) = RCT(868) -! B(1490) = dA(869)/dV(188) - B(1490) = RCT(869) -! B(1491) = dA(870)/dV(129) - B(1491) = RCT(870) -! B(1492) = dA(871)/dV(127) - B(1492) = RCT(871) -! B(1493) = dA(872)/dV(220) - B(1493) = RCT(872) -! B(1494) = dA(873)/dV(139) - B(1494) = RCT(873) -! B(1495) = dA(874)/dV(140) - B(1495) = RCT(874) -! B(1496) = dA(875)/dV(214) - B(1496) = RCT(875) -! B(1497) = dA(876)/dV(181) - B(1497) = RCT(876) -! B(1498) = dA(877)/dV(151) - B(1498) = RCT(877) -! B(1499) = dA(878)/dV(151) - B(1499) = RCT(878) -! B(1500) = dA(879)/dV(240) - B(1500) = RCT(879) -! B(1501) = dA(880)/dV(243) - B(1501) = RCT(880) -! B(1502) = dA(881)/dV(206) - B(1502) = RCT(881) -! B(1503) = dA(882)/dV(206) - B(1503) = RCT(882) -! B(1504) = dA(883)/dV(141) - B(1504) = RCT(883) -! B(1505) = dA(884)/dV(164) - B(1505) = RCT(884) -! B(1506) = dA(885)/dV(125) - B(1506) = RCT(885) -! B(1507) = dA(886)/dV(242) - B(1507) = RCT(886) -! B(1508) = dA(887)/dV(242) - B(1508) = RCT(887) -! B(1509) = dA(888)/dV(213) - B(1509) = RCT(888) -! B(1510) = dA(889)/dV(213) - B(1510) = RCT(889) -! B(1511) = dA(890)/dV(120) - B(1511) = RCT(890) -! B(1512) = dA(891)/dV(101) - B(1512) = RCT(891) -! B(1513) = dA(892)/dV(70) - B(1513) = RCT(892) -! B(1514) = dA(893)/dV(107) - B(1514) = RCT(893) -! B(1515) = dA(894)/dV(210) - B(1515) = RCT(894) +! 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(142) = dA(75)/dV(140) + B(142) = RCT(75)*V(345) +! B(143) = dA(75)/dV(345) + 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(145) = RCT(76)*V(140) +! B(146) = dA(77)/dV(140) + B(146) = RCT(77)*V(341) +! B(147) = dA(77)/dV(341) + 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(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(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(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(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(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(340) = dA(177)/dV(24) + B(340) = RCT(177)*V(345) +! B(341) = dA(177)/dV(345) + 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(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(391) = RCT(204)*V(347) +! B(392) = dA(204)/dV(347) + B(392) = RCT(204)*V(337) +! B(393) = dA(205)/dV(337) + 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(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) = RCT(209)*V(347) +! B(400) = dA(209)/dV(347) + B(400) = RCT(209)*V(346) +! B(401) = dA(210)/dV(218) + 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(409) = RCT(214)*V(347) +! B(410) = dA(214)/dV(347) + B(410) = RCT(214)*V(345) +! B(411) = dA(215)/dV(342) + B(411) = RCT(215)*V(351) +! B(412) = dA(215)/dV(351) + B(412) = RCT(215)*V(342) +! B(413) = dA(216)/dV(325) + 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(415) = RCT(217)*V(342) +! B(416) = dA(217)/dV(342) + B(416) = RCT(217)*V(326) +! B(417) = dA(218)/dV(295) + 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(419) = RCT(219)*V(342) +! B(420) = dA(219)/dV(342) + B(420) = RCT(219)*V(183) +! B(421) = dA(220)/dV(141) + 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(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(435) = RCT(227)*F(2) +! B(437) = dA(228)/dV(334) + B(437) = RCT(228)*F(3) +! B(439) = dA(229)/dV(334) + 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(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(449) = RCT(234)*F(1) +! B(451) = dA(235)/dV(343) + B(451) = RCT(235)*V(345) +! B(452) = dA(235)/dV(345) + 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(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(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(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(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(581) = dA(300)/dV(338) + B(581) = RCT(300)*V(346) +! B(582) = dA(300)/dV(346) + 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(588) = RCT(305)*F(3) +! B(590) = dA(306)/dV(110) + B(590) = RCT(306) +! B(591) = dA(307)/dV(338) + B(591) = RCT(307)*2*V(338) +! B(592) = dA(308)/dV(76) + 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(595) = RCT(310)*V(347) +! B(596) = dA(310)/dV(347) + B(596) = RCT(310)*V(338) +! B(597) = dA(311)/dV(338) + 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(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(641) = RCT(333)*V(342) +! B(642) = dA(333)/dV(342) + B(642) = RCT(333)*V(290) +! B(643) = dA(334)/dV(331) + B(643) = RCT(334)*V(346) +! B(644) = dA(334)/dV(346) + B(644) = RCT(334)*V(331) +! B(645) = dA(335)/dV(62) + B(645) = RCT(335)*2*V(62) +! B(646) = dA(336)/dV(331) + B(646) = RCT(336)*V(335) +! B(647) = dA(336)/dV(335) + B(647) = RCT(336)*V(331) +! B(648) = dA(337)/dV(252) + 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(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(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) = 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(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(669) = dA(350)/dV(331) + B(669) = RCT(350)*V(341) +! B(670) = dA(350)/dV(341) + 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(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(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(741) = dA(387)/dV(111) + B(741) = RCT(387)*V(345) +! B(742) = dA(387)/dV(345) + 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(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(782) = dA(408)/dV(112) + B(782) = RCT(408)*V(345) +! B(783) = dA(408)/dV(345) + 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(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(901) = dA(468)/dV(280) + B(901) = RCT(468)*V(346) +! B(902) = dA(468)/dV(346) + 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(905) = dA(470)/dV(280) + B(905) = RCT(470)*V(337) +! B(906) = dA(470)/dV(337) + 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(909) = dA(472)/dV(280) + B(909) = RCT(472)*V(328) +! B(910) = dA(472)/dV(328) + 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(913) = dA(474)/dV(280) + B(913) = RCT(474)*V(324) +! B(914) = dA(474)/dV(324) + 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(917) = dA(476)/dV(280) + B(917) = RCT(476)*V(351) +! B(918) = dA(476)/dV(351) + 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(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(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(935) = RCT(486) +! B(936) = dA(487)/dV(45) + 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(965) = RCT(502) +! B(966) = dA(503)/dV(305) + B(966) = RCT(503) +! B(967) = dA(504)/dV(304) + B(967) = RCT(504) +! B(968) = dA(505)/dV(304) + 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(1003) = dA(525)/dV(231) + B(1003) = RCT(525)*V(345) +! B(1004) = dA(525)/dV(345) + 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(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(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(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(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(1062) = RCT(556) +! B(1063) = dA(557)/dV(286) + 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(1070) = RCT(561) +! B(1071) = dA(562)/dV(285) + 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(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(1093) = dA(574)/dV(175) + B(1093) = RCT(574)*V(345) +! B(1094) = dA(574)/dV(345) + 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(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(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(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(1127) = RCT(592) +! B(1128) = dA(593)/dV(207) + 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(1177) = RCT(619)*F(3) +! B(1179) = dA(620)/dV(145) + 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(1196) = RCT(629) +! B(1197) = dA(630)/dV(271) + 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(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(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(1312) = dA(689)/dV(198) + B(1312) = RCT(689)*V(345) +! B(1313) = dA(689)/dV(345) + 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(1330) = dA(698)/dV(19) + B(1330) = RCT(698)*V(345) +! B(1331) = dA(698)/dV(345) + 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(1333) = RCT(699)*V(18) +! B(1334) = dA(700)/dV(18) + B(1334) = RCT(700)*V(346) +! B(1335) = dA(700)/dV(346) + 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(1372) = RCT(719) +! B(1373) = dA(720)/dV(106) + 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(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(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(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(1474) = RCT(772) +! B(1475) = dA(773)/dV(13) + B(1475) = RCT(773)*V(337) +! B(1476) = dA(773)/dV(337) + 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(1478) = RCT(774)*V(13) +! B(1479) = dA(775)/dV(22) + B(1479) = RCT(775)*V(337) +! B(1480) = dA(775)/dV(337) + 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(1482) = RCT(776)*V(22) +! B(1483) = dA(777)/dV(27) + B(1483) = RCT(777)*V(337) +! B(1484) = dA(777)/dV(337) + 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(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(1491) = RCT(781) +! B(1492) = dA(782)/dV(335) + B(1492) = RCT(782) +! B(1493) = dA(783)/dV(351) + B(1493) = RCT(783) +! B(1494) = dA(784)/dV(351) + B(1494) = RCT(784) +! B(1495) = dA(785)/dV(351) + 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(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(1519) = RCT(798)*V(349) +! B(1520) = dA(798)/dV(349) + B(1520) = RCT(798)*V(317) +! B(1521) = dA(799)/dV(317) + 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(1533) = RCT(805)*V(349) +! B(1534) = dA(805)/dV(349) + B(1534) = RCT(805)*V(297) +! B(1535) = dA(806)/dV(297) + 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(1557) = RCT(817)*V(349) +! B(1558) = dA(817)/dV(349) + B(1558) = RCT(817)*V(316) +! B(1559) = dA(818)/dV(316) + 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(1569) = RCT(823) +! B(1570) = dA(824)/dV(352) + B(1570) = RCT(824) +! B(1571) = dA(825)/dV(73) + B(1571) = RCT(825) +! B(1572) = dA(826)/dV(73) + B(1572) = RCT(826) +! B(1573) = dA(827)/dV(73) + B(1573) = RCT(827) +! B(1574) = dA(828)/dV(330) + B(1574) = RCT(828) +! B(1575) = dA(829)/dV(330) + B(1575) = RCT(829) +! B(1576) = dA(830)/dV(44) + B(1576) = RCT(830) +! B(1577) = dA(831)/dV(44) + B(1577) = RCT(831) +! B(1578) = dA(832)/dV(44) + B(1578) = RCT(832) +! B(1579) = dA(833)/dV(55) + B(1579) = RCT(833) +! B(1580) = dA(834)/dV(55) + B(1580) = RCT(834) +! B(1581) = dA(835)/dV(55) + B(1581) = RCT(835) +! B(1582) = dA(836)/dV(42) + B(1582) = RCT(836) +! B(1583) = dA(837)/dV(42) + B(1583) = RCT(837) +! B(1584) = dA(838)/dV(42) + B(1584) = RCT(838) +! B(1585) = dA(839)/dV(252) + B(1585) = RCT(839) +! B(1586) = dA(840)/dV(252) + B(1586) = RCT(840) +! B(1587) = dA(841)/dV(332) + B(1587) = RCT(841) +! B(1588) = dA(842)/dV(332) + 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(1591) = RCT(844)*V(349) +! B(1592) = dA(844)/dV(349) + B(1592) = RCT(844)*V(252) +! B(1593) = dA(845)/dV(252) + 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(1599) = RCT(848)*V(349) +! B(1600) = dA(848)/dV(349) + B(1600) = RCT(848)*V(332) +! B(1601) = dA(849)/dV(332) + 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(1607) = RCT(852)*V(349) +! B(1608) = dA(852)/dV(349) + B(1608) = RCT(852)*V(330) +! B(1609) = dA(853)/dV(330) + 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(1615) = RCT(856) +! B(1616) = dA(857)/dV(294) + B(1616) = RCT(857) +! B(1617) = dA(858)/dV(151) + B(1617) = RCT(858) +! B(1618) = dA(859)/dV(152) + B(1618) = RCT(859) +! B(1619) = dA(860)/dV(128) + B(1619) = RCT(860) +! B(1620) = dA(861)/dV(24) + B(1620) = RCT(861) +! B(1621) = dA(862)/dV(302) + B(1621) = RCT(862) +! B(1622) = dA(863)/dV(251) + B(1622) = RCT(863) +! B(1623) = dA(864)/dV(256) + B(1623) = RCT(864) +! B(1624) = dA(865)/dV(242) + B(1624) = RCT(865) +! B(1625) = dA(866)/dV(154) + B(1625) = RCT(866) +! B(1626) = dA(867)/dV(115) + B(1626) = RCT(867) +! B(1627) = dA(868)/dV(107) + B(1627) = RCT(868) +! B(1628) = dA(869)/dV(268) + B(1628) = RCT(869) +! B(1629) = dA(870)/dV(175) + B(1629) = RCT(870) +! B(1630) = dA(871)/dV(168) + B(1630) = RCT(871) +! B(1631) = dA(872)/dV(267) + B(1631) = RCT(872) +! B(1632) = dA(873)/dV(215) + B(1632) = RCT(873) +! B(1633) = dA(874)/dV(186) + B(1633) = RCT(874) +! B(1634) = dA(875)/dV(222) + B(1634) = RCT(875) +! B(1635) = dA(876)/dV(299) + B(1635) = RCT(876) +! B(1636) = dA(877)/dV(266) + B(1636) = RCT(877) +! B(1637) = dA(878)/dV(303) + B(1637) = RCT(878) +! B(1638) = dA(879)/dV(216) + B(1638) = RCT(879) +! B(1639) = dA(880)/dV(248) + B(1639) = RCT(880) +! B(1640) = dA(881)/dV(269) + 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) ! Construct the Jacobian terms from B's IF (DO_JVS(1)) & ! JVS(1) = Jac_FULL(1,1) - JVS(1) = -B(1444) + JVS(1) = -B(1734) IF (DO_JVS(2)) & ! JVS(2) = Jac_FULL(2,2) - JVS(2) = -B(1446) + JVS(2) = -B(1736) IF (DO_JVS(3)) & ! JVS(3) = Jac_FULL(3,3) - JVS(3) = -B(1445) + JVS(3) = -B(1735) 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) = 2*B(1300) + JVS(5) = 2*B(1582) IF (DO_JVS(6)) & ! JVS(6) = Jac_FULL(4,44) - JVS(6) = 2*B(1294) + JVS(6) = 2*B(1576) IF (DO_JVS(7)) & -! JVS(7) = Jac_FULL(4,49) - JVS(7) = 2*B(1297) +! JVS(7) = Jac_FULL(4,55) + JVS(7) = 2*B(1579) IF (DO_JVS(8)) & -! JVS(8) = Jac_FULL(4,69) - JVS(8) = B(1289) +! JVS(8) = Jac_FULL(4,73) + 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,210) - JVS(10) = B(1358) +! JVS(10) = Jac_FULL(5,269) + 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) = B(1207) + JVS(12) = B(1489) IF (DO_JVS(13)) & -! JVS(13) = Jac_FULL(6,286) - JVS(13) = B(1208) +! JVS(13) = Jac_FULL(6,345) + 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(360) + JVS(15) = B(760)+B(1810) IF (DO_JVS(16)) & -! JVS(16) = Jac_FULL(7,67) - JVS(16) = 0.3*B(1376) +! JVS(16) = Jac_FULL(7,68) + JVS(16) = B(459) IF (DO_JVS(17)) & -! JVS(17) = Jac_FULL(7,70) - JVS(17) = B(1513) +! JVS(17) = Jac_FULL(7,71) + JVS(17) = B(1803) IF (DO_JVS(18)) & -! JVS(18) = Jac_FULL(7,88) - JVS(18) = 0.22*B(247)+B(1399) +! JVS(18) = Jac_FULL(7,74) + JVS(18) = B(1809) IF (DO_JVS(19)) & -! JVS(19) = Jac_FULL(7,97) - JVS(19) = B(1159) +! JVS(19) = Jac_FULL(7,90) + JVS(19) = B(1441) IF (DO_JVS(20)) & -! JVS(20) = Jac_FULL(7,104) - JVS(20) = B(1077)+B(1473) +! JVS(20) = Jac_FULL(7,92) + JVS(20) = 0.22*B(342)+B(1689) IF (DO_JVS(21)) & -! JVS(21) = Jac_FULL(7,121) - JVS(21) = B(842)+B(844) +! JVS(21) = Jac_FULL(7,115) + JVS(21) = B(1320)+B(1763) IF (DO_JVS(22)) & -! JVS(22) = Jac_FULL(7,123) - JVS(22) = B(846)+B(848) +! JVS(22) = Jac_FULL(7,130) + JVS(22) = B(849)+B(1815) IF (DO_JVS(23)) & -! JVS(23) = Jac_FULL(7,136) - JVS(23) = 0.41*B(1037)+1.238*B(1481) +! JVS(23) = Jac_FULL(7,133) + JVS(23) = B(1085)+B(1087) IF (DO_JVS(24)) & -! JVS(24) = Jac_FULL(7,150) - JVS(24) = 0.429*B(971)+0.429*B(973) +! JVS(24) = Jac_FULL(7,135) + JVS(24) = B(1089)+B(1091) IF (DO_JVS(25)) & -! JVS(25) = Jac_FULL(7,163) - JVS(25) = 0.097*B(1015) +! JVS(25) = Jac_FULL(7,139) + JVS(25) = 0.3*B(1658) IF (DO_JVS(26)) & -! JVS(26) = Jac_FULL(7,164) - JVS(26) = B(1069) +! JVS(26) = Jac_FULL(7,159) + JVS(26) = 0.41*B(1280)+1.238*B(1771) IF (DO_JVS(27)) & -! JVS(27) = Jac_FULL(7,175) - JVS(27) = 0.75*B(1001) +! JVS(27) = Jac_FULL(7,169) + JVS(27) = B(1814) IF (DO_JVS(28)) & -! JVS(28) = Jac_FULL(7,180) - JVS(28) = 0.35*B(1150)+B(1152)+B(1181) +! JVS(28) = Jac_FULL(7,173) + JVS(28) = B(1336) IF (DO_JVS(29)) & -! JVS(29) = Jac_FULL(7,184) - JVS(29) = B(1130) +! JVS(29) = Jac_FULL(7,182) + JVS(29) = 0.429*B(1214)+0.429*B(1216) IF (DO_JVS(30)) & -! JVS(30) = Jac_FULL(7,192) - JVS(30) = 0.355*B(766) +! JVS(30) = Jac_FULL(7,194) + JVS(30) = 0.097*B(1258) IF (DO_JVS(31)) & -! JVS(31) = Jac_FULL(7,195) - JVS(31) = B(606) +! JVS(31) = Jac_FULL(7,198) + JVS(31) = B(1312) IF (DO_JVS(32)) & -! JVS(32) = Jac_FULL(7,201) - JVS(32) = 0.9*B(264) +! JVS(32) = Jac_FULL(7,213) + JVS(32) = 0.44*B(302) IF (DO_JVS(33)) & -! JVS(33) = Jac_FULL(7,207) - JVS(33) = 0.5*B(1035)+B(1044) +! JVS(33) = Jac_FULL(7,216) + JVS(33) = 0.75*B(1244) IF (DO_JVS(34)) & -! JVS(34) = Jac_FULL(7,208) - JVS(34) = B(588) +! JVS(34) = Jac_FULL(7,235) + JVS(34) = 0.35*B(1432)+B(1434)+B(1463) IF (DO_JVS(35)) & -! JVS(35) = Jac_FULL(7,209) - JVS(35) = 0.9*B(270) +! JVS(35) = Jac_FULL(7,238) + JVS(35) = 0.355*B(1009) IF (DO_JVS(36)) & -! JVS(36) = Jac_FULL(7,210) - JVS(36) = B(1515) +! JVS(36) = Jac_FULL(7,240) + JVS(36) = 2*B(1405)+0.44*B(1407) IF (DO_JVS(37)) & -! JVS(37) = Jac_FULL(7,211) - JVS(37) = B(87)+B(512) +! JVS(37) = Jac_FULL(7,241) + JVS(37) = B(705) IF (DO_JVS(38)) & -! JVS(38) = Jac_FULL(7,215) - JVS(38) = B(670) +! JVS(38) = Jac_FULL(7,246) + JVS(38) = B(243)+0.44*B(245) IF (DO_JVS(39)) & -! JVS(39) = Jac_FULL(7,217) - JVS(39) = 0.9*B(266) +! JVS(39) = Jac_FULL(7,249) + JVS(39) = 0.645*B(361) IF (DO_JVS(40)) & -! JVS(40) = Jac_FULL(7,219) - JVS(40) = B(144)+B(528) +! JVS(40) = Jac_FULL(7,250) + JVS(40) = 0.9*B(363) IF (DO_JVS(41)) & -! JVS(41) = Jac_FULL(7,224) - JVS(41) = 0.407*B(704) +! JVS(41) = Jac_FULL(7,257) + JVS(41) = B(751)+B(756)+0.75*B(893)+2*B(895) IF (DO_JVS(42)) & -! JVS(42) = Jac_FULL(7,231) - JVS(42) = 0.23*B(997) +! JVS(42) = Jac_FULL(7,259) + JVS(42) = 0.5*B(1278)+B(1287) IF (DO_JVS(43)) & -! JVS(43) = Jac_FULL(7,234) - JVS(43) = B(592) +! JVS(43) = Jac_FULL(7,260) + JVS(43) = 0.9*B(369) IF (DO_JVS(44)) & -! JVS(44) = Jac_FULL(7,236) - JVS(44) = 0.361*B(213) +! JVS(44) = Jac_FULL(7,261) + JVS(44) = B(687) IF (DO_JVS(45)) & -! JVS(45) = Jac_FULL(7,237) - JVS(45) = 0.9*B(272) +! JVS(45) = Jac_FULL(7,263) + JVS(45) = B(1395) IF (DO_JVS(46)) & -! JVS(46) = Jac_FULL(7,238) - JVS(46) = B(628) +! JVS(46) = Jac_FULL(7,265) + JVS(46) = B(87)+B(611) IF (DO_JVS(47)) & -! JVS(47) = Jac_FULL(7,239) - JVS(47) = 0.9*B(268) +! JVS(47) = Jac_FULL(7,269) + JVS(47) = B(1805) IF (DO_JVS(48)) & -! JVS(48) = Jac_FULL(7,246) - JVS(48) = B(920) +! JVS(48) = Jac_FULL(7,274) + JVS(48) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899) IF (DO_JVS(49)) & -! JVS(49) = Jac_FULL(7,247) - JVS(49) = B(918) +! JVS(49) = Jac_FULL(7,275) + JVS(49) = 0.9*B(883) IF (DO_JVS(50)) & -! JVS(50) = Jac_FULL(7,249) - JVS(50) = 0.5*B(1048)+B(1050)+B(1054)+0.7*B(1056) +! JVS(50) = Jac_FULL(7,276) + JVS(50) = 0.407*B(947) IF (DO_JVS(51)) & -! JVS(51) = Jac_FULL(7,250) - JVS(51) = 0.5*B(229) +! JVS(51) = Jac_FULL(7,277) + JVS(51) = 0.9*B(879) IF (DO_JVS(52)) & -! JVS(52) = Jac_FULL(7,252) - JVS(52) = 0.3*B(185)+0.9*B(256) +! JVS(52) = Jac_FULL(7,280) + JVS(52) = B(913) IF (DO_JVS(53)) & -! JVS(53) = Jac_FULL(7,253) - JVS(53) = 0.1*B(211) +! JVS(53) = Jac_FULL(7,281) + JVS(53) = 0.9*B(887) IF (DO_JVS(54)) & -! JVS(54) = Jac_FULL(7,254) - JVS(54) = 0.9*B(258) +! JVS(54) = Jac_FULL(7,283) + JVS(54) = B(199)+B(627) IF (DO_JVS(55)) & -! JVS(55) = Jac_FULL(7,255) - JVS(55) = B(151)+0.43*B(207)+2*B(274)+B(276) +! JVS(55) = Jac_FULL(7,287) + JVS(55) = 0.23*B(1240) IF (DO_JVS(56)) & -! JVS(56) = Jac_FULL(7,256) - JVS(56) = 0.9*B(254) +! JVS(56) = Jac_FULL(7,290) + JVS(56) = 0.1*B(287) IF (DO_JVS(57)) & -! JVS(57) = Jac_FULL(7,257) - JVS(57) = 0.645*B(262) +! JVS(57) = Jac_FULL(7,291) + JVS(57) = 0.9*B(891) IF (DO_JVS(58)) & -! JVS(58) = Jac_FULL(7,258) - JVS(58) = 0.9*B(260) +! JVS(58) = Jac_FULL(7,296) + JVS(58) = 0.9*B(365) IF (DO_JVS(59)) & -! JVS(59) = Jac_FULL(7,261) - JVS(59) = B(102)+2*B(251)+0.9*B(252)+0.9*B(255)+0.9*B(257)+0.9*B(259)+0.9*B(261)+0.645*B(263)+0.9*B(265)+0.9*B(267)& - &+0.9*B(269)+0.9*B(271)+0.9*B(273)+2*B(275)+B(629)+B(671)+B(919)+B(921)+0.5*B(1081)+B(1131) +! JVS(59) = Jac_FULL(7,300) + JVS(59) = 0.9*B(351) IF (DO_JVS(60)) & -! JVS(60) = Jac_FULL(7,266) - JVS(60) = 0.3*B(186)+0.9*B(253)+B(277)+0.7*B(1057)+B(1182) +! JVS(60) = Jac_FULL(7,306) + JVS(60) = 0.361*B(289) IF (DO_JVS(61)) & -! JVS(61) = Jac_FULL(7,267) - JVS(61) = B(45)+B(593)+B(607) +! JVS(61) = Jac_FULL(7,307) + JVS(61) = 0.5*B(322) IF (DO_JVS(62)) & -! JVS(62) = Jac_FULL(7,279) - JVS(62) = B(103)+B(152)+B(843)+B(847)+0.429*B(972)+B(1045)+B(1051)+B(1153) +! JVS(62) = Jac_FULL(7,308) + JVS(62) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299) IF (DO_JVS(63)) & -! JVS(63) = Jac_FULL(7,281) - JVS(63) = B(1055) +! JVS(63) = Jac_FULL(7,310) + JVS(63) = B(1161) IF (DO_JVS(64)) & -! JVS(64) = Jac_FULL(7,282) - JVS(64) = 0.1*B(212)+0.407*B(705) +! JVS(64) = Jac_FULL(7,311) + JVS(64) = B(1163) IF (DO_JVS(65)) & -! JVS(65) = Jac_FULL(7,284) - JVS(65) = 0.43*B(208)+B(845)+B(849)+0.429*B(974)+0.5*B(1036)+0.5*B(1049)+0.5*B(1082)+0.35*B(1151) +! JVS(65) = Jac_FULL(7,312) + JVS(65) = B(691) IF (DO_JVS(66)) & -! JVS(66) = Jac_FULL(7,286) - JVS(66) = B(46)+B(88)+B(145)+0.361*B(214)+0.5*B(230)+0.22*B(248)+B(361)+B(589)+0.355*B(767)+0.23*B(998)+0.75*B(1002)& - &+0.097*B(1016)+0.41*B(1038)+B(1070)+B(1078)+B(1160) +! JVS(66) = Jac_FULL(7,313) + JVS(66) = 0.3*B(261)+0.9*B(353) IF (DO_JVS(67)) & -! JVS(67) = Jac_FULL(7,290) - JVS(67) = B(513)+B(529) +! JVS(67) = Jac_FULL(7,315) + JVS(67) = 0.9*B(367) IF (DO_JVS(68)) & -! JVS(68) = Jac_FULL(8,8) - JVS(68) = 0 +! JVS(68) = Jac_FULL(7,318) + JVS(68) = 0.645*B(359) IF (DO_JVS(69)) & -! JVS(69) = Jac_FULL(8,45) - JVS(69) = B(693) +! JVS(69) = Jac_FULL(7,319) + JVS(69) = 0.9*B(349) IF (DO_JVS(70)) & -! JVS(70) = Jac_FULL(8,98) - JVS(70) = B(692) +! JVS(70) = Jac_FULL(7,320) + JVS(70) = 0.9*B(355) IF (DO_JVS(71)) & -! JVS(71) = Jac_FULL(9,9) - JVS(71) = 0 +! JVS(71) = Jac_FULL(7,321) + JVS(71) = 0.9*B(371) IF (DO_JVS(72)) & -! JVS(72) = Jac_FULL(9,42) - JVS(72) = 2*B(1301) +! JVS(72) = Jac_FULL(7,322) + JVS(72) = B(208)+0.43*B(283)+2*B(373)+B(375) IF (DO_JVS(73)) & -! JVS(73) = Jac_FULL(9,44) - JVS(73) = 2*B(1295) +! JVS(73) = Jac_FULL(7,323) + JVS(73) = 0.9*B(357) IF (DO_JVS(74)) & -! JVS(74) = Jac_FULL(9,49) - JVS(74) = 2*B(1298) +! JVS(74) = Jac_FULL(7,324) + 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(9,69) - JVS(75) = B(1290) +! JVS(75) = Jac_FULL(7,328) + 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(9,203) - JVS(76) = B(1303) +! JVS(76) = Jac_FULL(7,329) + JVS(76) = B(45)+B(692)+B(706) IF (DO_JVS(77)) & -! JVS(77) = Jac_FULL(9,268) - JVS(77) = B(1292) +! 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) IF (DO_JVS(78)) & -! JVS(78) = Jac_FULL(9,270) - JVS(78) = B(1305) +! JVS(78) = Jac_FULL(7,340) + JVS(78) = B(612)+B(628) IF (DO_JVS(79)) & -! JVS(79) = Jac_FULL(10,10) - JVS(79) = 0 +! JVS(79) = Jac_FULL(7,341) + JVS(79) = 0.1*B(288)+0.407*B(948) IF (DO_JVS(80)) & -! JVS(80) = Jac_FULL(10,42) - JVS(80) = 2*B(1302) +! 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& + &*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(81)) & -! JVS(81) = Jac_FULL(10,44) - JVS(81) = 2*B(1296) +! 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) IF (DO_JVS(82)) & -! JVS(82) = Jac_FULL(10,49) - JVS(82) = 2*B(1299) +! JVS(82) = Jac_FULL(7,351) + JVS(82) = B(757)+B(846)+B(1298) IF (DO_JVS(83)) & -! JVS(83) = Jac_FULL(10,69) - JVS(83) = B(1291) +! JVS(83) = Jac_FULL(8,8) + JVS(83) = 0 IF (DO_JVS(84)) & -! JVS(84) = Jac_FULL(10,203) - JVS(84) = B(1304) +! JVS(84) = Jac_FULL(8,45) + JVS(84) = B(936) IF (DO_JVS(85)) & -! JVS(85) = Jac_FULL(10,268) - JVS(85) = B(1293) +! JVS(85) = Jac_FULL(8,103) + JVS(85) = B(935) IF (DO_JVS(86)) & -! JVS(86) = Jac_FULL(10,270) - JVS(86) = B(1306) +! JVS(86) = Jac_FULL(9,9) + JVS(86) = 0 IF (DO_JVS(87)) & -! JVS(87) = Jac_FULL(11,11) - JVS(87) = 0 +! JVS(87) = Jac_FULL(9,42) + JVS(87) = 2*B(1583) IF (DO_JVS(88)) & -! JVS(88) = Jac_FULL(11,13) - JVS(88) = B(1193) +! JVS(88) = Jac_FULL(9,44) + JVS(88) = 2*B(1577) IF (DO_JVS(89)) & -! JVS(89) = Jac_FULL(11,284) - JVS(89) = B(1194) +! JVS(89) = Jac_FULL(9,55) + JVS(89) = 2*B(1580) IF (DO_JVS(90)) & -! JVS(90) = Jac_FULL(12,12) - JVS(90) = 0 +! JVS(90) = Jac_FULL(9,73) + JVS(90) = B(1572) IF (DO_JVS(91)) & -! JVS(91) = Jac_FULL(12,13) - JVS(91) = B(1195) +! JVS(91) = Jac_FULL(9,252) + JVS(91) = B(1585) IF (DO_JVS(92)) & -! JVS(92) = Jac_FULL(12,279) - JVS(92) = B(1196) +! JVS(92) = Jac_FULL(9,330) + JVS(92) = B(1574) IF (DO_JVS(93)) & -! JVS(93) = Jac_FULL(13,13) - JVS(93) = -B(1193)-B(1195) +! JVS(93) = Jac_FULL(9,332) + JVS(93) = B(1587) IF (DO_JVS(94)) & -! JVS(94) = Jac_FULL(13,64) - JVS(94) = B(1116) +! JVS(94) = Jac_FULL(10,10) + JVS(94) = 0 IF (DO_JVS(95)) & -! JVS(95) = Jac_FULL(13,279) - JVS(95) = -B(1196) +! JVS(95) = Jac_FULL(10,42) + JVS(95) = 2*B(1584) IF (DO_JVS(96)) & -! JVS(96) = Jac_FULL(13,284) - JVS(96) = -B(1194) +! JVS(96) = Jac_FULL(10,44) + JVS(96) = 2*B(1578) IF (DO_JVS(97)) & -! JVS(97) = Jac_FULL(13,286) - JVS(97) = B(1117) +! JVS(97) = Jac_FULL(10,55) + JVS(97) = 2*B(1581) IF (DO_JVS(98)) & -! JVS(98) = Jac_FULL(14,14) - JVS(98) = 0 +! JVS(98) = Jac_FULL(10,73) + JVS(98) = B(1573) IF (DO_JVS(99)) & -! JVS(99) = Jac_FULL(14,224) - JVS(99) = B(706)+B(708)+B(710)+B(712) +! JVS(99) = Jac_FULL(10,252) + JVS(99) = B(1586) IF (DO_JVS(100)) & -! JVS(100) = Jac_FULL(14,286) - JVS(100) = B(707)+B(709)+B(711)+B(713) +! JVS(100) = Jac_FULL(10,330) + JVS(100) = B(1575) IF (DO_JVS(101)) & -! JVS(101) = Jac_FULL(15,15) - JVS(101) = 0 +! JVS(101) = Jac_FULL(10,332) + JVS(101) = B(1588) IF (DO_JVS(102)) & -! JVS(102) = Jac_FULL(15,224) - JVS(102) = B(904) +! JVS(102) = Jac_FULL(11,11) + JVS(102) = 0 IF (DO_JVS(103)) & -! JVS(103) = Jac_FULL(15,281) - JVS(103) = B(905) +! JVS(103) = Jac_FULL(11,13) + JVS(103) = B(1475) IF (DO_JVS(104)) & -! JVS(104) = Jac_FULL(16,16) - JVS(104) = 0 +! JVS(104) = Jac_FULL(11,337) + JVS(104) = B(1476) IF (DO_JVS(105)) & -! JVS(105) = Jac_FULL(16,18) - JVS(105) = B(1089) +! JVS(105) = Jac_FULL(12,12) + JVS(105) = 0 IF (DO_JVS(106)) & -! JVS(106) = Jac_FULL(16,284) - JVS(106) = B(1090) +! JVS(106) = Jac_FULL(12,13) + JVS(106) = B(1477) IF (DO_JVS(107)) & -! JVS(107) = Jac_FULL(17,17) - JVS(107) = 0 +! JVS(107) = Jac_FULL(12,346) + JVS(107) = B(1478) IF (DO_JVS(108)) & -! JVS(108) = Jac_FULL(17,18) - JVS(108) = B(1091) +! JVS(108) = Jac_FULL(13,13) + JVS(108) = -B(1475)-B(1477) IF (DO_JVS(109)) & -! JVS(109) = Jac_FULL(17,279) - JVS(109) = B(1092) +! JVS(109) = Jac_FULL(13,143) + JVS(109) = B(1381) IF (DO_JVS(110)) & -! JVS(110) = Jac_FULL(18,18) - JVS(110) = -B(1089)-B(1091) +! JVS(110) = Jac_FULL(13,337) + JVS(110) = -B(1476) IF (DO_JVS(111)) & -! JVS(111) = Jac_FULL(18,19) - JVS(111) = B(1087) +! JVS(111) = Jac_FULL(13,345) + JVS(111) = B(1382) IF (DO_JVS(112)) & -! JVS(112) = Jac_FULL(18,279) - JVS(112) = -B(1092) +! JVS(112) = Jac_FULL(13,346) + JVS(112) = -B(1478) IF (DO_JVS(113)) & -! JVS(113) = Jac_FULL(18,284) - JVS(113) = -B(1090) +! JVS(113) = Jac_FULL(14,14) + JVS(113) = 0 IF (DO_JVS(114)) & -! JVS(114) = Jac_FULL(18,286) - JVS(114) = B(1088) +! JVS(114) = Jac_FULL(14,276) + JVS(114) = B(949)+B(951)+B(953)+B(955) IF (DO_JVS(115)) & -! JVS(115) = Jac_FULL(19,19) - JVS(115) = -B(1087) +! JVS(115) = Jac_FULL(14,345) + JVS(115) = B(950)+B(952)+B(954)+B(956) IF (DO_JVS(116)) & -! JVS(116) = Jac_FULL(19,286) - JVS(116) = -B(1088) +! JVS(116) = Jac_FULL(15,15) + JVS(116) = 0 IF (DO_JVS(117)) & -! JVS(117) = Jac_FULL(20,20) - JVS(117) = 0 +! JVS(117) = Jac_FULL(15,276) + JVS(117) = B(1147) IF (DO_JVS(118)) & -! JVS(118) = Jac_FULL(20,22) - JVS(118) = B(1197) +! JVS(118) = Jac_FULL(15,351) + JVS(118) = B(1148) IF (DO_JVS(119)) & -! JVS(119) = Jac_FULL(20,284) - JVS(119) = B(1198) +! JVS(119) = Jac_FULL(16,16) + JVS(119) = 0 IF (DO_JVS(120)) & -! JVS(120) = Jac_FULL(21,21) - JVS(120) = 0 +! JVS(120) = Jac_FULL(16,18) + JVS(120) = B(1332) IF (DO_JVS(121)) & -! JVS(121) = Jac_FULL(21,22) - JVS(121) = B(1199) +! JVS(121) = Jac_FULL(16,337) + JVS(121) = B(1333) IF (DO_JVS(122)) & -! JVS(122) = Jac_FULL(21,279) - JVS(122) = B(1200) +! JVS(122) = Jac_FULL(17,17) + JVS(122) = 0 IF (DO_JVS(123)) & -! JVS(123) = Jac_FULL(22,22) - JVS(123) = -B(1197)-B(1199) +! JVS(123) = Jac_FULL(17,18) + JVS(123) = B(1334) IF (DO_JVS(124)) & -! JVS(124) = Jac_FULL(22,79) - JVS(124) = B(1118) +! JVS(124) = Jac_FULL(17,346) + JVS(124) = B(1335) IF (DO_JVS(125)) & -! JVS(125) = Jac_FULL(22,279) - JVS(125) = -B(1200) +! JVS(125) = Jac_FULL(18,18) + JVS(125) = -B(1332)-B(1334) IF (DO_JVS(126)) & -! JVS(126) = Jac_FULL(22,284) - JVS(126) = -B(1198) +! JVS(126) = Jac_FULL(18,19) + JVS(126) = B(1330) IF (DO_JVS(127)) & -! JVS(127) = Jac_FULL(22,286) - JVS(127) = B(1119) +! JVS(127) = Jac_FULL(18,337) + JVS(127) = -B(1333) IF (DO_JVS(128)) & -! JVS(128) = Jac_FULL(23,23) - JVS(128) = 0 +! JVS(128) = Jac_FULL(18,345) + JVS(128) = B(1331) IF (DO_JVS(129)) & -! JVS(129) = Jac_FULL(23,24) - JVS(129) = B(1338) +! JVS(129) = Jac_FULL(18,346) + JVS(129) = -B(1335) IF (DO_JVS(130)) & -! JVS(130) = Jac_FULL(24,24) - JVS(130) = -B(245)-B(1338) +! JVS(130) = Jac_FULL(19,19) + JVS(130) = -B(1330) IF (DO_JVS(131)) & -! JVS(131) = Jac_FULL(24,157) - JVS(131) = 0.005*B(772)+0.005*B(774)+0.005*B(780) +! JVS(131) = Jac_FULL(19,345) + JVS(131) = -B(1331) IF (DO_JVS(132)) & -! JVS(132) = Jac_FULL(24,162) - JVS(132) = 0.005*B(776)+0.005*B(778)+0.005*B(782) +! JVS(132) = Jac_FULL(20,20) + JVS(132) = 0 IF (DO_JVS(133)) & -! JVS(133) = Jac_FULL(24,165) - JVS(133) = 0.005*B(786) +! JVS(133) = Jac_FULL(20,22) + JVS(133) = B(1479) IF (DO_JVS(134)) & -! JVS(134) = Jac_FULL(24,171) - JVS(134) = 0.005*B(784) +! JVS(134) = Jac_FULL(20,337) + JVS(134) = B(1480) IF (DO_JVS(135)) & -! JVS(135) = Jac_FULL(24,286) - JVS(135) = -B(246)+0.005*B(773)+0.005*B(775)+0.005*B(777)+0.005*B(779)+0.005*B(781)+0.005*B(783)+0.005*B(785)+0.005& - &*B(787) +! JVS(135) = Jac_FULL(21,21) + JVS(135) = 0 IF (DO_JVS(136)) & -! JVS(136) = Jac_FULL(25,25) - JVS(136) = 0 +! JVS(136) = Jac_FULL(21,22) + JVS(136) = B(1481) IF (DO_JVS(137)) & -! JVS(137) = Jac_FULL(25,27) - JVS(137) = B(1201) +! JVS(137) = Jac_FULL(21,346) + JVS(137) = B(1482) IF (DO_JVS(138)) & -! JVS(138) = Jac_FULL(25,284) - JVS(138) = B(1202) +! JVS(138) = Jac_FULL(22,22) + JVS(138) = -B(1479)-B(1481) IF (DO_JVS(139)) & -! JVS(139) = Jac_FULL(26,26) - JVS(139) = 0 +! JVS(139) = Jac_FULL(22,82) + JVS(139) = B(1383) IF (DO_JVS(140)) & -! JVS(140) = Jac_FULL(26,27) - JVS(140) = B(1203) +! JVS(140) = Jac_FULL(22,337) + JVS(140) = -B(1480) IF (DO_JVS(141)) & -! JVS(141) = Jac_FULL(26,279) - JVS(141) = B(1204) +! JVS(141) = Jac_FULL(22,345) + JVS(141) = B(1384) IF (DO_JVS(142)) & -! JVS(142) = Jac_FULL(27,27) - JVS(142) = -B(1201)-B(1203) +! JVS(142) = Jac_FULL(22,346) + JVS(142) = -B(1482) IF (DO_JVS(143)) & -! JVS(143) = Jac_FULL(27,80) - JVS(143) = B(1120) +! JVS(143) = Jac_FULL(23,23) + JVS(143) = 0 IF (DO_JVS(144)) & -! JVS(144) = Jac_FULL(27,279) - JVS(144) = -B(1204) +! JVS(144) = Jac_FULL(23,24) + JVS(144) = B(1620) IF (DO_JVS(145)) & -! JVS(145) = Jac_FULL(27,284) - JVS(145) = -B(1202) +! JVS(145) = Jac_FULL(24,24) + JVS(145) = -B(340)-B(1620) IF (DO_JVS(146)) & -! JVS(146) = Jac_FULL(27,286) - JVS(146) = B(1121) +! JVS(146) = Jac_FULL(24,187) + JVS(146) = 0.005*B(1015)+0.005*B(1017)+0.005*B(1023) IF (DO_JVS(147)) & -! JVS(147) = Jac_FULL(28,28) - JVS(147) = 0 +! JVS(147) = Jac_FULL(24,192) + JVS(147) = 0.005*B(1019)+0.005*B(1021)+0.005*B(1025) IF (DO_JVS(148)) & -! JVS(148) = Jac_FULL(28,90) - JVS(148) = 0.25*B(284) +! JVS(148) = Jac_FULL(24,199) + JVS(148) = 0.005*B(1029) IF (DO_JVS(149)) & -! JVS(149) = Jac_FULL(28,286) - JVS(149) = 0.25*B(285) +! JVS(149) = Jac_FULL(24,209) + JVS(149) = 0.005*B(1027) IF (DO_JVS(150)) & -! JVS(150) = Jac_FULL(29,29) - JVS(150) = 0 +! JVS(150) = Jac_FULL(24,345) + 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)) & -! JVS(151) = Jac_FULL(29,138) - JVS(151) = B(8) +! JVS(151) = Jac_FULL(25,25) + JVS(151) = 0 IF (DO_JVS(152)) & -! JVS(152) = Jac_FULL(29,276) - JVS(152) = B(9) +! JVS(152) = Jac_FULL(25,27) + JVS(152) = B(1483) IF (DO_JVS(153)) & -! JVS(153) = Jac_FULL(29,282) - JVS(153) = B(10) +! JVS(153) = Jac_FULL(25,337) + JVS(153) = B(1484) IF (DO_JVS(154)) & -! JVS(154) = Jac_FULL(30,30) +! JVS(154) = Jac_FULL(26,26) JVS(154) = 0 IF (DO_JVS(155)) & -! JVS(155) = Jac_FULL(30,104) - JVS(155) = 1.5*B(1344) +! JVS(155) = Jac_FULL(26,27) + JVS(155) = B(1485) IF (DO_JVS(156)) & -! JVS(156) = Jac_FULL(30,223) - JVS(156) = B(1333) +! JVS(156) = Jac_FULL(26,346) + JVS(156) = B(1486) IF (DO_JVS(157)) & -! JVS(157) = Jac_FULL(30,233) - JVS(157) = 1.5*B(1334) +! JVS(157) = Jac_FULL(27,27) + JVS(157) = -B(1483)-B(1485) IF (DO_JVS(158)) & -! JVS(158) = Jac_FULL(31,31) - JVS(158) = 0 +! JVS(158) = Jac_FULL(27,101) + JVS(158) = B(1385) IF (DO_JVS(159)) & -! JVS(159) = Jac_FULL(31,105) - JVS(159) = 0.8*B(1345) +! JVS(159) = Jac_FULL(27,337) + JVS(159) = -B(1484) IF (DO_JVS(160)) & -! JVS(160) = Jac_FULL(31,116) - JVS(160) = B(1337) +! JVS(160) = Jac_FULL(27,345) + JVS(160) = B(1386) IF (DO_JVS(161)) & -! JVS(161) = Jac_FULL(31,130) - JVS(161) = B(1335) +! JVS(161) = Jac_FULL(27,346) + JVS(161) = -B(1486) IF (DO_JVS(162)) & -! JVS(162) = Jac_FULL(31,131) - JVS(162) = B(1336) +! JVS(162) = Jac_FULL(28,28) + JVS(162) = 0 IF (DO_JVS(163)) & -! JVS(163) = Jac_FULL(31,174) - JVS(163) = B(1350) +! JVS(163) = Jac_FULL(28,94) + JVS(163) = 0.25*B(383) IF (DO_JVS(164)) & -! JVS(164) = Jac_FULL(32,32) - JVS(164) = 0 +! JVS(164) = Jac_FULL(28,345) + JVS(164) = 0.25*B(384) IF (DO_JVS(165)) & -! JVS(165) = Jac_FULL(32,195) - JVS(165) = B(612) +! JVS(165) = Jac_FULL(29,29) + JVS(165) = 0 IF (DO_JVS(166)) & -! JVS(166) = Jac_FULL(32,234) - JVS(166) = B(604) +! JVS(166) = Jac_FULL(29,166) + JVS(166) = B(8) IF (DO_JVS(167)) & -! JVS(167) = Jac_FULL(32,276) - JVS(167) = B(288)+B(605)+B(613) +! JVS(167) = Jac_FULL(29,341) + JVS(167) = B(9) IF (DO_JVS(168)) & -! JVS(168) = Jac_FULL(32,286) - JVS(168) = B(289) +! JVS(168) = Jac_FULL(29,348) + JVS(168) = B(10) IF (DO_JVS(169)) & -! JVS(169) = Jac_FULL(33,33) +! JVS(169) = Jac_FULL(30,30) JVS(169) = 0 IF (DO_JVS(170)) & -! JVS(170) = Jac_FULL(33,86) - JVS(170) = 2*B(23) +! JVS(170) = Jac_FULL(30,115) + JVS(170) = 1.5*B(1626) IF (DO_JVS(171)) & -! JVS(171) = Jac_FULL(33,212) - JVS(171) = B(15) +! JVS(171) = Jac_FULL(30,270) + JVS(171) = B(1615) IF (DO_JVS(172)) & -! JVS(172) = Jac_FULL(33,276) - JVS(172) = B(16)+B(17)+B(19)+2*B(24) +! JVS(172) = Jac_FULL(30,294) + JVS(172) = 1.5*B(1616) IF (DO_JVS(173)) & -! JVS(173) = Jac_FULL(33,282) - JVS(173) = B(18) +! JVS(173) = Jac_FULL(31,31) + JVS(173) = 0 IF (DO_JVS(174)) & -! JVS(174) = Jac_FULL(33,286) - JVS(174) = 2*B(25) +! JVS(174) = Jac_FULL(31,107) + JVS(174) = 0.8*B(1627) IF (DO_JVS(175)) & -! JVS(175) = Jac_FULL(34,34) - JVS(175) = 0 +! JVS(175) = Jac_FULL(31,128) + JVS(175) = B(1619) IF (DO_JVS(176)) & -! JVS(176) = Jac_FULL(34,45) - JVS(176) = B(693) +! JVS(176) = Jac_FULL(31,151) + JVS(176) = B(1617) IF (DO_JVS(177)) & -! JVS(177) = Jac_FULL(34,61) - JVS(177) = B(1454) +! JVS(177) = Jac_FULL(31,152) + JVS(177) = B(1618) IF (DO_JVS(178)) & -! JVS(178) = Jac_FULL(34,65) - JVS(178) = B(378)+B(380) +! JVS(178) = Jac_FULL(31,215) + JVS(178) = B(1632) IF (DO_JVS(179)) & -! JVS(179) = Jac_FULL(34,67) - JVS(179) = 0.3*B(1376) +! JVS(179) = Jac_FULL(32,32) + JVS(179) = 0 IF (DO_JVS(180)) & -! JVS(180) = Jac_FULL(34,68) - JVS(180) = B(1110) +! JVS(180) = Jac_FULL(32,241) + JVS(180) = B(711) IF (DO_JVS(181)) & -! JVS(181) = Jac_FULL(34,74) - JVS(181) = B(1451) +! JVS(181) = Jac_FULL(32,312) + JVS(181) = B(703) IF (DO_JVS(182)) & -! JVS(182) = Jac_FULL(34,87) - JVS(182) = B(700)+B(1469) +! JVS(182) = Jac_FULL(32,345) + JVS(182) = B(387) IF (DO_JVS(183)) & -! JVS(183) = Jac_FULL(34,89) - JVS(183) = B(696)+B(1467) +! JVS(183) = Jac_FULL(32,348) + JVS(183) = B(388)+B(704)+B(712) IF (DO_JVS(184)) & -! JVS(184) = Jac_FULL(34,91) - JVS(184) = B(702)+B(1470) +! JVS(184) = Jac_FULL(33,33) + JVS(184) = 0 IF (DO_JVS(185)) & -! JVS(185) = Jac_FULL(34,96) - JVS(185) = B(698)+B(1468) +! JVS(185) = Jac_FULL(33,89) + JVS(185) = 2*B(23) IF (DO_JVS(186)) & -! JVS(186) = Jac_FULL(34,97) - JVS(186) = B(1158)+B(1159) +! JVS(186) = Jac_FULL(33,345) + JVS(186) = 2*B(24) IF (DO_JVS(187)) & -! JVS(187) = Jac_FULL(34,98) - JVS(187) = B(692) +! JVS(187) = Jac_FULL(33,348) + JVS(187) = 2*B(25) IF (DO_JVS(188)) & -! JVS(188) = Jac_FULL(34,102) - JVS(188) = B(1369) +! JVS(188) = Jac_FULL(34,34) + JVS(188) = 0 IF (DO_JVS(189)) & -! JVS(189) = Jac_FULL(34,103) - JVS(189) = 0.1*B(494) +! JVS(189) = Jac_FULL(34,45) + JVS(189) = B(936) IF (DO_JVS(190)) & -! JVS(190) = Jac_FULL(34,121) - JVS(190) = B(842) +! JVS(190) = Jac_FULL(34,56) + JVS(190) = B(755) IF (DO_JVS(191)) & -! JVS(191) = Jac_FULL(34,123) - JVS(191) = B(846) +! JVS(191) = Jac_FULL(34,57) + JVS(191) = B(844) IF (DO_JVS(192)) & -! JVS(192) = Jac_FULL(34,128) - JVS(192) = B(304) +! JVS(192) = Jac_FULL(34,63) + JVS(192) = B(1744) IF (DO_JVS(193)) & -! JVS(193) = Jac_FULL(34,134) - JVS(193) = B(694) +! JVS(193) = Jac_FULL(34,67) + JVS(193) = B(477)+B(479) IF (DO_JVS(194)) & -! JVS(194) = Jac_FULL(34,143) - JVS(194) = B(574) +! JVS(194) = Jac_FULL(34,70) + JVS(194) = B(1375) IF (DO_JVS(195)) & -! JVS(195) = Jac_FULL(34,144) - JVS(195) = B(1003) +! JVS(195) = Jac_FULL(34,80) + JVS(195) = B(1741) IF (DO_JVS(196)) & -! JVS(196) = Jac_FULL(34,145) - JVS(196) = B(1009) +! JVS(196) = Jac_FULL(34,83) + JVS(196) = B(941)+B(1758) IF (DO_JVS(197)) & -! JVS(197) = Jac_FULL(34,146) - JVS(197) = B(977) +! JVS(197) = Jac_FULL(34,90) + JVS(197) = B(1440)+B(1441) IF (DO_JVS(198)) & -! JVS(198) = Jac_FULL(34,150) - JVS(198) = B(971) +! JVS(198) = Jac_FULL(34,91) + JVS(198) = B(943)+B(1759) IF (DO_JVS(199)) & -! JVS(199) = Jac_FULL(34,152) - JVS(199) = B(880)+B(882) +! JVS(199) = Jac_FULL(34,93) + JVS(199) = B(939)+B(1757) IF (DO_JVS(200)) & -! JVS(200) = Jac_FULL(34,153) - JVS(200) = B(1059) +! JVS(200) = Jac_FULL(34,95) + JVS(200) = B(945)+B(1760) IF (DO_JVS(201)) & -! JVS(201) = Jac_FULL(34,166) - JVS(201) = B(888)+B(890) +! JVS(201) = Jac_FULL(34,103) + JVS(201) = B(935) IF (DO_JVS(202)) & -! JVS(202) = Jac_FULL(34,167) - JVS(202) = B(873)+B(875) +! JVS(202) = Jac_FULL(34,108) + JVS(202) = B(1651) IF (DO_JVS(203)) & -! JVS(203) = Jac_FULL(34,168) - JVS(203) = B(894)+B(896) +! JVS(203) = Jac_FULL(34,110) + JVS(203) = 0.1*B(593) IF (DO_JVS(204)) & -! JVS(204) = Jac_FULL(34,177) - JVS(204) = 0.02*B(376) +! JVS(204) = Jac_FULL(34,113) + JVS(204) = B(240)+B(241) IF (DO_JVS(205)) & -! JVS(205) = Jac_FULL(34,179) - JVS(205) = 0.995*B(1101) +! JVS(205) = Jac_FULL(34,114) + JVS(205) = B(299)+B(306) IF (DO_JVS(206)) & -! JVS(206) = Jac_FULL(34,180) - JVS(206) = 0.15*B(1150)+B(1152) +! JVS(206) = Jac_FULL(34,116) + JVS(206) = B(1356)+B(1687) IF (DO_JVS(207)) & -! JVS(207) = Jac_FULL(34,182) - JVS(207) = B(789)+B(791) +! JVS(207) = Jac_FULL(34,121) + JVS(207) = B(1399) IF (DO_JVS(208)) & -! JVS(208) = Jac_FULL(34,183) - JVS(208) = B(796)+B(798) +! JVS(208) = Jac_FULL(34,122) + JVS(208) = B(1411)+B(1412) IF (DO_JVS(209)) & -! JVS(209) = Jac_FULL(34,184) - JVS(209) = B(1124) +! JVS(209) = Jac_FULL(34,124) + JVS(209) = 0.3*B(1806) IF (DO_JVS(210)) & -! JVS(210) = Jac_FULL(34,187) - JVS(210) = B(803)+B(805) +! JVS(210) = Jac_FULL(34,126) + JVS(210) = B(166)+2*B(167)+B(1659) IF (DO_JVS(211)) & -! JVS(211) = Jac_FULL(34,189) - JVS(211) = B(963)+B(965) +! JVS(211) = Jac_FULL(34,127) + JVS(211) = B(152) IF (DO_JVS(212)) & -! JVS(212) = Jac_FULL(34,191) - JVS(212) = B(1161)+B(1163) +! JVS(212) = Jac_FULL(34,132) + JVS(212) = B(156) IF (DO_JVS(213)) & -! JVS(213) = Jac_FULL(34,193) - JVS(213) = B(71) +! JVS(213) = Jac_FULL(34,133) + JVS(213) = B(1085) IF (DO_JVS(214)) & -! JVS(214) = Jac_FULL(34,194) - JVS(214) = B(837)+B(839) +! JVS(214) = Jac_FULL(34,135) + JVS(214) = B(1089) IF (DO_JVS(215)) & -! JVS(215) = Jac_FULL(34,195) - JVS(215) = B(608)+B(610) +! JVS(215) = Jac_FULL(34,137) + JVS(215) = 0.5*B(743) IF (DO_JVS(216)) & -! JVS(216) = Jac_FULL(34,197) - JVS(216) = B(428) +! JVS(216) = Jac_FULL(34,138) + JVS(216) = 0.5*B(780) IF (DO_JVS(217)) & -! JVS(217) = Jac_FULL(34,201) - JVS(217) = B(138) +! JVS(217) = Jac_FULL(34,139) + JVS(217) = 0.3*B(1658) IF (DO_JVS(218)) & -! JVS(218) = Jac_FULL(34,204) - JVS(218) = B(1029)+B(1031) +! JVS(218) = Jac_FULL(34,148) + JVS(218) = B(403) IF (DO_JVS(219)) & -! JVS(219) = Jac_FULL(34,205) - JVS(219) = B(1040)+B(1042) +! JVS(219) = Jac_FULL(34,154) + JVS(219) = B(937) IF (DO_JVS(220)) & -! JVS(220) = Jac_FULL(34,207) - JVS(220) = 0.13*B(1035)+B(1044) +! JVS(220) = Jac_FULL(34,162) + JVS(220) = B(798) IF (DO_JVS(221)) & -! JVS(221) = Jac_FULL(34,209) - JVS(221) = B(120) +! JVS(221) = Jac_FULL(34,165) + JVS(221) = 2*B(138) IF (DO_JVS(222)) & -! JVS(222) = Jac_FULL(34,210) - JVS(222) = B(1175) +! JVS(222) = Jac_FULL(34,170) + JVS(222) = B(673) IF (DO_JVS(223)) & -! JVS(223) = Jac_FULL(34,215) - JVS(223) = B(658) +! JVS(223) = Jac_FULL(34,171) + JVS(223) = B(1246) IF (DO_JVS(224)) & -! JVS(224) = Jac_FULL(34,216) - JVS(224) = B(660) +! JVS(224) = Jac_FULL(34,172) + JVS(224) = B(1252) IF (DO_JVS(225)) & -! JVS(225) = Jac_FULL(34,217) - JVS(225) = B(106)+B(520) +! JVS(225) = Jac_FULL(34,176) + JVS(225) = B(772) IF (DO_JVS(226)) & -! JVS(226) = Jac_FULL(34,222) - JVS(226) = B(959)+B(961) +! JVS(226) = Jac_FULL(34,177) + JVS(226) = B(836) IF (DO_JVS(227)) & -! JVS(227) = Jac_FULL(34,225) - JVS(227) = B(646) +! JVS(227) = Jac_FULL(34,178) + JVS(227) = B(128) IF (DO_JVS(228)) & -! JVS(228) = Jac_FULL(34,228) - JVS(228) = B(823)+B(825) +! JVS(228) = Jac_FULL(34,180) + JVS(228) = B(1220) IF (DO_JVS(229)) & -! JVS(229) = Jac_FULL(34,229) - JVS(229) = B(829)+B(831) +! JVS(229) = Jac_FULL(34,182) + JVS(229) = B(1214) IF (DO_JVS(230)) & -! JVS(230) = Jac_FULL(34,232) - JVS(230) = B(900)+B(902) +! JVS(230) = Jac_FULL(34,184) + JVS(230) = B(1302) IF (DO_JVS(231)) & -! JVS(231) = Jac_FULL(34,234) - JVS(231) = B(594)+B(596) +! JVS(231) = Jac_FULL(34,189) + JVS(231) = 0.89*B(1352) IF (DO_JVS(232)) & -! JVS(232) = Jac_FULL(34,235) - JVS(232) = B(444) +! JVS(232) = Jac_FULL(34,190) + JVS(232) = B(1123)+B(1125) IF (DO_JVS(233)) & -! JVS(233) = Jac_FULL(34,237) - JVS(233) = B(116) +! JVS(233) = Jac_FULL(34,193) + JVS(233) = B(865) IF (DO_JVS(234)) & -! JVS(234) = Jac_FULL(34,238) - JVS(234) = B(622) +! JVS(234) = Jac_FULL(34,196) + JVS(234) = B(1686) IF (DO_JVS(235)) & -! JVS(235) = Jac_FULL(34,239) - JVS(235) = B(110)+B(522) +! JVS(235) = Jac_FULL(34,197) + JVS(235) = B(162) IF (DO_JVS(236)) & -! JVS(236) = Jac_FULL(34,241) - JVS(236) = 0.69*B(993) +! JVS(236) = Jac_FULL(34,205) + JVS(236) = B(1116)+B(1118) IF (DO_JVS(237)) & -! JVS(237) = Jac_FULL(34,244) - JVS(237) = B(750)+B(752)+B(754)+B(756) +! JVS(237) = Jac_FULL(34,206) + JVS(237) = B(1131)+B(1133) IF (DO_JVS(238)) & -! JVS(238) = Jac_FULL(34,245) - JVS(238) = B(742)+B(744)+B(746)+B(748) +! JVS(238) = Jac_FULL(34,207) + JVS(238) = B(1137)+B(1139) IF (DO_JVS(239)) & -! JVS(239) = Jac_FULL(34,246) - JVS(239) = B(930)+B(932) +! JVS(239) = Jac_FULL(34,211) + JVS(239) = 0.5*B(818) IF (DO_JVS(240)) & -! JVS(240) = Jac_FULL(34,247) - JVS(240) = B(926)+B(928) +! JVS(240) = Jac_FULL(34,212) + JVS(240) = 0.942*B(148) IF (DO_JVS(241)) & -! JVS(241) = Jac_FULL(34,249) - JVS(241) = 0.13*B(1048)+B(1050) +! JVS(241) = Jac_FULL(34,213) + JVS(241) = B(300)+0.15*B(302) IF (DO_JVS(242)) & -! JVS(242) = Jac_FULL(34,252) - JVS(242) = B(130) +! JVS(242) = Jac_FULL(34,217) + JVS(242) = 0.02*B(475) IF (DO_JVS(243)) & -! JVS(243) = Jac_FULL(34,254) - JVS(243) = B(132) +! JVS(243) = Jac_FULL(34,223) + JVS(243) = B(1032)+B(1034) IF (DO_JVS(244)) & -! JVS(244) = Jac_FULL(34,255) - JVS(244) = B(151)+0.15*B(207) +! JVS(244) = Jac_FULL(34,224) + JVS(244) = B(1039)+B(1041) IF (DO_JVS(245)) & -! JVS(245) = Jac_FULL(34,256) - JVS(245) = B(124)+B(126) +! JVS(245) = Jac_FULL(34,226) + JVS(245) = B(1206)+B(1208) IF (DO_JVS(246)) & -! JVS(246) = Jac_FULL(34,257) - JVS(246) = B(128) +! JVS(246) = Jac_FULL(34,232) + JVS(246) = B(1046)+B(1048) IF (DO_JVS(247)) & -! JVS(247) = Jac_FULL(34,258) - JVS(247) = B(134) +! JVS(247) = Jac_FULL(34,234) + JVS(247) = 0.995*B(1366) IF (DO_JVS(248)) & -! JVS(248) = Jac_FULL(34,261) - JVS(248) = B(102)+0.13*B(1081) +! JVS(248) = Jac_FULL(34,235) + JVS(248) = 0.15*B(1432)+B(1434) IF (DO_JVS(249)) & -! JVS(249) = Jac_FULL(34,262) - JVS(249) = B(446) +! JVS(249) = Jac_FULL(34,236) + JVS(249) = B(1443)+B(1445) IF (DO_JVS(250)) & -! JVS(250) = Jac_FULL(34,265) - JVS(250) = B(67) +! JVS(250) = Jac_FULL(34,239) + JVS(250) = B(71) IF (DO_JVS(251)) & -! JVS(251) = Jac_FULL(34,266) - JVS(251) = B(49)+B(514) +! JVS(251) = Jac_FULL(34,240) + JVS(251) = B(1405)+0.15*B(1407) IF (DO_JVS(252)) & -! JVS(252) = Jac_FULL(34,279) - JVS(252) = B(42)+B(50)+B(103)+B(107)+B(111)+B(117)+B(121)+B(125)+B(127)+B(129)+B(131)+B(133)+B(135)+B(139)+B(152)& - &+B(381)+B(595)+B(609)+B(623)+B(647)+B(659)+B(661)+B(743)+B(745)+B(747)+B(749)+B(751)+B(753)+B(755)+B(757)& - &+B(790)+B(792)+B(797)+B(799)+B(804)+B(806)+B(824)+B(826)+B(830)+B(832)+B(838)+B(840)+B(843)+B(847)+B(874)& - &+B(876)+B(881)+B(883)+B(889)+B(891)+B(895)+B(897)+B(901)+B(903)+B(927)+B(929)+B(931)+B(933)+B(960)+B(962)& - &+B(964)+B(966)+B(972)+B(978)+B(1004)+B(1010)+B(1030)+B(1032)+B(1041)+B(1043)+B(1045)+B(1051)+0.995*B(1102)& - &+B(1125)+B(1153)+B(1164)+B(1457) +! JVS(252) = Jac_FULL(34,241) + JVS(252) = B(707)+B(709) IF (DO_JVS(253)) & -! JVS(253) = Jac_FULL(34,284) - JVS(253) = B(43)+0.15*B(208)+0.02*B(377)+B(476)+0.13*B(1036)+0.13*B(1049)+0.13*B(1082)+0.15*B(1151) +! JVS(253) = Jac_FULL(34,243) + JVS(253) = B(1080)+B(1082) IF (DO_JVS(254)) & -! JVS(254) = Jac_FULL(34,286) - JVS(254) = B(36)+B(68)+B(72)+B(305)+B(429)+B(445)+B(447)+B(575)+B(695)+B(697)+B(699)+B(701)+B(703)+0.69*B(994)+B(1060)& - &+B(1111)+B(1160)+B(1176) +! JVS(254) = Jac_FULL(34,245) + JVS(254) = B(527) IF (DO_JVS(255)) & -! JVS(255) = Jac_FULL(34,290) - JVS(255) = B(477)+0.1*B(495)+B(515)+B(521)+B(523) +! JVS(255) = Jac_FULL(34,246) + JVS(255) = B(243)+0.15*B(245) IF (DO_JVS(256)) & -! JVS(256) = Jac_FULL(34,291) - JVS(256) = B(597)+B(611)+B(1162) +! JVS(256) = Jac_FULL(34,249) + JVS(256) = B(175) IF (DO_JVS(257)) & -! JVS(257) = Jac_FULL(35,35) - JVS(257) = 0 +! JVS(257) = Jac_FULL(34,250) + JVS(257) = B(191) IF (DO_JVS(258)) & -! JVS(258) = Jac_FULL(35,42) - JVS(258) = 4*B(1300)+4*B(1301)+4*B(1302) +! JVS(258) = Jac_FULL(34,253) + JVS(258) = B(1283)+B(1285) IF (DO_JVS(259)) & -! JVS(259) = Jac_FULL(35,44) - JVS(259) = 2*B(1294)+2*B(1295)+2*B(1296) +! JVS(259) = Jac_FULL(34,254) + JVS(259) = B(1272)+B(1274) IF (DO_JVS(260)) & -! JVS(260) = Jac_FULL(35,49) - JVS(260) = 3*B(1297)+3*B(1298)+3*B(1299) +! JVS(260) = Jac_FULL(34,257) + JVS(260) = 0.15*B(749)+B(751) IF (DO_JVS(261)) & -! JVS(261) = Jac_FULL(35,55) - JVS(261) = 0.1*B(420) +! JVS(261) = Jac_FULL(34,259) + JVS(261) = 0.13*B(1278)+B(1287) IF (DO_JVS(262)) & -! JVS(262) = Jac_FULL(35,56) - JVS(262) = 0.05*B(422) +! JVS(262) = Jac_FULL(34,260) + JVS(262) = B(122) IF (DO_JVS(263)) & -! JVS(263) = Jac_FULL(35,61) - JVS(263) = B(342) +! JVS(263) = Jac_FULL(34,263) + JVS(263) = B(1389) IF (DO_JVS(264)) & -! JVS(264) = Jac_FULL(35,62) - JVS(264) = B(1465) +! JVS(264) = Jac_FULL(34,269) + JVS(264) = B(1457) IF (DO_JVS(265)) & -! JVS(265) = Jac_FULL(35,63) - JVS(265) = B(1463) +! JVS(265) = Jac_FULL(34,271) + JVS(265) = B(1202)+B(1204) IF (DO_JVS(266)) & -! JVS(266) = Jac_FULL(35,66) - JVS(266) = B(358) +! JVS(266) = Jac_FULL(34,272) + JVS(266) = 0.84*B(824) IF (DO_JVS(267)) & -! JVS(267) = Jac_FULL(35,75) - JVS(267) = B(438)+2*B(1415) +! JVS(267) = Jac_FULL(34,273) + JVS(267) = B(790) IF (DO_JVS(268)) & -! JVS(268) = Jac_FULL(35,76) - JVS(268) = B(1093) +! JVS(268) = Jac_FULL(34,274) + JVS(268) = 0.15*B(838)+B(840) IF (DO_JVS(269)) & -! JVS(269) = Jac_FULL(35,84) - JVS(269) = 0.19*B(404) +! JVS(269) = Jac_FULL(34,275) + JVS(269) = 0.75*B(776) IF (DO_JVS(270)) & -! JVS(270) = Jac_FULL(35,90) - JVS(270) = B(286) +! JVS(270) = Jac_FULL(34,277) + JVS(270) = 0.75*B(737) IF (DO_JVS(271)) & -! JVS(271) = Jac_FULL(35,92) - JVS(271) = 2*B(1438) +! JVS(271) = Jac_FULL(34,278) + JVS(271) = 0.84*B(764) IF (DO_JVS(272)) & -! JVS(272) = Jac_FULL(35,100) - JVS(272) = 0.56*B(398) +! JVS(272) = Jac_FULL(34,280) + JVS(272) = B(901) IF (DO_JVS(273)) & -! JVS(273) = Jac_FULL(35,101) - JVS(273) = B(1148) +! JVS(273) = Jac_FULL(34,281) + JVS(273) = 0.75*B(802) IF (DO_JVS(274)) & -! JVS(274) = Jac_FULL(35,111) - JVS(274) = B(436) +! JVS(274) = Jac_FULL(34,285) + JVS(274) = B(1072)+B(1074) IF (DO_JVS(275)) & -! JVS(275) = Jac_FULL(35,114) - JVS(275) = B(140) +! JVS(275) = Jac_FULL(34,286) + JVS(275) = B(1066)+B(1068) IF (DO_JVS(276)) & -! JVS(276) = Jac_FULL(35,115) - JVS(276) = 1.5*B(1138) +! JVS(276) = Jac_FULL(34,289) + JVS(276) = B(903) IF (DO_JVS(277)) & -! JVS(277) = Jac_FULL(35,118) - JVS(277) = 1.258*B(1134) +! JVS(277) = Jac_FULL(34,291) + JVS(277) = B(855) IF (DO_JVS(278)) & -! JVS(278) = Jac_FULL(35,134) - JVS(278) = B(1343) +! JVS(278) = Jac_FULL(34,293) + JVS(278) = B(1143)+B(1145) IF (DO_JVS(279)) & -! JVS(279) = Jac_FULL(35,138) - JVS(279) = B(8) +! JVS(279) = Jac_FULL(34,296) + JVS(279) = B(108)+B(619) IF (DO_JVS(280)) & -! JVS(280) = Jac_FULL(35,139) - JVS(280) = B(1347) +! JVS(280) = Jac_FULL(34,297) + JVS(280) = B(543) IF (DO_JVS(281)) & -! JVS(281) = Jac_FULL(35,140) - JVS(281) = B(1348) +! JVS(281) = Jac_FULL(34,300) + JVS(281) = B(171)+B(173) IF (DO_JVS(282)) & -! JVS(282) = Jac_FULL(35,142) - JVS(282) = B(1142)+1.5*B(1144) +! JVS(282) = Jac_FULL(34,302) + JVS(282) = 0.69*B(1236) IF (DO_JVS(283)) & -! JVS(283) = Jac_FULL(35,147) - JVS(283) = B(1) +! JVS(283) = Jac_FULL(34,304) + JVS(283) = B(993)+B(995)+B(997)+B(999) IF (DO_JVS(284)) & -! JVS(284) = Jac_FULL(35,148) - JVS(284) = B(1190) +! JVS(284) = Jac_FULL(34,305) + JVS(284) = B(985)+B(987)+B(989)+B(991) IF (DO_JVS(285)) & -! JVS(285) = Jac_FULL(35,149) - JVS(285) = 0.44*B(396) +! JVS(285) = Jac_FULL(34,308) + JVS(285) = 0.13*B(1291)+B(1293) IF (DO_JVS(286)) & -! JVS(286) = Jac_FULL(35,151) - JVS(286) = B(1351) +! JVS(286) = Jac_FULL(34,310) + JVS(286) = B(1169)+B(1171) IF (DO_JVS(287)) & -! JVS(287) = Jac_FULL(35,154) - JVS(287) = B(632)+B(636) +! JVS(287) = Jac_FULL(34,311) + JVS(287) = B(1173)+B(1175) IF (DO_JVS(288)) & -! JVS(288) = Jac_FULL(35,155) - JVS(288) = B(634)+B(638) +! JVS(288) = Jac_FULL(34,312) + JVS(288) = B(693)+B(695) IF (DO_JVS(289)) & -! JVS(289) = Jac_FULL(35,159) - JVS(289) = B(1185) +! JVS(289) = Jac_FULL(34,313) + JVS(289) = B(183) IF (DO_JVS(290)) & -! JVS(290) = Jac_FULL(35,160) - JVS(290) = B(1171)+B(1173) +! JVS(290) = Jac_FULL(34,315) + JVS(290) = B(112)+B(621) IF (DO_JVS(291)) & -! JVS(291) = Jac_FULL(35,161) - JVS(291) = B(249) +! JVS(291) = Jac_FULL(34,317) + JVS(291) = B(545) IF (DO_JVS(292)) & -! JVS(292) = Jac_FULL(35,170) - JVS(292) = B(642)+B(644) +! JVS(292) = Jac_FULL(34,318) + JVS(292) = B(181) IF (DO_JVS(293)) & -! JVS(293) = Jac_FULL(35,173) - JVS(293) = B(1214)+B(1216)+B(1218)+B(1219)+B(1221) +! JVS(293) = Jac_FULL(34,319) + JVS(293) = B(177)+B(179) IF (DO_JVS(294)) & -! JVS(294) = Jac_FULL(35,175) - JVS(294) = B(1356) +! JVS(294) = Jac_FULL(34,320) + JVS(294) = B(185)+B(236) IF (DO_JVS(295)) & -! JVS(295) = Jac_FULL(35,176) - JVS(295) = B(1229) +! JVS(295) = Jac_FULL(34,321) + JVS(295) = B(118) IF (DO_JVS(296)) & -! JVS(296) = Jac_FULL(35,177) - JVS(296) = B(374) +! JVS(296) = Jac_FULL(34,322) + JVS(296) = B(208)+0.15*B(283) IF (DO_JVS(297)) & -! JVS(297) = Jac_FULL(35,178) - JVS(297) = 2*B(690)+B(1341) +! JVS(297) = Jac_FULL(34,323) + JVS(297) = B(187) IF (DO_JVS(298)) & -! JVS(298) = Jac_FULL(35,179) - JVS(298) = B(1103) +! JVS(298) = Jac_FULL(34,324) + JVS(298) = B(104)+0.13*B(1324) IF (DO_JVS(299)) & -! JVS(299) = Jac_FULL(35,180) - JVS(299) = B(1154) +! JVS(299) = Jac_FULL(34,327) + JVS(299) = B(67) IF (DO_JVS(300)) & -! JVS(300) = Jac_FULL(35,181) - JVS(300) = B(1352) +! JVS(300) = Jac_FULL(34,328) + JVS(300) = B(49)+B(613) IF (DO_JVS(301)) & -! JVS(301) = Jac_FULL(35,184) - JVS(301) = B(1126) +! JVS(301) = Jac_FULL(34,335) + JVS(301) = B(696)+B(710)+B(1444) IF (DO_JVS(302)) & -! JVS(302) = Jac_FULL(35,190) - JVS(302) = B(344) +! 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) IF (DO_JVS(303)) & -! JVS(303) = Jac_FULL(35,191) - JVS(303) = B(1165) +! JVS(303) = Jac_FULL(34,340) + JVS(303) = B(576)+0.1*B(594)+B(614)+B(620)+B(622) IF (DO_JVS(304)) & -! JVS(304) = Jac_FULL(35,199) - JVS(304) = B(686)+2*B(688)+B(1342) +! 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) IF (DO_JVS(305)) & -! JVS(305) = Jac_FULL(35,200) - JVS(305) = B(1357) +! 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) IF (DO_JVS(306)) & -! JVS(306) = Jac_FULL(35,202) - JVS(306) = B(1340) +! JVS(306) = Jac_FULL(35,35) + JVS(306) = 0 IF (DO_JVS(307)) & -! JVS(307) = Jac_FULL(35,203) - JVS(307) = B(1303)+B(1304)+B(1309)+B(1311)+B(1313)+B(1315) +! JVS(307) = Jac_FULL(35,42) + JVS(307) = 4*B(1582)+4*B(1583)+4*B(1584) IF (DO_JVS(308)) & -! JVS(308) = Jac_FULL(35,208) - JVS(308) = B(1075) +! JVS(308) = Jac_FULL(35,44) + JVS(308) = 2*B(1576)+2*B(1577)+2*B(1578) IF (DO_JVS(309)) & -! JVS(309) = Jac_FULL(35,212) - JVS(309) = B(370) +! JVS(309) = Jac_FULL(35,49) + JVS(309) = 0.1*B(519) IF (DO_JVS(310)) & -! JVS(310) = Jac_FULL(35,213) - JVS(310) = B(1354) +! JVS(310) = Jac_FULL(35,50) + JVS(310) = 0.05*B(521) IF (DO_JVS(311)) & -! JVS(311) = Jac_FULL(35,214) - JVS(311) = B(1349) +! JVS(311) = Jac_FULL(35,55) + JVS(311) = 3*B(1579)+3*B(1580)+3*B(1581) IF (DO_JVS(312)) & -! JVS(312) = Jac_FULL(35,215) - JVS(312) = B(674) +! JVS(312) = Jac_FULL(35,63) + JVS(312) = B(441) IF (DO_JVS(313)) & -! JVS(313) = Jac_FULL(35,216) - JVS(313) = B(676) +! JVS(313) = Jac_FULL(35,64) + JVS(313) = B(1755) IF (DO_JVS(314)) & -! JVS(314) = Jac_FULL(35,220) - JVS(314) = B(1346) +! JVS(314) = Jac_FULL(35,65) + JVS(314) = B(1753) IF (DO_JVS(315)) & -! JVS(315) = Jac_FULL(35,223) - JVS(315) = B(223) +! JVS(315) = Jac_FULL(35,68) + JVS(315) = B(457) IF (DO_JVS(316)) & -! JVS(316) = Jac_FULL(35,224) - JVS(316) = B(704)+B(904) +! JVS(316) = Jac_FULL(35,69) + JVS(316) = B(126) IF (DO_JVS(317)) & -! JVS(317) = Jac_FULL(35,225) - JVS(317) = B(654) +! JVS(317) = Jac_FULL(35,76) + JVS(317) = B(537)+2*B(1705) IF (DO_JVS(318)) & -! JVS(318) = Jac_FULL(35,226) - JVS(318) = B(179) +! JVS(318) = Jac_FULL(35,87) + JVS(318) = 0.19*B(503) IF (DO_JVS(319)) & -! JVS(319) = Jac_FULL(35,227) - JVS(319) = 0.4*B(560)+0.88*B(568) +! JVS(319) = Jac_FULL(35,94) + JVS(319) = B(385) IF (DO_JVS(320)) & -! JVS(320) = Jac_FULL(35,233) - JVS(320) = B(225) +! JVS(320) = Jac_FULL(35,96) + JVS(320) = 2*B(1728) IF (DO_JVS(321)) & -! JVS(321) = Jac_FULL(35,234) - JVS(321) = B(602) +! JVS(321) = Jac_FULL(35,105) + JVS(321) = 0.56*B(497) IF (DO_JVS(322)) & -! JVS(322) = Jac_FULL(35,235) - JVS(322) = B(1245)+B(1247)+B(1249)+B(1251)+B(1253)+B(1255) +! JVS(322) = Jac_FULL(35,109) + JVS(322) = B(1358) IF (DO_JVS(323)) & -! JVS(323) = Jac_FULL(35,238) - JVS(323) = B(630) +! JVS(323) = Jac_FULL(35,120) + JVS(323) = B(535) IF (DO_JVS(324)) & -! JVS(324) = Jac_FULL(35,241) - JVS(324) = B(1339) +! JVS(324) = Jac_FULL(35,140) + JVS(324) = B(144)+B(146) IF (DO_JVS(325)) & -! JVS(325) = Jac_FULL(35,242) - JVS(325) = B(1355) +! JVS(325) = Jac_FULL(35,142) + JVS(325) = B(193) IF (DO_JVS(326)) & -! JVS(326) = Jac_FULL(35,243) - JVS(326) = 2*B(1353) +! JVS(326) = Jac_FULL(35,149) + JVS(326) = B(1346) IF (DO_JVS(327)) & -! JVS(327) = Jac_FULL(35,246) - JVS(327) = B(924) +! JVS(327) = Jac_FULL(35,154) + JVS(327) = B(1625) IF (DO_JVS(328)) & -! JVS(328) = Jac_FULL(35,247) - JVS(328) = B(922) +! JVS(328) = Jac_FULL(35,158) + JVS(328) = 1.5*B(1420) IF (DO_JVS(329)) & -! JVS(329) = Jac_FULL(35,248) - JVS(329) = B(983) +! JVS(329) = Jac_FULL(35,163) + JVS(329) = B(834) IF (DO_JVS(330)) & -! JVS(330) = Jac_FULL(35,249) - JVS(330) = B(1054) +! JVS(330) = Jac_FULL(35,166) + JVS(330) = B(8) IF (DO_JVS(331)) & -! JVS(331) = Jac_FULL(35,251) - JVS(331) = B(989)+B(991) +! JVS(331) = Jac_FULL(35,167) + JVS(331) = B(721)+B(725) IF (DO_JVS(332)) & -! JVS(332) = Jac_FULL(35,253) - JVS(332) = B(211)+B(217) +! JVS(332) = Jac_FULL(35,168) + JVS(332) = B(1630) IF (DO_JVS(333)) & -! JVS(333) = Jac_FULL(35,259) - JVS(333) = B(153) +! JVS(333) = Jac_FULL(35,175) + JVS(333) = B(1629) IF (DO_JVS(334)) & -! JVS(334) = Jac_FULL(35,260) - JVS(334) = B(306)+B(1267)+B(1269)+B(1271)+B(1273)+B(1275)+B(1277)+B(1279)+B(1402) +! JVS(334) = Jac_FULL(35,179) + JVS(334) = B(1) IF (DO_JVS(335)) & -! JVS(335) = Jac_FULL(35,262) - JVS(335) = B(1233)+B(1235)+B(1237)+B(1239)+B(1241)+B(1243) +! JVS(335) = Jac_FULL(35,181) + JVS(335) = 0.44*B(495) IF (DO_JVS(336)) & -! JVS(336) = Jac_FULL(35,263) - JVS(336) = B(93)+B(386) +! JVS(336) = Jac_FULL(35,183) + JVS(336) = B(344) IF (DO_JVS(337)) & -! JVS(337) = Jac_FULL(35,264) - JVS(337) = B(97) +! JVS(337) = Jac_FULL(35,186) + JVS(337) = B(1633) IF (DO_JVS(338)) & -! JVS(338) = Jac_FULL(35,266) - JVS(338) = B(34)+B(430)+B(1205) +! JVS(338) = Jac_FULL(35,191) + JVS(338) = B(717)+B(733) IF (DO_JVS(339)) & -! JVS(339) = Jac_FULL(35,268) - JVS(339) = B(1292)+B(1293)+B(1325)+B(1327)+B(1329)+B(1331)+B(1436) +! JVS(339) = Jac_FULL(35,195) + JVS(339) = 1.258*B(1416) IF (DO_JVS(340)) & -! JVS(340) = Jac_FULL(35,270) - JVS(340) = B(1305)+B(1306)+B(1317)+B(1319)+B(1321)+B(1323) +! JVS(340) = Jac_FULL(35,197) + JVS(340) = B(164) IF (DO_JVS(341)) & -! JVS(341) = Jac_FULL(35,271) - JVS(341) = B(1257)+B(1259)+B(1261)+B(1263)+B(1265)+B(1419) +! JVS(341) = Jac_FULL(35,200) + JVS(341) = B(1350) IF (DO_JVS(342)) & -! JVS(342) = Jac_FULL(35,272) - JVS(342) = B(334)+B(340)+B(343)+B(345)+B(356)+0.66*B(388)+0.6*B(390)+0.44*B(397)+0.56*B(399)+0.19*B(405)+0.1*B(421)& - &+0.05*B(423) +! JVS(342) = Jac_FULL(35,201) + JVS(342) = B(1472) IF (DO_JVS(343)) & -! JVS(343) = Jac_FULL(35,274) - JVS(343) = 2*B(298)+2*B(299)+B(310)+2*B(384)+2*B(498)+2*B(500)+0.4*B(561) +! JVS(343) = Jac_FULL(35,202) + JVS(343) = B(1424)+1.5*B(1426) IF (DO_JVS(344)) & -! JVS(344) = Jac_FULL(35,275) - JVS(344) = 0.66*B(389)+B(1217)+B(1230)+B(1234)+B(1250)+B(1258)+B(1270) +! JVS(344) = Jac_FULL(35,203) + JVS(344) = B(1453)+B(1455) IF (DO_JVS(345)) & -! JVS(345) = Jac_FULL(35,276) - JVS(345) = B(2)+B(9)+B(17)+B(1266)+B(1280) +! JVS(345) = Jac_FULL(35,204) + JVS(345) = B(1430) IF (DO_JVS(346)) & -! JVS(346) = Jac_FULL(35,277) - JVS(346) = B(1240)+B(1254)+B(1278)+B(1312)+B(1320)+B(1328) +! JVS(346) = Jac_FULL(35,211) + JVS(346) = 0.5*B(820)+B(822) IF (DO_JVS(347)) & -! JVS(347) = Jac_FULL(35,278) - JVS(347) = B(335)+B(1215) +! JVS(347) = Jac_FULL(35,213) + JVS(347) = B(297)+B(304) IF (DO_JVS(348)) & -! JVS(348) = Jac_FULL(35,280) - JVS(348) = B(1220)+B(1242)+B(1246)+B(1262)+B(1272)+B(1314)+B(1322)+B(1330) +! JVS(348) = Jac_FULL(35,214) + JVS(348) = B(1496)+B(1498)+B(1500)+B(1501)+B(1503) IF (DO_JVS(349)) & -! JVS(349) = Jac_FULL(35,281) - JVS(349) = B(78)+B(82)+2*B(91)+B(94)+B(98)+B(141)+B(154)+B(180)+B(218)+B(224)+B(226)+B(250)+2*B(278)+B(287)+2*B(364)& - &+B(631)+B(637)+B(639)+B(645)+B(655)+B(675)+B(677)+2*B(689)+2*B(691)+B(905)+B(923)+B(925)+B(992)+B(1055)& - &+B(1076)+B(1104)+B(1127)+1.258*B(1135)+1.5*B(1139)+1.5*B(1145)+B(1149)+B(1166)+B(1206)+B(1211)+B(1212)& - &+B(1213)+2*B(1372) +! JVS(349) = Jac_FULL(35,216) + JVS(349) = B(1638) IF (DO_JVS(350)) & -! JVS(350) = Jac_FULL(35,282) - JVS(350) = B(3)+B(10)+B(18)+B(28)+B(30)+B(35)+B(212)+2*B(348)+B(357)+B(375)+B(603)+B(633)+B(635)+B(643)+B(687)+B(705)& - &+B(984)+B(990)+B(1094)+B(1143)+B(1172)+B(1186)+B(1191) +! JVS(350) = Jac_FULL(35,217) + JVS(350) = B(473) IF (DO_JVS(351)) & -! JVS(351) = Jac_FULL(35,283) - JVS(351) = B(1238)+B(1252)+B(1276)+B(1310)+B(1318)+B(1326) +! JVS(351) = Jac_FULL(35,218) + JVS(351) = B(1511) IF (DO_JVS(352)) & -! JVS(352) = Jac_FULL(35,284) - JVS(352) = B(31)+B(79)+B(354) +! JVS(352) = Jac_FULL(35,219) + JVS(352) = B(719)+B(729) IF (DO_JVS(353)) & -! JVS(353) = Jac_FULL(35,285) - JVS(353) = B(431)+B(432)+B(434)+2*B(478)+2*B(486)+2*B(487)+2*B(499)+2*B(501)+0.88*B(569) +! JVS(353) = Jac_FULL(35,220) + JVS(353) = B(1340)+B(1342) IF (DO_JVS(354)) & -! JVS(354) = Jac_FULL(35,286) - JVS(354) = B(29)+B(83)+B(311)+B(352)+B(433)+B(435)+B(437)+B(439) +! JVS(354) = Jac_FULL(35,221) + JVS(354) = B(1467) IF (DO_JVS(355)) & -! JVS(355) = Jac_FULL(35,287) - JVS(355) = B(1222)+B(1244)+B(1248)+B(1264)+B(1274)+B(1316)+B(1324)+B(1332) +! JVS(355) = Jac_FULL(35,222) + JVS(355) = B(1634) IF (DO_JVS(356)) & -! JVS(356) = Jac_FULL(35,288) - JVS(356) = B(307)+B(308)+2*B(349)+B(353)+B(355)+B(359)+2*B(362)+2*B(365)+B(371)+2*B(385)+B(387)+2*B(479) +! JVS(356) = Jac_FULL(35,225) + JVS(356) = B(745) IF (DO_JVS(357)) & -! JVS(357) = Jac_FULL(35,289) - JVS(357) = B(309)+0.6*B(391)+B(1236)+B(1256)+B(1260)+B(1268) +! JVS(357) = Jac_FULL(35,228) + JVS(357) = B(443) IF (DO_JVS(358)) & -! JVS(358) = Jac_FULL(35,291) - JVS(358) = 2*B(92)+2*B(363)+B(1155)+B(1174)+0.5*B(1210) +! JVS(358) = Jac_FULL(35,229) + JVS(358) = B(861)+B(863) IF (DO_JVS(359)) & -! JVS(359) = Jac_FULL(36,36) - JVS(359) = 0 +! JVS(359) = Jac_FULL(35,234) + JVS(359) = B(1368) IF (DO_JVS(360)) & -! JVS(360) = Jac_FULL(36,58) - JVS(360) = 0.364*B(1097) +! JVS(360) = Jac_FULL(35,235) + JVS(360) = B(1436) IF (DO_JVS(361)) & -! JVS(361) = Jac_FULL(36,64) - JVS(361) = 0.2*B(1116) +! JVS(361) = Jac_FULL(35,236) + JVS(361) = B(1447) IF (DO_JVS(362)) & -! JVS(362) = Jac_FULL(36,66) - JVS(362) = B(358)+B(1455) +! JVS(362) = Jac_FULL(35,237) + JVS(362) = B(814)+2*B(816) IF (DO_JVS(363)) & -! JVS(363) = Jac_FULL(36,72) - JVS(363) = B(508) +! JVS(363) = Jac_FULL(35,240) + JVS(363) = B(1409) IF (DO_JVS(364)) & -! JVS(364) = Jac_FULL(36,78) - JVS(364) = B(510) +! JVS(364) = Jac_FULL(35,242) + JVS(364) = B(929)+2*B(931)+B(1624) IF (DO_JVS(365)) & -! JVS(365) = Jac_FULL(36,79) - JVS(365) = 0.27*B(1118) +! JVS(365) = Jac_FULL(35,246) + JVS(365) = B(238) IF (DO_JVS(366)) & -! JVS(366) = Jac_FULL(36,80) - JVS(366) = 0.3*B(1120) +! JVS(366) = Jac_FULL(35,248) + JVS(366) = B(1639) IF (DO_JVS(367)) & -! JVS(367) = Jac_FULL(36,101) - JVS(367) = B(1512) +! JVS(367) = Jac_FULL(35,251) + JVS(367) = B(1622) IF (DO_JVS(368)) & -! JVS(368) = Jac_FULL(36,105) - JVS(368) = B(1061) +! JVS(368) = Jac_FULL(35,252) + JVS(368) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597) IF (DO_JVS(369)) & -! JVS(369) = Jac_FULL(36,109) - JVS(369) = B(770) +! JVS(369) = Jac_FULL(35,255) + JVS(369) = B(808)+2*B(810) IF (DO_JVS(370)) & -! JVS(370) = Jac_FULL(36,125) - JVS(370) = 0.888*B(1065)+B(1506) +! JVS(370) = Jac_FULL(35,256) + JVS(370) = 2*B(933)+B(1623) IF (DO_JVS(371)) & -! JVS(371) = Jac_FULL(36,127) - JVS(371) = 0.23*B(764)+B(1492) +! JVS(371) = Jac_FULL(35,257) + JVS(371) = B(753)+B(756) IF (DO_JVS(372)) & -! JVS(372) = Jac_FULL(36,129) - JVS(372) = 0.42*B(762)+B(1491) +! JVS(372) = Jac_FULL(35,261) + JVS(372) = B(1318) IF (DO_JVS(373)) & -! JVS(373) = Jac_FULL(36,132) - JVS(373) = 0.84*B(1025) +! JVS(373) = Jac_FULL(35,262) + JVS(373) = B(873)+B(875) IF (DO_JVS(374)) & -! JVS(374) = Jac_FULL(36,136) - JVS(374) = 0.488*B(1037) +! JVS(374) = Jac_FULL(35,263) + JVS(374) = B(1391) IF (DO_JVS(375)) & -! JVS(375) = Jac_FULL(36,148) - JVS(375) = 0.25*B(1188)+0.5*B(1190)+0.05*B(1192) +! JVS(375) = Jac_FULL(35,264) + JVS(375) = B(469) IF (DO_JVS(376)) & -! JVS(376) = Jac_FULL(36,149) - JVS(376) = B(506) +! JVS(376) = Jac_FULL(35,266) + JVS(376) = B(1636) IF (DO_JVS(377)) & -! JVS(377) = Jac_FULL(36,150) - JVS(377) = 0.33*B(971)+0.33*B(973) +! JVS(377) = Jac_FULL(35,267) + JVS(377) = B(1631) IF (DO_JVS(378)) & -! JVS(378) = Jac_FULL(36,153) - JVS(378) = 0.25*B(1059) +! JVS(378) = Jac_FULL(35,268) + JVS(378) = B(1628) IF (DO_JVS(379)) & -! JVS(379) = Jac_FULL(36,154) - JVS(379) = 0.14*B(632) +! JVS(379) = Jac_FULL(35,270) + JVS(379) = B(316) IF (DO_JVS(380)) & -! JVS(380) = Jac_FULL(36,155) - JVS(380) = 0.14*B(634) +! JVS(380) = Jac_FULL(35,272) + JVS(380) = B(828) IF (DO_JVS(381)) & -! JVS(381) = Jac_FULL(36,156) - JVS(381) = B(1017)+0.571*B(1478) +! JVS(381) = Jac_FULL(35,273) + JVS(381) = B(794) IF (DO_JVS(382)) & -! JVS(382) = Jac_FULL(36,157) - JVS(382) = 0.25*B(780) +! JVS(382) = Jac_FULL(35,274) + JVS(382) = B(842)+B(845) IF (DO_JVS(383)) & -! JVS(383) = Jac_FULL(36,159) - JVS(383) = 0.26*B(1183)+0.5*B(1185) +! JVS(383) = Jac_FULL(35,275) + JVS(383) = B(778) IF (DO_JVS(384)) & -! JVS(384) = Jac_FULL(36,162) - JVS(384) = 0.33*B(782) +! JVS(384) = Jac_FULL(35,276) + JVS(384) = B(947)+B(1147) IF (DO_JVS(385)) & -! JVS(385) = Jac_FULL(36,163) - JVS(385) = 0.75*B(1015)+0.875*B(1479) +! JVS(385) = Jac_FULL(35,277) + JVS(385) = B(739) IF (DO_JVS(386)) & -! JVS(386) = Jac_FULL(36,165) - JVS(386) = 0.054*B(786) +! JVS(386) = Jac_FULL(35,278) + JVS(386) = B(766) IF (DO_JVS(387)) & -! JVS(387) = Jac_FULL(36,169) - JVS(387) = 2*B(1023)+B(1475) +! JVS(387) = Jac_FULL(35,280) + JVS(387) = B(917) IF (DO_JVS(388)) & -! JVS(388) = Jac_FULL(36,170) - JVS(388) = 0.14*B(642) +! JVS(388) = Jac_FULL(35,281) + JVS(388) = B(804) IF (DO_JVS(389)) & -! JVS(389) = Jac_FULL(36,171) - JVS(389) = 0.036*B(784) +! JVS(389) = Jac_FULL(35,284) + JVS(389) = 0.4*B(659)+0.88*B(667) IF (DO_JVS(390)) & -! JVS(390) = Jac_FULL(36,172) - JVS(390) = B(1083)+B(1472) +! JVS(390) = Jac_FULL(35,289) + JVS(390) = B(919) IF (DO_JVS(391)) & -! JVS(391) = Jac_FULL(36,174) - JVS(391) = 1.5*B(768) +! JVS(391) = Jac_FULL(35,290) + JVS(391) = B(287)+B(310) IF (DO_JVS(392)) & -! JVS(392) = Jac_FULL(36,175) - JVS(392) = 0.25*B(1001)+B(1484) +! JVS(392) = Jac_FULL(35,291) + JVS(392) = B(857) IF (DO_JVS(393)) & -! JVS(393) = Jac_FULL(36,185) - JVS(393) = B(1021)+0.5*B(1476) +! JVS(393) = Jac_FULL(35,292) + JVS(393) = B(251) IF (DO_JVS(394)) & -! JVS(394) = Jac_FULL(36,186) - JVS(394) = 0.45*B(758)+0.888*B(1489) +! JVS(394) = Jac_FULL(35,294) + JVS(394) = B(318) IF (DO_JVS(395)) & -! JVS(395) = Jac_FULL(36,188) - JVS(395) = 0.37*B(760)+0.818*B(1490) +! JVS(395) = Jac_FULL(35,297) + JVS(395) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537) IF (DO_JVS(396)) & -! JVS(396) = Jac_FULL(36,192) - JVS(396) = 0.638*B(766) +! JVS(396) = Jac_FULL(35,298) + JVS(396) = B(210) IF (DO_JVS(397)) & -! JVS(397) = Jac_FULL(36,194) - JVS(397) = 0.52*B(835)+0.8*B(839)+2*B(841) +! JVS(397) = Jac_FULL(35,299) + JVS(397) = 2*B(1635) IF (DO_JVS(398)) & -! JVS(398) = Jac_FULL(36,200) - JVS(398) = B(1483) +! JVS(398) = Jac_FULL(35,302) + JVS(398) = B(1621) IF (DO_JVS(399)) & -! JVS(399) = Jac_FULL(36,205) - JVS(399) = 0.507*B(1033)+B(1039)+0.86*B(1040) +! JVS(399) = Jac_FULL(35,303) + JVS(399) = B(1637) IF (DO_JVS(400)) & -! JVS(400) = Jac_FULL(36,206) - JVS(400) = B(1063)+B(1502)+0.163*B(1503) +! JVS(400) = Jac_FULL(35,306) + JVS(400) = B(295) IF (DO_JVS(401)) & -! JVS(401) = Jac_FULL(36,207) - JVS(401) = 0.325*B(1035)+0.65*B(1044) +! JVS(401) = Jac_FULL(35,308) + JVS(401) = B(1297) IF (DO_JVS(402)) & -! JVS(402) = Jac_FULL(36,208) - JVS(402) = B(1459) +! JVS(402) = Jac_FULL(35,309) + JVS(402) = B(1232)+B(1234) IF (DO_JVS(403)) & -! JVS(403) = Jac_FULL(36,210) - JVS(403) = 0.15*B(1175)+0.15*B(1177)+B(1515) +! JVS(403) = Jac_FULL(35,310) + JVS(403) = B(1165) IF (DO_JVS(404)) & -! JVS(404) = Jac_FULL(36,213) - JVS(404) = B(1071)+B(1510) +! JVS(404) = Jac_FULL(35,311) + JVS(404) = B(1167) IF (DO_JVS(405)) & -! JVS(405) = Jac_FULL(36,214) - JVS(405) = 0.6*B(868)+0.55*B(1496) +! JVS(405) = Jac_FULL(35,312) + JVS(405) = B(701) IF (DO_JVS(406)) & -! JVS(406) = Jac_FULL(36,220) - JVS(406) = 0.6*B(866)+0.55*B(1493) +! JVS(406) = Jac_FULL(35,314) + JVS(406) = B(1226) IF (DO_JVS(407)) & -! JVS(407) = Jac_FULL(36,221) - JVS(407) = B(1379) +! 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) IF (DO_JVS(408)) & -! JVS(408) = Jac_FULL(36,223) - JVS(408) = 2*B(219)+2*B(223)+2*B(1382)+2*B(1383)+B(1384) +! JVS(408) = Jac_FULL(35,317) + JVS(408) = B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525) IF (DO_JVS(409)) & -! JVS(409) = Jac_FULL(36,224) - JVS(409) = 0.407*B(704)+0.6*B(710)+0.9*B(712) +! JVS(409) = Jac_FULL(35,325) + JVS(409) = B(93)+B(485) IF (DO_JVS(410)) & -! JVS(410) = Jac_FULL(36,228) - JVS(410) = B(820)+0.13*B(821)+0.2*B(823) +! JVS(410) = Jac_FULL(35,326) + JVS(410) = B(97) IF (DO_JVS(411)) & -! JVS(411) = Jac_FULL(36,229) - JVS(411) = B(828)+0.2*B(829)+0.13*B(833) +! JVS(411) = Jac_FULL(35,328) + JVS(411) = B(34)+B(529)+B(1487) IF (DO_JVS(412)) & -! JVS(412) = Jac_FULL(36,231) - JVS(412) = 0.77*B(997)+0.77*B(1480) +! JVS(412) = Jac_FULL(35,330) + JVS(412) = B(1574)+B(1575)+B(1607)+B(1609)+B(1611)+B(1613)+B(1726) IF (DO_JVS(413)) & -! JVS(413) = Jac_FULL(36,233) - JVS(413) = B(221)+B(225)+B(1385) +! JVS(413) = Jac_FULL(35,332) + JVS(413) = B(1587)+B(1588)+B(1599)+B(1601)+B(1603)+B(1605) IF (DO_JVS(414)) & -! JVS(414) = Jac_FULL(36,236) - JVS(414) = 0.505*B(213)+B(215)+B(1381) +! JVS(414) = Jac_FULL(35,333) + JVS(414) = B(1539)+B(1541)+B(1543)+B(1545)+B(1547)+B(1709) IF (DO_JVS(415)) & -! JVS(415) = Jac_FULL(36,240) - JVS(415) = 0.539*B(969)+0.839*B(1500) +! 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) IF (DO_JVS(416)) & -! JVS(416) = Jac_FULL(36,244) - JVS(416) = 0.9*B(725)+B(731)+B(732)+0.5*B(740)+0.55*B(756) +! 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) IF (DO_JVS(417)) & -! JVS(417) = Jac_FULL(36,245) - JVS(417) = 0.6*B(723)+B(730)+B(733)+0.5*B(736)+0.55*B(748) +! JVS(417) = Jac_FULL(35,336) + JVS(417) = B(434)+B(1497) IF (DO_JVS(418)) & -! JVS(418) = Jac_FULL(36,248) - JVS(418) = 0.28*B(983)+B(1386)+B(1387) +! JVS(418) = Jac_FULL(35,337) + JVS(418) = B(30)+B(78)+B(453) IF (DO_JVS(419)) & -! JVS(419) = Jac_FULL(36,250) - JVS(419) = 0.5*B(229) +! 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) IF (DO_JVS(420)) & -! JVS(420) = Jac_FULL(36,251) - JVS(420) = 0.036*B(985)+0.12*B(989)+0.68*B(991)+B(1389) +! JVS(420) = Jac_FULL(35,339) + JVS(420) = 0.66*B(488)+B(1499)+B(1512)+B(1516)+B(1532)+B(1540)+B(1552) IF (DO_JVS(421)) & -! JVS(421) = Jac_FULL(36,253) - JVS(421) = 0.56*B(211) +! 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) IF (DO_JVS(422)) & -! JVS(422) = Jac_FULL(36,259) - JVS(422) = B(1377) +! 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) IF (DO_JVS(423)) & -! JVS(423) = Jac_FULL(36,263) - JVS(423) = B(63)+B(93)+B(314)+B(386)+B(466)+B(1365)+B(1366) +! JVS(423) = Jac_FULL(35,344) + JVS(423) = B(1504)+B(1526)+B(1530)+B(1546)+B(1556)+B(1598)+B(1606)+B(1614) IF (DO_JVS(424)) & -! JVS(424) = Jac_FULL(36,264) - JVS(424) = 0.05*B(95)+0.88*B(1374)+B(1375) +! JVS(424) = Jac_FULL(35,345) + JVS(424) = B(29)+B(82)+B(409)+B(452)+B(532)+B(534)+B(536)+B(538) IF (DO_JVS(425)) & -! JVS(425) = Jac_FULL(36,266) - JVS(425) = 0.5*B(737)+0.5*B(741) +! 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) IF (DO_JVS(426)) & -! JVS(426) = Jac_FULL(36,273) - JVS(426) = B(315) +! JVS(426) = Jac_FULL(35,348) + JVS(426) = B(3)+B(10)+B(18)+B(1548)+B(1562) IF (DO_JVS(427)) & -! JVS(427) = Jac_FULL(36,279) - JVS(427) = 0.55*B(749)+0.55*B(757)+0.2*B(824)+0.2*B(830)+0.8*B(840)+0.33*B(972)+0.86*B(1041)+0.65*B(1045) +! JVS(427) = Jac_FULL(35,349) + JVS(427) = B(1520)+B(1534)+B(1558)+B(1592)+B(1600)+B(1608) IF (DO_JVS(428)) & -! JVS(428) = Jac_FULL(36,281) - JVS(428) = B(94)+2*B(224)+B(226)+0.68*B(992)+0.15*B(1178) +! JVS(428) = Jac_FULL(35,350) + JVS(428) = B(1522)+B(1536)+B(1560)+B(1594)+B(1602)+B(1610) IF (DO_JVS(429)) & -! JVS(429) = Jac_FULL(36,282) - JVS(429) = 0.56*B(212)+0.14*B(633)+0.14*B(635)+0.14*B(643)+0.407*B(705)+0.28*B(984)+0.12*B(990)+0.5*B(1186)+0.5& - &*B(1191) +! 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) IF (DO_JVS(430)) & -! JVS(430) = Jac_FULL(36,284) - JVS(430) = 0.13*B(822)+0.13*B(834)+0.52*B(836)+0.33*B(974)+0.507*B(1034)+0.325*B(1036) +! JVS(430) = Jac_FULL(35,352) + JVS(430) = B(408)+0.6*B(490)+B(1518)+B(1538)+B(1542)+B(1550) IF (DO_JVS(431)) & -! JVS(431) = Jac_FULL(36,286) - JVS(431) = B(64)+0.05*B(96)+0.505*B(214)+B(216)+2*B(220)+B(222)+0.5*B(230)+0.6*B(711)+0.9*B(713)+0.45*B(759)+0.37& - &*B(761)+0.42*B(763)+0.23*B(765)+0.638*B(767)+1.5*B(769)+B(771)+0.25*B(781)+0.33*B(783)+0.036*B(785)+0.054& - &*B(787)+0.6*B(867)+0.6*B(869)+0.539*B(970)+0.036*B(986)+0.77*B(998)+0.25*B(1002)+0.75*B(1016)+B(1018)& - &+B(1022)+2*B(1024)+0.84*B(1026)+0.488*B(1038)+0.25*B(1060)+B(1062)+B(1064)+0.888*B(1066)+B(1072)+B(1084)& - &+0.364*B(1098)+0.2*B(1117)+0.27*B(1119)+0.3*B(1121)+0.15*B(1176)+0.26*B(1184)+0.25*B(1189) +! JVS(431) = Jac_FULL(35,353) + 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,288) - JVS(432) = B(359)+B(387) +! JVS(432) = Jac_FULL(36,36) + JVS(432) = 0 IF (DO_JVS(433)) & -! JVS(433) = Jac_FULL(36,290) - JVS(433) = B(467)+B(507)+B(509)+B(511) +! JVS(433) = Jac_FULL(36,60) + JVS(433) = 0.364*B(1362) IF (DO_JVS(434)) & -! JVS(434) = Jac_FULL(37,37) - JVS(434) = 0 +! JVS(434) = Jac_FULL(36,68) + JVS(434) = B(457)+B(1745) IF (DO_JVS(435)) & -! JVS(435) = Jac_FULL(37,195) - JVS(435) = B(606) +! JVS(435) = Jac_FULL(36,75) + JVS(435) = B(609) IF (DO_JVS(436)) & -! JVS(436) = Jac_FULL(37,234) - JVS(436) = B(592) +! JVS(436) = Jac_FULL(36,79) + JVS(436) = B(607) IF (DO_JVS(437)) & -! JVS(437) = Jac_FULL(37,267) - JVS(437) = B(45)+B(593)+B(607) +! JVS(437) = Jac_FULL(36,82) + JVS(437) = 0.27*B(1383) IF (DO_JVS(438)) & -! JVS(438) = Jac_FULL(37,286) - JVS(438) = B(46) +! JVS(438) = Jac_FULL(36,101) + JVS(438) = 0.3*B(1385) IF (DO_JVS(439)) & -! JVS(439) = Jac_FULL(38,38) - JVS(439) = 0 +! JVS(439) = Jac_FULL(36,107) + JVS(439) = B(1304) IF (DO_JVS(440)) & -! JVS(440) = Jac_FULL(38,86) - JVS(440) = 2*B(23) +! JVS(440) = Jac_FULL(36,113) + JVS(440) = B(241) IF (DO_JVS(441)) & -! JVS(441) = Jac_FULL(38,147) - JVS(441) = B(1) +! JVS(441) = Jac_FULL(36,114) + JVS(441) = B(306) IF (DO_JVS(442)) & -! JVS(442) = Jac_FULL(38,195) - JVS(442) = B(612) +! JVS(442) = Jac_FULL(36,119) + JVS(442) = B(1013) IF (DO_JVS(443)) & -! JVS(443) = Jac_FULL(38,212) - JVS(443) = B(15) +! JVS(443) = Jac_FULL(36,122) + JVS(443) = 2*B(1412) IF (DO_JVS(444)) & -! JVS(444) = Jac_FULL(38,234) - JVS(444) = B(604) +! JVS(444) = Jac_FULL(36,124) + JVS(444) = B(206) IF (DO_JVS(445)) & -! JVS(445) = Jac_FULL(38,260) - JVS(445) = B(1279) +! JVS(445) = Jac_FULL(36,126) + JVS(445) = B(167) IF (DO_JVS(446)) & -! JVS(446) = Jac_FULL(38,271) - JVS(446) = B(1265) +! JVS(446) = Jac_FULL(36,127) + JVS(446) = B(152) IF (DO_JVS(447)) & -! JVS(447) = Jac_FULL(38,276) - JVS(447) = B(2)+B(16)+B(17)+B(19)+2*B(24)+B(288)+B(605)+B(613)+B(1266)+B(1280) +! JVS(447) = Jac_FULL(36,132) + JVS(447) = B(156)+B(158) IF (DO_JVS(448)) & -! JVS(448) = Jac_FULL(38,282) - JVS(448) = B(3)+B(18) +! JVS(448) = Jac_FULL(36,139) + JVS(448) = B(102) IF (DO_JVS(449)) & -! JVS(449) = Jac_FULL(38,286) - JVS(449) = 2*B(25)+B(289) +! JVS(449) = Jac_FULL(36,143) + JVS(449) = 0.2*B(1381) IF (DO_JVS(450)) & -! JVS(450) = Jac_FULL(39,39) - JVS(450) = 0 +! JVS(450) = Jac_FULL(36,144) + JVS(450) = 0.23*B(1007)+B(1782) IF (DO_JVS(451)) & -! JVS(451) = Jac_FULL(39,190) - JVS(451) = B(47)+B(344)+B(464) +! JVS(451) = Jac_FULL(36,146) + JVS(451) = B(1661) IF (DO_JVS(452)) & -! JVS(452) = Jac_FULL(39,272) - JVS(452) = B(345) +! JVS(452) = Jac_FULL(36,147) + JVS(452) = 0.888*B(1308)+B(1796) IF (DO_JVS(453)) & -! JVS(453) = Jac_FULL(39,286) - JVS(453) = B(48) +! JVS(453) = Jac_FULL(36,150) + JVS(453) = 0.42*B(1005)+B(1781) IF (DO_JVS(454)) & -! JVS(454) = Jac_FULL(39,290) - JVS(454) = B(465) +! JVS(454) = Jac_FULL(36,153) + JVS(454) = 0.84*B(1268) IF (DO_JVS(455)) & -! JVS(455) = Jac_FULL(40,40) - JVS(455) = 0 +! JVS(455) = Jac_FULL(36,159) + JVS(455) = 0.488*B(1280) IF (DO_JVS(456)) & -! JVS(456) = Jac_FULL(40,154) - JVS(456) = 0.02*B(632) +! JVS(456) = Jac_FULL(36,167) + JVS(456) = 0.15*B(725) IF (DO_JVS(457)) & -! JVS(457) = Jac_FULL(40,155) - JVS(457) = 0.02*B(634) +! JVS(457) = Jac_FULL(36,181) + JVS(457) = B(605) IF (DO_JVS(458)) & -! JVS(458) = Jac_FULL(40,170) - JVS(458) = 0.02*B(642) +! JVS(458) = Jac_FULL(36,182) + JVS(458) = 0.33*B(1214)+0.33*B(1216) IF (DO_JVS(459)) & -! JVS(459) = Jac_FULL(40,195) - JVS(459) = B(614) +! JVS(459) = Jac_FULL(36,184) + JVS(459) = 0.25*B(1302) IF (DO_JVS(460)) & -! JVS(460) = Jac_FULL(40,224) - JVS(460) = 0.013*B(704) +! JVS(460) = Jac_FULL(36,185) + JVS(460) = B(1260)+0.571*B(1768) IF (DO_JVS(461)) & -! JVS(461) = Jac_FULL(40,234) - JVS(461) = 0.06*B(598)+0.06*B(600) +! JVS(461) = Jac_FULL(36,187) + JVS(461) = 0.25*B(1023) IF (DO_JVS(462)) & -! JVS(462) = Jac_FULL(40,248) - JVS(462) = 0.045*B(983) +! JVS(462) = Jac_FULL(36,191) + JVS(462) = 0.1*B(733) IF (DO_JVS(463)) & -! JVS(463) = Jac_FULL(40,278) - JVS(463) = 0.06*B(599)+0.06*B(601)+B(615) +! JVS(463) = Jac_FULL(36,192) + JVS(463) = 0.33*B(1025) IF (DO_JVS(464)) & -! JVS(464) = Jac_FULL(40,282) - JVS(464) = 0.02*B(633)+0.02*B(635)+0.02*B(643)+0.013*B(705)+0.045*B(984) +! JVS(464) = Jac_FULL(36,194) + JVS(464) = 0.75*B(1258)+0.875*B(1769) IF (DO_JVS(465)) & -! JVS(465) = Jac_FULL(40,284) - JVS(465) = B(44) +! JVS(465) = Jac_FULL(36,197) + JVS(465) = B(160)+B(162) IF (DO_JVS(466)) & -! JVS(466) = Jac_FULL(40,286) - JVS(466) = B(37) +! JVS(466) = Jac_FULL(36,199) + JVS(466) = 0.054*B(1029) IF (DO_JVS(467)) & -! JVS(467) = Jac_FULL(41,41) - JVS(467) = -B(1207) +! JVS(467) = Jac_FULL(36,200) + JVS(467) = 0.12*B(1348) IF (DO_JVS(468)) & -! JVS(468) = Jac_FULL(41,286) - JVS(468) = -B(1208) +! JVS(468) = Jac_FULL(36,201) + JVS(468) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474) IF (DO_JVS(469)) & -! JVS(469) = Jac_FULL(42,42) - JVS(469) = -B(565)-B(1300)-B(1301)-B(1302)-B(1447) +! JVS(469) = Jac_FULL(36,204) + JVS(469) = B(1802) IF (DO_JVS(470)) & -! JVS(470) = Jac_FULL(42,92) - JVS(470) = B(564) +! JVS(470) = Jac_FULL(36,208) + JVS(470) = 2*B(1266)+B(1765) IF (DO_JVS(471)) & -! JVS(471) = Jac_FULL(43,43) - JVS(471) = -B(454)-B(1420) +! JVS(471) = Jac_FULL(36,209) + JVS(471) = 0.036*B(1027) IF (DO_JVS(472)) & -! JVS(472) = Jac_FULL(43,286) - JVS(472) = -B(455) +! JVS(472) = Jac_FULL(36,210) + JVS(472) = B(1326)+B(1762) IF (DO_JVS(473)) & -! JVS(473) = Jac_FULL(44,44) - JVS(473) = -B(585)-B(1294)-B(1295)-B(1296)-B(1442) +! JVS(473) = Jac_FULL(36,215) + JVS(473) = 1.5*B(1011) IF (DO_JVS(474)) & -! JVS(474) = Jac_FULL(44,227) - JVS(474) = 0.6*B(584) +! JVS(474) = Jac_FULL(36,216) + JVS(474) = 0.25*B(1244)+B(1774) IF (DO_JVS(475)) & -! JVS(475) = Jac_FULL(45,45) - JVS(475) = -B(693) +! JVS(475) = Jac_FULL(36,220) + JVS(475) = 0.18*B(1342) IF (DO_JVS(476)) & -! JVS(476) = Jac_FULL(45,134) - JVS(476) = B(1343) +! JVS(476) = Jac_FULL(36,221) + JVS(476) = 0.26*B(1465)+0.5*B(1467) IF (DO_JVS(477)) & -! JVS(477) = Jac_FULL(45,178) - JVS(477) = B(1341) +! JVS(477) = Jac_FULL(36,225) + JVS(477) = B(1808) IF (DO_JVS(478)) & -! JVS(478) = Jac_FULL(45,199) - JVS(478) = B(1342) +! JVS(478) = Jac_FULL(36,227) + JVS(478) = B(1264)+0.5*B(1766) IF (DO_JVS(479)) & -! JVS(479) = Jac_FULL(46,46) - JVS(479) = -B(586)-B(1443) +! JVS(479) = Jac_FULL(36,230) + JVS(479) = 0.45*B(1001)+0.888*B(1779) IF (DO_JVS(480)) & -! JVS(480) = Jac_FULL(46,286) - JVS(480) = -B(587) +! JVS(480) = Jac_FULL(36,231) + JVS(480) = 0.37*B(1003)+0.818*B(1780) IF (DO_JVS(481)) & -! JVS(481) = Jac_FULL(47,47) - JVS(481) = -0.45*B(412)-B(1431) +! JVS(481) = Jac_FULL(36,233) + JVS(481) = 0.7*B(1660) IF (DO_JVS(482)) & -! JVS(482) = Jac_FULL(47,272) - JVS(482) = -0.45*B(413) +! JVS(482) = Jac_FULL(36,238) + JVS(482) = 0.638*B(1009) IF (DO_JVS(483)) & -! JVS(483) = Jac_FULL(48,48) - JVS(483) = -0.75*B(426)-B(1433) +! JVS(483) = Jac_FULL(36,243) + JVS(483) = 0.52*B(1078)+0.8*B(1082)+2*B(1084) IF (DO_JVS(484)) & -! JVS(484) = Jac_FULL(48,272) - JVS(484) = -0.75*B(427) +! JVS(484) = Jac_FULL(36,248) + JVS(484) = B(1773) IF (DO_JVS(485)) & -! JVS(485) = Jac_FULL(49,49) - JVS(485) = -B(1297)-B(1298)-B(1299)-B(1448) +! JVS(485) = Jac_FULL(36,253) + JVS(485) = 0.507*B(1276)+B(1282)+0.86*B(1283) IF (DO_JVS(486)) & -! JVS(486) = Jac_FULL(49,92) - JVS(486) = B(562) +! JVS(486) = Jac_FULL(36,255) + JVS(486) = B(1817) IF (DO_JVS(487)) & -! JVS(487) = Jac_FULL(49,227) - JVS(487) = B(563) +! JVS(487) = Jac_FULL(36,258) + JVS(487) = B(1306)+B(1792)+0.163*B(1793) IF (DO_JVS(488)) & -! JVS(488) = Jac_FULL(50,50) - JVS(488) = -B(150) +! JVS(488) = Jac_FULL(36,259) + JVS(488) = 0.325*B(1278)+0.65*B(1287) IF (DO_JVS(489)) & -! JVS(489) = Jac_FULL(50,255) - JVS(489) = B(148) +! JVS(489) = Jac_FULL(36,261) + JVS(489) = B(1749) IF (DO_JVS(490)) & -! JVS(490) = Jac_FULL(50,291) - JVS(490) = B(149) +! JVS(490) = Jac_FULL(36,266) + JVS(490) = B(1314)+B(1800) IF (DO_JVS(491)) & -! JVS(491) = Jac_FULL(51,51) - JVS(491) = -B(1405) +! JVS(491) = Jac_FULL(36,267) + JVS(491) = 0.6*B(1111)+0.55*B(1786) IF (DO_JVS(492)) & -! JVS(492) = Jac_FULL(51,273) - JVS(492) = B(324) +! JVS(492) = Jac_FULL(36,268) + JVS(492) = 0.6*B(1109)+0.55*B(1783) IF (DO_JVS(493)) & -! JVS(493) = Jac_FULL(51,291) - JVS(493) = B(325) +! JVS(493) = Jac_FULL(36,269) + JVS(493) = 0.15*B(1457)+0.15*B(1459)+B(1805) IF (DO_JVS(494)) & -! JVS(494) = Jac_FULL(52,52) - JVS(494) = -0.79*B(394)-B(1421) +! JVS(494) = Jac_FULL(36,270) + JVS(494) = 2*B(312)+2*B(316)+2*B(1667)+2*B(1668)+B(1669) IF (DO_JVS(495)) & -! JVS(495) = Jac_FULL(52,272) - JVS(495) = -0.79*B(395) +! JVS(495) = Jac_FULL(36,276) + JVS(495) = 0.407*B(947)+0.6*B(953)+0.9*B(955) IF (DO_JVS(496)) & -! JVS(496) = Jac_FULL(53,53) - JVS(496) = -0.9*B(406)-B(1422) +! JVS(496) = Jac_FULL(36,285) + JVS(496) = B(1071)+0.2*B(1072)+0.13*B(1076) IF (DO_JVS(497)) & -! JVS(497) = Jac_FULL(53,272) - JVS(497) = -0.9*B(407) +! JVS(497) = Jac_FULL(36,286) + JVS(497) = B(1063)+0.13*B(1064)+0.2*B(1066) IF (DO_JVS(498)) & -! JVS(498) = Jac_FULL(54,54) - JVS(498) = -0.86*B(408)-B(1423) +! JVS(498) = Jac_FULL(36,287) + JVS(498) = 0.77*B(1240)+0.77*B(1770) IF (DO_JVS(499)) & -! JVS(499) = Jac_FULL(54,272) - JVS(499) = -0.86*B(409) +! JVS(499) = Jac_FULL(36,290) + JVS(499) = 0.56*B(287) IF (DO_JVS(500)) & -! JVS(500) = Jac_FULL(55,55) - JVS(500) = -0.9*B(420)-B(1424) +! JVS(500) = Jac_FULL(36,294) + JVS(500) = B(314)+B(318)+B(1670) IF (DO_JVS(501)) & -! JVS(501) = Jac_FULL(55,272) - JVS(501) = -0.9*B(421) +! JVS(501) = Jac_FULL(36,295) + JVS(501) = B(1664) IF (DO_JVS(502)) & -! JVS(502) = Jac_FULL(56,56) - JVS(502) = -0.9*B(422)-B(1425) +! JVS(502) = Jac_FULL(36,298) + JVS(502) = B(1662) IF (DO_JVS(503)) & -! JVS(503) = Jac_FULL(56,272) - JVS(503) = -0.9*B(423) +! JVS(503) = Jac_FULL(36,301) + JVS(503) = 0.539*B(1212)+0.839*B(1790) IF (DO_JVS(504)) & -! JVS(504) = Jac_FULL(57,57) - JVS(504) = -0.86*B(424)-B(1426) +! JVS(504) = Jac_FULL(36,304) + JVS(504) = 0.9*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999) IF (DO_JVS(505)) & -! JVS(505) = Jac_FULL(57,272) - JVS(505) = -0.86*B(425) +! JVS(505) = Jac_FULL(36,305) + JVS(505) = 0.6*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991) IF (DO_JVS(506)) & -! JVS(506) = Jac_FULL(58,58) - JVS(506) = -B(1097) +! JVS(506) = Jac_FULL(36,306) + JVS(506) = 0.505*B(289)+B(291)+B(1666) IF (DO_JVS(507)) & -! JVS(507) = Jac_FULL(58,286) - JVS(507) = -B(1098) +! JVS(507) = Jac_FULL(36,307) + JVS(507) = 0.5*B(322) IF (DO_JVS(508)) & -! JVS(508) = Jac_FULL(59,59) - JVS(508) = -0.65*B(410)-B(1432) +! JVS(508) = Jac_FULL(36,309) + JVS(508) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1674) IF (DO_JVS(509)) & -! JVS(509) = Jac_FULL(59,272) - JVS(509) = -0.65*B(411) +! JVS(509) = Jac_FULL(36,314) + JVS(509) = 0.28*B(1226)+B(1671)+B(1672) IF (DO_JVS(510)) & -! JVS(510) = Jac_FULL(60,60) - JVS(510) = -2*B(546)-B(1439) +! JVS(510) = Jac_FULL(36,325) + JVS(510) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)+B(1648) IF (DO_JVS(511)) & -! JVS(511) = Jac_FULL(60,269) - JVS(511) = B(544) +! JVS(511) = Jac_FULL(36,326) + JVS(511) = 0.05*B(95)+0.88*B(1656)+B(1657) IF (DO_JVS(512)) & -! JVS(512) = Jac_FULL(60,279) - JVS(512) = B(545) +! JVS(512) = Jac_FULL(36,328) + JVS(512) = 0.5*B(980)+0.5*B(984) IF (DO_JVS(513)) & -! JVS(513) = Jac_FULL(61,61) - JVS(513) = -B(342)-B(1454) +! 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) IF (DO_JVS(514)) & -! JVS(514) = Jac_FULL(61,65) - JVS(514) = B(382) +! JVS(514) = Jac_FULL(36,340) + JVS(514) = B(566)+B(606)+B(608)+B(610) IF (DO_JVS(515)) & -! JVS(515) = Jac_FULL(61,272) - JVS(515) = -B(343) +! 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) IF (DO_JVS(516)) & -! JVS(516) = Jac_FULL(61,291) - JVS(516) = B(383) +! JVS(516) = Jac_FULL(36,342) + JVS(516) = B(414) IF (DO_JVS(517)) & -! JVS(517) = Jac_FULL(62,62) - JVS(517) = -B(1465)-B(1466) +! JVS(517) = Jac_FULL(36,343) + JVS(517) = B(458)+B(486) IF (DO_JVS(518)) & -! JVS(518) = Jac_FULL(62,147) - JVS(518) = B(6) +! 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) IF (DO_JVS(519)) & -! JVS(519) = Jac_FULL(62,265) - JVS(519) = B(7) +! 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) IF (DO_JVS(520)) & -! JVS(520) = Jac_FULL(62,281) - JVS(520) = B(1212) +! JVS(520) = Jac_FULL(36,351) + JVS(520) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460) IF (DO_JVS(521)) & -! JVS(521) = Jac_FULL(63,63) - JVS(521) = -B(1463)-B(1464) +! JVS(521) = Jac_FULL(37,37) + JVS(521) = 0 IF (DO_JVS(522)) & -! JVS(522) = Jac_FULL(63,138) - JVS(522) = B(13) +! JVS(522) = Jac_FULL(37,241) + JVS(522) = B(705) IF (DO_JVS(523)) & -! JVS(523) = Jac_FULL(63,265) - JVS(523) = B(14) +! JVS(523) = Jac_FULL(37,312) + JVS(523) = B(691) IF (DO_JVS(524)) & -! JVS(524) = Jac_FULL(63,281) - JVS(524) = B(1213) +! JVS(524) = Jac_FULL(37,329) + JVS(524) = B(45)+B(692)+B(706) IF (DO_JVS(525)) & -! JVS(525) = Jac_FULL(64,64) - JVS(525) = -B(1116) +! JVS(525) = Jac_FULL(37,345) + JVS(525) = B(46) IF (DO_JVS(526)) & -! JVS(526) = Jac_FULL(64,286) - JVS(526) = -B(1117) +! JVS(526) = Jac_FULL(38,38) + JVS(526) = 0 IF (DO_JVS(527)) & -! JVS(527) = Jac_FULL(65,65) - JVS(527) = -B(378)-B(380)-B(382) +! JVS(527) = Jac_FULL(38,89) + JVS(527) = 2*B(23) IF (DO_JVS(528)) & -! JVS(528) = Jac_FULL(65,279) - JVS(528) = -B(381)+B(1457) +! JVS(528) = Jac_FULL(38,179) + JVS(528) = B(1) IF (DO_JVS(529)) & -! JVS(529) = Jac_FULL(65,291) - JVS(529) = -B(383) +! JVS(529) = Jac_FULL(38,241) + JVS(529) = B(711) IF (DO_JVS(530)) & -! JVS(530) = Jac_FULL(66,66) - JVS(530) = -B(358)-B(360)-B(1455) +! JVS(530) = Jac_FULL(38,264) + JVS(530) = B(15) IF (DO_JVS(531)) & -! JVS(531) = Jac_FULL(66,286) - JVS(531) = -B(361) +! JVS(531) = Jac_FULL(38,312) + JVS(531) = B(703) IF (DO_JVS(532)) & -! JVS(532) = Jac_FULL(66,288) - JVS(532) = -B(359) +! JVS(532) = Jac_FULL(38,316) + JVS(532) = B(1561) IF (DO_JVS(533)) & -! JVS(533) = Jac_FULL(67,67) - JVS(533) = -B(101)-B(1376) +! JVS(533) = Jac_FULL(38,333) + JVS(533) = B(1547) IF (DO_JVS(534)) & -! JVS(534) = Jac_FULL(67,261) - JVS(534) = B(99) +! JVS(534) = Jac_FULL(38,341) + JVS(534) = B(2)+B(17) IF (DO_JVS(535)) & -! JVS(535) = Jac_FULL(67,291) - JVS(535) = B(100) +! JVS(535) = Jac_FULL(38,345) + JVS(535) = 2*B(24)+B(387) IF (DO_JVS(536)) & -! JVS(536) = Jac_FULL(68,68) - JVS(536) = -B(1110) +! 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) IF (DO_JVS(537)) & -! JVS(537) = Jac_FULL(68,179) - JVS(537) = 0.005*B(1101) +! JVS(537) = Jac_FULL(39,39) + JVS(537) = 0 IF (DO_JVS(538)) & -! JVS(538) = Jac_FULL(68,279) - JVS(538) = 0.005*B(1102) +! JVS(538) = Jac_FULL(39,228) + JVS(538) = B(47)+B(443)+B(563) IF (DO_JVS(539)) & -! JVS(539) = Jac_FULL(68,286) - JVS(539) = -B(1111) +! JVS(539) = Jac_FULL(39,334) + JVS(539) = B(444) IF (DO_JVS(540)) & -! JVS(540) = Jac_FULL(69,69) - JVS(540) = -B(576)-B(1289)-B(1290)-B(1291) +! JVS(540) = Jac_FULL(39,340) + JVS(540) = B(564) IF (DO_JVS(541)) & -! JVS(541) = Jac_FULL(69,269) - JVS(541) = B(572) +! JVS(541) = Jac_FULL(39,345) + JVS(541) = B(48) IF (DO_JVS(542)) & -! JVS(542) = Jac_FULL(69,284) - JVS(542) = B(573) +! JVS(542) = Jac_FULL(40,40) + JVS(542) = 0 IF (DO_JVS(543)) & -! JVS(543) = Jac_FULL(69,286) - JVS(543) = -B(577) +! JVS(543) = Jac_FULL(40,241) + JVS(543) = B(713) IF (DO_JVS(544)) & -! JVS(544) = Jac_FULL(70,70) - JVS(544) = -B(1156)-B(1513) +! JVS(544) = Jac_FULL(40,276) + JVS(544) = 0.013*B(947) IF (DO_JVS(545)) & -! JVS(545) = Jac_FULL(70,180) - JVS(545) = 0.65*B(1150) +! JVS(545) = Jac_FULL(40,312) + JVS(545) = 0.06*B(697)+0.06*B(699) IF (DO_JVS(546)) & -! JVS(546) = Jac_FULL(70,284) - JVS(546) = 0.65*B(1151) +! JVS(546) = Jac_FULL(40,314) + JVS(546) = 0.045*B(1226) IF (DO_JVS(547)) & -! JVS(547) = Jac_FULL(70,286) - JVS(547) = -B(1157) +! JVS(547) = Jac_FULL(40,336) + JVS(547) = 0.06*B(698)+0.06*B(700)+B(714) IF (DO_JVS(548)) & -! JVS(548) = Jac_FULL(71,71) - JVS(548) = -B(330)-0.95*B(400)-B(1407) +! JVS(548) = Jac_FULL(40,337) + JVS(548) = B(44) IF (DO_JVS(549)) & -! JVS(549) = Jac_FULL(71,272) - JVS(549) = -0.95*B(401) +! JVS(549) = Jac_FULL(40,341) + JVS(549) = 0.013*B(948)+0.045*B(1227) IF (DO_JVS(550)) & -! JVS(550) = Jac_FULL(71,286) - JVS(550) = -B(331) +! JVS(550) = Jac_FULL(40,345) + JVS(550) = B(37) IF (DO_JVS(551)) & -! JVS(551) = Jac_FULL(72,72) - JVS(551) = -B(450)-B(508)-B(1410) +! JVS(551) = Jac_FULL(41,41) + JVS(551) = -B(1489) IF (DO_JVS(552)) & -! JVS(552) = Jac_FULL(72,286) - JVS(552) = -B(451) +! JVS(552) = Jac_FULL(41,345) + JVS(552) = -B(1490) IF (DO_JVS(553)) & -! JVS(553) = Jac_FULL(72,290) - JVS(553) = -B(509) +! JVS(553) = Jac_FULL(42,42) + JVS(553) = -B(664)-B(1582)-B(1583)-B(1584)-B(1737) IF (DO_JVS(554)) & -! JVS(554) = Jac_FULL(73,73) - JVS(554) = -B(1449) +! JVS(554) = Jac_FULL(42,96) + JVS(554) = B(663) IF (DO_JVS(555)) & -! JVS(555) = Jac_FULL(73,203) - JVS(555) = B(1309)+B(1311) +! JVS(555) = Jac_FULL(43,43) + JVS(555) = -B(553)-B(1710) IF (DO_JVS(556)) & -! JVS(556) = Jac_FULL(73,268) - JVS(556) = B(1325)+B(1327) +! JVS(556) = Jac_FULL(43,345) + JVS(556) = -B(554) IF (DO_JVS(557)) & -! JVS(557) = Jac_FULL(73,270) - JVS(557) = B(1317)+B(1319) +! JVS(557) = Jac_FULL(44,44) + JVS(557) = -B(684)-B(1576)-B(1577)-B(1578)-B(1732) IF (DO_JVS(558)) & -! JVS(558) = Jac_FULL(73,277) - JVS(558) = B(1312)+B(1320)+B(1328) +! JVS(558) = Jac_FULL(44,284) + JVS(558) = 0.6*B(683) IF (DO_JVS(559)) & -! JVS(559) = Jac_FULL(73,283) - JVS(559) = B(1310)+B(1318)+B(1326) +! JVS(559) = Jac_FULL(45,45) + JVS(559) = -B(936) IF (DO_JVS(560)) & -! JVS(560) = Jac_FULL(74,74) - JVS(560) = -B(281)-B(1451)-B(1452) +! JVS(560) = Jac_FULL(45,154) + JVS(560) = B(1625) IF (DO_JVS(561)) & -! JVS(561) = Jac_FULL(74,266) - JVS(561) = B(279) +! JVS(561) = Jac_FULL(45,242) + JVS(561) = B(1624) IF (DO_JVS(562)) & -! JVS(562) = Jac_FULL(74,291) - JVS(562) = B(280) +! JVS(562) = Jac_FULL(45,256) + JVS(562) = B(1623) IF (DO_JVS(563)) & -! JVS(563) = Jac_FULL(75,75) - JVS(563) = -B(438)-B(493)-B(1415) +! JVS(563) = Jac_FULL(46,46) + JVS(563) = -0.79*B(493)-B(1711) IF (DO_JVS(564)) & -! JVS(564) = Jac_FULL(75,285) - JVS(564) = B(492) +! JVS(564) = Jac_FULL(46,334) + JVS(564) = -0.79*B(494) IF (DO_JVS(565)) & -! JVS(565) = Jac_FULL(75,286) - JVS(565) = -B(439) +! JVS(565) = Jac_FULL(47,47) + JVS(565) = -0.9*B(505)-B(1712) IF (DO_JVS(566)) & -! JVS(566) = Jac_FULL(76,76) - JVS(566) = -B(1093)-B(1095) +! JVS(566) = Jac_FULL(47,334) + JVS(566) = -0.9*B(506) IF (DO_JVS(567)) & -! JVS(567) = Jac_FULL(76,282) - JVS(567) = -B(1094) +! JVS(567) = Jac_FULL(48,48) + JVS(567) = -0.86*B(507)-B(1713) IF (DO_JVS(568)) & -! JVS(568) = Jac_FULL(76,286) - JVS(568) = -B(1096) +! JVS(568) = Jac_FULL(48,334) + JVS(568) = -0.86*B(508) IF (DO_JVS(569)) & -! JVS(569) = Jac_FULL(77,77) - JVS(569) = -B(328)-0.7*B(402)-B(1406) +! JVS(569) = Jac_FULL(49,49) + JVS(569) = -0.9*B(519)-B(1714) IF (DO_JVS(570)) & -! JVS(570) = Jac_FULL(77,272) - JVS(570) = -0.7*B(403) +! JVS(570) = Jac_FULL(49,334) + JVS(570) = -0.9*B(520) IF (DO_JVS(571)) & -! JVS(571) = Jac_FULL(77,286) - JVS(571) = -B(329) +! JVS(571) = Jac_FULL(50,50) + JVS(571) = -0.9*B(521)-B(1715) IF (DO_JVS(572)) & -! JVS(572) = Jac_FULL(78,78) - JVS(572) = -B(452)-B(510) +! JVS(572) = Jac_FULL(50,334) + JVS(572) = -0.9*B(522) IF (DO_JVS(573)) & -! JVS(573) = Jac_FULL(78,286) - JVS(573) = -B(453) +! JVS(573) = Jac_FULL(51,51) + JVS(573) = -0.86*B(523)-B(1716) IF (DO_JVS(574)) & -! JVS(574) = Jac_FULL(78,290) - JVS(574) = -B(511) +! JVS(574) = Jac_FULL(51,334) + JVS(574) = -0.86*B(524) IF (DO_JVS(575)) & -! JVS(575) = Jac_FULL(79,79) - JVS(575) = -B(1118) +! JVS(575) = Jac_FULL(52,52) + JVS(575) = -B(685)-B(1733) IF (DO_JVS(576)) & -! JVS(576) = Jac_FULL(79,286) - JVS(576) = -B(1119) +! JVS(576) = Jac_FULL(52,345) + JVS(576) = -B(686) IF (DO_JVS(577)) & -! JVS(577) = Jac_FULL(80,80) - JVS(577) = -B(1120) +! JVS(577) = Jac_FULL(53,53) + JVS(577) = -0.45*B(511)-B(1721) IF (DO_JVS(578)) & -! JVS(578) = Jac_FULL(80,286) - JVS(578) = -B(1121) +! JVS(578) = Jac_FULL(53,334) + JVS(578) = -0.45*B(512) IF (DO_JVS(579)) & -! JVS(579) = Jac_FULL(81,81) - JVS(579) = -0.79*B(418)-B(462)-B(1427) +! JVS(579) = Jac_FULL(54,54) + JVS(579) = -0.75*B(525)-B(1723) IF (DO_JVS(580)) & -! JVS(580) = Jac_FULL(81,272) - JVS(580) = -0.79*B(419) +! JVS(580) = Jac_FULL(54,334) + JVS(580) = -0.75*B(526) IF (DO_JVS(581)) & -! JVS(581) = Jac_FULL(81,286) - JVS(581) = -B(463) +! JVS(581) = Jac_FULL(55,55) + JVS(581) = -B(1579)-B(1580)-B(1581)-B(1738) IF (DO_JVS(582)) & -! JVS(582) = Jac_FULL(82,82) - JVS(582) = -0.69*B(414)-B(458)-B(1428) +! JVS(582) = Jac_FULL(55,96) + JVS(582) = B(661) IF (DO_JVS(583)) & -! JVS(583) = Jac_FULL(82,272) - JVS(583) = -0.69*B(415) +! JVS(583) = Jac_FULL(55,284) + JVS(583) = B(662) IF (DO_JVS(584)) & -! JVS(584) = Jac_FULL(82,286) - JVS(584) = -B(459) +! JVS(584) = Jac_FULL(56,56) + JVS(584) = -B(755) IF (DO_JVS(585)) & -! JVS(585) = Jac_FULL(83,83) - JVS(585) = -0.65*B(416)-B(460)-B(1429) +! JVS(585) = Jac_FULL(56,257) + JVS(585) = B(753) IF (DO_JVS(586)) & -! JVS(586) = Jac_FULL(83,272) - JVS(586) = -0.65*B(417) +! JVS(586) = Jac_FULL(56,335) + JVS(586) = B(754) IF (DO_JVS(587)) & -! JVS(587) = Jac_FULL(83,286) - JVS(587) = -B(461) +! JVS(587) = Jac_FULL(57,57) + JVS(587) = -B(844) IF (DO_JVS(588)) & -! JVS(588) = Jac_FULL(84,84) - JVS(588) = -0.75*B(404)-B(456)-B(1430) +! JVS(588) = Jac_FULL(57,274) + JVS(588) = B(842) IF (DO_JVS(589)) & -! JVS(589) = Jac_FULL(84,272) - JVS(589) = -0.75*B(405) +! JVS(589) = Jac_FULL(57,335) + JVS(589) = B(843) IF (DO_JVS(590)) & -! JVS(590) = Jac_FULL(84,286) - JVS(590) = -B(457) +! JVS(590) = Jac_FULL(58,58) + JVS(590) = -B(1397) IF (DO_JVS(591)) & -! JVS(591) = Jac_FULL(85,85) - JVS(591) = -B(1079)-B(1471) +! JVS(591) = Jac_FULL(58,200) + JVS(591) = 0.15*B(1348) IF (DO_JVS(592)) & -! JVS(592) = Jac_FULL(85,234) - JVS(592) = 0.73*B(598)+0.4*B(600) +! JVS(592) = Jac_FULL(58,345) + JVS(592) = 0.15*B(1349)-B(1398) IF (DO_JVS(593)) & -! JVS(593) = Jac_FULL(85,278) - JVS(593) = 0.73*B(599)+0.4*B(601) +! JVS(593) = Jac_FULL(59,59) + JVS(593) = -B(1695) IF (DO_JVS(594)) & -! JVS(594) = Jac_FULL(85,286) - JVS(594) = -B(1080) +! JVS(594) = Jac_FULL(59,335) + JVS(594) = B(423) IF (DO_JVS(595)) & -! JVS(595) = Jac_FULL(86,86) - JVS(595) = -B(22)-B(23) +! JVS(595) = Jac_FULL(59,342) + JVS(595) = B(424) IF (DO_JVS(596)) & -! JVS(596) = Jac_FULL(86,263) - JVS(596) = B(20) +! JVS(596) = Jac_FULL(60,60) + JVS(596) = -B(1362) IF (DO_JVS(597)) & -! JVS(597) = Jac_FULL(86,276) - JVS(597) = B(21)-B(24) +! JVS(597) = Jac_FULL(60,345) + JVS(597) = -B(1363) IF (DO_JVS(598)) & -! JVS(598) = Jac_FULL(86,286) - JVS(598) = -B(25) +! JVS(598) = Jac_FULL(61,61) + JVS(598) = -0.65*B(509)-B(1722) IF (DO_JVS(599)) & -! JVS(599) = Jac_FULL(87,87) - JVS(599) = -B(700)-B(1469) +! JVS(599) = Jac_FULL(61,334) + JVS(599) = -0.65*B(510) IF (DO_JVS(600)) & -! JVS(600) = Jac_FULL(87,258) - JVS(600) = B(136) +! JVS(600) = Jac_FULL(62,62) + JVS(600) = -2*B(645)-B(1729) IF (DO_JVS(601)) & -! JVS(601) = Jac_FULL(87,279) - JVS(601) = B(137) +! JVS(601) = Jac_FULL(62,331) + JVS(601) = B(643) IF (DO_JVS(602)) & -! JVS(602) = Jac_FULL(87,286) - JVS(602) = -B(701) +! JVS(602) = Jac_FULL(62,346) + JVS(602) = B(644) IF (DO_JVS(603)) & -! JVS(603) = Jac_FULL(88,88) - JVS(603) = -B(247)-B(1399) +! JVS(603) = Jac_FULL(63,63) + JVS(603) = -B(441)-B(1744) IF (DO_JVS(604)) & -! JVS(604) = Jac_FULL(88,261) - JVS(604) = 0.37*B(1081) +! JVS(604) = Jac_FULL(63,67) + JVS(604) = B(481) IF (DO_JVS(605)) & -! JVS(605) = Jac_FULL(88,284) - JVS(605) = 0.37*B(1082) +! JVS(605) = Jac_FULL(63,334) + JVS(605) = -B(442) IF (DO_JVS(606)) & -! JVS(606) = Jac_FULL(88,286) - JVS(606) = -B(248) +! JVS(606) = Jac_FULL(63,335) + JVS(606) = B(482) IF (DO_JVS(607)) & -! JVS(607) = Jac_FULL(89,89) - JVS(607) = -B(696)-B(1467) +! JVS(607) = Jac_FULL(64,64) + JVS(607) = -B(1755)-B(1756) IF (DO_JVS(608)) & -! JVS(608) = Jac_FULL(89,266) - JVS(608) = B(51) +! JVS(608) = Jac_FULL(64,179) + JVS(608) = B(6) IF (DO_JVS(609)) & -! JVS(609) = Jac_FULL(89,279) - JVS(609) = B(52) +! JVS(609) = Jac_FULL(64,327) + JVS(609) = B(7) IF (DO_JVS(610)) & -! JVS(610) = Jac_FULL(89,286) - JVS(610) = -B(697) +! JVS(610) = Jac_FULL(64,351) + JVS(610) = B(1494) IF (DO_JVS(611)) & -! JVS(611) = Jac_FULL(90,90) - JVS(611) = -B(282)-B(284)-B(286) +! JVS(611) = Jac_FULL(65,65) + JVS(611) = -B(1753)-B(1754) IF (DO_JVS(612)) & -! JVS(612) = Jac_FULL(90,281) - JVS(612) = -B(287) +! JVS(612) = Jac_FULL(65,166) + JVS(612) = B(13) IF (DO_JVS(613)) & -! JVS(613) = Jac_FULL(90,286) - JVS(613) = -B(283)-B(285) +! JVS(613) = Jac_FULL(65,327) + JVS(613) = B(14) IF (DO_JVS(614)) & -! JVS(614) = Jac_FULL(91,91) - JVS(614) = -B(702)-B(1470) +! JVS(614) = Jac_FULL(65,351) + JVS(614) = B(1495) IF (DO_JVS(615)) & -! JVS(615) = Jac_FULL(91,237) - JVS(615) = B(118) +! JVS(615) = Jac_FULL(66,66) + JVS(615) = -B(760)-B(1810) IF (DO_JVS(616)) & -! JVS(616) = Jac_FULL(91,279) - JVS(616) = B(119) +! JVS(616) = Jac_FULL(66,257) + JVS(616) = 0.15*B(749)+0.25*B(893) IF (DO_JVS(617)) & -! JVS(617) = Jac_FULL(91,286) - JVS(617) = -B(703) +! JVS(617) = Jac_FULL(66,328) + JVS(617) = 0.25*B(894) IF (DO_JVS(618)) & -! JVS(618) = Jac_FULL(92,42) - JVS(618) = 2*B(565)+2*B(1447) +! JVS(618) = Jac_FULL(66,337) + JVS(618) = 0.15*B(750) IF (DO_JVS(619)) & -! JVS(619) = Jac_FULL(92,44) - JVS(619) = 0.996*B(585)+B(1442) +! JVS(619) = Jac_FULL(66,345) + JVS(619) = -B(761) IF (DO_JVS(620)) & -! JVS(620) = Jac_FULL(92,49) - JVS(620) = B(1448) +! JVS(620) = Jac_FULL(67,67) + JVS(620) = -B(477)-B(479)-B(481) IF (DO_JVS(621)) & -! JVS(621) = Jac_FULL(92,92) - JVS(621) = -B(562)-2*B(564)-B(566)-B(1438) +! JVS(621) = Jac_FULL(67,335) + JVS(621) = -B(482) IF (DO_JVS(622)) & -! JVS(622) = Jac_FULL(92,227) - JVS(622) = 0.8*B(560)-B(563)+0.4*B(584) +! JVS(622) = Jac_FULL(67,346) + JVS(622) = -B(480)+B(1747) IF (DO_JVS(623)) & -! JVS(623) = Jac_FULL(92,274) - JVS(623) = 0.8*B(561) +! JVS(623) = Jac_FULL(68,68) + JVS(623) = -B(457)-B(459)-B(1745) IF (DO_JVS(624)) & -! JVS(624) = Jac_FULL(92,279) - JVS(624) = -B(567) +! JVS(624) = Jac_FULL(68,343) + JVS(624) = -B(458) IF (DO_JVS(625)) & -! JVS(625) = Jac_FULL(93,93) - JVS(625) = -B(239)-B(1395) +! JVS(625) = Jac_FULL(68,345) + JVS(625) = -B(460) IF (DO_JVS(626)) & -! JVS(626) = Jac_FULL(93,256) - JVS(626) = B(161) +! JVS(626) = Jac_FULL(69,69) + JVS(626) = -B(124)-B(126) IF (DO_JVS(627)) & -! JVS(627) = Jac_FULL(93,284) - JVS(627) = B(162) +! JVS(627) = Jac_FULL(69,345) + JVS(627) = -B(125) IF (DO_JVS(628)) & -! JVS(628) = Jac_FULL(93,286) - JVS(628) = -B(240) +! JVS(628) = Jac_FULL(69,351) + JVS(628) = -B(127) IF (DO_JVS(629)) & -! JVS(629) = Jac_FULL(94,94) - JVS(629) = -B(235)-B(1393) +! JVS(629) = Jac_FULL(70,70) + JVS(629) = -B(1375) IF (DO_JVS(630)) & -! JVS(630) = Jac_FULL(94,237) - JVS(630) = B(203) +! JVS(630) = Jac_FULL(70,234) + JVS(630) = 0.005*B(1366) IF (DO_JVS(631)) & -! JVS(631) = Jac_FULL(94,284) - JVS(631) = B(204) +! JVS(631) = Jac_FULL(70,345) + JVS(631) = -B(1376) IF (DO_JVS(632)) & -! JVS(632) = Jac_FULL(94,286) - JVS(632) = -B(236) +! JVS(632) = Jac_FULL(70,346) + JVS(632) = 0.005*B(1367) IF (DO_JVS(633)) & -! JVS(633) = Jac_FULL(95,95) - JVS(633) = -B(237)-B(1394) +! JVS(633) = Jac_FULL(71,71) + JVS(633) = -B(1438)-B(1803) IF (DO_JVS(634)) & -! JVS(634) = Jac_FULL(95,258) - JVS(634) = B(169) +! JVS(634) = Jac_FULL(71,235) + JVS(634) = 0.65*B(1432) IF (DO_JVS(635)) & -! JVS(635) = Jac_FULL(95,284) - JVS(635) = B(170) +! JVS(635) = Jac_FULL(71,337) + JVS(635) = 0.65*B(1433) IF (DO_JVS(636)) & -! JVS(636) = Jac_FULL(95,286) - JVS(636) = -B(238) +! JVS(636) = Jac_FULL(71,345) + JVS(636) = -B(1439) IF (DO_JVS(637)) & -! JVS(637) = Jac_FULL(96,96) - JVS(637) = -B(698)-B(1468) +! JVS(637) = Jac_FULL(72,72) + JVS(637) = -B(308) IF (DO_JVS(638)) & -! JVS(638) = Jac_FULL(96,217) - JVS(638) = B(108) +! JVS(638) = Jac_FULL(72,213) + JVS(638) = 0.56*B(302) IF (DO_JVS(639)) & -! JVS(639) = Jac_FULL(96,279) - JVS(639) = B(109) +! JVS(639) = Jac_FULL(72,337) + JVS(639) = 0.56*B(303) IF (DO_JVS(640)) & -! JVS(640) = Jac_FULL(96,286) - JVS(640) = -B(699) +! JVS(640) = Jac_FULL(72,345) + JVS(640) = -B(309) IF (DO_JVS(641)) & -! JVS(641) = Jac_FULL(97,97) - JVS(641) = -B(1158)-B(1159) +! JVS(641) = Jac_FULL(73,73) + JVS(641) = -B(675)-B(1571)-B(1572)-B(1573) IF (DO_JVS(642)) & -! JVS(642) = Jac_FULL(97,180) - JVS(642) = B(1154) +! JVS(642) = Jac_FULL(73,331) + JVS(642) = B(671) IF (DO_JVS(643)) & -! JVS(643) = Jac_FULL(97,286) - JVS(643) = -B(1160) +! JVS(643) = Jac_FULL(73,337) + JVS(643) = B(672) IF (DO_JVS(644)) & -! JVS(644) = Jac_FULL(97,291) - JVS(644) = B(1155) +! JVS(644) = Jac_FULL(73,345) + JVS(644) = -B(676) IF (DO_JVS(645)) & -! JVS(645) = Jac_FULL(98,98) - JVS(645) = -B(692) +! JVS(645) = Jac_FULL(74,74) + JVS(645) = -B(758)-B(1809) IF (DO_JVS(646)) & -! JVS(646) = Jac_FULL(98,139) - JVS(646) = B(1347) +! JVS(646) = Jac_FULL(74,257) + JVS(646) = 0.41*B(749) IF (DO_JVS(647)) & -! JVS(647) = Jac_FULL(98,140) - JVS(647) = B(1348) +! JVS(647) = Jac_FULL(74,337) + JVS(647) = 0.41*B(750) IF (DO_JVS(648)) & -! JVS(648) = Jac_FULL(98,151) - JVS(648) = B(1351) +! JVS(648) = Jac_FULL(74,345) + JVS(648) = -B(759) IF (DO_JVS(649)) & -! JVS(649) = Jac_FULL(98,175) - JVS(649) = B(1356) +! JVS(649) = Jac_FULL(75,75) + JVS(649) = -B(551)-B(609) IF (DO_JVS(650)) & -! JVS(650) = Jac_FULL(98,181) - JVS(650) = B(1352) +! JVS(650) = Jac_FULL(75,340) + JVS(650) = -B(610) IF (DO_JVS(651)) & -! JVS(651) = Jac_FULL(98,200) - JVS(651) = B(1357) +! JVS(651) = Jac_FULL(75,345) + JVS(651) = -B(552) IF (DO_JVS(652)) & -! JVS(652) = Jac_FULL(98,202) - JVS(652) = B(1340) +! JVS(652) = Jac_FULL(76,76) + JVS(652) = -B(537)-B(592)-B(1705) IF (DO_JVS(653)) & -! JVS(653) = Jac_FULL(98,213) - JVS(653) = B(1354) +! JVS(653) = Jac_FULL(76,338) + JVS(653) = B(591) IF (DO_JVS(654)) & -! JVS(654) = Jac_FULL(98,214) - JVS(654) = B(1349) +! JVS(654) = Jac_FULL(76,345) + JVS(654) = -B(538) IF (DO_JVS(655)) & -! JVS(655) = Jac_FULL(98,220) - JVS(655) = B(1346) +! JVS(655) = Jac_FULL(77,77) + JVS(655) = -B(1739) IF (DO_JVS(656)) & -! JVS(656) = Jac_FULL(98,241) - JVS(656) = B(1339) +! JVS(656) = Jac_FULL(77,252) + JVS(656) = B(1591)+B(1593) IF (DO_JVS(657)) & -! JVS(657) = Jac_FULL(98,242) - JVS(657) = B(1355) +! JVS(657) = Jac_FULL(77,330) + JVS(657) = B(1607)+B(1609) IF (DO_JVS(658)) & -! JVS(658) = Jac_FULL(98,243) - JVS(658) = B(1353) +! JVS(658) = Jac_FULL(77,332) + JVS(658) = B(1599)+B(1601) IF (DO_JVS(659)) & -! JVS(659) = Jac_FULL(99,99) - JVS(659) = -B(1450) +! JVS(659) = Jac_FULL(77,349) + JVS(659) = B(1592)+B(1600)+B(1608) IF (DO_JVS(660)) & -! JVS(660) = Jac_FULL(99,203) - JVS(660) = B(1313)+B(1315) +! JVS(660) = Jac_FULL(77,350) + JVS(660) = B(1594)+B(1602)+B(1610) IF (DO_JVS(661)) & -! JVS(661) = Jac_FULL(99,227) - JVS(661) = 0.191*B(568) +! JVS(661) = Jac_FULL(78,78) + JVS(661) = -B(429)-0.95*B(499)-B(1697) IF (DO_JVS(662)) & -! JVS(662) = Jac_FULL(99,268) - JVS(662) = B(1329)+B(1331) +! JVS(662) = Jac_FULL(78,334) + JVS(662) = -0.95*B(500) IF (DO_JVS(663)) & -! JVS(663) = Jac_FULL(99,270) - JVS(663) = B(1321)+B(1323) +! JVS(663) = Jac_FULL(78,345) + JVS(663) = -B(430) IF (DO_JVS(664)) & -! JVS(664) = Jac_FULL(99,280) - JVS(664) = B(1314)+B(1322)+B(1330) +! JVS(664) = Jac_FULL(79,79) + JVS(664) = -B(549)-B(607)-B(1700) IF (DO_JVS(665)) & -! JVS(665) = Jac_FULL(99,285) - JVS(665) = 0.191*B(569) +! JVS(665) = Jac_FULL(79,340) + JVS(665) = -B(608) IF (DO_JVS(666)) & -! JVS(666) = Jac_FULL(99,287) - JVS(666) = B(1316)+B(1324)+B(1332) +! JVS(666) = Jac_FULL(79,345) + JVS(666) = -B(550) IF (DO_JVS(667)) & -! JVS(667) = Jac_FULL(100,100) - JVS(667) = -B(332)-B(398)-B(1408) +! JVS(667) = Jac_FULL(80,80) + JVS(667) = -B(380)-B(1741)-B(1742) IF (DO_JVS(668)) & -! JVS(668) = Jac_FULL(100,272) - JVS(668) = -B(399) +! JVS(668) = Jac_FULL(80,328) + JVS(668) = B(378) IF (DO_JVS(669)) & -! JVS(669) = Jac_FULL(100,286) - JVS(669) = -B(333) +! JVS(669) = Jac_FULL(80,335) + JVS(669) = B(379) IF (DO_JVS(670)) & -! JVS(670) = Jac_FULL(101,79) - JVS(670) = 0.06*B(1118) +! JVS(670) = Jac_FULL(81,81) + JVS(670) = -B(427)-0.7*B(501)-B(1696) IF (DO_JVS(671)) & -! JVS(671) = Jac_FULL(101,80) - JVS(671) = 0.06*B(1120) +! JVS(671) = Jac_FULL(81,334) + JVS(671) = -0.7*B(502) IF (DO_JVS(672)) & -! JVS(672) = Jac_FULL(101,101) - JVS(672) = -B(1146)-B(1148)-B(1512) +! JVS(672) = Jac_FULL(81,345) + JVS(672) = -B(428) IF (DO_JVS(673)) & -! JVS(673) = Jac_FULL(101,281) - JVS(673) = -B(1149) +! JVS(673) = Jac_FULL(82,82) + JVS(673) = -B(1383) IF (DO_JVS(674)) & -! JVS(674) = Jac_FULL(101,286) - JVS(674) = 0.06*B(1119)+0.06*B(1121)-B(1147) +! JVS(674) = Jac_FULL(82,345) + JVS(674) = -B(1384) IF (DO_JVS(675)) & -! JVS(675) = Jac_FULL(102,102) - JVS(675) = -B(75)-B(76)-B(1369)-B(1370) +! JVS(675) = Jac_FULL(83,83) + JVS(675) = -B(941)-B(1758) IF (DO_JVS(676)) & -! JVS(676) = Jac_FULL(102,284) - JVS(676) = B(73) +! JVS(676) = Jac_FULL(83,296) + JVS(676) = B(110) IF (DO_JVS(677)) & -! JVS(677) = Jac_FULL(102,286) - JVS(677) = -B(77) +! JVS(677) = Jac_FULL(83,345) + JVS(677) = -B(942) IF (DO_JVS(678)) & -! JVS(678) = Jac_FULL(102,291) - JVS(678) = B(74) +! JVS(678) = Jac_FULL(83,346) + JVS(678) = B(111) IF (DO_JVS(679)) & -! JVS(679) = Jac_FULL(103,75) - JVS(679) = B(438)+B(1415) +! JVS(679) = Jac_FULL(84,84) + JVS(679) = -0.79*B(517)-B(561)-B(1717) IF (DO_JVS(680)) & -! JVS(680) = Jac_FULL(103,103) - JVS(680) = -B(491)-B(494)-B(1434) +! JVS(680) = Jac_FULL(84,334) + JVS(680) = -0.79*B(518) IF (DO_JVS(681)) & -! JVS(681) = Jac_FULL(103,266) - JVS(681) = B(430) +! JVS(681) = Jac_FULL(84,345) + JVS(681) = -B(562) IF (DO_JVS(682)) & -! JVS(682) = Jac_FULL(103,274) - JVS(682) = B(498) +! JVS(682) = Jac_FULL(85,85) + JVS(682) = -0.69*B(513)-B(557)-B(1718) IF (DO_JVS(683)) & -! JVS(683) = Jac_FULL(103,285) - JVS(683) = B(431)+B(487)+B(499) +! JVS(683) = Jac_FULL(85,334) + JVS(683) = -0.69*B(514) IF (DO_JVS(684)) & -! JVS(684) = Jac_FULL(103,286) - JVS(684) = B(439) +! JVS(684) = Jac_FULL(85,345) + JVS(684) = -B(558) IF (DO_JVS(685)) & -! JVS(685) = Jac_FULL(103,290) - JVS(685) = B(489)-B(495) +! JVS(685) = Jac_FULL(86,86) + JVS(685) = -0.65*B(515)-B(559)-B(1719) IF (DO_JVS(686)) & -! JVS(686) = Jac_FULL(104,104) - JVS(686) = -B(1077)-B(1344)-B(1473) +! JVS(686) = Jac_FULL(86,334) + JVS(686) = -0.65*B(516) IF (DO_JVS(687)) & -! JVS(687) = Jac_FULL(104,163) - JVS(687) = 0.653*B(1015)+0.75*B(1479) +! JVS(687) = Jac_FULL(86,345) + JVS(687) = -B(560) IF (DO_JVS(688)) & -! JVS(688) = Jac_FULL(104,241) - JVS(688) = 0.241*B(993) +! JVS(688) = Jac_FULL(87,87) + JVS(688) = -0.75*B(503)-B(555)-B(1720) IF (DO_JVS(689)) & -! JVS(689) = Jac_FULL(104,248) - JVS(689) = 0.075*B(983) +! JVS(689) = Jac_FULL(87,334) + JVS(689) = -0.75*B(504) IF (DO_JVS(690)) & -! JVS(690) = Jac_FULL(104,282) - JVS(690) = 0.075*B(984) +! JVS(690) = Jac_FULL(87,345) + JVS(690) = -B(556) IF (DO_JVS(691)) & -! JVS(691) = Jac_FULL(104,286) - JVS(691) = 0.241*B(994)+0.653*B(1016)-B(1078) +! JVS(691) = Jac_FULL(88,88) + JVS(691) = -B(1322)-B(1761) IF (DO_JVS(692)) & -! JVS(692) = Jac_FULL(105,105) - JVS(692) = -B(1061)-B(1345) +! JVS(692) = Jac_FULL(88,312) + JVS(692) = 0.73*B(697)+0.4*B(699) IF (DO_JVS(693)) & -! JVS(693) = Jac_FULL(105,136) - JVS(693) = 0.098*B(1037) +! JVS(693) = Jac_FULL(88,336) + JVS(693) = 0.73*B(698)+0.4*B(700) IF (DO_JVS(694)) & -! JVS(694) = Jac_FULL(105,153) - JVS(694) = 0.75*B(1059) +! JVS(694) = Jac_FULL(88,345) + JVS(694) = -B(1323) IF (DO_JVS(695)) & -! JVS(695) = Jac_FULL(105,286) - JVS(695) = 0.098*B(1038)+0.75*B(1060)-B(1062) +! JVS(695) = Jac_FULL(89,89) + JVS(695) = -B(22)-B(23) IF (DO_JVS(696)) & -! JVS(696) = Jac_FULL(106,106) - JVS(696) = -B(241)-B(1397) +! JVS(696) = Jac_FULL(89,325) + JVS(696) = B(20) IF (DO_JVS(697)) & -! JVS(697) = Jac_FULL(106,255) - JVS(697) = 0.41*B(207) +! JVS(697) = Jac_FULL(89,345) + JVS(697) = -B(24) IF (DO_JVS(698)) & -! JVS(698) = Jac_FULL(106,284) - JVS(698) = 0.41*B(208) +! JVS(698) = Jac_FULL(89,348) + JVS(698) = B(21)-B(25) IF (DO_JVS(699)) & -! JVS(699) = Jac_FULL(106,286) - JVS(699) = -B(242) +! JVS(699) = Jac_FULL(90,90) + JVS(699) = -B(1440)-B(1441) IF (DO_JVS(700)) & -! JVS(700) = Jac_FULL(107,97) - JVS(700) = B(1159) +! JVS(700) = Jac_FULL(90,235) + JVS(700) = B(1436) IF (DO_JVS(701)) & -! JVS(701) = Jac_FULL(107,107) - JVS(701) = -B(1169)-B(1514) +! JVS(701) = Jac_FULL(90,335) + JVS(701) = B(1437) IF (DO_JVS(702)) & -! JVS(702) = Jac_FULL(107,180) - JVS(702) = 0.15*B(1150) +! JVS(702) = Jac_FULL(90,345) + JVS(702) = -B(1442) IF (DO_JVS(703)) & -! JVS(703) = Jac_FULL(107,191) - JVS(703) = B(1167) +! JVS(703) = Jac_FULL(91,91) + JVS(703) = -B(943)-B(1759) IF (DO_JVS(704)) & -! JVS(704) = Jac_FULL(107,284) - JVS(704) = 0.15*B(1151)+B(1168) +! JVS(704) = Jac_FULL(91,323) + JVS(704) = B(189) IF (DO_JVS(705)) & -! JVS(705) = Jac_FULL(107,286) - JVS(705) = B(1160)-B(1170) +! JVS(705) = Jac_FULL(91,345) + JVS(705) = -B(944) IF (DO_JVS(706)) & -! JVS(706) = Jac_FULL(107,291) - JVS(706) = 0 +! JVS(706) = Jac_FULL(91,346) + JVS(706) = B(190) IF (DO_JVS(707)) & -! JVS(707) = Jac_FULL(108,108) - JVS(707) = -B(1107)-B(1108) +! JVS(707) = Jac_FULL(92,92) + JVS(707) = -B(342)-B(1689) IF (DO_JVS(708)) & -! JVS(708) = Jac_FULL(108,120) - JVS(708) = B(1511) +! JVS(708) = Jac_FULL(92,324) + JVS(708) = 0.37*B(1324) IF (DO_JVS(709)) & -! JVS(709) = Jac_FULL(108,179) - JVS(709) = 0.995*B(1101)+B(1103)+0.6*B(1105) +! JVS(709) = Jac_FULL(92,337) + JVS(709) = 0.37*B(1325) IF (DO_JVS(710)) & -! JVS(710) = Jac_FULL(108,266) - JVS(710) = 0.6*B(1106) +! JVS(710) = Jac_FULL(92,345) + JVS(710) = -B(343) IF (DO_JVS(711)) & -! JVS(711) = Jac_FULL(108,279) - JVS(711) = 0.995*B(1102) +! JVS(711) = Jac_FULL(93,93) + JVS(711) = -B(939)-B(1757) IF (DO_JVS(712)) & -! JVS(712) = Jac_FULL(108,281) - JVS(712) = B(1104) +! JVS(712) = Jac_FULL(93,328) + JVS(712) = B(51) IF (DO_JVS(713)) & -! JVS(713) = Jac_FULL(109,109) - JVS(713) = -B(770) +! JVS(713) = Jac_FULL(93,345) + JVS(713) = -B(940) IF (DO_JVS(714)) & -! JVS(714) = Jac_FULL(109,186) - JVS(714) = 0.15*B(758)+0.112*B(1489) +! JVS(714) = Jac_FULL(93,346) + JVS(714) = B(52) IF (DO_JVS(715)) & -! JVS(715) = Jac_FULL(109,188) - JVS(715) = 0.15*B(760)+0.182*B(1490) +! JVS(715) = Jac_FULL(94,94) + JVS(715) = -B(381)-B(383)-B(385) IF (DO_JVS(716)) & -! JVS(716) = Jac_FULL(109,240) - JVS(716) = 0.161*B(1500) +! JVS(716) = Jac_FULL(94,345) + JVS(716) = -B(382)-B(384) IF (DO_JVS(717)) & -! JVS(717) = Jac_FULL(109,286) - JVS(717) = 0.15*B(759)+0.15*B(761)-B(771) +! JVS(717) = Jac_FULL(94,351) + JVS(717) = -B(386) IF (DO_JVS(718)) & -! JVS(718) = Jac_FULL(110,110) - JVS(718) = -B(233)-B(1392) +! JVS(718) = Jac_FULL(95,95) + JVS(718) = -B(945)-B(1760) IF (DO_JVS(719)) & -! JVS(719) = Jac_FULL(110,217) - JVS(719) = B(199) +! JVS(719) = Jac_FULL(95,321) + JVS(719) = B(120) IF (DO_JVS(720)) & -! JVS(720) = Jac_FULL(110,239) - JVS(720) = B(201) +! JVS(720) = Jac_FULL(95,345) + JVS(720) = -B(946) IF (DO_JVS(721)) & -! JVS(721) = Jac_FULL(110,284) - JVS(721) = B(200)+B(202) +! JVS(721) = Jac_FULL(95,346) + JVS(721) = B(121) IF (DO_JVS(722)) & -! JVS(722) = Jac_FULL(110,286) - JVS(722) = -B(234) +! JVS(722) = Jac_FULL(96,42) + JVS(722) = 2*B(664)+2*B(1737) IF (DO_JVS(723)) & -! JVS(723) = Jac_FULL(111,111) - JVS(723) = -B(436)-B(1414) +! JVS(723) = Jac_FULL(96,44) + JVS(723) = 0.996*B(684)+B(1732) IF (DO_JVS(724)) & -! JVS(724) = Jac_FULL(111,227) - JVS(724) = 0.56*B(568) +! JVS(724) = Jac_FULL(96,55) + JVS(724) = B(1738) IF (DO_JVS(725)) & -! JVS(725) = Jac_FULL(111,274) - JVS(725) = B(496) +! JVS(725) = Jac_FULL(96,96) + JVS(725) = -B(661)-2*B(663)-B(665)-B(1728) IF (DO_JVS(726)) & -! JVS(726) = Jac_FULL(111,285) - JVS(726) = B(488)+B(497)+0.56*B(569) +! JVS(726) = Jac_FULL(96,284) + JVS(726) = 0.8*B(659)-B(662)+0.4*B(683) IF (DO_JVS(727)) & -! JVS(727) = Jac_FULL(111,286) - JVS(727) = -B(437) +! JVS(727) = Jac_FULL(96,346) + JVS(727) = -B(666) IF (DO_JVS(728)) & -! JVS(728) = Jac_FULL(112,112) - JVS(728) = -B(243)-B(1396) +! JVS(728) = Jac_FULL(96,347) + JVS(728) = 0.8*B(660) IF (DO_JVS(729)) & -! JVS(729) = Jac_FULL(112,209) - JVS(729) = B(205) +! JVS(729) = Jac_FULL(97,97) + JVS(729) = -B(332)-B(1680) IF (DO_JVS(730)) & -! JVS(730) = Jac_FULL(112,284) - JVS(730) = B(206) +! JVS(730) = Jac_FULL(97,319) + JVS(730) = B(218) IF (DO_JVS(731)) & -! JVS(731) = Jac_FULL(112,286) - JVS(731) = -B(244) +! JVS(731) = Jac_FULL(97,337) + JVS(731) = B(219) IF (DO_JVS(732)) & -! JVS(732) = Jac_FULL(113,113) - JVS(732) = -B(231)-B(1391) +! JVS(732) = Jac_FULL(97,345) + JVS(732) = -B(333) IF (DO_JVS(733)) & -! JVS(733) = Jac_FULL(113,201) - JVS(733) = B(171) +! JVS(733) = Jac_FULL(98,98) + JVS(733) = -B(134)-B(1681) IF (DO_JVS(734)) & -! JVS(734) = Jac_FULL(113,284) - JVS(734) = B(172) +! JVS(734) = Jac_FULL(98,178) + JVS(734) = B(132) IF (DO_JVS(735)) & -! JVS(735) = Jac_FULL(113,286) - JVS(735) = -B(232) +! JVS(735) = Jac_FULL(98,337) + JVS(735) = B(133) IF (DO_JVS(736)) & -! JVS(736) = Jac_FULL(114,114) - JVS(736) = -B(122)-B(140)-B(538) +! JVS(736) = Jac_FULL(98,345) + JVS(736) = -B(135) IF (DO_JVS(737)) & -! JVS(737) = Jac_FULL(114,281) - JVS(737) = -B(141) +! JVS(737) = Jac_FULL(99,99) + JVS(737) = -B(328)-B(1678) IF (DO_JVS(738)) & -! JVS(738) = Jac_FULL(114,286) - JVS(738) = -B(123) +! JVS(738) = Jac_FULL(99,321) + JVS(738) = B(279) IF (DO_JVS(739)) & -! JVS(739) = Jac_FULL(114,290) - JVS(739) = -B(539) +! JVS(739) = Jac_FULL(99,337) + JVS(739) = B(280) IF (DO_JVS(740)) & -! JVS(740) = Jac_FULL(115,79) - JVS(740) = 0.19*B(1118) +! JVS(740) = Jac_FULL(99,345) + JVS(740) = -B(329) IF (DO_JVS(741)) & -! JVS(741) = Jac_FULL(115,80) - JVS(741) = 0.15*B(1120) +! JVS(741) = Jac_FULL(100,100) + JVS(741) = -B(330)-B(1679) IF (DO_JVS(742)) & -! JVS(742) = Jac_FULL(115,115) - JVS(742) = -B(1136)-B(1138) +! JVS(742) = Jac_FULL(100,323) + JVS(742) = B(230) IF (DO_JVS(743)) & -! JVS(743) = Jac_FULL(115,281) - JVS(743) = -B(1139) +! JVS(743) = Jac_FULL(100,337) + JVS(743) = B(231) IF (DO_JVS(744)) & -! JVS(744) = Jac_FULL(115,286) - JVS(744) = 0.19*B(1119)+0.15*B(1121)-B(1137) +! JVS(744) = Jac_FULL(100,345) + JVS(744) = -B(331) IF (DO_JVS(745)) & -! JVS(745) = Jac_FULL(116,116) - JVS(745) = -B(809)-B(1337) +! JVS(745) = Jac_FULL(101,101) + JVS(745) = -B(1385) IF (DO_JVS(746)) & -! JVS(746) = Jac_FULL(116,165) - JVS(746) = 0.595*B(786) +! JVS(746) = Jac_FULL(101,345) + JVS(746) = -B(1386) IF (DO_JVS(747)) & -! JVS(747) = Jac_FULL(116,171) - JVS(747) = 0.255*B(784) +! JVS(747) = Jac_FULL(102,102) + JVS(747) = -B(334)-B(1682) IF (DO_JVS(748)) & -! JVS(748) = Jac_FULL(116,214) - JVS(748) = B(862) +! JVS(748) = Jac_FULL(102,300) + JVS(748) = B(222) IF (DO_JVS(749)) & -! JVS(749) = Jac_FULL(116,220) - JVS(749) = B(858) +! JVS(749) = Jac_FULL(102,337) + JVS(749) = B(223) IF (DO_JVS(750)) & -! JVS(750) = Jac_FULL(116,286) - JVS(750) = 0.255*B(785)+0.595*B(787)-B(810)+B(859)+B(863) +! JVS(750) = Jac_FULL(102,345) + JVS(750) = -B(335) IF (DO_JVS(751)) & -! JVS(751) = Jac_FULL(117,117) - JVS(751) = -B(1019) +! JVS(751) = Jac_FULL(103,103) + JVS(751) = -B(935) IF (DO_JVS(752)) & -! JVS(752) = Jac_FULL(117,206) - JVS(752) = 0.35*B(1063)+0.35*B(1502) +! JVS(752) = Jac_FULL(103,168) + JVS(752) = B(1630) IF (DO_JVS(753)) & -! JVS(753) = Jac_FULL(117,228) - JVS(753) = B(820)+0.13*B(821)+0.2*B(823) +! JVS(753) = Jac_FULL(103,175) + JVS(753) = B(1629) IF (DO_JVS(754)) & -! JVS(754) = Jac_FULL(117,279) - JVS(754) = 0.2*B(824) +! JVS(754) = Jac_FULL(103,186) + JVS(754) = B(1633) IF (DO_JVS(755)) & -! JVS(755) = Jac_FULL(117,284) - JVS(755) = 0.13*B(822) +! JVS(755) = Jac_FULL(103,216) + JVS(755) = B(1638) IF (DO_JVS(756)) & -! JVS(756) = Jac_FULL(117,286) - JVS(756) = -B(1020)+0.35*B(1064) +! JVS(756) = Jac_FULL(103,222) + JVS(756) = B(1634) IF (DO_JVS(757)) & -! JVS(757) = Jac_FULL(118,64) - JVS(757) = 0.54*B(1116) +! JVS(757) = Jac_FULL(103,248) + JVS(757) = B(1639) IF (DO_JVS(758)) & -! JVS(758) = Jac_FULL(118,118) - JVS(758) = -B(1132)-B(1134) +! JVS(758) = Jac_FULL(103,251) + JVS(758) = B(1622) IF (DO_JVS(759)) & -! JVS(759) = Jac_FULL(118,281) - JVS(759) = -B(1135) +! JVS(759) = Jac_FULL(103,266) + JVS(759) = B(1636) IF (DO_JVS(760)) & -! JVS(760) = Jac_FULL(118,286) - JVS(760) = 0.54*B(1117)-B(1133) +! JVS(760) = Jac_FULL(103,267) + JVS(760) = B(1631) IF (DO_JVS(761)) & -! JVS(761) = Jac_FULL(119,119) - JVS(761) = -B(656)-B(1458) +! JVS(761) = Jac_FULL(103,268) + JVS(761) = B(1628) IF (DO_JVS(762)) & -! JVS(762) = Jac_FULL(119,225) - JVS(762) = B(648) +! JVS(762) = Jac_FULL(103,299) + JVS(762) = B(1635) IF (DO_JVS(763)) & -! JVS(763) = Jac_FULL(119,238) - JVS(763) = B(624) +! JVS(763) = Jac_FULL(103,302) + JVS(763) = B(1621) IF (DO_JVS(764)) & -! JVS(764) = Jac_FULL(119,284) - JVS(764) = B(625)+B(649) +! JVS(764) = Jac_FULL(103,303) + JVS(764) = B(1637) IF (DO_JVS(765)) & -! JVS(765) = Jac_FULL(119,286) - JVS(765) = -B(657) +! JVS(765) = Jac_FULL(104,104) + JVS(765) = -B(1740) IF (DO_JVS(766)) & -! JVS(766) = Jac_FULL(120,120) - JVS(766) = -B(1112)-B(1114)-B(1511) +! JVS(766) = Jac_FULL(104,252) + JVS(766) = B(1595)+B(1597) IF (DO_JVS(767)) & -! JVS(767) = Jac_FULL(120,179) - JVS(767) = B(1099)+0.2*B(1105) +! JVS(767) = Jac_FULL(104,284) + JVS(767) = 0.191*B(667) IF (DO_JVS(768)) & -! JVS(768) = Jac_FULL(120,266) - JVS(768) = 0.2*B(1106) +! JVS(768) = Jac_FULL(104,330) + JVS(768) = B(1611)+B(1613) IF (DO_JVS(769)) & -! JVS(769) = Jac_FULL(120,284) - JVS(769) = B(1100) +! JVS(769) = Jac_FULL(104,332) + JVS(769) = B(1603)+B(1605) IF (DO_JVS(770)) & -! JVS(770) = Jac_FULL(120,286) - JVS(770) = -B(1113)-B(1115) +! JVS(770) = Jac_FULL(104,338) + JVS(770) = 0.191*B(668) IF (DO_JVS(771)) & -! JVS(771) = Jac_FULL(121,121) - JVS(771) = -B(842)-B(844) +! JVS(771) = Jac_FULL(104,344) + JVS(771) = B(1598)+B(1606)+B(1614) IF (DO_JVS(772)) & -! JVS(772) = Jac_FULL(121,186) - JVS(772) = 0.315*B(758) +! JVS(772) = Jac_FULL(104,353) + JVS(772) = B(1596)+B(1604)+B(1612) IF (DO_JVS(773)) & -! JVS(773) = Jac_FULL(121,279) - JVS(773) = -B(843) +! JVS(773) = Jac_FULL(105,105) + JVS(773) = -B(431)-B(497)-B(1698) IF (DO_JVS(774)) & -! JVS(774) = Jac_FULL(121,284) - JVS(774) = -B(845) +! JVS(774) = Jac_FULL(105,334) + JVS(774) = -B(498) IF (DO_JVS(775)) & -! JVS(775) = Jac_FULL(121,286) - JVS(775) = 0.315*B(759) +! JVS(775) = Jac_FULL(105,345) + JVS(775) = -B(432) IF (DO_JVS(776)) & -! JVS(776) = Jac_FULL(122,86) - JVS(776) = 2*B(23) +! JVS(776) = Jac_FULL(106,106) + JVS(776) = -B(1372)-B(1373) IF (DO_JVS(777)) & -! JVS(777) = Jac_FULL(122,122) - JVS(777) = -B(1456) +! JVS(777) = Jac_FULL(106,136) + JVS(777) = B(1801) IF (DO_JVS(778)) & -! JVS(778) = Jac_FULL(122,147) - JVS(778) = B(1) +! JVS(778) = Jac_FULL(106,234) + JVS(778) = 0.995*B(1366)+B(1368)+0.6*B(1370) IF (DO_JVS(779)) & -! JVS(779) = Jac_FULL(122,195) - JVS(779) = B(612) +! JVS(779) = Jac_FULL(106,328) + JVS(779) = 0.6*B(1371) IF (DO_JVS(780)) & -! JVS(780) = Jac_FULL(122,212) - JVS(780) = B(15) +! JVS(780) = Jac_FULL(106,346) + JVS(780) = 0.995*B(1367) IF (DO_JVS(781)) & -! JVS(781) = Jac_FULL(122,234) - JVS(781) = B(604) +! JVS(781) = Jac_FULL(106,351) + JVS(781) = B(1369) IF (DO_JVS(782)) & -! JVS(782) = Jac_FULL(122,260) - JVS(782) = B(1279) +! JVS(782) = Jac_FULL(107,107) + JVS(782) = -B(1304)-B(1627) IF (DO_JVS(783)) & -! JVS(783) = Jac_FULL(122,263) - JVS(783) = 0 +! JVS(783) = Jac_FULL(107,159) + JVS(783) = 0.098*B(1280) IF (DO_JVS(784)) & -! JVS(784) = Jac_FULL(122,271) - JVS(784) = B(1265) +! JVS(784) = Jac_FULL(107,184) + JVS(784) = 0.75*B(1302) IF (DO_JVS(785)) & -! JVS(785) = Jac_FULL(122,276) - JVS(785) = B(2)+B(16)+B(17)+B(19)+2*B(24)+B(288)+B(605)+B(613)+B(1266)+B(1280) +! JVS(785) = Jac_FULL(107,345) + JVS(785) = 0.098*B(1281)+0.75*B(1303)-B(1305) IF (DO_JVS(786)) & -! JVS(786) = Jac_FULL(122,282) - JVS(786) = B(3)+B(18) +! JVS(786) = Jac_FULL(108,108) + JVS(786) = -B(75)-B(76)-B(1651)-B(1652) IF (DO_JVS(787)) & -! JVS(787) = Jac_FULL(122,286) - JVS(787) = 2*B(25)+B(289) +! JVS(787) = Jac_FULL(108,335) + JVS(787) = B(73) IF (DO_JVS(788)) & -! JVS(788) = Jac_FULL(123,123) - JVS(788) = -B(846)-B(848) +! JVS(788) = Jac_FULL(108,337) + JVS(788) = B(74) IF (DO_JVS(789)) & -! JVS(789) = Jac_FULL(123,188) - JVS(789) = 0.315*B(760) +! JVS(789) = Jac_FULL(108,345) + JVS(789) = -B(77) IF (DO_JVS(790)) & -! JVS(790) = Jac_FULL(123,279) - JVS(790) = -B(847) +! JVS(790) = Jac_FULL(109,109) + JVS(790) = -B(1358)-B(1360) IF (DO_JVS(791)) & -! JVS(791) = Jac_FULL(123,284) - JVS(791) = -B(849) +! JVS(791) = Jac_FULL(109,233) + JVS(791) = 0.4*B(1660) IF (DO_JVS(792)) & -! JVS(792) = Jac_FULL(123,286) - JVS(792) = 0.315*B(761) +! JVS(792) = Jac_FULL(109,341) + JVS(792) = -B(1359) IF (DO_JVS(793)) & -! JVS(793) = Jac_FULL(124,124) - JVS(793) = -B(112)-B(114)-B(322)-B(530)-B(532) +! JVS(793) = Jac_FULL(109,345) + JVS(793) = -B(1361) IF (DO_JVS(794)) & -! JVS(794) = Jac_FULL(124,273) - JVS(794) = -B(323) +! JVS(794) = Jac_FULL(110,76) + JVS(794) = B(537)+B(1705) IF (DO_JVS(795)) & -! JVS(795) = Jac_FULL(124,286) - JVS(795) = -B(113)-B(115) +! JVS(795) = Jac_FULL(110,110) + JVS(795) = -B(590)-B(593)-B(1724) IF (DO_JVS(796)) & -! JVS(796) = Jac_FULL(124,290) - JVS(796) = -B(531)-B(533) +! JVS(796) = Jac_FULL(110,328) + JVS(796) = B(529) IF (DO_JVS(797)) & -! JVS(797) = Jac_FULL(125,125) - JVS(797) = -B(1065)-B(1506) +! JVS(797) = Jac_FULL(110,338) + JVS(797) = B(530)+B(586)+B(597) IF (DO_JVS(798)) & -! JVS(798) = Jac_FULL(125,228) - JVS(798) = B(819) +! JVS(798) = Jac_FULL(110,340) + JVS(798) = B(588)-B(594) IF (DO_JVS(799)) & -! JVS(799) = Jac_FULL(125,229) - JVS(799) = B(827) +! JVS(799) = Jac_FULL(110,345) + JVS(799) = B(538) IF (DO_JVS(800)) & -! JVS(800) = Jac_FULL(125,286) - JVS(800) = -B(1066) +! JVS(800) = Jac_FULL(110,347) + JVS(800) = B(598) IF (DO_JVS(801)) & -! JVS(801) = Jac_FULL(126,126) - JVS(801) = -B(934)-B(936) +! JVS(801) = Jac_FULL(111,111) + JVS(801) = -B(741)-B(1807) IF (DO_JVS(802)) & -! JVS(802) = Jac_FULL(126,151) - JVS(802) = 0.841*B(1498) +! JVS(802) = Jac_FULL(111,277) + JVS(802) = B(735) IF (DO_JVS(803)) & -! JVS(803) = Jac_FULL(126,243) - JVS(803) = 0.222*B(1501) +! JVS(803) = Jac_FULL(111,337) + JVS(803) = B(736) IF (DO_JVS(804)) & -! JVS(804) = Jac_FULL(126,246) - JVS(804) = 0.474*B(911)+0.34*B(913)+0.244*B(914)+0.841*B(920)+0.841*B(924)+0.841*B(930) +! JVS(804) = Jac_FULL(111,345) + JVS(804) = -B(742) IF (DO_JVS(805)) & -! JVS(805) = Jac_FULL(126,247) - JVS(805) = 0.474*B(912) +! JVS(805) = Jac_FULL(112,112) + JVS(805) = -B(782)-B(1812) IF (DO_JVS(806)) & -! JVS(806) = Jac_FULL(126,261) - JVS(806) = 0.841*B(921) +! JVS(806) = Jac_FULL(112,275) + JVS(806) = B(774) IF (DO_JVS(807)) & -! JVS(807) = Jac_FULL(126,266) - JVS(807) = 0.244*B(915) +! JVS(807) = Jac_FULL(112,337) + JVS(807) = B(775) IF (DO_JVS(808)) & -! JVS(808) = Jac_FULL(126,279) - JVS(808) = 0.841*B(931) +! JVS(808) = Jac_FULL(112,345) + JVS(808) = -B(783) IF (DO_JVS(809)) & -! JVS(809) = Jac_FULL(126,281) - JVS(809) = 0.841*B(925) +! JVS(809) = Jac_FULL(113,113) + JVS(809) = -B(240)-B(241) IF (DO_JVS(810)) & -! JVS(810) = Jac_FULL(127,127) - JVS(810) = -B(764)-B(1492) +! JVS(810) = Jac_FULL(113,246) + JVS(810) = B(238) IF (DO_JVS(811)) & -! JVS(811) = Jac_FULL(127,165) - JVS(811) = 0.009*B(786) +! JVS(811) = Jac_FULL(113,335) + JVS(811) = B(239) IF (DO_JVS(812)) & -! JVS(812) = Jac_FULL(127,224) - JVS(812) = 0.15*B(712) +! JVS(812) = Jac_FULL(113,345) + JVS(812) = -B(242) IF (DO_JVS(813)) & -! JVS(813) = Jac_FULL(127,244) - JVS(813) = 0.15*B(725) +! JVS(813) = Jac_FULL(114,114) + JVS(813) = -B(299)-B(306) IF (DO_JVS(814)) & -! JVS(814) = Jac_FULL(127,286) - JVS(814) = 0.15*B(713)-B(765)+0.009*B(787) +! JVS(814) = Jac_FULL(114,213) + JVS(814) = B(297) IF (DO_JVS(815)) & -! JVS(815) = Jac_FULL(128,128) - JVS(815) = -B(304)-B(1400) +! JVS(815) = Jac_FULL(114,335) + JVS(815) = B(298) IF (DO_JVS(816)) & -! JVS(816) = Jac_FULL(128,176) - JVS(816) = B(302) +! JVS(816) = Jac_FULL(114,345) + JVS(816) = -B(307) IF (DO_JVS(817)) & -! JVS(817) = Jac_FULL(128,260) - JVS(817) = B(1267)+B(1275)+B(1277) +! JVS(817) = Jac_FULL(115,115) + JVS(817) = -B(1320)-B(1626)-B(1763) IF (DO_JVS(818)) & -! JVS(818) = Jac_FULL(128,273) - JVS(818) = B(303) +! JVS(818) = Jac_FULL(115,194) + JVS(818) = 0.653*B(1258)+0.75*B(1769) IF (DO_JVS(819)) & -! JVS(819) = Jac_FULL(128,274) - JVS(819) = B(299) +! JVS(819) = Jac_FULL(115,302) + JVS(819) = 0.241*B(1236) IF (DO_JVS(820)) & -! JVS(820) = Jac_FULL(128,277) - JVS(820) = B(1278) +! JVS(820) = Jac_FULL(115,314) + JVS(820) = 0.075*B(1226) IF (DO_JVS(821)) & -! JVS(821) = Jac_FULL(128,283) - JVS(821) = B(1276) +! JVS(821) = Jac_FULL(115,341) + JVS(821) = 0.075*B(1227) IF (DO_JVS(822)) & -! JVS(822) = Jac_FULL(128,286) - JVS(822) = -B(305) +! JVS(822) = Jac_FULL(115,345) + JVS(822) = 0.241*B(1237)+0.653*B(1259)-B(1321) IF (DO_JVS(823)) & -! JVS(823) = Jac_FULL(128,289) - JVS(823) = B(1268) +! JVS(823) = Jac_FULL(116,116) + JVS(823) = -B(1356)-B(1687) IF (DO_JVS(824)) & -! JVS(824) = Jac_FULL(129,129) - JVS(824) = -B(762)-B(1491) +! JVS(824) = Jac_FULL(116,189) + JVS(824) = 0.11*B(1352) IF (DO_JVS(825)) & -! JVS(825) = Jac_FULL(129,171) - JVS(825) = 0.009*B(784) +! JVS(825) = Jac_FULL(116,345) + JVS(825) = -B(1357) IF (DO_JVS(826)) & -! JVS(826) = Jac_FULL(129,224) - JVS(826) = 0.15*B(710) +! JVS(826) = Jac_FULL(116,346) + JVS(826) = 0.11*B(1353) IF (DO_JVS(827)) & -! JVS(827) = Jac_FULL(129,245) - JVS(827) = 0.15*B(723) +! JVS(827) = Jac_FULL(117,90) + JVS(827) = B(1441) IF (DO_JVS(828)) & -! JVS(828) = Jac_FULL(129,286) - JVS(828) = 0.15*B(711)-B(763)+0.009*B(785) +! JVS(828) = Jac_FULL(117,117) + JVS(828) = -B(1451)-B(1804) IF (DO_JVS(829)) & -! JVS(829) = Jac_FULL(130,130) - JVS(829) = -B(811)-B(813)-B(1335) +! JVS(829) = Jac_FULL(117,235) + JVS(829) = 0.15*B(1432) IF (DO_JVS(830)) & -! JVS(830) = Jac_FULL(130,139) - JVS(830) = 0.67*B(852) +! JVS(830) = Jac_FULL(117,236) + JVS(830) = B(1449) IF (DO_JVS(831)) & -! JVS(831) = Jac_FULL(130,140) - JVS(831) = 0.67*B(856) +! JVS(831) = Jac_FULL(117,335) + JVS(831) = 0 IF (DO_JVS(832)) & -! JVS(832) = Jac_FULL(130,157) - JVS(832) = 0.67*B(774) +! JVS(832) = Jac_FULL(117,337) + JVS(832) = 0.15*B(1433)+B(1450) IF (DO_JVS(833)) & -! JVS(833) = Jac_FULL(130,162) - JVS(833) = 0.68*B(778) +! JVS(833) = Jac_FULL(117,345) + JVS(833) = B(1442)-B(1452) IF (DO_JVS(834)) & -! JVS(834) = Jac_FULL(130,286) - JVS(834) = 0.67*B(775)+0.68*B(779)-B(812)-B(814)+0.67*B(853)+0.67*B(857) +! JVS(834) = Jac_FULL(118,118) + JVS(834) = -B(326)-B(1677) IF (DO_JVS(835)) & -! JVS(835) = Jac_FULL(131,131) - JVS(835) = -B(815)-B(817)-B(1336) +! JVS(835) = Jac_FULL(118,296) + JVS(835) = B(275) IF (DO_JVS(836)) & -! JVS(836) = Jac_FULL(131,139) - JVS(836) = 0.33*B(852) +! JVS(836) = Jac_FULL(118,315) + JVS(836) = B(277) IF (DO_JVS(837)) & -! JVS(837) = Jac_FULL(131,140) - JVS(837) = 0.33*B(856) +! JVS(837) = Jac_FULL(118,337) + JVS(837) = B(276)+B(278) IF (DO_JVS(838)) & -! JVS(838) = Jac_FULL(131,157) - JVS(838) = 0.33*B(774) +! JVS(838) = Jac_FULL(118,345) + JVS(838) = -B(327) IF (DO_JVS(839)) & -! JVS(839) = Jac_FULL(131,162) - JVS(839) = 0.32*B(778) +! JVS(839) = Jac_FULL(119,119) + JVS(839) = -B(1013) IF (DO_JVS(840)) & -! JVS(840) = Jac_FULL(131,286) - JVS(840) = 0.33*B(775)+0.32*B(779)-B(816)-B(818)+0.33*B(853)+0.33*B(857) +! JVS(840) = Jac_FULL(119,230) + JVS(840) = 0.15*B(1001)+0.112*B(1779) IF (DO_JVS(841)) & -! JVS(841) = Jac_FULL(132,132) - JVS(841) = -B(1025) +! JVS(841) = Jac_FULL(119,231) + JVS(841) = 0.15*B(1003)+0.182*B(1780) IF (DO_JVS(842)) & -! JVS(842) = Jac_FULL(132,206) - JVS(842) = 0.15*B(1063)+0.15*B(1502)+0.163*B(1503) +! JVS(842) = Jac_FULL(119,301) + JVS(842) = 0.161*B(1790) IF (DO_JVS(843)) & -! JVS(843) = Jac_FULL(132,229) - JVS(843) = B(828)+0.2*B(829)+0.13*B(833) +! JVS(843) = Jac_FULL(119,345) + JVS(843) = 0.15*B(1002)+0.15*B(1004)-B(1014) IF (DO_JVS(844)) & -! JVS(844) = Jac_FULL(132,279) - JVS(844) = 0.2*B(830) +! JVS(844) = Jac_FULL(120,120) + JVS(844) = -B(535)-B(1704) IF (DO_JVS(845)) & -! JVS(845) = Jac_FULL(132,284) - JVS(845) = 0.13*B(834) +! JVS(845) = Jac_FULL(120,284) + JVS(845) = 0.56*B(667) IF (DO_JVS(846)) & -! JVS(846) = Jac_FULL(132,286) - JVS(846) = -B(1026)+0.15*B(1064) +! JVS(846) = Jac_FULL(120,338) + JVS(846) = B(587)+B(595)+0.56*B(668) IF (DO_JVS(847)) & -! JVS(847) = Jac_FULL(133,133) - JVS(847) = -B(193)-B(526) +! JVS(847) = Jac_FULL(120,345) + JVS(847) = -B(536) IF (DO_JVS(848)) & -! JVS(848) = Jac_FULL(133,217) - JVS(848) = 0.25*B(175)+0.4*B(197) +! JVS(848) = Jac_FULL(120,347) + JVS(848) = B(596) IF (DO_JVS(849)) & -! JVS(849) = Jac_FULL(133,239) - JVS(849) = 0.25*B(177)+0.4*B(198) +! JVS(849) = Jac_FULL(121,58) + JVS(849) = B(1397) IF (DO_JVS(850)) & -! JVS(850) = Jac_FULL(133,266) - JVS(850) = 0.25*B(176)+0.25*B(178) +! JVS(850) = Jac_FULL(121,121) + JVS(850) = -B(1399)-B(1401) IF (DO_JVS(851)) & -! JVS(851) = Jac_FULL(133,286) - JVS(851) = -B(194) +! JVS(851) = Jac_FULL(121,200) + JVS(851) = 0 IF (DO_JVS(852)) & -! JVS(852) = Jac_FULL(133,290) - JVS(852) = -B(527) +! JVS(852) = Jac_FULL(121,337) + JVS(852) = -B(1402) IF (DO_JVS(853)) & -! JVS(853) = Jac_FULL(134,134) - JVS(853) = -B(694)-B(1343)-B(1462) +! JVS(853) = Jac_FULL(121,345) + JVS(853) = B(1398) IF (DO_JVS(854)) & -! JVS(854) = Jac_FULL(134,178) - JVS(854) = B(682)+B(690) +! JVS(854) = Jac_FULL(121,346) + JVS(854) = -B(1400) IF (DO_JVS(855)) & -! JVS(855) = Jac_FULL(134,199) - JVS(855) = B(684)+B(686)+B(688) +! JVS(855) = Jac_FULL(122,122) + JVS(855) = -B(1411)-B(1412) IF (DO_JVS(856)) & -! JVS(856) = Jac_FULL(134,281) - JVS(856) = B(689)+B(691) +! JVS(856) = Jac_FULL(122,240) + JVS(856) = B(1409) IF (DO_JVS(857)) & -! JVS(857) = Jac_FULL(134,282) - JVS(857) = B(687) +! JVS(857) = Jac_FULL(122,335) + JVS(857) = B(1410) IF (DO_JVS(858)) & -! JVS(858) = Jac_FULL(134,286) - JVS(858) = B(683)+B(685)-B(695) +! JVS(858) = Jac_FULL(122,345) + JVS(858) = -B(1413) IF (DO_JVS(859)) & -! JVS(859) = Jac_FULL(135,135) - JVS(859) = -B(1411) +! JVS(859) = Jac_FULL(123,123) + JVS(859) = -B(338)-B(1683) IF (DO_JVS(860)) & -! JVS(860) = Jac_FULL(135,176) - JVS(860) = B(1229) +! JVS(860) = Jac_FULL(123,260) + JVS(860) = B(281) IF (DO_JVS(861)) & -! JVS(861) = Jac_FULL(135,235) - JVS(861) = B(1251)+B(1253)+B(1255) +! JVS(861) = Jac_FULL(123,337) + JVS(861) = B(282) IF (DO_JVS(862)) & -! JVS(862) = Jac_FULL(135,260) - JVS(862) = B(1269)+B(1271)+B(1273) +! JVS(862) = Jac_FULL(123,345) + JVS(862) = -B(339) IF (DO_JVS(863)) & -! JVS(863) = Jac_FULL(135,262) - JVS(863) = B(1235)+B(1237)+B(1239) +! JVS(863) = Jac_FULL(124,124) + JVS(863) = -B(205)-B(206)-B(1806) IF (DO_JVS(864)) & -! JVS(864) = Jac_FULL(135,271) - JVS(864) = B(1259) +! JVS(864) = Jac_FULL(124,322) + JVS(864) = B(203) IF (DO_JVS(865)) & -! JVS(865) = Jac_FULL(135,274) - JVS(865) = B(500) +! JVS(865) = Jac_FULL(124,335) + JVS(865) = B(204) IF (DO_JVS(866)) & -! JVS(866) = Jac_FULL(135,275) - JVS(866) = B(1230)+B(1270) +! JVS(866) = Jac_FULL(124,345) + JVS(866) = -B(207) IF (DO_JVS(867)) & -! JVS(867) = Jac_FULL(135,277) - JVS(867) = B(1240)+B(1254) +! JVS(867) = Jac_FULL(125,125) + JVS(867) = -B(324)-B(1676) IF (DO_JVS(868)) & -! JVS(868) = Jac_FULL(135,280) - JVS(868) = B(1272) +! JVS(868) = Jac_FULL(125,250) + JVS(868) = B(232) IF (DO_JVS(869)) & -! JVS(869) = Jac_FULL(135,283) - JVS(869) = B(1238)+B(1252) +! JVS(869) = Jac_FULL(125,337) + JVS(869) = B(233) IF (DO_JVS(870)) & -! JVS(870) = Jac_FULL(135,285) - JVS(870) = B(501) +! JVS(870) = Jac_FULL(125,345) + JVS(870) = -B(325) IF (DO_JVS(871)) & -! JVS(871) = Jac_FULL(135,287) - JVS(871) = B(1274) +! JVS(871) = Jac_FULL(126,126) + JVS(871) = -B(166)-B(167)-B(1659) IF (DO_JVS(872)) & -! JVS(872) = Jac_FULL(135,289) - JVS(872) = B(1236)+B(1256)+B(1260) +! JVS(872) = Jac_FULL(126,197) + JVS(872) = B(164) IF (DO_JVS(873)) & -! JVS(873) = Jac_FULL(136,136) - JVS(873) = -B(1037)-0.75*B(1481) +! JVS(873) = Jac_FULL(126,335) + JVS(873) = B(165) IF (DO_JVS(874)) & -! JVS(874) = Jac_FULL(136,207) - JVS(874) = 0.5*B(1035) +! JVS(874) = Jac_FULL(126,345) + JVS(874) = -B(168) IF (DO_JVS(875)) & -! JVS(875) = Jac_FULL(136,284) - JVS(875) = 0.5*B(1036) +! JVS(875) = Jac_FULL(127,127) + JVS(875) = -B(152) IF (DO_JVS(876)) & -! JVS(876) = Jac_FULL(136,286) - JVS(876) = -B(1038) +! JVS(876) = Jac_FULL(127,212) + JVS(876) = 0.058*B(148) IF (DO_JVS(877)) & -! JVS(877) = Jac_FULL(137,137) - JVS(877) = -B(59)-B(516)-B(1364) +! JVS(877) = Jac_FULL(127,345) + JVS(877) = -B(153) IF (DO_JVS(878)) & -! JVS(878) = Jac_FULL(137,266) - JVS(878) = B(53) +! JVS(878) = Jac_FULL(127,346) + JVS(878) = 0.058*B(149) IF (DO_JVS(879)) & -! JVS(879) = Jac_FULL(137,284) - JVS(879) = B(54) +! JVS(879) = Jac_FULL(128,128) + JVS(879) = -B(1052)-B(1619) IF (DO_JVS(880)) & -! JVS(880) = Jac_FULL(137,286) - JVS(880) = -B(60) +! JVS(880) = Jac_FULL(128,199) + JVS(880) = 0.595*B(1029) IF (DO_JVS(881)) & -! JVS(881) = Jac_FULL(137,290) - JVS(881) = -B(517) +! JVS(881) = Jac_FULL(128,209) + JVS(881) = 0.255*B(1027) IF (DO_JVS(882)) & -! JVS(882) = Jac_FULL(138,138) - JVS(882) = -2*B(8)-B(11)-B(13) +! JVS(882) = Jac_FULL(128,267) + JVS(882) = B(1105) IF (DO_JVS(883)) & -! JVS(883) = Jac_FULL(138,265) - JVS(883) = -B(14) +! JVS(883) = Jac_FULL(128,268) + JVS(883) = B(1101) IF (DO_JVS(884)) & -! JVS(884) = Jac_FULL(138,275) - JVS(884) = -B(12) +! JVS(884) = Jac_FULL(128,345) + JVS(884) = 0.255*B(1028)+0.595*B(1030)-B(1053)+B(1102)+B(1106) IF (DO_JVS(885)) & -! JVS(885) = Jac_FULL(138,276) - JVS(885) = -2*B(9) +! JVS(885) = Jac_FULL(129,112) + JVS(885) = B(1812) IF (DO_JVS(886)) & -! JVS(886) = Jac_FULL(138,282) - JVS(886) = -2*B(10) +! JVS(886) = Jac_FULL(129,129) + JVS(886) = -B(784) IF (DO_JVS(887)) & -! JVS(887) = Jac_FULL(139,139) - JVS(887) = -B(850)-B(852)-B(1347)-B(1494) +! JVS(887) = Jac_FULL(129,138) + JVS(887) = 0.5*B(780) IF (DO_JVS(888)) & -! JVS(888) = Jac_FULL(139,245) - JVS(888) = B(742) +! JVS(888) = Jac_FULL(129,191) + JVS(888) = 0.2*B(733) IF (DO_JVS(889)) & -! JVS(889) = Jac_FULL(139,279) - JVS(889) = B(743) +! JVS(889) = Jac_FULL(129,275) + JVS(889) = 0.75*B(776)+B(778)+B(881)+B(883) IF (DO_JVS(890)) & -! JVS(890) = Jac_FULL(139,286) - JVS(890) = -B(851)-B(853) +! JVS(890) = Jac_FULL(129,324) + JVS(890) = B(884) IF (DO_JVS(891)) & -! JVS(891) = Jac_FULL(140,140) - JVS(891) = -B(854)-B(856)-B(1348)-B(1495) +! JVS(891) = Jac_FULL(129,328) + JVS(891) = B(882) IF (DO_JVS(892)) & -! JVS(892) = Jac_FULL(140,244) - JVS(892) = B(750) +! JVS(892) = Jac_FULL(129,337) + JVS(892) = 0 IF (DO_JVS(893)) & -! JVS(893) = Jac_FULL(140,279) - JVS(893) = B(751) +! JVS(893) = Jac_FULL(129,341) + JVS(893) = 0.2*B(734) IF (DO_JVS(894)) & -! JVS(894) = Jac_FULL(140,286) - JVS(894) = -B(855)-B(857) +! JVS(894) = Jac_FULL(129,345) + JVS(894) = 0.5*B(781)-B(785) IF (DO_JVS(895)) & -! JVS(895) = Jac_FULL(141,141) - JVS(895) = -B(1067)-B(1504) +! JVS(895) = Jac_FULL(129,346) + JVS(895) = 0.75*B(777) IF (DO_JVS(896)) & -! JVS(896) = Jac_FULL(141,182) - JVS(896) = 0.725*B(793) +! JVS(896) = Jac_FULL(129,351) + JVS(896) = B(779) IF (DO_JVS(897)) & -! JVS(897) = Jac_FULL(141,183) - JVS(897) = 0.725*B(800) +! JVS(897) = Jac_FULL(130,130) + JVS(897) = -B(849)-B(1815) IF (DO_JVS(898)) & -! JVS(898) = Jac_FULL(141,187) - JVS(898) = 0.35*B(807) +! JVS(898) = Jac_FULL(130,274) + JVS(898) = 0.15*B(838)+0.25*B(897) IF (DO_JVS(899)) & -! JVS(899) = Jac_FULL(141,284) - JVS(899) = 0.725*B(794)+0.725*B(801)+0.35*B(808) +! JVS(899) = Jac_FULL(130,328) + JVS(899) = 0.25*B(898) IF (DO_JVS(900)) & -! JVS(900) = Jac_FULL(141,286) - JVS(900) = -B(1068) +! JVS(900) = Jac_FULL(130,337) + JVS(900) = 0.15*B(839) IF (DO_JVS(901)) & -! JVS(901) = Jac_FULL(142,115) - JVS(901) = 0.727*B(1136) +! JVS(901) = Jac_FULL(130,345) + JVS(901) = -B(850) IF (DO_JVS(902)) & -! JVS(902) = Jac_FULL(142,118) - JVS(902) = 0.8*B(1132) +! JVS(902) = Jac_FULL(131,131) + JVS(902) = -B(1262) IF (DO_JVS(903)) & -! JVS(903) = Jac_FULL(142,142) - JVS(903) = -B(1140)-B(1142)-B(1144) +! JVS(903) = Jac_FULL(131,258) + JVS(903) = 0.35*B(1306)+0.35*B(1792) IF (DO_JVS(904)) & -! JVS(904) = Jac_FULL(142,281) - JVS(904) = -B(1145) +! JVS(904) = Jac_FULL(131,286) + JVS(904) = B(1063)+0.13*B(1064)+0.2*B(1066) IF (DO_JVS(905)) & -! JVS(905) = Jac_FULL(142,282) - JVS(905) = -B(1143) +! JVS(905) = Jac_FULL(131,337) + JVS(905) = 0.13*B(1065) IF (DO_JVS(906)) & -! JVS(906) = Jac_FULL(142,286) - JVS(906) = 0.8*B(1133)+0.727*B(1137)-B(1141) +! JVS(906) = Jac_FULL(131,345) + JVS(906) = -B(1263)+0.35*B(1307) IF (DO_JVS(907)) & -! JVS(907) = Jac_FULL(143,60) - JVS(907) = B(546) +! JVS(907) = Jac_FULL(131,346) + JVS(907) = 0.2*B(1067) IF (DO_JVS(908)) & -! JVS(908) = Jac_FULL(143,143) - JVS(908) = -B(551)-B(574)-B(1435) +! JVS(908) = Jac_FULL(132,132) + JVS(908) = -B(156)-B(158) IF (DO_JVS(909)) & -! JVS(909) = Jac_FULL(143,203) - JVS(909) = B(550) +! JVS(909) = Jac_FULL(132,233) + JVS(909) = 0.255*B(154) IF (DO_JVS(910)) & -! JVS(910) = Jac_FULL(143,269) - JVS(910) = B(556) +! JVS(910) = Jac_FULL(132,337) + JVS(910) = -B(159) IF (DO_JVS(911)) & -! JVS(911) = Jac_FULL(143,270) - JVS(911) = B(557) +! JVS(911) = Jac_FULL(132,345) + JVS(911) = 0.255*B(155) IF (DO_JVS(912)) & -! JVS(912) = Jac_FULL(143,279) - JVS(912) = 0 +! JVS(912) = Jac_FULL(132,346) + JVS(912) = -B(157) IF (DO_JVS(913)) & -! JVS(913) = Jac_FULL(143,281) - JVS(913) = -B(552) +! JVS(913) = Jac_FULL(133,133) + JVS(913) = -B(1085)-B(1087) IF (DO_JVS(914)) & -! JVS(914) = Jac_FULL(143,286) - JVS(914) = -B(575) +! JVS(914) = Jac_FULL(133,230) + JVS(914) = 0.315*B(1001) IF (DO_JVS(915)) & -! JVS(915) = Jac_FULL(144,144) - JVS(915) = -B(1003)-B(1005)-B(1007) +! JVS(915) = Jac_FULL(133,337) + JVS(915) = -B(1088) IF (DO_JVS(916)) & -! JVS(916) = Jac_FULL(144,186) - JVS(916) = 0.224*B(1489) +! JVS(916) = Jac_FULL(133,345) + JVS(916) = 0.315*B(1002) IF (DO_JVS(917)) & -! JVS(917) = Jac_FULL(144,240) - JVS(917) = 0.068*B(1500) +! JVS(917) = Jac_FULL(133,346) + JVS(917) = -B(1086) IF (DO_JVS(918)) & -! JVS(918) = Jac_FULL(144,279) - JVS(918) = -B(1004) +! JVS(918) = Jac_FULL(134,89) + JVS(918) = 2*B(23) IF (DO_JVS(919)) & -! JVS(919) = Jac_FULL(144,284) - JVS(919) = -B(1006) +! JVS(919) = Jac_FULL(134,134) + JVS(919) = -B(1746) IF (DO_JVS(920)) & -! JVS(920) = Jac_FULL(144,291) - JVS(920) = -B(1008) +! JVS(920) = Jac_FULL(134,179) + JVS(920) = B(1) IF (DO_JVS(921)) & -! JVS(921) = Jac_FULL(145,145) - JVS(921) = -B(1009)-B(1011)-B(1013) +! JVS(921) = Jac_FULL(134,241) + JVS(921) = B(711) IF (DO_JVS(922)) & -! JVS(922) = Jac_FULL(145,188) - JVS(922) = 0.182*B(1490) +! JVS(922) = Jac_FULL(134,264) + JVS(922) = B(15) IF (DO_JVS(923)) & -! JVS(923) = Jac_FULL(145,240) - JVS(923) = 0.128*B(1500) +! JVS(923) = Jac_FULL(134,312) + JVS(923) = B(703) IF (DO_JVS(924)) & -! JVS(924) = Jac_FULL(145,279) - JVS(924) = -B(1010) +! JVS(924) = Jac_FULL(134,316) + JVS(924) = B(1561) IF (DO_JVS(925)) & -! JVS(925) = Jac_FULL(145,284) - JVS(925) = -B(1012) +! JVS(925) = Jac_FULL(134,325) + JVS(925) = 0 IF (DO_JVS(926)) & -! JVS(926) = Jac_FULL(145,291) - JVS(926) = -B(1014) +! JVS(926) = Jac_FULL(134,333) + JVS(926) = B(1547) IF (DO_JVS(927)) & -! JVS(927) = Jac_FULL(146,146) - JVS(927) = -B(977)-B(979) +! JVS(927) = Jac_FULL(134,341) + JVS(927) = B(2)+B(17) IF (DO_JVS(928)) & -! JVS(928) = Jac_FULL(146,243) - JVS(928) = 0.435*B(975) +! JVS(928) = Jac_FULL(134,345) + JVS(928) = 2*B(24)+B(387) IF (DO_JVS(929)) & -! JVS(929) = Jac_FULL(146,279) - JVS(929) = -B(978) +! 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) IF (DO_JVS(930)) & -! JVS(930) = Jac_FULL(146,284) - JVS(930) = -B(980) +! JVS(930) = Jac_FULL(135,135) + JVS(930) = -B(1089)-B(1091) IF (DO_JVS(931)) & -! JVS(931) = Jac_FULL(146,286) - JVS(931) = 0.435*B(976) +! JVS(931) = Jac_FULL(135,231) + JVS(931) = 0.315*B(1003) IF (DO_JVS(932)) & -! JVS(932) = Jac_FULL(147,147) - JVS(932) = -2*B(1)-B(4)-B(6) +! JVS(932) = Jac_FULL(135,337) + JVS(932) = -B(1092) IF (DO_JVS(933)) & -! JVS(933) = Jac_FULL(147,265) - JVS(933) = -B(7) +! JVS(933) = Jac_FULL(135,345) + JVS(933) = 0.315*B(1004) IF (DO_JVS(934)) & -! JVS(934) = Jac_FULL(147,275) - JVS(934) = -B(5) +! JVS(934) = Jac_FULL(135,346) + JVS(934) = -B(1090) IF (DO_JVS(935)) & -! JVS(935) = Jac_FULL(147,276) - JVS(935) = -2*B(2) +! JVS(935) = Jac_FULL(136,136) + JVS(935) = -B(1377)-B(1379)-B(1801) IF (DO_JVS(936)) & -! JVS(936) = Jac_FULL(147,282) - JVS(936) = -2*B(3) +! JVS(936) = Jac_FULL(136,234) + JVS(936) = B(1364)+0.2*B(1370) IF (DO_JVS(937)) & -! JVS(937) = Jac_FULL(148,79) - JVS(937) = 0.3*B(1118) +! JVS(937) = Jac_FULL(136,328) + JVS(937) = 0.2*B(1371) IF (DO_JVS(938)) & -! JVS(938) = Jac_FULL(148,80) - JVS(938) = 0.56*B(1120) +! JVS(938) = Jac_FULL(136,337) + JVS(938) = B(1365) IF (DO_JVS(939)) & -! JVS(939) = Jac_FULL(148,115) - JVS(939) = 0.44*B(1136)+0.44*B(1138) +! JVS(939) = Jac_FULL(136,345) + JVS(939) = -B(1378)-B(1380) IF (DO_JVS(940)) & -! JVS(940) = Jac_FULL(148,148) - JVS(940) = -B(1188)-B(1190)-B(1192) +! JVS(940) = Jac_FULL(137,137) + JVS(940) = -B(743) IF (DO_JVS(941)) & -! JVS(941) = Jac_FULL(148,281) - JVS(941) = 0.44*B(1139) +! JVS(941) = Jac_FULL(137,277) + JVS(941) = 0.25*B(737) IF (DO_JVS(942)) & -! JVS(942) = Jac_FULL(148,282) - JVS(942) = -B(1191) +! JVS(942) = Jac_FULL(137,345) + JVS(942) = -B(744) IF (DO_JVS(943)) & -! JVS(943) = Jac_FULL(148,286) - JVS(943) = 0.3*B(1119)+0.56*B(1121)+0.44*B(1137)-B(1189) +! JVS(943) = Jac_FULL(137,346) + JVS(943) = 0.25*B(738) IF (DO_JVS(944)) & -! JVS(944) = Jac_FULL(149,149) - JVS(944) = -0.9*B(396)-B(448)-B(506)-B(1409) +! JVS(944) = Jac_FULL(138,138) + JVS(944) = -B(780) IF (DO_JVS(945)) & -! JVS(945) = Jac_FULL(149,272) - JVS(945) = -0.9*B(397) +! JVS(945) = Jac_FULL(138,275) + JVS(945) = 0.25*B(776) IF (DO_JVS(946)) & -! JVS(946) = Jac_FULL(149,286) - JVS(946) = -B(449) +! JVS(946) = Jac_FULL(138,345) + JVS(946) = -B(781) IF (DO_JVS(947)) & -! JVS(947) = Jac_FULL(149,290) - JVS(947) = -B(507) +! JVS(947) = Jac_FULL(138,346) + JVS(947) = 0.25*B(777) IF (DO_JVS(948)) & -! JVS(948) = Jac_FULL(150,150) - JVS(948) = -0.33*B(971)-0.33*B(973) +! JVS(948) = Jac_FULL(139,139) + JVS(948) = -B(101)-B(102)-B(1658) IF (DO_JVS(949)) & -! JVS(949) = Jac_FULL(150,240) - JVS(949) = 0.461*B(969) +! JVS(949) = Jac_FULL(139,324) + JVS(949) = B(99) IF (DO_JVS(950)) & -! JVS(950) = Jac_FULL(150,242) - JVS(950) = 0.041*B(1073) +! JVS(950) = Jac_FULL(139,335) + JVS(950) = B(100) IF (DO_JVS(951)) & -! JVS(951) = Jac_FULL(150,279) - JVS(951) = -0.33*B(972) +! JVS(951) = Jac_FULL(139,345) + JVS(951) = -B(103) IF (DO_JVS(952)) & -! JVS(952) = Jac_FULL(150,284) - JVS(952) = -0.33*B(974) +! JVS(952) = Jac_FULL(140,140) + JVS(952) = -B(142)-B(144)-B(146) IF (DO_JVS(953)) & -! JVS(953) = Jac_FULL(150,286) - JVS(953) = 0.461*B(970)+0.041*B(1074) +! JVS(953) = Jac_FULL(140,341) + JVS(953) = -B(147) IF (DO_JVS(954)) & -! JVS(954) = Jac_FULL(151,151) - JVS(954) = -B(939)-B(943)-B(945)-B(949)-B(951)-B(1351)-B(1498)-B(1499) +! JVS(954) = Jac_FULL(140,345) + JVS(954) = -B(143) IF (DO_JVS(955)) & -! JVS(955) = Jac_FULL(151,246) - JVS(955) = B(908) +! JVS(955) = Jac_FULL(140,351) + JVS(955) = -B(145) IF (DO_JVS(956)) & -! JVS(956) = Jac_FULL(151,284) - JVS(956) = B(909) +! JVS(956) = Jac_FULL(141,141) + JVS(956) = -B(114)-B(116)-B(421)-B(629)-B(631) IF (DO_JVS(957)) & -! JVS(957) = Jac_FULL(151,286) - JVS(957) = -B(940)-B(944)-B(946)-B(950)-B(952) +! JVS(957) = Jac_FULL(141,340) + JVS(957) = -B(630)-B(632) IF (DO_JVS(958)) & -! JVS(958) = Jac_FULL(152,140) - JVS(958) = B(854) +! JVS(958) = Jac_FULL(141,342) + JVS(958) = -B(422) IF (DO_JVS(959)) & -! JVS(959) = Jac_FULL(152,152) - JVS(959) = -B(877)-B(878)-B(880)-B(882) +! JVS(959) = Jac_FULL(141,345) + JVS(959) = -B(115)-B(117) IF (DO_JVS(960)) & -! JVS(960) = Jac_FULL(152,244) - JVS(960) = 0 +! JVS(960) = Jac_FULL(142,142) + JVS(960) = -B(169)-B(193)-B(637) IF (DO_JVS(961)) & -! JVS(961) = Jac_FULL(152,279) - JVS(961) = -B(881)-B(883) +! JVS(961) = Jac_FULL(142,340) + JVS(961) = -B(638) IF (DO_JVS(962)) & -! JVS(962) = Jac_FULL(152,284) - JVS(962) = -B(879) +! JVS(962) = Jac_FULL(142,345) + JVS(962) = -B(170) IF (DO_JVS(963)) & -! JVS(963) = Jac_FULL(152,286) - JVS(963) = B(855) +! JVS(963) = Jac_FULL(142,351) + JVS(963) = -B(194) IF (DO_JVS(964)) & -! JVS(964) = Jac_FULL(153,153) - JVS(964) = -B(1058)-B(1059) +! JVS(964) = Jac_FULL(143,143) + JVS(964) = -B(1381) IF (DO_JVS(965)) & -! JVS(965) = Jac_FULL(153,207) - JVS(965) = B(1046) +! JVS(965) = Jac_FULL(143,220) + JVS(965) = 0.1*B(1342) IF (DO_JVS(966)) & -! JVS(966) = Jac_FULL(153,249) - JVS(966) = B(1052) +! JVS(966) = Jac_FULL(143,341) + JVS(966) = 0.1*B(1343) IF (DO_JVS(967)) & -! JVS(967) = Jac_FULL(153,286) - JVS(967) = -B(1060) +! JVS(967) = Jac_FULL(143,345) + JVS(967) = -B(1382) IF (DO_JVS(968)) & -! JVS(968) = Jac_FULL(153,291) - JVS(968) = B(1047)+B(1053) +! JVS(968) = Jac_FULL(144,144) + JVS(968) = -B(1007)-B(1782) IF (DO_JVS(969)) & -! JVS(969) = Jac_FULL(154,154) - JVS(969) = -B(618)-B(632)-B(636) +! JVS(969) = Jac_FULL(144,199) + JVS(969) = 0.009*B(1029) IF (DO_JVS(970)) & -! JVS(970) = Jac_FULL(154,281) - JVS(970) = -B(637) +! JVS(970) = Jac_FULL(144,276) + JVS(970) = 0.15*B(955) IF (DO_JVS(971)) & -! JVS(971) = Jac_FULL(154,282) - JVS(971) = -B(633) +! JVS(971) = Jac_FULL(144,304) + JVS(971) = 0.15*B(968) IF (DO_JVS(972)) & -! JVS(972) = Jac_FULL(154,286) - JVS(972) = -B(619) +! JVS(972) = Jac_FULL(144,345) + JVS(972) = 0.15*B(956)-B(1008)+0.009*B(1030) IF (DO_JVS(973)) & -! JVS(973) = Jac_FULL(155,155) - JVS(973) = -B(620)-B(634)-B(638) +! JVS(973) = Jac_FULL(145,145) + JVS(973) = -B(1177)-B(1179) IF (DO_JVS(974)) & -! JVS(974) = Jac_FULL(155,281) - JVS(974) = -B(639) +! JVS(974) = Jac_FULL(145,186) + JVS(974) = 0.841*B(1788) IF (DO_JVS(975)) & -! JVS(975) = Jac_FULL(155,282) - JVS(975) = -B(635) +! JVS(975) = Jac_FULL(145,299) + JVS(975) = 0.222*B(1791) IF (DO_JVS(976)) & -! JVS(976) = Jac_FULL(155,286) - JVS(976) = -B(621) +! JVS(976) = Jac_FULL(145,310) + JVS(976) = 0.474*B(1154) IF (DO_JVS(977)) & -! JVS(977) = Jac_FULL(156,109) - JVS(977) = B(770) +! 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) IF (DO_JVS(978)) & -! JVS(978) = Jac_FULL(156,125) - JVS(978) = 0.444*B(1065)+0.454*B(1506) +! JVS(978) = Jac_FULL(145,324) + JVS(978) = 0.841*B(1164) IF (DO_JVS(979)) & -! JVS(979) = Jac_FULL(156,156) - JVS(979) = -B(1017)-B(1478) +! JVS(979) = Jac_FULL(145,328) + JVS(979) = 0.244*B(1158) IF (DO_JVS(980)) & -! JVS(980) = Jac_FULL(156,186) - JVS(980) = 0.112*B(1489) +! JVS(980) = Jac_FULL(145,346) + JVS(980) = 0.841*B(1174) IF (DO_JVS(981)) & -! JVS(981) = Jac_FULL(156,188) - JVS(981) = 0.182*B(1490) +! JVS(981) = Jac_FULL(145,351) + JVS(981) = 0.841*B(1168) IF (DO_JVS(982)) & -! JVS(982) = Jac_FULL(156,228) - JVS(982) = 0 +! JVS(982) = Jac_FULL(146,121) + JVS(982) = B(1399)+B(1401) IF (DO_JVS(983)) & -! JVS(983) = Jac_FULL(156,229) - JVS(983) = 0 +! JVS(983) = Jac_FULL(146,146) + JVS(983) = -B(1403)-B(1661) IF (DO_JVS(984)) & -! JVS(984) = Jac_FULL(156,240) - JVS(984) = 0.162*B(1500) +! JVS(984) = Jac_FULL(146,200) + JVS(984) = 0 IF (DO_JVS(985)) & -! JVS(985) = Jac_FULL(156,286) - JVS(985) = B(771)-B(1018)+0.444*B(1066) +! JVS(985) = Jac_FULL(146,337) + JVS(985) = B(1402) IF (DO_JVS(986)) & -! JVS(986) = Jac_FULL(157,157) - JVS(986) = -B(772)-B(774)-B(780)-B(1485) +! JVS(986) = Jac_FULL(146,345) + JVS(986) = -B(1404) IF (DO_JVS(987)) & -! JVS(987) = Jac_FULL(157,245) - JVS(987) = 0.937*B(714) +! JVS(987) = Jac_FULL(146,346) + JVS(987) = B(1400) IF (DO_JVS(988)) & -! JVS(988) = Jac_FULL(157,284) - JVS(988) = 0.937*B(715) +! JVS(988) = Jac_FULL(147,147) + JVS(988) = -B(1308)-B(1796) IF (DO_JVS(989)) & -! JVS(989) = Jac_FULL(157,286) - JVS(989) = -B(773)-B(775)-B(781) +! JVS(989) = Jac_FULL(147,285) + JVS(989) = B(1070) IF (DO_JVS(990)) & -! JVS(990) = Jac_FULL(158,158) - JVS(990) = -B(195) +! JVS(990) = Jac_FULL(147,286) + JVS(990) = B(1062) IF (DO_JVS(991)) & -! JVS(991) = Jac_FULL(158,201) - JVS(991) = 0.25*B(191) +! JVS(991) = Jac_FULL(147,345) + JVS(991) = -B(1309) IF (DO_JVS(992)) & -! JVS(992) = Jac_FULL(158,209) - JVS(992) = 0.25*B(159) +! JVS(992) = Jac_FULL(148,148) + JVS(992) = -B(403)-B(1690) IF (DO_JVS(993)) & -! JVS(993) = Jac_FULL(158,216) - JVS(993) = 0.25*B(668) +! JVS(993) = Jac_FULL(148,218) + JVS(993) = B(401) IF (DO_JVS(994)) & -! JVS(994) = Jac_FULL(158,225) - JVS(994) = 0.25*B(650) +! JVS(994) = Jac_FULL(148,316) + JVS(994) = B(1549)+B(1557)+B(1559) IF (DO_JVS(995)) & -! JVS(995) = Jac_FULL(158,237) - JVS(995) = 0.25*B(157) +! JVS(995) = Jac_FULL(148,342) + JVS(995) = B(402) IF (DO_JVS(996)) & -! JVS(996) = Jac_FULL(158,238) - JVS(996) = 0.25*B(626) +! JVS(996) = Jac_FULL(148,345) + JVS(996) = -B(404) IF (DO_JVS(997)) & -! JVS(997) = Jac_FULL(158,254) - JVS(997) = 0.25*B(187) +! JVS(997) = Jac_FULL(148,347) + JVS(997) = B(398) IF (DO_JVS(998)) & -! JVS(998) = Jac_FULL(158,256) - JVS(998) = 0.38*B(181) +! JVS(998) = Jac_FULL(148,349) + JVS(998) = B(1558) IF (DO_JVS(999)) & -! JVS(999) = Jac_FULL(158,257) - JVS(999) = 0.375*B(183) +! JVS(999) = Jac_FULL(148,350) + JVS(999) = B(1560) IF (DO_JVS(1000)) & -! JVS(1000) = Jac_FULL(158,258) - JVS(1000) = 0.25*B(189) +! JVS(1000) = Jac_FULL(148,352) + JVS(1000) = B(1550) IF (DO_JVS(1001)) & -! JVS(1001) = Jac_FULL(158,266) - JVS(1001) = 0.25*B(158)+0.25*B(160)+0.38*B(182)+0.375*B(184)+0.25*B(188)+0.25*B(190)+0.25*B(192)+0.25*B(627)+0.25& - &*B(651)+0.25*B(669) +! JVS(1001) = Jac_FULL(149,149) + JVS(1001) = -B(1344)-B(1346) IF (DO_JVS(1002)) & -! JVS(1002) = Jac_FULL(158,286) - JVS(1002) = -B(196) +! JVS(1002) = Jac_FULL(149,345) + JVS(1002) = -B(1345) IF (DO_JVS(1003)) & -! JVS(1003) = Jac_FULL(159,64) - JVS(1003) = 0.55*B(1116) +! JVS(1003) = Jac_FULL(149,351) + JVS(1003) = -B(1347) IF (DO_JVS(1004)) & -! JVS(1004) = Jac_FULL(159,79) - JVS(1004) = 0.68*B(1118) +! JVS(1004) = Jac_FULL(150,150) + JVS(1004) = -B(1005)-B(1781) IF (DO_JVS(1005)) & -! JVS(1005) = Jac_FULL(159,80) - JVS(1005) = 0.28*B(1120) +! JVS(1005) = Jac_FULL(150,209) + JVS(1005) = 0.009*B(1027) IF (DO_JVS(1006)) & -! JVS(1006) = Jac_FULL(159,118) - JVS(1006) = 0.18*B(1132) +! JVS(1006) = Jac_FULL(150,276) + JVS(1006) = 0.15*B(953) IF (DO_JVS(1007)) & -! JVS(1007) = Jac_FULL(159,142) - JVS(1007) = 1.05*B(1140)+B(1142)+0.3*B(1144) +! JVS(1007) = Jac_FULL(150,305) + JVS(1007) = 0.15*B(966) IF (DO_JVS(1008)) & -! JVS(1008) = Jac_FULL(159,159) - JVS(1008) = -B(1183)-B(1185)-B(1187) +! JVS(1008) = Jac_FULL(150,345) + JVS(1008) = 0.15*B(954)-B(1006)+0.009*B(1028) IF (DO_JVS(1009)) & -! JVS(1009) = Jac_FULL(159,210) - JVS(1009) = 0.9*B(1175)+0.9*B(1177)+B(1515) +! JVS(1009) = Jac_FULL(151,151) + JVS(1009) = -B(1054)-B(1056)-B(1617) IF (DO_JVS(1010)) & -! JVS(1010) = Jac_FULL(159,281) - JVS(1010) = 0.3*B(1145)+0.9*B(1178) +! JVS(1010) = Jac_FULL(151,168) + JVS(1010) = 0.67*B(1099) IF (DO_JVS(1011)) & -! JVS(1011) = Jac_FULL(159,282) - JVS(1011) = B(1143)-B(1186) +! JVS(1011) = Jac_FULL(151,175) + JVS(1011) = 0.67*B(1095) IF (DO_JVS(1012)) & -! JVS(1012) = Jac_FULL(159,286) - JVS(1012) = 0.55*B(1117)+0.68*B(1119)+0.28*B(1121)+0.18*B(1133)+1.05*B(1141)+0.9*B(1176)-B(1184) +! JVS(1012) = Jac_FULL(151,187) + JVS(1012) = 0.67*B(1017) IF (DO_JVS(1013)) & -! JVS(1013) = Jac_FULL(160,107) - JVS(1013) = B(1514) +! JVS(1013) = Jac_FULL(151,192) + JVS(1013) = 0.68*B(1021) IF (DO_JVS(1014)) & -! JVS(1014) = Jac_FULL(160,115) - JVS(1014) = 0.073*B(1136)+0.3*B(1138) +! 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) IF (DO_JVS(1015)) & -! JVS(1015) = Jac_FULL(160,118) - JVS(1015) = 0.06*B(1132)+0.742*B(1134) +! JVS(1015) = Jac_FULL(152,152) + JVS(1015) = -B(1058)-B(1060)-B(1618) IF (DO_JVS(1016)) & -! JVS(1016) = Jac_FULL(160,142) - JVS(1016) = 0.3*B(1140)+0.3*B(1144) +! JVS(1016) = Jac_FULL(152,168) + JVS(1016) = 0.33*B(1099) IF (DO_JVS(1017)) & -! JVS(1017) = Jac_FULL(160,160) - JVS(1017) = -B(1171)-B(1173) +! JVS(1017) = Jac_FULL(152,175) + JVS(1017) = 0.33*B(1095) IF (DO_JVS(1018)) & -! JVS(1018) = Jac_FULL(160,180) - JVS(1018) = 0 +! JVS(1018) = Jac_FULL(152,187) + JVS(1018) = 0.33*B(1017) IF (DO_JVS(1019)) & -! JVS(1019) = Jac_FULL(160,191) - JVS(1019) = B(1161)+B(1163)+B(1165)+B(1179) +! JVS(1019) = Jac_FULL(152,192) + JVS(1019) = 0.32*B(1021) IF (DO_JVS(1020)) & -! JVS(1020) = Jac_FULL(160,266) - JVS(1020) = B(1180) +! 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) IF (DO_JVS(1021)) & -! JVS(1021) = Jac_FULL(160,279) - JVS(1021) = B(1164) +! JVS(1021) = Jac_FULL(153,153) + JVS(1021) = -B(1268) IF (DO_JVS(1022)) & -! JVS(1022) = Jac_FULL(160,281) - JVS(1022) = 0.742*B(1135)+0.3*B(1139)+0.3*B(1145)+B(1166) +! JVS(1022) = Jac_FULL(153,258) + JVS(1022) = 0.15*B(1306)+0.15*B(1792)+0.163*B(1793) IF (DO_JVS(1023)) & -! JVS(1023) = Jac_FULL(160,282) - JVS(1023) = -B(1172) +! JVS(1023) = Jac_FULL(153,285) + JVS(1023) = B(1071)+0.2*B(1072)+0.13*B(1076) IF (DO_JVS(1024)) & -! JVS(1024) = Jac_FULL(160,284) - JVS(1024) = 0 +! JVS(1024) = Jac_FULL(153,337) + JVS(1024) = 0.13*B(1077) IF (DO_JVS(1025)) & -! JVS(1025) = Jac_FULL(160,286) - JVS(1025) = 0.06*B(1133)+0.073*B(1137)+0.3*B(1141) +! JVS(1025) = Jac_FULL(153,345) + JVS(1025) = -B(1269)+0.15*B(1307) IF (DO_JVS(1026)) & -! JVS(1026) = Jac_FULL(160,291) - JVS(1026) = B(1162)-B(1174) +! JVS(1026) = Jac_FULL(153,346) + JVS(1026) = 0.2*B(1073) IF (DO_JVS(1027)) & -! JVS(1027) = Jac_FULL(161,161) - JVS(1027) = -B(104)-B(249)-B(320)-B(518) +! JVS(1027) = Jac_FULL(154,154) + JVS(1027) = -B(937)-B(1625)-B(1752) IF (DO_JVS(1028)) & -! JVS(1028) = Jac_FULL(161,273) - JVS(1028) = -B(321) +! JVS(1028) = Jac_FULL(154,242) + JVS(1028) = B(927)+B(929)+B(931) IF (DO_JVS(1029)) & -! JVS(1029) = Jac_FULL(161,281) - JVS(1029) = -B(250) +! JVS(1029) = Jac_FULL(154,256) + JVS(1029) = B(925)+B(933) IF (DO_JVS(1030)) & -! JVS(1030) = Jac_FULL(161,286) - JVS(1030) = -B(105) +! JVS(1030) = Jac_FULL(154,341) + JVS(1030) = B(930) IF (DO_JVS(1031)) & -! JVS(1031) = Jac_FULL(161,290) - JVS(1031) = -B(519) +! JVS(1031) = Jac_FULL(154,345) + JVS(1031) = B(926)+B(928)-B(938) IF (DO_JVS(1032)) & -! JVS(1032) = Jac_FULL(162,162) - JVS(1032) = -B(776)-B(778)-B(782)-B(1486) +! JVS(1032) = Jac_FULL(154,351) + JVS(1032) = B(932)+B(934) IF (DO_JVS(1033)) & -! JVS(1033) = Jac_FULL(162,244) - JVS(1033) = 0.937*B(718) +! JVS(1033) = Jac_FULL(155,155) + JVS(1033) = -B(336)-B(1684) IF (DO_JVS(1034)) & -! JVS(1034) = Jac_FULL(162,284) - JVS(1034) = 0.937*B(719) +! JVS(1034) = Jac_FULL(155,240) + JVS(1034) = 0.41*B(1407) IF (DO_JVS(1035)) & -! JVS(1035) = Jac_FULL(162,286) - JVS(1035) = -B(777)-B(779)-B(783) +! JVS(1035) = Jac_FULL(155,246) + JVS(1035) = 0.41*B(245) IF (DO_JVS(1036)) & -! JVS(1036) = Jac_FULL(163,163) - JVS(1036) = -B(1015)-B(1479) +! JVS(1036) = Jac_FULL(155,322) + JVS(1036) = 0.41*B(283) IF (DO_JVS(1037)) & -! JVS(1037) = Jac_FULL(163,186) - JVS(1037) = 0.552*B(1489) +! JVS(1037) = Jac_FULL(155,337) + JVS(1037) = 0.41*B(246)+0.41*B(284)+0.41*B(1408) IF (DO_JVS(1038)) & -! JVS(1038) = Jac_FULL(163,188) - JVS(1038) = 0.454*B(1490) +! JVS(1038) = Jac_FULL(155,345) + JVS(1038) = -B(337) IF (DO_JVS(1039)) & -! JVS(1039) = Jac_FULL(163,240) - JVS(1039) = 0.481*B(1500) +! JVS(1039) = Jac_FULL(156,156) + JVS(1039) = -B(269)-B(625) IF (DO_JVS(1040)) & -! JVS(1040) = Jac_FULL(163,242) - JVS(1040) = 0.022*B(1073) +! JVS(1040) = Jac_FULL(156,296) + JVS(1040) = 0.25*B(247)+0.4*B(273) IF (DO_JVS(1041)) & -! JVS(1041) = Jac_FULL(163,286) - JVS(1041) = -B(1016)+0.022*B(1074) +! JVS(1041) = Jac_FULL(156,315) + JVS(1041) = 0.25*B(249)+0.4*B(274) IF (DO_JVS(1042)) & -! JVS(1042) = Jac_FULL(164,141) - JVS(1042) = 0.667*B(1067) +! JVS(1042) = Jac_FULL(156,328) + JVS(1042) = 0.25*B(248)+0.25*B(250) IF (DO_JVS(1043)) & -! JVS(1043) = Jac_FULL(164,164) - JVS(1043) = -B(1069)-B(1505) +! JVS(1043) = Jac_FULL(156,340) + JVS(1043) = -B(626) IF (DO_JVS(1044)) & -! JVS(1044) = Jac_FULL(164,182) - JVS(1044) = 0.824*B(788) +! JVS(1044) = Jac_FULL(156,345) + JVS(1044) = -B(270) IF (DO_JVS(1045)) & -! JVS(1045) = Jac_FULL(164,183) - JVS(1045) = 0.452*B(795) +! JVS(1045) = Jac_FULL(157,157) + JVS(1045) = -B(1701) IF (DO_JVS(1046)) & -! JVS(1046) = Jac_FULL(164,187) - JVS(1046) = B(802) +! JVS(1046) = Jac_FULL(157,218) + JVS(1046) = B(1511) IF (DO_JVS(1047)) & -! JVS(1047) = Jac_FULL(164,284) - JVS(1047) = 0 +! JVS(1047) = Jac_FULL(157,297) + JVS(1047) = B(1533)+B(1535)+B(1537) IF (DO_JVS(1048)) & -! JVS(1048) = Jac_FULL(164,286) - JVS(1048) = 0.667*B(1068)-B(1070) +! JVS(1048) = Jac_FULL(157,316) + JVS(1048) = B(1551)+B(1553)+B(1555) IF (DO_JVS(1049)) & -! JVS(1049) = Jac_FULL(165,165) - JVS(1049) = -B(786)-B(1488) +! JVS(1049) = Jac_FULL(157,317) + JVS(1049) = B(1517)+B(1519)+B(1521) IF (DO_JVS(1050)) & -! JVS(1050) = Jac_FULL(165,244) - JVS(1050) = B(720) +! JVS(1050) = Jac_FULL(157,333) + JVS(1050) = B(1541) IF (DO_JVS(1051)) & -! JVS(1051) = Jac_FULL(165,284) - JVS(1051) = B(721) +! JVS(1051) = Jac_FULL(157,338) + JVS(1051) = B(599) IF (DO_JVS(1052)) & -! JVS(1052) = Jac_FULL(165,286) - JVS(1052) = -B(787) +! JVS(1052) = Jac_FULL(157,339) + JVS(1052) = B(1512)+B(1552) IF (DO_JVS(1053)) & -! JVS(1053) = Jac_FULL(166,166) - JVS(1053) = -B(884)-B(886)-B(888)-B(890) +! JVS(1053) = Jac_FULL(157,344) + JVS(1053) = B(1556) IF (DO_JVS(1054)) & -! JVS(1054) = Jac_FULL(166,220) - JVS(1054) = B(860) +! JVS(1054) = Jac_FULL(157,347) + JVS(1054) = B(600) IF (DO_JVS(1055)) & -! JVS(1055) = Jac_FULL(166,279) - JVS(1055) = -B(889)-B(891) +! JVS(1055) = Jac_FULL(157,349) + JVS(1055) = B(1520)+B(1534) IF (DO_JVS(1056)) & -! JVS(1056) = Jac_FULL(166,284) - JVS(1056) = -B(887) +! JVS(1056) = Jac_FULL(157,350) + JVS(1056) = B(1522)+B(1536) IF (DO_JVS(1057)) & -! JVS(1057) = Jac_FULL(166,286) - JVS(1057) = B(861) +! JVS(1057) = Jac_FULL(157,352) + JVS(1057) = B(1518)+B(1538)+B(1542) IF (DO_JVS(1058)) & -! JVS(1058) = Jac_FULL(167,139) - JVS(1058) = B(850) +! JVS(1058) = Jac_FULL(157,353) + JVS(1058) = B(1554) IF (DO_JVS(1059)) & -! JVS(1059) = Jac_FULL(167,167) - JVS(1059) = -B(870)-B(871)-B(873)-B(875) +! JVS(1059) = Jac_FULL(158,82) + JVS(1059) = 0.19*B(1383) IF (DO_JVS(1060)) & -! JVS(1060) = Jac_FULL(167,245) - JVS(1060) = 0 +! JVS(1060) = Jac_FULL(158,101) + JVS(1060) = 0.15*B(1385) IF (DO_JVS(1061)) & -! JVS(1061) = Jac_FULL(167,279) - JVS(1061) = -B(874)-B(876) +! JVS(1061) = Jac_FULL(158,149) + JVS(1061) = 0.18*B(1344) IF (DO_JVS(1062)) & -! JVS(1062) = Jac_FULL(167,284) - JVS(1062) = -B(872) +! JVS(1062) = Jac_FULL(158,158) + JVS(1062) = -B(1418)-B(1420) IF (DO_JVS(1063)) & -! JVS(1063) = Jac_FULL(167,286) - JVS(1063) = B(851) +! JVS(1063) = Jac_FULL(158,200) + JVS(1063) = 0.03*B(1348) IF (DO_JVS(1064)) & -! JVS(1064) = Jac_FULL(168,168) - JVS(1064) = -B(885)-B(892)-B(894)-B(896) +! 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) IF (DO_JVS(1065)) & -! JVS(1065) = Jac_FULL(168,214) - JVS(1065) = B(864) +! JVS(1065) = Jac_FULL(158,351) + JVS(1065) = -B(1421) IF (DO_JVS(1066)) & -! JVS(1066) = Jac_FULL(168,279) - JVS(1066) = -B(895)-B(897) +! JVS(1066) = Jac_FULL(159,159) + JVS(1066) = -B(1280)-0.75*B(1771) IF (DO_JVS(1067)) & -! JVS(1067) = Jac_FULL(168,284) - JVS(1067) = -B(893) +! JVS(1067) = Jac_FULL(159,259) + JVS(1067) = 0.5*B(1278) IF (DO_JVS(1068)) & -! JVS(1068) = Jac_FULL(168,286) - JVS(1068) = B(865) +! JVS(1068) = Jac_FULL(159,337) + JVS(1068) = 0.5*B(1279) IF (DO_JVS(1069)) & -! JVS(1069) = Jac_FULL(169,117) - JVS(1069) = 0.6*B(1019) +! JVS(1069) = Jac_FULL(159,345) + JVS(1069) = -B(1281) IF (DO_JVS(1070)) & -! JVS(1070) = Jac_FULL(169,125) - JVS(1070) = 0.318*B(1065)+0.391*B(1506) +! JVS(1070) = Jac_FULL(160,160) + JVS(1070) = -B(770)-B(1811) IF (DO_JVS(1071)) & -! JVS(1071) = Jac_FULL(169,169) - JVS(1071) = -B(1023)-B(1475) +! JVS(1071) = Jac_FULL(160,278) + JVS(1071) = B(762)+0.25*B(768) IF (DO_JVS(1072)) & -! JVS(1072) = Jac_FULL(169,194) - JVS(1072) = 0.13*B(835)+0.2*B(839) +! JVS(1072) = Jac_FULL(160,328) + JVS(1072) = 0.25*B(769) IF (DO_JVS(1073)) & -! JVS(1073) = Jac_FULL(169,204) - JVS(1073) = 0.255*B(1027) +! JVS(1073) = Jac_FULL(160,337) + JVS(1073) = B(763) IF (DO_JVS(1074)) & -! JVS(1074) = Jac_FULL(169,206) - JVS(1074) = 0 +! JVS(1074) = Jac_FULL(160,345) + JVS(1074) = -B(771) IF (DO_JVS(1075)) & -! JVS(1075) = Jac_FULL(169,228) - JVS(1075) = 0 +! JVS(1075) = Jac_FULL(161,161) + JVS(1075) = -B(796)-B(1813) IF (DO_JVS(1076)) & -! JVS(1076) = Jac_FULL(169,229) - JVS(1076) = 0 +! JVS(1076) = Jac_FULL(161,273) + JVS(1076) = B(786)+0.25*B(792) IF (DO_JVS(1077)) & -! JVS(1077) = Jac_FULL(169,230) - JVS(1077) = 0.53*B(995) +! JVS(1077) = Jac_FULL(161,328) + JVS(1077) = 0.25*B(793) IF (DO_JVS(1078)) & -! JVS(1078) = Jac_FULL(169,279) - JVS(1078) = 0.2*B(840) +! JVS(1078) = Jac_FULL(161,337) + JVS(1078) = B(787) IF (DO_JVS(1079)) & -! JVS(1079) = Jac_FULL(169,284) - JVS(1079) = 0.13*B(836)+0.255*B(1028) +! JVS(1079) = Jac_FULL(161,345) + JVS(1079) = -B(797) IF (DO_JVS(1080)) & -! JVS(1080) = Jac_FULL(169,286) - JVS(1080) = 0.53*B(996)+0.6*B(1020)-B(1024)+0.318*B(1066) +! JVS(1080) = Jac_FULL(162,138) + JVS(1080) = 0.5*B(780) IF (DO_JVS(1081)) & -! JVS(1081) = Jac_FULL(170,170) - JVS(1081) = -B(640)-B(642)-B(644) +! JVS(1081) = Jac_FULL(162,162) + JVS(1081) = -B(798) IF (DO_JVS(1082)) & -! JVS(1082) = Jac_FULL(170,281) - JVS(1082) = -B(645) +! JVS(1082) = Jac_FULL(162,273) + JVS(1082) = B(788) IF (DO_JVS(1083)) & -! JVS(1083) = Jac_FULL(170,282) - JVS(1083) = -B(643) +! JVS(1083) = Jac_FULL(162,275) + JVS(1083) = 0 IF (DO_JVS(1084)) & -! JVS(1084) = Jac_FULL(170,286) - JVS(1084) = -B(641) +! JVS(1084) = Jac_FULL(162,345) + JVS(1084) = 0.5*B(781)-B(799) IF (DO_JVS(1085)) & -! JVS(1085) = Jac_FULL(171,171) - JVS(1085) = -B(784)-B(1487) +! JVS(1085) = Jac_FULL(162,346) + JVS(1085) = B(789) IF (DO_JVS(1086)) & -! JVS(1086) = Jac_FULL(171,245) - JVS(1086) = B(716) +! JVS(1086) = Jac_FULL(163,163) + JVS(1086) = -B(832)-B(834) IF (DO_JVS(1087)) & -! JVS(1087) = Jac_FULL(171,284) - JVS(1087) = B(717) +! JVS(1087) = Jac_FULL(163,255) + JVS(1087) = 0.3*B(808) IF (DO_JVS(1088)) & -! JVS(1088) = Jac_FULL(171,286) - JVS(1088) = -B(785) +! JVS(1088) = Jac_FULL(163,272) + JVS(1088) = 0.84*B(824)+B(828)+0.75*B(830) IF (DO_JVS(1089)) & -! JVS(1089) = Jac_FULL(172,171) - JVS(1089) = 0.018*B(784) +! JVS(1089) = Jac_FULL(163,328) + JVS(1089) = 0.75*B(831) IF (DO_JVS(1090)) & -! JVS(1090) = Jac_FULL(172,172) - JVS(1090) = -B(1083)-B(1085)-B(1472) +! JVS(1090) = Jac_FULL(163,341) + JVS(1090) = 0.3*B(809) IF (DO_JVS(1091)) & -! JVS(1091) = Jac_FULL(172,182) - JVS(1091) = 0.284*B(789)+0.135*B(793) +! JVS(1091) = Jac_FULL(163,345) + JVS(1091) = -B(833) IF (DO_JVS(1092)) & -! JVS(1092) = Jac_FULL(172,189) - JVS(1092) = 0.471*B(957)+0.59*B(963) +! JVS(1092) = Jac_FULL(163,346) + JVS(1092) = 0.84*B(825) IF (DO_JVS(1093)) & -! JVS(1093) = Jac_FULL(172,222) - JVS(1093) = 0.249*B(955)+0.303*B(959) +! JVS(1093) = Jac_FULL(163,351) + JVS(1093) = B(829)-B(835) IF (DO_JVS(1094)) & -! JVS(1094) = Jac_FULL(172,224) - JVS(1094) = 0.3*B(710) +! JVS(1094) = Jac_FULL(164,164) + JVS(1094) = -B(59)-B(615)-B(1646) IF (DO_JVS(1095)) & -! JVS(1095) = Jac_FULL(172,242) - JVS(1095) = 0.5*B(1508) +! JVS(1095) = Jac_FULL(164,328) + JVS(1095) = B(53) IF (DO_JVS(1096)) & -! JVS(1096) = Jac_FULL(172,245) - JVS(1096) = 0.3*B(723) +! JVS(1096) = Jac_FULL(164,337) + JVS(1096) = B(54) IF (DO_JVS(1097)) & -! JVS(1097) = Jac_FULL(172,279) - JVS(1097) = 0.284*B(790)+0.303*B(960)+0.59*B(964) +! JVS(1097) = Jac_FULL(164,340) + JVS(1097) = -B(616) IF (DO_JVS(1098)) & -! JVS(1098) = Jac_FULL(172,284) - JVS(1098) = 0.135*B(794)+0.249*B(956)+0.471*B(958) +! JVS(1098) = Jac_FULL(164,345) + JVS(1098) = -B(60) IF (DO_JVS(1099)) & -! JVS(1099) = Jac_FULL(172,286) - JVS(1099) = 0.3*B(711)+0.018*B(785)-B(1084)-B(1086) +! JVS(1099) = Jac_FULL(165,165) + JVS(1099) = -B(138)-B(140) IF (DO_JVS(1100)) & -! JVS(1100) = Jac_FULL(173,173) - JVS(1100) = -B(86)-B(1214)-B(1216)-B(1218)-B(1219)-B(1221)-B(1373) +! JVS(1100) = Jac_FULL(165,196) + JVS(1100) = B(136) IF (DO_JVS(1101)) & -! JVS(1101) = Jac_FULL(173,275) - JVS(1101) = -B(1217) +! JVS(1101) = Jac_FULL(165,337) + JVS(1101) = -B(141) IF (DO_JVS(1102)) & -! JVS(1102) = Jac_FULL(173,278) - JVS(1102) = -B(1215) +! JVS(1102) = Jac_FULL(165,345) + JVS(1102) = B(137) IF (DO_JVS(1103)) & -! JVS(1103) = Jac_FULL(173,280) - JVS(1103) = -B(1220) +! JVS(1103) = Jac_FULL(165,346) + JVS(1103) = -B(139) IF (DO_JVS(1104)) & -! JVS(1104) = Jac_FULL(173,281) - JVS(1104) = B(84) +! JVS(1104) = Jac_FULL(166,166) + JVS(1104) = -2*B(8)-B(11)-B(13) IF (DO_JVS(1105)) & -! JVS(1105) = Jac_FULL(173,287) - JVS(1105) = -B(1222) +! JVS(1105) = Jac_FULL(166,327) + JVS(1105) = -B(14) IF (DO_JVS(1106)) & -! JVS(1106) = Jac_FULL(173,291) - JVS(1106) = B(85) +! JVS(1106) = Jac_FULL(166,339) + JVS(1106) = -B(12) IF (DO_JVS(1107)) & -! JVS(1107) = Jac_FULL(174,116) - JVS(1107) = 0.75*B(809) +! JVS(1107) = Jac_FULL(166,341) + JVS(1107) = -2*B(9) IF (DO_JVS(1108)) & -! JVS(1108) = Jac_FULL(174,127) - JVS(1108) = 0.77*B(764) +! JVS(1108) = Jac_FULL(166,348) + JVS(1108) = -2*B(10) IF (DO_JVS(1109)) & -! JVS(1109) = Jac_FULL(174,129) - JVS(1109) = 0.58*B(762) +! JVS(1109) = Jac_FULL(167,167) + JVS(1109) = -B(721)-B(723)-B(725) IF (DO_JVS(1110)) & -! JVS(1110) = Jac_FULL(174,130) - JVS(1110) = B(811) +! JVS(1110) = Jac_FULL(167,341) + JVS(1110) = -B(726) IF (DO_JVS(1111)) & -! JVS(1111) = Jac_FULL(174,131) - JVS(1111) = B(815) +! JVS(1111) = Jac_FULL(167,345) + JVS(1111) = -B(724) IF (DO_JVS(1112)) & -! JVS(1112) = Jac_FULL(174,139) - JVS(1112) = 0 +! JVS(1112) = Jac_FULL(167,351) + JVS(1112) = -B(722) IF (DO_JVS(1113)) & -! JVS(1113) = Jac_FULL(174,140) - JVS(1113) = 0 +! JVS(1113) = Jac_FULL(168,168) + JVS(1113) = -B(1097)-B(1099)-B(1630)-B(1785) IF (DO_JVS(1114)) & -! JVS(1114) = Jac_FULL(174,151) - JVS(1114) = B(945) +! JVS(1114) = Jac_FULL(168,304) + JVS(1114) = B(993) IF (DO_JVS(1115)) & -! JVS(1115) = Jac_FULL(174,157) - JVS(1115) = 0 +! JVS(1115) = Jac_FULL(168,345) + JVS(1115) = -B(1098)-B(1100) IF (DO_JVS(1116)) & -! JVS(1116) = Jac_FULL(174,162) - JVS(1116) = 0 +! JVS(1116) = Jac_FULL(168,346) + JVS(1116) = B(994) IF (DO_JVS(1117)) & -! JVS(1117) = Jac_FULL(174,165) - JVS(1117) = 0 +! JVS(1117) = Jac_FULL(169,169) + JVS(1117) = -B(847)-B(1814) IF (DO_JVS(1118)) & -! JVS(1118) = Jac_FULL(174,171) - JVS(1118) = 0 +! JVS(1118) = Jac_FULL(169,272) + JVS(1118) = B(826)+0.25*B(830) IF (DO_JVS(1119)) & -! JVS(1119) = Jac_FULL(174,174) - JVS(1119) = -B(768)-B(1350) +! JVS(1119) = Jac_FULL(169,274) + JVS(1119) = 0.41*B(838) IF (DO_JVS(1120)) & -! JVS(1120) = Jac_FULL(174,186) - JVS(1120) = 0.085*B(758) +! JVS(1120) = Jac_FULL(169,328) + JVS(1120) = 0.25*B(831) IF (DO_JVS(1121)) & -! JVS(1121) = Jac_FULL(174,188) - JVS(1121) = 0.165*B(760) +! JVS(1121) = Jac_FULL(169,337) + JVS(1121) = B(827)+0.41*B(839) IF (DO_JVS(1122)) & -! JVS(1122) = Jac_FULL(174,214) - JVS(1122) = 0 +! JVS(1122) = Jac_FULL(169,345) + JVS(1122) = -B(848) IF (DO_JVS(1123)) & -! JVS(1123) = Jac_FULL(174,220) - JVS(1123) = 0 +! JVS(1123) = Jac_FULL(170,62) + JVS(1123) = B(645) IF (DO_JVS(1124)) & -! JVS(1124) = Jac_FULL(174,224) - JVS(1124) = 0 +! JVS(1124) = Jac_FULL(170,170) + JVS(1124) = -B(650)-B(673)-B(1725) IF (DO_JVS(1125)) & -! JVS(1125) = Jac_FULL(174,240) - JVS(1125) = B(967) +! JVS(1125) = Jac_FULL(170,252) + JVS(1125) = B(649) IF (DO_JVS(1126)) & -! JVS(1126) = Jac_FULL(174,244) - JVS(1126) = 0 +! JVS(1126) = Jac_FULL(170,331) + JVS(1126) = B(655) IF (DO_JVS(1127)) & -! JVS(1127) = Jac_FULL(174,245) - JVS(1127) = 0 +! JVS(1127) = Jac_FULL(170,332) + JVS(1127) = B(656) IF (DO_JVS(1128)) & -! JVS(1128) = Jac_FULL(174,246) - JVS(1128) = 0 +! JVS(1128) = Jac_FULL(170,345) + JVS(1128) = -B(674) IF (DO_JVS(1129)) & -! JVS(1129) = Jac_FULL(174,279) +! JVS(1129) = Jac_FULL(170,346) JVS(1129) = 0 IF (DO_JVS(1130)) & -! JVS(1130) = Jac_FULL(174,284) - JVS(1130) = 0 +! JVS(1130) = Jac_FULL(170,351) + JVS(1130) = -B(651) IF (DO_JVS(1131)) & -! JVS(1131) = Jac_FULL(174,286) - JVS(1131) = 0.085*B(759)+0.165*B(761)+0.58*B(763)+0.77*B(765)-B(769)+0.75*B(810)+B(812)+B(816)+B(946)+B(968) +! JVS(1131) = Jac_FULL(171,171) + JVS(1131) = -B(1246)-B(1248)-B(1250) IF (DO_JVS(1132)) & -! JVS(1132) = Jac_FULL(175,166) - JVS(1132) = 0.031*B(886)+0.065*B(888) +! JVS(1132) = Jac_FULL(171,230) + JVS(1132) = 0.224*B(1779) IF (DO_JVS(1133)) & -! JVS(1133) = Jac_FULL(175,175) - JVS(1133) = -B(1001)-B(1356)-B(1484) +! JVS(1133) = Jac_FULL(171,301) + JVS(1133) = 0.068*B(1790) IF (DO_JVS(1134)) & -! JVS(1134) = Jac_FULL(175,189) - JVS(1134) = 0.073*B(957)+0.291*B(963) +! JVS(1134) = Jac_FULL(171,335) + JVS(1134) = -B(1251) IF (DO_JVS(1135)) & -! JVS(1135) = Jac_FULL(175,220) - JVS(1135) = 0.6*B(866) +! JVS(1135) = Jac_FULL(171,337) + JVS(1135) = -B(1249) IF (DO_JVS(1136)) & -! JVS(1136) = Jac_FULL(175,222) - JVS(1136) = 0.06*B(955)+0.17*B(959) +! JVS(1136) = Jac_FULL(171,346) + JVS(1136) = -B(1247) IF (DO_JVS(1137)) & -! JVS(1137) = Jac_FULL(175,232) - JVS(1137) = 0.094*B(898)+0.355*B(900) +! JVS(1137) = Jac_FULL(172,172) + JVS(1137) = -B(1252)-B(1254)-B(1256) IF (DO_JVS(1138)) & -! JVS(1138) = Jac_FULL(175,240) - JVS(1138) = 0.378*B(969) +! JVS(1138) = Jac_FULL(172,231) + JVS(1138) = 0.182*B(1780) IF (DO_JVS(1139)) & -! JVS(1139) = Jac_FULL(175,249) - JVS(1139) = 0.13*B(1048)+0.3*B(1056) +! JVS(1139) = Jac_FULL(172,301) + JVS(1139) = 0.128*B(1790) IF (DO_JVS(1140)) & -! JVS(1140) = Jac_FULL(175,266) - JVS(1140) = 0.3*B(1057) +! JVS(1140) = Jac_FULL(172,335) + JVS(1140) = -B(1257) IF (DO_JVS(1141)) & -! JVS(1141) = Jac_FULL(175,279) - JVS(1141) = 0.065*B(889)+0.355*B(901)+0.17*B(960)+0.291*B(964) +! JVS(1141) = Jac_FULL(172,337) + JVS(1141) = -B(1255) IF (DO_JVS(1142)) & -! JVS(1142) = Jac_FULL(175,284) - JVS(1142) = 0.031*B(887)+0.094*B(899)+0.06*B(956)+0.073*B(958)+0.13*B(1049) +! JVS(1142) = Jac_FULL(172,346) + JVS(1142) = -B(1253) IF (DO_JVS(1143)) & -! JVS(1143) = Jac_FULL(175,286) - JVS(1143) = 0.6*B(867)+0.378*B(970)-B(1002) +! JVS(1143) = Jac_FULL(173,101) + JVS(1143) = 0.45*B(1385) IF (DO_JVS(1144)) & -! JVS(1144) = Jac_FULL(176,176) - JVS(1144) = -B(302)-B(1227)-B(1229)-B(1403)-B(1404) +! JVS(1144) = Jac_FULL(173,173) + JVS(1144) = -B(1336) IF (DO_JVS(1145)) & -! JVS(1145) = Jac_FULL(176,273) - JVS(1145) = -B(303) +! JVS(1145) = Jac_FULL(173,200) + JVS(1145) = 0.5*B(1348) IF (DO_JVS(1146)) & -! JVS(1146) = Jac_FULL(176,274) - JVS(1146) = B(326) +! JVS(1146) = Jac_FULL(173,201) + JVS(1146) = 0.52*B(1470) IF (DO_JVS(1147)) & -! JVS(1147) = Jac_FULL(176,275) - JVS(1147) = -B(1230) +! JVS(1147) = Jac_FULL(173,221) + JVS(1147) = 0.43*B(1465) IF (DO_JVS(1148)) & -! JVS(1148) = Jac_FULL(176,278) - JVS(1148) = -B(1228) +! JVS(1148) = Jac_FULL(173,240) + JVS(1148) = 0.15*B(1407) IF (DO_JVS(1149)) & -! JVS(1149) = Jac_FULL(176,291) - JVS(1149) = B(327) +! JVS(1149) = Jac_FULL(173,246) + JVS(1149) = 0.15*B(245) IF (DO_JVS(1150)) & -! JVS(1150) = Jac_FULL(177,149) - JVS(1150) = 0.09*B(396) +! JVS(1150) = Jac_FULL(173,289) + JVS(1150) = 0.5*B(915) IF (DO_JVS(1151)) & -! JVS(1151) = Jac_FULL(177,177) - JVS(1151) = -B(372)-B(374)-B(376) +! JVS(1151) = Jac_FULL(173,322) + JVS(1151) = 0.15*B(283) IF (DO_JVS(1152)) & -! JVS(1152) = Jac_FULL(177,190) - JVS(1152) = 0.2*B(344) +! JVS(1152) = Jac_FULL(173,324) + JVS(1152) = 0.5*B(916) IF (DO_JVS(1153)) & -! JVS(1153) = Jac_FULL(177,263) - JVS(1153) = B(1365) +! JVS(1153) = Jac_FULL(173,337) + JVS(1153) = 0.15*B(246)+0.15*B(284)+0.15*B(1408) IF (DO_JVS(1154)) & -! JVS(1154) = Jac_FULL(177,272) - JVS(1154) = B(340)+0.2*B(345)+0.22*B(388)+0.2*B(390)+0.09*B(397) +! 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) IF (DO_JVS(1155)) & -! JVS(1155) = Jac_FULL(177,275) - JVS(1155) = 0.22*B(389) +! JVS(1155) = Jac_FULL(174,174) + JVS(1155) = -B(1310)-B(1794) IF (DO_JVS(1156)) & -! JVS(1156) = Jac_FULL(177,282) - JVS(1156) = -B(375) +! JVS(1156) = Jac_FULL(174,223) + JVS(1156) = 0.725*B(1036) IF (DO_JVS(1157)) & -! JVS(1157) = Jac_FULL(177,284) - JVS(1157) = -B(377) +! JVS(1157) = Jac_FULL(174,224) + JVS(1157) = 0.725*B(1043) IF (DO_JVS(1158)) & -! JVS(1158) = Jac_FULL(177,286) - JVS(1158) = B(350)+B(352) +! JVS(1158) = Jac_FULL(174,232) + JVS(1158) = 0.35*B(1050) IF (DO_JVS(1159)) & -! JVS(1159) = Jac_FULL(177,288) - JVS(1159) = B(353) +! JVS(1159) = Jac_FULL(174,337) + JVS(1159) = 0.725*B(1037)+0.725*B(1044)+0.35*B(1051) IF (DO_JVS(1160)) & -! JVS(1160) = Jac_FULL(177,289) - JVS(1160) = 0.2*B(391) +! JVS(1160) = Jac_FULL(174,345) + JVS(1160) = -B(1311) IF (DO_JVS(1161)) & -! JVS(1161) = Jac_FULL(177,290) - JVS(1161) = B(470) +! JVS(1161) = Jac_FULL(175,175) + JVS(1161) = -B(1093)-B(1095)-B(1629)-B(1784) IF (DO_JVS(1162)) & -! JVS(1162) = Jac_FULL(178,178) - JVS(1162) = -B(682)-B(690)-B(1341)-B(1460) +! JVS(1162) = Jac_FULL(175,305) + JVS(1162) = B(985) IF (DO_JVS(1163)) & -! JVS(1163) = Jac_FULL(178,215) - JVS(1163) = B(658)+0.7*B(662)+0.7*B(666)+0.7*B(670)+0.7*B(674)+1.4*B(678)+1.05*B(679) +! JVS(1163) = Jac_FULL(175,345) + JVS(1163) = -B(1094)-B(1096) IF (DO_JVS(1164)) & -! JVS(1164) = Jac_FULL(178,216) - JVS(1164) = 0.7*B(664)+0.35*B(668)+1.05*B(680)+0.7*B(681) +! JVS(1164) = Jac_FULL(175,346) + JVS(1164) = B(986) IF (DO_JVS(1165)) & -! JVS(1165) = Jac_FULL(178,238) - JVS(1165) = 0.12*B(622) +! JVS(1165) = Jac_FULL(176,137) + JVS(1165) = 0.5*B(743) IF (DO_JVS(1166)) & -! JVS(1166) = Jac_FULL(178,261) - JVS(1166) = 0.7*B(671) +! JVS(1166) = Jac_FULL(176,176) + JVS(1166) = -B(772) IF (DO_JVS(1167)) & -! JVS(1167) = Jac_FULL(178,266) - JVS(1167) = 0.7*B(667)+0.35*B(669) +! JVS(1167) = Jac_FULL(176,277) + JVS(1167) = 0 IF (DO_JVS(1168)) & -! JVS(1168) = Jac_FULL(178,279) - JVS(1168) = 0.12*B(623)+B(659) +! JVS(1168) = Jac_FULL(176,278) + JVS(1168) = 0.16*B(764) IF (DO_JVS(1169)) & -! JVS(1169) = Jac_FULL(178,281) - JVS(1169) = 0.7*B(675)-B(691) +! JVS(1169) = Jac_FULL(176,345) + JVS(1169) = 0.5*B(744)-B(773) IF (DO_JVS(1170)) & -! JVS(1170) = Jac_FULL(178,284) - JVS(1170) = 0.7*B(663)+0.7*B(665) +! JVS(1170) = Jac_FULL(176,346) + JVS(1170) = 0.16*B(765) IF (DO_JVS(1171)) & -! JVS(1171) = Jac_FULL(178,286) - JVS(1171) = -B(683) +! JVS(1171) = Jac_FULL(177,177) + JVS(1171) = -B(836) IF (DO_JVS(1172)) & -! JVS(1172) = Jac_FULL(179,76) - JVS(1172) = B(1095) +! JVS(1172) = Jac_FULL(177,211) + JVS(1172) = 0.5*B(818)+0.5*B(820)+B(822) IF (DO_JVS(1173)) & -! JVS(1173) = Jac_FULL(179,120) - JVS(1173) = B(1112) +! JVS(1173) = Jac_FULL(177,237) + JVS(1173) = B(816) IF (DO_JVS(1174)) & -! JVS(1174) = Jac_FULL(179,179) - JVS(1174) = -B(1099)-B(1101)-B(1103)-B(1105) +! JVS(1174) = Jac_FULL(177,255) + JVS(1174) = B(810) IF (DO_JVS(1175)) & -! JVS(1175) = Jac_FULL(179,266) - JVS(1175) = -B(1106) +! JVS(1175) = Jac_FULL(177,272) + JVS(1175) = 0.16*B(824) IF (DO_JVS(1176)) & -! JVS(1176) = Jac_FULL(179,279) - JVS(1176) = -B(1102) +! JVS(1176) = Jac_FULL(177,341) + JVS(1176) = 0.5*B(821) IF (DO_JVS(1177)) & -! JVS(1177) = Jac_FULL(179,281) - JVS(1177) = -B(1104) +! JVS(1177) = Jac_FULL(177,345) + JVS(1177) = 0.5*B(819)-B(837) IF (DO_JVS(1178)) & -! JVS(1178) = Jac_FULL(179,282) - JVS(1178) = 0 +! JVS(1178) = Jac_FULL(177,346) + JVS(1178) = 0.16*B(825) IF (DO_JVS(1179)) & -! JVS(1179) = Jac_FULL(179,284) - JVS(1179) = -B(1100) +! JVS(1179) = Jac_FULL(177,351) + JVS(1179) = B(811)+B(817)+B(823) IF (DO_JVS(1180)) & -! JVS(1180) = Jac_FULL(179,286) - JVS(1180) = B(1096)+B(1113) +! JVS(1180) = Jac_FULL(178,69) + JVS(1180) = B(124)+B(126) IF (DO_JVS(1181)) & -! JVS(1181) = Jac_FULL(180,70) - JVS(1181) = B(1156) +! JVS(1181) = Jac_FULL(178,98) + JVS(1181) = 0.5*B(134) IF (DO_JVS(1182)) & -! JVS(1182) = Jac_FULL(180,97) - JVS(1182) = B(1158) +! JVS(1182) = Jac_FULL(178,178) + JVS(1182) = -B(128)-B(130)-B(132) IF (DO_JVS(1183)) & -! JVS(1183) = Jac_FULL(180,101) - JVS(1183) = B(1146)+B(1148) +! JVS(1183) = Jac_FULL(178,337) + JVS(1183) = -B(133) IF (DO_JVS(1184)) & -! JVS(1184) = Jac_FULL(180,180) - JVS(1184) = -B(1150)-B(1152)-B(1154)-B(1181) +! JVS(1184) = Jac_FULL(178,345) + JVS(1184) = B(125)+0.5*B(135) IF (DO_JVS(1185)) & -! JVS(1185) = Jac_FULL(180,266) - JVS(1185) = -B(1182) +! JVS(1185) = Jac_FULL(178,346) + JVS(1185) = -B(129)-B(131) IF (DO_JVS(1186)) & -! JVS(1186) = Jac_FULL(180,279) - JVS(1186) = -B(1153) +! JVS(1186) = Jac_FULL(178,351) + JVS(1186) = B(127) IF (DO_JVS(1187)) & -! JVS(1187) = Jac_FULL(180,281) - JVS(1187) = B(1149) +! JVS(1187) = Jac_FULL(179,179) + JVS(1187) = -2*B(1)-B(4)-B(6) IF (DO_JVS(1188)) & -! JVS(1188) = Jac_FULL(180,284) - JVS(1188) = -B(1151) +! JVS(1188) = Jac_FULL(179,327) + JVS(1188) = -B(7) IF (DO_JVS(1189)) & -! JVS(1189) = Jac_FULL(180,286) - JVS(1189) = B(1147)+B(1157) +! JVS(1189) = Jac_FULL(179,339) + JVS(1189) = -B(5) IF (DO_JVS(1190)) & -! JVS(1190) = Jac_FULL(180,291) - JVS(1190) = -B(1155) +! JVS(1190) = Jac_FULL(179,341) + JVS(1190) = -2*B(2) IF (DO_JVS(1191)) & -! JVS(1191) = Jac_FULL(181,181) - JVS(1191) = -B(937)-B(941)-B(947)-B(1352)-B(1497) +! JVS(1191) = Jac_FULL(179,348) + JVS(1191) = -2*B(3) IF (DO_JVS(1192)) & -! JVS(1192) = Jac_FULL(181,246) - JVS(1192) = 0.399*B(911) +! JVS(1192) = Jac_FULL(180,180) + JVS(1192) = -B(1220)-B(1222) IF (DO_JVS(1193)) & -! JVS(1193) = Jac_FULL(181,247) - JVS(1193) = 0.473*B(906)+0.07*B(910)+0.399*B(912)+0.355*B(916) +! JVS(1193) = Jac_FULL(180,299) + JVS(1193) = 0.435*B(1218) IF (DO_JVS(1194)) & -! JVS(1194) = Jac_FULL(181,266) - JVS(1194) = 0.355*B(917) +! JVS(1194) = Jac_FULL(180,337) + JVS(1194) = -B(1223) IF (DO_JVS(1195)) & -! JVS(1195) = Jac_FULL(181,284) - JVS(1195) = 0.473*B(907) +! JVS(1195) = Jac_FULL(180,345) + JVS(1195) = 0.435*B(1219) IF (DO_JVS(1196)) & -! JVS(1196) = Jac_FULL(181,286) - JVS(1196) = -B(938)-B(942)-B(948) +! JVS(1196) = Jac_FULL(180,346) + JVS(1196) = -B(1221) IF (DO_JVS(1197)) & -! JVS(1197) = Jac_FULL(182,157) - JVS(1197) = 0.345*B(772) +! JVS(1197) = Jac_FULL(181,181) + JVS(1197) = -0.9*B(495)-B(547)-B(605)-B(1699) IF (DO_JVS(1198)) & -! JVS(1198) = Jac_FULL(182,171) - JVS(1198) = 0.595*B(784) +! JVS(1198) = Jac_FULL(181,334) + JVS(1198) = -0.9*B(496) IF (DO_JVS(1199)) & -! JVS(1199) = Jac_FULL(182,182) - JVS(1199) = -B(788)-B(789)-B(791)-B(793) +! JVS(1199) = Jac_FULL(181,340) + JVS(1199) = -B(606) IF (DO_JVS(1200)) & -! JVS(1200) = Jac_FULL(182,245) - JVS(1200) = 0 +! JVS(1200) = Jac_FULL(181,345) + JVS(1200) = -B(548) IF (DO_JVS(1201)) & -! JVS(1201) = Jac_FULL(182,279) - JVS(1201) = -B(790)-B(792) +! JVS(1201) = Jac_FULL(182,182) + JVS(1201) = -0.33*B(1214)-0.33*B(1216) IF (DO_JVS(1202)) & -! JVS(1202) = Jac_FULL(182,284) - JVS(1202) = -B(794) +! JVS(1202) = Jac_FULL(182,301) + JVS(1202) = 0.461*B(1212) IF (DO_JVS(1203)) & -! JVS(1203) = Jac_FULL(182,286) - JVS(1203) = 0.345*B(773)+0.595*B(785) +! JVS(1203) = Jac_FULL(182,303) + JVS(1203) = 0.041*B(1316) IF (DO_JVS(1204)) & -! JVS(1204) = Jac_FULL(183,162) - JVS(1204) = 0.345*B(776) +! JVS(1204) = Jac_FULL(182,337) + JVS(1204) = -0.33*B(1217) IF (DO_JVS(1205)) & -! JVS(1205) = Jac_FULL(183,165) - JVS(1205) = 0.255*B(786) +! JVS(1205) = Jac_FULL(182,345) + JVS(1205) = 0.461*B(1213)+0.041*B(1317) IF (DO_JVS(1206)) & -! JVS(1206) = Jac_FULL(183,183) - JVS(1206) = -B(795)-B(796)-B(798)-B(800) +! JVS(1206) = Jac_FULL(182,346) + JVS(1206) = -0.33*B(1215) IF (DO_JVS(1207)) & -! JVS(1207) = Jac_FULL(183,244) - JVS(1207) = 0 +! JVS(1207) = Jac_FULL(183,183) + JVS(1207) = -B(106)-B(344)-B(419)-B(617) IF (DO_JVS(1208)) & -! JVS(1208) = Jac_FULL(183,279) - JVS(1208) = -B(797)-B(799) +! JVS(1208) = Jac_FULL(183,340) + JVS(1208) = -B(618) IF (DO_JVS(1209)) & -! JVS(1209) = Jac_FULL(183,284) - JVS(1209) = -B(801) +! JVS(1209) = Jac_FULL(183,342) + JVS(1209) = -B(420) IF (DO_JVS(1210)) & -! JVS(1210) = Jac_FULL(183,286) - JVS(1210) = 0.345*B(777)+0.255*B(787) +! JVS(1210) = Jac_FULL(183,345) + JVS(1210) = -B(107) IF (DO_JVS(1211)) & -! JVS(1211) = Jac_FULL(184,64) - JVS(1211) = 0.46*B(1116) +! JVS(1211) = Jac_FULL(183,351) + JVS(1211) = -B(345) IF (DO_JVS(1212)) & -! JVS(1212) = Jac_FULL(184,79) - JVS(1212) = 0.81*B(1118) +! JVS(1212) = Jac_FULL(184,184) + JVS(1212) = -B(1301)-B(1302) IF (DO_JVS(1213)) & -! JVS(1213) = Jac_FULL(184,80) - JVS(1213) = 0.85*B(1120) +! JVS(1213) = Jac_FULL(184,259) + JVS(1213) = B(1289) IF (DO_JVS(1214)) & -! JVS(1214) = Jac_FULL(184,115) - JVS(1214) = 0.2*B(1136)+0.2*B(1138) +! JVS(1214) = Jac_FULL(184,308) + JVS(1214) = B(1295) IF (DO_JVS(1215)) & -! JVS(1215) = Jac_FULL(184,118) - JVS(1215) = 0.14*B(1132) +! JVS(1215) = Jac_FULL(184,335) + JVS(1215) = B(1290)+B(1296) IF (DO_JVS(1216)) & -! JVS(1216) = Jac_FULL(184,142) - JVS(1216) = 0.7*B(1140)+0.2*B(1144) +! JVS(1216) = Jac_FULL(184,345) + JVS(1216) = -B(1303) IF (DO_JVS(1217)) & -! JVS(1217) = Jac_FULL(184,184) - JVS(1217) = -B(1122)-B(1124)-B(1126)-B(1128)-B(1130) +! JVS(1217) = Jac_FULL(185,119) + JVS(1217) = B(1013) IF (DO_JVS(1218)) & -! JVS(1218) = Jac_FULL(184,261) - JVS(1218) = -B(1131) +! JVS(1218) = Jac_FULL(185,147) + JVS(1218) = 0.444*B(1308)+0.454*B(1796) IF (DO_JVS(1219)) & -! JVS(1219) = Jac_FULL(184,266) - JVS(1219) = -B(1129) +! JVS(1219) = Jac_FULL(185,185) + JVS(1219) = -B(1260)-B(1768) IF (DO_JVS(1220)) & -! JVS(1220) = Jac_FULL(184,279) - JVS(1220) = -B(1125) +! JVS(1220) = Jac_FULL(185,230) + JVS(1220) = 0.112*B(1779) IF (DO_JVS(1221)) & -! JVS(1221) = Jac_FULL(184,281) - JVS(1221) = -B(1127)+0.2*B(1139)+0.2*B(1145) +! JVS(1221) = Jac_FULL(185,231) + JVS(1221) = 0.182*B(1780) IF (DO_JVS(1222)) & -! JVS(1222) = Jac_FULL(184,282) +! JVS(1222) = Jac_FULL(185,285) JVS(1222) = 0 IF (DO_JVS(1223)) & -! JVS(1223) = Jac_FULL(184,284) - JVS(1223) = -B(1123) +! JVS(1223) = Jac_FULL(185,286) + JVS(1223) = 0 IF (DO_JVS(1224)) & -! JVS(1224) = Jac_FULL(184,286) - JVS(1224) = 0.46*B(1117)+0.81*B(1119)+0.85*B(1121)+0.14*B(1133)+0.2*B(1137)+0.7*B(1141) +! JVS(1224) = Jac_FULL(185,301) + JVS(1224) = 0.162*B(1790) IF (DO_JVS(1225)) & -! JVS(1225) = Jac_FULL(185,117) - JVS(1225) = 0.4*B(1019) +! JVS(1225) = Jac_FULL(185,345) + JVS(1225) = B(1014)-B(1261)+0.444*B(1309) IF (DO_JVS(1226)) & -! JVS(1226) = Jac_FULL(185,125) - JVS(1226) = 0.126*B(1065)+0.155*B(1506) +! JVS(1226) = Jac_FULL(186,186) + JVS(1226) = -B(1182)-B(1186)-B(1188)-B(1192)-B(1194)-B(1633)-B(1788)-B(1789) IF (DO_JVS(1227)) & -! JVS(1227) = Jac_FULL(185,132) - JVS(1227) = 0.16*B(1025) +! JVS(1227) = Jac_FULL(186,311) + JVS(1227) = B(1151) IF (DO_JVS(1228)) & -! JVS(1228) = Jac_FULL(185,163) - JVS(1228) = 0.063*B(1015) +! JVS(1228) = Jac_FULL(186,337) + JVS(1228) = B(1152) IF (DO_JVS(1229)) & -! JVS(1229) = Jac_FULL(185,185) - JVS(1229) = -B(1021)-B(1476) +! JVS(1229) = Jac_FULL(186,345) + JVS(1229) = -B(1183)-B(1187)-B(1189)-B(1193)-B(1195) IF (DO_JVS(1230)) & -! JVS(1230) = Jac_FULL(185,186) - JVS(1230) = 0 +! JVS(1230) = Jac_FULL(187,187) + JVS(1230) = -B(1015)-B(1017)-B(1023)-B(1775) IF (DO_JVS(1231)) & -! JVS(1231) = Jac_FULL(185,188) - JVS(1231) = 0 +! JVS(1231) = Jac_FULL(187,305) + JVS(1231) = 0.937*B(957) IF (DO_JVS(1232)) & -! JVS(1232) = Jac_FULL(185,206) - JVS(1232) = 0.133*B(1503) +! JVS(1232) = Jac_FULL(187,337) + JVS(1232) = 0.937*B(958) IF (DO_JVS(1233)) & -! JVS(1233) = Jac_FULL(185,228) - JVS(1233) = 0 +! JVS(1233) = Jac_FULL(187,345) + JVS(1233) = -B(1016)-B(1018)-B(1024) IF (DO_JVS(1234)) & -! JVS(1234) = Jac_FULL(185,229) - JVS(1234) = 0 +! JVS(1234) = Jac_FULL(188,188) + JVS(1234) = -B(271) IF (DO_JVS(1235)) & -! JVS(1235) = Jac_FULL(185,230) - JVS(1235) = 0.47*B(995) +! JVS(1235) = Jac_FULL(188,249) + JVS(1235) = 0.375*B(259) IF (DO_JVS(1236)) & -! JVS(1236) = Jac_FULL(185,240) - JVS(1236) = 0 +! JVS(1236) = Jac_FULL(188,250) + JVS(1236) = 0.25*B(267) IF (DO_JVS(1237)) & -! JVS(1237) = Jac_FULL(185,241) - JVS(1237) = 0.29*B(993) +! JVS(1237) = Jac_FULL(188,260) + JVS(1237) = 0.25*B(216) IF (DO_JVS(1238)) & -! JVS(1238) = Jac_FULL(185,242) - JVS(1238) = 0 +! JVS(1238) = Jac_FULL(188,289) + JVS(1238) = 0.25*B(911) IF (DO_JVS(1239)) & -! JVS(1239) = Jac_FULL(185,279) - JVS(1239) = 0 +! JVS(1239) = Jac_FULL(188,300) + JVS(1239) = 0.38*B(257) IF (DO_JVS(1240)) & -! JVS(1240) = Jac_FULL(185,284) - JVS(1240) = 0 +! JVS(1240) = Jac_FULL(188,318) + JVS(1240) = 0.375*B(255) IF (DO_JVS(1241)) & -! JVS(1241) = Jac_FULL(185,286) - JVS(1241) = 0.29*B(994)+0.47*B(996)+0.063*B(1016)+0.4*B(1020)-B(1022)+0.16*B(1026)+0.126*B(1066) +! JVS(1241) = Jac_FULL(188,319) + JVS(1241) = 0.38*B(253) IF (DO_JVS(1242)) & -! JVS(1242) = Jac_FULL(186,171) - JVS(1242) = 0.015*B(784) +! JVS(1242) = Jac_FULL(188,320) + JVS(1242) = 0.25*B(263) IF (DO_JVS(1243)) & -! JVS(1243) = Jac_FULL(186,186) - JVS(1243) = -B(758)-B(1489) +! JVS(1243) = Jac_FULL(188,321) + JVS(1243) = 0.25*B(214) IF (DO_JVS(1244)) & -! JVS(1244) = Jac_FULL(186,224) - JVS(1244) = 0.25*B(710) +! JVS(1244) = Jac_FULL(188,323) + JVS(1244) = 0.25*B(265) IF (DO_JVS(1245)) & -! JVS(1245) = Jac_FULL(186,245) - JVS(1245) = 0.25*B(723) +! 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) IF (DO_JVS(1246)) & -! JVS(1246) = Jac_FULL(186,284) - JVS(1246) = 0 +! JVS(1246) = Jac_FULL(188,345) + JVS(1246) = -B(272) IF (DO_JVS(1247)) & -! JVS(1247) = Jac_FULL(186,286) - JVS(1247) = 0.25*B(711)-B(759)+0.015*B(785) +! JVS(1247) = Jac_FULL(189,149) + JVS(1247) = 0.07*B(1344) IF (DO_JVS(1248)) & -! JVS(1248) = Jac_FULL(187,157) - JVS(1248) = 0.655*B(772) +! JVS(1248) = Jac_FULL(189,189) + JVS(1248) = -B(1352)-B(1354) IF (DO_JVS(1249)) & -! JVS(1249) = Jac_FULL(187,162) - JVS(1249) = 0.655*B(776) +! JVS(1249) = Jac_FULL(189,200) + JVS(1249) = 0.05*B(1348) IF (DO_JVS(1250)) & -! JVS(1250) = Jac_FULL(187,187) - JVS(1250) = -B(802)-B(803)-B(805)-B(807) +! JVS(1250) = Jac_FULL(189,220) + JVS(1250) = 0.3*B(1338) IF (DO_JVS(1251)) & -! JVS(1251) = Jac_FULL(187,244) - JVS(1251) = 0 +! JVS(1251) = Jac_FULL(189,337) + JVS(1251) = -B(1355) IF (DO_JVS(1252)) & -! JVS(1252) = Jac_FULL(187,245) - JVS(1252) = 0 +! JVS(1252) = Jac_FULL(189,345) + JVS(1252) = 0.3*B(1339)+0.07*B(1345)+0.05*B(1349) IF (DO_JVS(1253)) & -! JVS(1253) = Jac_FULL(187,279) - JVS(1253) = -B(804)-B(806) +! JVS(1253) = Jac_FULL(189,346) + JVS(1253) = -B(1353) IF (DO_JVS(1254)) & -! JVS(1254) = Jac_FULL(187,284) - JVS(1254) = -B(808) +! JVS(1254) = Jac_FULL(189,351) + JVS(1254) = 0 IF (DO_JVS(1255)) & -! JVS(1255) = Jac_FULL(187,286) - JVS(1255) = 0.655*B(773)+0.655*B(777) +! JVS(1255) = Jac_FULL(190,168) + JVS(1255) = B(1097) IF (DO_JVS(1256)) & -! JVS(1256) = Jac_FULL(188,165) - JVS(1256) = 0.015*B(786) +! JVS(1256) = Jac_FULL(190,190) + JVS(1256) = -B(1120)-B(1121)-B(1123)-B(1125) IF (DO_JVS(1257)) & -! JVS(1257) = Jac_FULL(188,188) - JVS(1257) = -B(760)-B(1490) +! JVS(1257) = Jac_FULL(190,304) + JVS(1257) = 0 IF (DO_JVS(1258)) & -! JVS(1258) = Jac_FULL(188,224) - JVS(1258) = 0.25*B(712) +! JVS(1258) = Jac_FULL(190,337) + JVS(1258) = -B(1122) IF (DO_JVS(1259)) & -! JVS(1259) = Jac_FULL(188,244) - JVS(1259) = 0.25*B(725) +! JVS(1259) = Jac_FULL(190,345) + JVS(1259) = B(1098) IF (DO_JVS(1260)) & -! JVS(1260) = Jac_FULL(188,284) - JVS(1260) = 0 +! JVS(1260) = Jac_FULL(190,346) + JVS(1260) = -B(1124)-B(1126) IF (DO_JVS(1261)) & -! JVS(1261) = Jac_FULL(188,286) - JVS(1261) = 0.25*B(713)-B(761)+0.015*B(787) +! JVS(1261) = Jac_FULL(191,191) + JVS(1261) = -B(717)-B(731)-B(733) IF (DO_JVS(1262)) & -! JVS(1262) = Jac_FULL(189,151) - JVS(1262) = B(939) +! JVS(1262) = Jac_FULL(191,341) + JVS(1262) = -B(734) IF (DO_JVS(1263)) & -! JVS(1263) = Jac_FULL(189,189) - JVS(1263) = -B(953)-B(957)-B(963)-B(965) +! JVS(1263) = Jac_FULL(191,345) + JVS(1263) = -B(732) IF (DO_JVS(1264)) & -! JVS(1264) = Jac_FULL(189,246) - JVS(1264) = 0 +! JVS(1264) = Jac_FULL(191,351) + JVS(1264) = -B(718) IF (DO_JVS(1265)) & -! JVS(1265) = Jac_FULL(189,279) - JVS(1265) = -B(964)-B(966) +! JVS(1265) = Jac_FULL(192,192) + JVS(1265) = -B(1019)-B(1021)-B(1025)-B(1776) IF (DO_JVS(1266)) & -! JVS(1266) = Jac_FULL(189,284) - JVS(1266) = -B(958) +! JVS(1266) = Jac_FULL(192,304) + JVS(1266) = 0.937*B(961) IF (DO_JVS(1267)) & -! JVS(1267) = Jac_FULL(189,286) - JVS(1267) = B(940) +! JVS(1267) = Jac_FULL(192,337) + JVS(1267) = 0.937*B(962) IF (DO_JVS(1268)) & -! JVS(1268) = Jac_FULL(190,190) - JVS(1268) = -B(47)-B(344)-B(464) +! JVS(1268) = Jac_FULL(192,345) + JVS(1268) = -B(1020)-B(1022)-B(1026) IF (DO_JVS(1269)) & -! JVS(1269) = Jac_FULL(190,253) - JVS(1269) = 0.1*B(211) +! JVS(1269) = Jac_FULL(193,193) + JVS(1269) = -B(865)-B(867)-B(869) IF (DO_JVS(1270)) & -! JVS(1270) = Jac_FULL(190,264) - JVS(1270) = B(1375) +! JVS(1270) = Jac_FULL(193,291) + JVS(1270) = B(853) IF (DO_JVS(1271)) & -! JVS(1271) = Jac_FULL(190,272) - JVS(1271) = -B(345) +! JVS(1271) = Jac_FULL(193,341) + JVS(1271) = -B(868) IF (DO_JVS(1272)) & -! JVS(1272) = Jac_FULL(190,282) - JVS(1272) = 0.1*B(212) +! JVS(1272) = Jac_FULL(193,345) + JVS(1272) = -B(866) IF (DO_JVS(1273)) & -! JVS(1273) = Jac_FULL(190,286) - JVS(1273) = -B(48) +! JVS(1273) = Jac_FULL(193,346) + JVS(1273) = B(854) IF (DO_JVS(1274)) & -! JVS(1274) = Jac_FULL(190,290) - JVS(1274) = -B(465) +! JVS(1274) = Jac_FULL(193,351) + JVS(1274) = -B(870) IF (DO_JVS(1275)) & -! JVS(1275) = Jac_FULL(191,70) - JVS(1275) = B(1513) +! JVS(1275) = Jac_FULL(194,194) + JVS(1275) = -B(1258)-B(1769) IF (DO_JVS(1276)) & -! JVS(1276) = Jac_FULL(191,101) - JVS(1276) = B(1512) +! JVS(1276) = Jac_FULL(194,230) + JVS(1276) = 0.552*B(1779) IF (DO_JVS(1277)) & -! JVS(1277) = Jac_FULL(191,107) - JVS(1277) = B(1169) +! JVS(1277) = Jac_FULL(194,231) + JVS(1277) = 0.454*B(1780) IF (DO_JVS(1278)) & -! JVS(1278) = Jac_FULL(191,160) - JVS(1278) = B(1171) +! JVS(1278) = Jac_FULL(194,301) + JVS(1278) = 0.481*B(1790) IF (DO_JVS(1279)) & -! JVS(1279) = Jac_FULL(191,180) - JVS(1279) = 0.2*B(1150)+B(1152)+B(1181) +! JVS(1279) = Jac_FULL(194,303) + JVS(1279) = 0.022*B(1316) IF (DO_JVS(1280)) & -! JVS(1280) = Jac_FULL(191,191) - JVS(1280) = -B(1161)-B(1163)-B(1165)-B(1167)-B(1179) +! JVS(1280) = Jac_FULL(194,345) + JVS(1280) = -B(1259)+0.022*B(1317) IF (DO_JVS(1281)) & -! JVS(1281) = Jac_FULL(191,266) - JVS(1281) = -B(1180)+B(1182) +! JVS(1281) = Jac_FULL(195,143) + JVS(1281) = 0.54*B(1381) IF (DO_JVS(1282)) & -! JVS(1282) = Jac_FULL(191,279) - JVS(1282) = B(1153)-B(1164) +! JVS(1282) = Jac_FULL(195,195) + JVS(1282) = -B(1414)-B(1416) IF (DO_JVS(1283)) & -! JVS(1283) = Jac_FULL(191,281) - JVS(1283) = -B(1166) +! JVS(1283) = Jac_FULL(195,220) + JVS(1283) = 0 IF (DO_JVS(1284)) & -! JVS(1284) = Jac_FULL(191,282) - JVS(1284) = B(1172) +! JVS(1284) = Jac_FULL(195,341) + JVS(1284) = 0 IF (DO_JVS(1285)) & -! JVS(1285) = Jac_FULL(191,284) - JVS(1285) = 0.2*B(1151)-B(1168) +! JVS(1285) = Jac_FULL(195,345) + JVS(1285) = 0.54*B(1382)-B(1415) IF (DO_JVS(1286)) & -! JVS(1286) = Jac_FULL(191,286) - JVS(1286) = B(1170) +! JVS(1286) = Jac_FULL(195,351) + JVS(1286) = -B(1417) IF (DO_JVS(1287)) & -! JVS(1287) = Jac_FULL(191,291) - JVS(1287) = -B(1162) +! JVS(1287) = Jac_FULL(196,165) + JVS(1287) = B(140) IF (DO_JVS(1288)) & -! JVS(1288) = Jac_FULL(192,165) - JVS(1288) = 0.06*B(786)+B(1488) +! JVS(1288) = Jac_FULL(196,178) + JVS(1288) = B(130) IF (DO_JVS(1289)) & -! JVS(1289) = Jac_FULL(192,171) - JVS(1289) = 0.06*B(784)+B(1487) +! JVS(1289) = Jac_FULL(196,196) + JVS(1289) = -B(136)-B(1686) IF (DO_JVS(1290)) & -! JVS(1290) = Jac_FULL(192,192) - JVS(1290) = -B(766) +! JVS(1290) = Jac_FULL(196,337) + JVS(1290) = B(141) IF (DO_JVS(1291)) & -! JVS(1291) = Jac_FULL(192,214) - JVS(1291) = 0.45*B(1496) +! JVS(1291) = Jac_FULL(196,345) + JVS(1291) = -B(137) IF (DO_JVS(1292)) & -! JVS(1292) = Jac_FULL(192,220) - JVS(1292) = 0.45*B(1493) +! JVS(1292) = Jac_FULL(196,346) + JVS(1292) = B(131) IF (DO_JVS(1293)) & -! JVS(1293) = Jac_FULL(192,244) - JVS(1293) = B(731)+B(732)+0.5*B(740)+0.45*B(756) +! JVS(1293) = Jac_FULL(196,351) + JVS(1293) = 0 IF (DO_JVS(1294)) & -! JVS(1294) = Jac_FULL(192,245) - JVS(1294) = B(730)+B(733)+0.5*B(736)+0.45*B(748) +! JVS(1294) = Jac_FULL(197,126) + JVS(1294) = B(166)+B(1659) IF (DO_JVS(1295)) & -! JVS(1295) = Jac_FULL(192,266) - JVS(1295) = 0.5*B(737)+0.5*B(741) +! JVS(1295) = Jac_FULL(197,197) + JVS(1295) = -B(160)-B(162)-B(164) IF (DO_JVS(1296)) & -! JVS(1296) = Jac_FULL(192,279) - JVS(1296) = 0.45*B(749)+0.45*B(757) +! JVS(1296) = Jac_FULL(197,233) + JVS(1296) = 0.68*B(154)+0.3*B(1660) IF (DO_JVS(1297)) & -! JVS(1297) = Jac_FULL(192,284) - JVS(1297) = 0 +! JVS(1297) = Jac_FULL(197,335) + JVS(1297) = -B(165) IF (DO_JVS(1298)) & -! JVS(1298) = Jac_FULL(192,286) - JVS(1298) = -B(767)+0.06*B(785)+0.06*B(787) +! JVS(1298) = Jac_FULL(197,337) + JVS(1298) = -B(161) IF (DO_JVS(1299)) & -! JVS(1299) = Jac_FULL(193,62) - JVS(1299) = B(1465) +! JVS(1299) = Jac_FULL(197,345) + JVS(1299) = 0.68*B(155) IF (DO_JVS(1300)) & -! JVS(1300) = Jac_FULL(193,63) - JVS(1300) = B(1463) +! JVS(1300) = Jac_FULL(197,346) + JVS(1300) = -B(163) IF (DO_JVS(1301)) & -! JVS(1301) = Jac_FULL(193,138) - JVS(1301) = 0 +! JVS(1301) = Jac_FULL(198,174) + JVS(1301) = 0.667*B(1310) IF (DO_JVS(1302)) & -! JVS(1302) = Jac_FULL(193,147) - JVS(1302) = 0 +! JVS(1302) = Jac_FULL(198,198) + JVS(1302) = -B(1312)-B(1795) IF (DO_JVS(1303)) & -! JVS(1303) = Jac_FULL(193,193) - JVS(1303) = -B(71)-B(1368) +! JVS(1303) = Jac_FULL(198,223) + JVS(1303) = 0.824*B(1031) IF (DO_JVS(1304)) & -! JVS(1304) = Jac_FULL(193,203) - JVS(1304) = B(1303)+B(1304)+B(1309)+B(1311)+B(1313)+B(1315) +! JVS(1304) = Jac_FULL(198,224) + JVS(1304) = 0.452*B(1038) IF (DO_JVS(1305)) & -! JVS(1305) = Jac_FULL(193,210) - JVS(1305) = B(1515) +! JVS(1305) = Jac_FULL(198,232) + JVS(1305) = B(1045) IF (DO_JVS(1306)) & -! JVS(1306) = Jac_FULL(193,235) - JVS(1306) = B(1245)+B(1247)+B(1249)+B(1251)+B(1253)+B(1255) +! JVS(1306) = Jac_FULL(198,337) + JVS(1306) = 0 IF (DO_JVS(1307)) & -! JVS(1307) = Jac_FULL(193,265) - JVS(1307) = 0 +! JVS(1307) = Jac_FULL(198,345) + JVS(1307) = 0.667*B(1311)-B(1313) IF (DO_JVS(1308)) & -! JVS(1308) = Jac_FULL(193,275) - JVS(1308) = B(1250) +! JVS(1308) = Jac_FULL(199,199) + JVS(1308) = -B(1029)-B(1778) IF (DO_JVS(1309)) & -! JVS(1309) = Jac_FULL(193,276) - JVS(1309) = 0 +! JVS(1309) = Jac_FULL(199,304) + JVS(1309) = B(963) IF (DO_JVS(1310)) & -! JVS(1310) = Jac_FULL(193,277) - JVS(1310) = B(1254)+B(1312) +! JVS(1310) = Jac_FULL(199,337) + JVS(1310) = B(964) IF (DO_JVS(1311)) & -! JVS(1311) = Jac_FULL(193,279) - JVS(1311) = B(69) +! JVS(1311) = Jac_FULL(199,345) + JVS(1311) = -B(1030) IF (DO_JVS(1312)) & -! JVS(1312) = Jac_FULL(193,280) - JVS(1312) = B(1246)+B(1314) +! JVS(1312) = Jac_FULL(200,200) + JVS(1312) = -B(1348)-B(1350) IF (DO_JVS(1313)) & -! JVS(1313) = Jac_FULL(193,281) - JVS(1313) = 0 +! JVS(1313) = Jac_FULL(200,345) + JVS(1313) = -B(1349) IF (DO_JVS(1314)) & -! JVS(1314) = Jac_FULL(193,282) - JVS(1314) = 0 +! JVS(1314) = Jac_FULL(200,351) + JVS(1314) = -B(1351) IF (DO_JVS(1315)) & -! JVS(1315) = Jac_FULL(193,283) - JVS(1315) = B(1252)+B(1310) +! JVS(1315) = Jac_FULL(201,82) + JVS(1315) = 0.3*B(1383) IF (DO_JVS(1316)) & -! JVS(1316) = Jac_FULL(193,286) - JVS(1316) = B(70)-B(72) +! JVS(1316) = Jac_FULL(201,101) + JVS(1316) = 0.56*B(1385) IF (DO_JVS(1317)) & -! JVS(1317) = Jac_FULL(193,287) - JVS(1317) = B(1248)+B(1316) +! JVS(1317) = Jac_FULL(201,149) + JVS(1317) = 0.4*B(1344) IF (DO_JVS(1318)) & -! JVS(1318) = Jac_FULL(193,289) - JVS(1318) = B(1256) +! JVS(1318) = Jac_FULL(201,158) + JVS(1318) = 0.44*B(1418)+0.44*B(1420) IF (DO_JVS(1319)) & -! JVS(1319) = Jac_FULL(193,291) - JVS(1319) = 0.5*B(1210) +! JVS(1319) = Jac_FULL(201,200) + JVS(1319) = 0.6*B(1348)+0.4*B(1350) IF (DO_JVS(1320)) & -! JVS(1320) = Jac_FULL(194,116) - JVS(1320) = 0.25*B(809) +! JVS(1320) = Jac_FULL(201,201) + JVS(1320) = -B(1470)-B(1472)-B(1474) IF (DO_JVS(1321)) & -! JVS(1321) = Jac_FULL(194,162) - JVS(1321) = 0.16*B(782) +! JVS(1321) = Jac_FULL(201,341) + JVS(1321) = -B(1473) IF (DO_JVS(1322)) & -! JVS(1322) = Jac_FULL(194,165) - JVS(1322) = 0 +! 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) IF (DO_JVS(1323)) & -! JVS(1323) = Jac_FULL(194,171) - JVS(1323) = 0 +! JVS(1323) = Jac_FULL(201,351) + JVS(1323) = 0.4*B(1351)+0.44*B(1421) IF (DO_JVS(1324)) & -! JVS(1324) = Jac_FULL(194,194) - JVS(1324) = -B(835)-B(837)-B(839)-B(841) +! JVS(1324) = Jac_FULL(202,158) + JVS(1324) = 0.727*B(1418) IF (DO_JVS(1325)) & -! JVS(1325) = Jac_FULL(194,214) - JVS(1325) = 0 +! JVS(1325) = Jac_FULL(202,195) + JVS(1325) = 0.8*B(1414) IF (DO_JVS(1326)) & -! JVS(1326) = Jac_FULL(194,220) +! JVS(1326) = Jac_FULL(202,200) JVS(1326) = 0 IF (DO_JVS(1327)) & -! JVS(1327) = Jac_FULL(194,244) - JVS(1327) = 0 +! JVS(1327) = Jac_FULL(202,202) + JVS(1327) = -B(1422)-B(1424)-B(1426) IF (DO_JVS(1328)) & -! JVS(1328) = Jac_FULL(194,245) +! JVS(1328) = Jac_FULL(202,220) JVS(1328) = 0 IF (DO_JVS(1329)) & -! JVS(1329) = Jac_FULL(194,279) - JVS(1329) = -B(838)-B(840) +! JVS(1329) = Jac_FULL(202,341) + JVS(1329) = -B(1425) IF (DO_JVS(1330)) & -! JVS(1330) = Jac_FULL(194,284) - JVS(1330) = -B(836) +! JVS(1330) = Jac_FULL(202,345) + JVS(1330) = 0.8*B(1415)+0.727*B(1419)-B(1423) IF (DO_JVS(1331)) & -! JVS(1331) = Jac_FULL(194,286) - JVS(1331) = 0.16*B(783)+0.25*B(810) +! JVS(1331) = Jac_FULL(202,351) + JVS(1331) = -B(1427) IF (DO_JVS(1332)) & -! JVS(1332) = Jac_FULL(195,195) - JVS(1332) = -B(606)-B(608)-B(610)-B(612)-B(614)-B(616) +! JVS(1332) = Jac_FULL(203,117) + JVS(1332) = B(1804) IF (DO_JVS(1333)) & -! JVS(1333) = Jac_FULL(195,253) - JVS(1333) = 0.12*B(211) +! JVS(1333) = Jac_FULL(203,158) + JVS(1333) = 0.073*B(1418)+0.3*B(1420) IF (DO_JVS(1334)) & -! JVS(1334) = Jac_FULL(195,267) - JVS(1334) = -B(607) +! JVS(1334) = Jac_FULL(203,195) + JVS(1334) = 0.06*B(1414)+0.742*B(1416) IF (DO_JVS(1335)) & -! JVS(1335) = Jac_FULL(195,276) - JVS(1335) = -B(613) +! JVS(1335) = Jac_FULL(203,200) + JVS(1335) = 0 IF (DO_JVS(1336)) & -! JVS(1336) = Jac_FULL(195,278) - JVS(1336) = -B(615)-B(617) +! JVS(1336) = Jac_FULL(203,202) + JVS(1336) = 0.3*B(1422)+0.3*B(1426) IF (DO_JVS(1337)) & -! JVS(1337) = Jac_FULL(195,279) - JVS(1337) = -B(609) +! JVS(1337) = Jac_FULL(203,203) + JVS(1337) = -B(1453)-B(1455) IF (DO_JVS(1338)) & -! JVS(1338) = Jac_FULL(195,282) - JVS(1338) = 0.12*B(212) +! JVS(1338) = Jac_FULL(203,220) + JVS(1338) = 0 IF (DO_JVS(1339)) & -! JVS(1339) = Jac_FULL(195,291) - JVS(1339) = -B(611) +! JVS(1339) = Jac_FULL(203,235) + JVS(1339) = 0 IF (DO_JVS(1340)) & -! JVS(1340) = Jac_FULL(196,165) - JVS(1340) = 0.018*B(786) +! JVS(1340) = Jac_FULL(203,236) + JVS(1340) = B(1443)+B(1445)+B(1447)+B(1461) IF (DO_JVS(1341)) & -! JVS(1341) = Jac_FULL(196,183) - JVS(1341) = 0.294*B(796)+0.135*B(800) +! JVS(1341) = Jac_FULL(203,328) + JVS(1341) = B(1462) IF (DO_JVS(1342)) & -! JVS(1342) = Jac_FULL(196,189) - JVS(1342) = 0.054*B(957)+0.07*B(963) +! JVS(1342) = Jac_FULL(203,335) + JVS(1342) = B(1444)-B(1456) IF (DO_JVS(1343)) & -! JVS(1343) = Jac_FULL(196,196) - JVS(1343) = -B(61)-B(1453) +! JVS(1343) = Jac_FULL(203,337) + JVS(1343) = 0 IF (DO_JVS(1344)) & -! JVS(1344) = Jac_FULL(196,222) - JVS(1344) = 0.009*B(955)+0.013*B(959) +! JVS(1344) = Jac_FULL(203,341) + JVS(1344) = -B(1454) IF (DO_JVS(1345)) & -! JVS(1345) = Jac_FULL(196,224) - JVS(1345) = 0.3*B(712) +! JVS(1345) = Jac_FULL(203,345) + JVS(1345) = 0.06*B(1415)+0.073*B(1419)+0.3*B(1423) IF (DO_JVS(1346)) & -! JVS(1346) = Jac_FULL(196,231) - JVS(1346) = 0.23*B(997) +! JVS(1346) = Jac_FULL(203,346) + JVS(1346) = B(1446) IF (DO_JVS(1347)) & -! JVS(1347) = Jac_FULL(196,242) - JVS(1347) = 0.05*B(1508) +! JVS(1347) = Jac_FULL(203,351) + JVS(1347) = 0.742*B(1417)+0.3*B(1421)+0.3*B(1427)+B(1448) IF (DO_JVS(1348)) & -! JVS(1348) = Jac_FULL(196,244) - JVS(1348) = 0.3*B(725) +! JVS(1348) = Jac_FULL(204,82) + JVS(1348) = 0.06*B(1383) IF (DO_JVS(1349)) & -! JVS(1349) = Jac_FULL(196,246) - JVS(1349) = 0 +! JVS(1349) = Jac_FULL(204,101) + JVS(1349) = 0.06*B(1385) IF (DO_JVS(1350)) & -! JVS(1350) = Jac_FULL(196,251) - JVS(1350) = 0.036*B(985) +! JVS(1350) = Jac_FULL(204,116) + JVS(1350) = B(1356)+B(1687) IF (DO_JVS(1351)) & -! JVS(1351) = Jac_FULL(196,252) - JVS(1351) = 0.85*B(165) +! JVS(1351) = Jac_FULL(204,149) + JVS(1351) = B(1346) IF (DO_JVS(1352)) & -! JVS(1352) = Jac_FULL(196,254) - JVS(1352) = 0.85*B(167) +! JVS(1352) = Jac_FULL(204,189) + JVS(1352) = 0.89*B(1352)+B(1354) IF (DO_JVS(1353)) & -! JVS(1353) = Jac_FULL(196,279) - JVS(1353) = 0.294*B(797)+0.013*B(960)+0.07*B(964) +! JVS(1353) = Jac_FULL(204,200) + JVS(1353) = B(1350) IF (DO_JVS(1354)) & -! JVS(1354) = Jac_FULL(196,284) - JVS(1354) = 0.85*B(166)+0.85*B(168)+0.135*B(801)+0.009*B(956)+0.054*B(958) +! JVS(1354) = Jac_FULL(204,204) + JVS(1354) = -B(1428)-B(1430)-B(1802) IF (DO_JVS(1355)) & -! JVS(1355) = Jac_FULL(196,286) - JVS(1355) = -B(62)+0.3*B(713)+0.018*B(787)+0.036*B(986)+0.23*B(998) +! JVS(1355) = Jac_FULL(204,220) + JVS(1355) = 0.7*B(1338)+B(1340)+0.62*B(1342) IF (DO_JVS(1356)) & -! JVS(1356) = Jac_FULL(197,103) - JVS(1356) = 0.95*B(494) +! JVS(1356) = Jac_FULL(204,337) + JVS(1356) = B(1355) IF (DO_JVS(1357)) & -! JVS(1357) = Jac_FULL(197,197) - JVS(1357) = -0.75*B(392)-B(428)-B(1412) +! JVS(1357) = Jac_FULL(204,341) + JVS(1357) = 0.62*B(1343) IF (DO_JVS(1358)) & -! JVS(1358) = Jac_FULL(197,235) - JVS(1358) = B(1245)+B(1247)+B(1249) +! JVS(1358) = Jac_FULL(204,345) + JVS(1358) = 0.7*B(1339)+B(1357)+0.06*B(1384)+0.06*B(1386)-B(1429) IF (DO_JVS(1359)) & -! JVS(1359) = Jac_FULL(197,262) - JVS(1359) = B(504)+B(1233)+B(1241)+B(1243) +! JVS(1359) = Jac_FULL(204,346) + JVS(1359) = 0.89*B(1353) IF (DO_JVS(1360)) & -! JVS(1360) = Jac_FULL(197,266) - JVS(1360) = 0 +! JVS(1360) = Jac_FULL(204,351) + JVS(1360) = B(1341)+B(1347)+B(1351)-B(1431) IF (DO_JVS(1361)) & -! JVS(1361) = Jac_FULL(197,271) - JVS(1361) = B(1257)+B(1261)+B(1263) +! JVS(1361) = Jac_FULL(205,175) + JVS(1361) = B(1093) IF (DO_JVS(1362)) & -! JVS(1362) = Jac_FULL(197,272) - JVS(1362) = -0.75*B(393) +! JVS(1362) = Jac_FULL(205,205) + JVS(1362) = -B(1113)-B(1114)-B(1116)-B(1118) IF (DO_JVS(1363)) & -! JVS(1363) = Jac_FULL(197,274) +! JVS(1363) = Jac_FULL(205,305) JVS(1363) = 0 IF (DO_JVS(1364)) & -! JVS(1364) = Jac_FULL(197,275) - JVS(1364) = B(1234)+B(1250)+B(1258) +! JVS(1364) = Jac_FULL(205,337) + JVS(1364) = -B(1115) IF (DO_JVS(1365)) & -! JVS(1365) = Jac_FULL(197,280) - JVS(1365) = 0.5*B(1223)+B(1242)+B(1246)+B(1262) +! JVS(1365) = Jac_FULL(205,345) + JVS(1365) = B(1094) IF (DO_JVS(1366)) & -! JVS(1366) = Jac_FULL(197,285) - JVS(1366) = B(486) +! JVS(1366) = Jac_FULL(205,346) + JVS(1366) = -B(1117)-B(1119) IF (DO_JVS(1367)) & -! JVS(1367) = Jac_FULL(197,286) - JVS(1367) = -B(429)+0.5*B(1224)+0.5*B(1225) +! JVS(1367) = Jac_FULL(206,206) + JVS(1367) = -B(1127)-B(1129)-B(1131)-B(1133) IF (DO_JVS(1368)) & -! JVS(1368) = Jac_FULL(197,287) - JVS(1368) = 0.5*B(1226)+B(1244)+B(1248)+B(1264) +! JVS(1368) = Jac_FULL(206,268) + JVS(1368) = B(1103) IF (DO_JVS(1369)) & -! JVS(1369) = Jac_FULL(197,290) - JVS(1369) = 0.95*B(495)+B(505) +! JVS(1369) = Jac_FULL(206,337) + JVS(1369) = -B(1130) IF (DO_JVS(1370)) & -! JVS(1370) = Jac_FULL(198,113) - JVS(1370) = 0.791*B(231) +! JVS(1370) = Jac_FULL(206,345) + JVS(1370) = B(1104) IF (DO_JVS(1371)) & -! JVS(1371) = Jac_FULL(198,146) - JVS(1371) = B(977)+0.82*B(979) +! JVS(1371) = Jac_FULL(206,346) + JVS(1371) = -B(1132)-B(1134) IF (DO_JVS(1372)) & -! JVS(1372) = Jac_FULL(198,150) - JVS(1372) = 0.231*B(971)+0.231*B(973) +! JVS(1372) = Jac_FULL(207,207) + JVS(1372) = -B(1128)-B(1135)-B(1137)-B(1139) IF (DO_JVS(1373)) & -! JVS(1373) = Jac_FULL(198,166) - JVS(1373) = 0.551*B(886)+0.935*B(888) +! JVS(1373) = Jac_FULL(207,267) + JVS(1373) = B(1107) IF (DO_JVS(1374)) & -! JVS(1374) = Jac_FULL(198,175) - JVS(1374) = B(1001)+B(1484) +! JVS(1374) = Jac_FULL(207,337) + JVS(1374) = -B(1136) IF (DO_JVS(1375)) & -! JVS(1375) = Jac_FULL(198,189) - JVS(1375) = 0.471*B(957)+0.59*B(963) +! JVS(1375) = Jac_FULL(207,345) + JVS(1375) = B(1108) IF (DO_JVS(1376)) & -! JVS(1376) = Jac_FULL(198,198) - JVS(1376) = -B(590)-B(1474) +! JVS(1376) = Jac_FULL(207,346) + JVS(1376) = -B(1138)-B(1140) IF (DO_JVS(1377)) & -! JVS(1377) = Jac_FULL(198,201) - JVS(1377) = 0 +! JVS(1377) = Jac_FULL(208,131) + JVS(1377) = 0.6*B(1262) IF (DO_JVS(1378)) & -! JVS(1378) = Jac_FULL(198,220) - JVS(1378) = 0 +! JVS(1378) = Jac_FULL(208,147) + JVS(1378) = 0.318*B(1308)+0.391*B(1796) IF (DO_JVS(1379)) & -! JVS(1379) = Jac_FULL(198,222) - JVS(1379) = 0.589*B(955)+0.687*B(959) +! JVS(1379) = Jac_FULL(208,208) + JVS(1379) = -B(1266)-B(1765) IF (DO_JVS(1380)) & -! JVS(1380) = Jac_FULL(198,232) - JVS(1380) = 0.242*B(898)+0.546*B(900) +! JVS(1380) = Jac_FULL(208,243) + JVS(1380) = 0.13*B(1078)+0.2*B(1082) IF (DO_JVS(1381)) & -! JVS(1381) = Jac_FULL(198,240) - JVS(1381) = 0 +! JVS(1381) = Jac_FULL(208,254) + JVS(1381) = 0.255*B(1270) IF (DO_JVS(1382)) & -! JVS(1382) = Jac_FULL(198,242) +! JVS(1382) = Jac_FULL(208,258) JVS(1382) = 0 IF (DO_JVS(1383)) & -! JVS(1383) = Jac_FULL(198,243) +! JVS(1383) = Jac_FULL(208,285) JVS(1383) = 0 IF (DO_JVS(1384)) & -! JVS(1384) = Jac_FULL(198,246) +! JVS(1384) = Jac_FULL(208,286) JVS(1384) = 0 IF (DO_JVS(1385)) & -! JVS(1385) = Jac_FULL(198,249) - JVS(1385) = 0 +! JVS(1385) = Jac_FULL(208,288) + JVS(1385) = 0.53*B(1238) IF (DO_JVS(1386)) & -! JVS(1386) = Jac_FULL(198,251) - JVS(1386) = 0.68*B(991) +! JVS(1386) = Jac_FULL(208,337) + JVS(1386) = 0.13*B(1079)+0.255*B(1271) IF (DO_JVS(1387)) & -! JVS(1387) = Jac_FULL(198,266) - JVS(1387) = 0 +! JVS(1387) = Jac_FULL(208,345) + JVS(1387) = 0.53*B(1239)+0.6*B(1263)-B(1267)+0.318*B(1309) IF (DO_JVS(1388)) & -! JVS(1388) = Jac_FULL(198,279) - JVS(1388) = 0.935*B(889)+0.546*B(901)+0.687*B(960)+0.59*B(964)+0.231*B(972)+B(978) +! JVS(1388) = Jac_FULL(208,346) + JVS(1388) = 0.2*B(1083) IF (DO_JVS(1389)) & -! JVS(1389) = Jac_FULL(198,281) - JVS(1389) = 0.68*B(992) +! JVS(1389) = Jac_FULL(209,209) + JVS(1389) = -B(1027)-B(1777) IF (DO_JVS(1390)) & -! JVS(1390) = Jac_FULL(198,284) - JVS(1390) = 0.551*B(887)+0.242*B(899)+0.589*B(956)+0.471*B(958)+0.231*B(974)+0.82*B(980) +! JVS(1390) = Jac_FULL(209,305) + JVS(1390) = B(959) IF (DO_JVS(1391)) & -! JVS(1391) = Jac_FULL(198,286) - JVS(1391) = 0.791*B(232)-B(591)+B(1002) +! JVS(1391) = Jac_FULL(209,337) + JVS(1391) = B(960) IF (DO_JVS(1392)) & -! JVS(1392) = Jac_FULL(199,199) - JVS(1392) = -B(684)-B(686)-B(688)-B(1342)-B(1461) +! JVS(1392) = Jac_FULL(209,345) + JVS(1392) = -B(1028) IF (DO_JVS(1393)) & -! JVS(1393) = Jac_FULL(199,215) - JVS(1393) = 0.3*B(662)+0.3*B(666)+0.3*B(670)+0.3*B(674)+0.6*B(678)+0.45*B(679) +! JVS(1393) = Jac_FULL(210,209) + JVS(1393) = 0.018*B(1027) IF (DO_JVS(1394)) & -! JVS(1394) = Jac_FULL(199,216) - JVS(1394) = 0.3*B(664)+0.15*B(668)+0.45*B(680)+0.3*B(681) +! JVS(1394) = Jac_FULL(210,210) + JVS(1394) = -B(1326)-B(1328)-B(1762) IF (DO_JVS(1395)) & -! JVS(1395) = Jac_FULL(199,225) - JVS(1395) = 0.22*B(646) +! JVS(1395) = Jac_FULL(210,223) + JVS(1395) = 0.284*B(1032)+0.135*B(1036) IF (DO_JVS(1396)) & -! JVS(1396) = Jac_FULL(199,238) - JVS(1396) = 0.06*B(622) +! JVS(1396) = Jac_FULL(210,226) + JVS(1396) = 0.471*B(1200)+0.59*B(1206) IF (DO_JVS(1397)) & -! JVS(1397) = Jac_FULL(199,261) - JVS(1397) = 0.3*B(671) +! JVS(1397) = Jac_FULL(210,271) + JVS(1397) = 0.249*B(1198)+0.303*B(1202) IF (DO_JVS(1398)) & -! JVS(1398) = Jac_FULL(199,266) - JVS(1398) = 0.3*B(667)+0.15*B(669) +! JVS(1398) = Jac_FULL(210,276) + JVS(1398) = 0.3*B(953) IF (DO_JVS(1399)) & -! JVS(1399) = Jac_FULL(199,279) - JVS(1399) = 0.06*B(623)+0.22*B(647) +! JVS(1399) = Jac_FULL(210,303) + JVS(1399) = 0.5*B(1798) IF (DO_JVS(1400)) & -! JVS(1400) = Jac_FULL(199,281) - JVS(1400) = 0.3*B(675)-B(689) +! JVS(1400) = Jac_FULL(210,305) + JVS(1400) = 0.3*B(966) IF (DO_JVS(1401)) & -! JVS(1401) = Jac_FULL(199,282) - JVS(1401) = -B(687) +! JVS(1401) = Jac_FULL(210,337) + JVS(1401) = 0.135*B(1037)+0.249*B(1199)+0.471*B(1201) IF (DO_JVS(1402)) & -! JVS(1402) = Jac_FULL(199,284) - JVS(1402) = 0.3*B(663)+0.3*B(665) +! JVS(1402) = Jac_FULL(210,345) + JVS(1402) = 0.3*B(954)+0.018*B(1028)-B(1327)-B(1329) IF (DO_JVS(1403)) & -! JVS(1403) = Jac_FULL(199,286) - JVS(1403) = -B(685) +! JVS(1403) = Jac_FULL(210,346) + JVS(1403) = 0.284*B(1033)+0.303*B(1203)+0.59*B(1207) IF (DO_JVS(1404)) & -! JVS(1404) = Jac_FULL(200,145) - JVS(1404) = B(1013) +! JVS(1404) = Jac_FULL(211,211) + JVS(1404) = -B(818)-B(820)-B(822) IF (DO_JVS(1405)) & -! JVS(1405) = Jac_FULL(200,167) - JVS(1405) = 0.059*B(871)+0.272*B(873) +! JVS(1405) = Jac_FULL(211,281) + JVS(1405) = 0.25*B(802) IF (DO_JVS(1406)) & -! JVS(1406) = Jac_FULL(200,188) - JVS(1406) = 0 +! JVS(1406) = Jac_FULL(211,341) + JVS(1406) = -B(821) IF (DO_JVS(1407)) & -! JVS(1407) = Jac_FULL(200,200) - JVS(1407) = -B(999)-B(1357)-B(1483) +! JVS(1407) = Jac_FULL(211,345) + JVS(1407) = -B(819) IF (DO_JVS(1408)) & -! JVS(1408) = Jac_FULL(200,205) - JVS(1408) = B(1042) +! JVS(1408) = Jac_FULL(211,346) + JVS(1408) = 0.25*B(803) IF (DO_JVS(1409)) & -! JVS(1409) = Jac_FULL(200,224) - JVS(1409) = 0 +! JVS(1409) = Jac_FULL(211,351) + JVS(1409) = -B(823) IF (DO_JVS(1410)) & -! JVS(1410) = Jac_FULL(200,240) - JVS(1410) = 0 +! JVS(1410) = Jac_FULL(212,140) + JVS(1410) = B(142) IF (DO_JVS(1411)) & -! JVS(1411) = Jac_FULL(200,242) - JVS(1411) = 0.5*B(1507) +! JVS(1411) = Jac_FULL(212,212) + JVS(1411) = -B(148)-B(150) IF (DO_JVS(1412)) & -! JVS(1412) = Jac_FULL(200,244) - JVS(1412) = 0 +! JVS(1412) = Jac_FULL(212,337) + JVS(1412) = -B(151) IF (DO_JVS(1413)) & -! JVS(1413) = Jac_FULL(200,245) +! JVS(1413) = Jac_FULL(212,341) JVS(1413) = 0 IF (DO_JVS(1414)) & -! JVS(1414) = Jac_FULL(200,249) - JVS(1414) = 0.37*B(1048) +! JVS(1414) = Jac_FULL(212,345) + JVS(1414) = B(143) IF (DO_JVS(1415)) & -! JVS(1415) = Jac_FULL(200,279) - JVS(1415) = 0.272*B(874)+B(1043) +! JVS(1415) = Jac_FULL(212,346) + JVS(1415) = -B(149) IF (DO_JVS(1416)) & -! JVS(1416) = Jac_FULL(200,284) - JVS(1416) = 0.059*B(872)+0.37*B(1049) +! JVS(1416) = Jac_FULL(212,351) + JVS(1416) = 0 IF (DO_JVS(1417)) & -! JVS(1417) = Jac_FULL(200,286) - JVS(1417) = -B(1000) +! JVS(1417) = Jac_FULL(213,114) + JVS(1417) = B(299) IF (DO_JVS(1418)) & -! JVS(1418) = Jac_FULL(200,291) - JVS(1418) = B(1014) +! JVS(1418) = Jac_FULL(213,213) + JVS(1418) = -B(297)-B(300)-B(302)-B(304) IF (DO_JVS(1419)) & -! JVS(1419) = Jac_FULL(201,113) - JVS(1419) = 0.209*B(231) +! JVS(1419) = Jac_FULL(213,306) + JVS(1419) = 0.8*B(293)+B(295) IF (DO_JVS(1420)) & -! JVS(1420) = Jac_FULL(201,201) - JVS(1420) = -B(138)-B(171)-B(191)-B(264) +! JVS(1420) = Jac_FULL(213,335) + JVS(1420) = -B(298) IF (DO_JVS(1421)) & -! JVS(1421) = Jac_FULL(201,253) - JVS(1421) = B(217) +! JVS(1421) = Jac_FULL(213,337) + JVS(1421) = -B(303) IF (DO_JVS(1422)) & -! JVS(1422) = Jac_FULL(201,261) - JVS(1422) = -B(265) +! JVS(1422) = Jac_FULL(213,345) + JVS(1422) = 0.8*B(294) IF (DO_JVS(1423)) & -! JVS(1423) = Jac_FULL(201,266) - JVS(1423) = -B(192) +! JVS(1423) = Jac_FULL(213,346) + JVS(1423) = -B(301) IF (DO_JVS(1424)) & -! JVS(1424) = Jac_FULL(201,279) - JVS(1424) = -B(139) +! JVS(1424) = Jac_FULL(213,351) + JVS(1424) = B(296)-B(305) IF (DO_JVS(1425)) & -! JVS(1425) = Jac_FULL(201,281) - JVS(1425) = B(218) +! JVS(1425) = Jac_FULL(214,214) + JVS(1425) = -B(86)-B(1496)-B(1498)-B(1500)-B(1501)-B(1503)-B(1655) IF (DO_JVS(1426)) & -! JVS(1426) = Jac_FULL(201,284) - JVS(1426) = -B(172) +! JVS(1426) = Jac_FULL(214,335) + JVS(1426) = B(84) IF (DO_JVS(1427)) & -! JVS(1427) = Jac_FULL(201,286) - JVS(1427) = 0.209*B(232) +! JVS(1427) = Jac_FULL(214,336) + JVS(1427) = -B(1497) IF (DO_JVS(1428)) & -! JVS(1428) = Jac_FULL(202,202) - JVS(1428) = -B(142)-B(1340)-B(1398) +! JVS(1428) = Jac_FULL(214,339) + JVS(1428) = -B(1499) IF (DO_JVS(1429)) & -! JVS(1429) = Jac_FULL(202,254) - JVS(1429) = 0.072*B(132) +! JVS(1429) = Jac_FULL(214,344) + JVS(1429) = -B(1504) IF (DO_JVS(1430)) & -! JVS(1430) = Jac_FULL(202,256) - JVS(1430) = B(126) +! JVS(1430) = Jac_FULL(214,351) + JVS(1430) = B(85) IF (DO_JVS(1431)) & -! JVS(1431) = Jac_FULL(202,257) - JVS(1431) = B(163) +! JVS(1431) = Jac_FULL(214,353) + JVS(1431) = -B(1502) IF (DO_JVS(1432)) & -! JVS(1432) = Jac_FULL(202,279) - JVS(1432) = B(127)+0.072*B(133) +! JVS(1432) = Jac_FULL(215,128) + JVS(1432) = 0.75*B(1052) IF (DO_JVS(1433)) & -! JVS(1433) = Jac_FULL(202,284) - JVS(1433) = B(164) +! JVS(1433) = Jac_FULL(215,144) + JVS(1433) = 0.77*B(1007) IF (DO_JVS(1434)) & -! JVS(1434) = Jac_FULL(202,286) - JVS(1434) = -B(143) +! JVS(1434) = Jac_FULL(215,150) + JVS(1434) = 0.58*B(1005) IF (DO_JVS(1435)) & -! JVS(1435) = Jac_FULL(203,203) - JVS(1435) = -B(549)-2*B(550)-B(1303)-B(1304)-B(1309)-B(1311)-B(1313)-B(1315)-B(1440) +! JVS(1435) = Jac_FULL(215,151) + JVS(1435) = B(1054) IF (DO_JVS(1436)) & -! JVS(1436) = Jac_FULL(203,269) - JVS(1436) = B(547) +! JVS(1436) = Jac_FULL(215,152) + JVS(1436) = B(1058) IF (DO_JVS(1437)) & -! JVS(1437) = Jac_FULL(203,277) - JVS(1437) = -B(1312) +! JVS(1437) = Jac_FULL(215,168) + JVS(1437) = 0 IF (DO_JVS(1438)) & -! JVS(1438) = Jac_FULL(203,280) - JVS(1438) = -B(1314) +! JVS(1438) = Jac_FULL(215,175) + JVS(1438) = 0 IF (DO_JVS(1439)) & -! JVS(1439) = Jac_FULL(203,283) - JVS(1439) = -B(1310) +! JVS(1439) = Jac_FULL(215,186) + JVS(1439) = B(1188) IF (DO_JVS(1440)) & -! JVS(1440) = Jac_FULL(203,287) - JVS(1440) = -B(1316) +! JVS(1440) = Jac_FULL(215,187) + JVS(1440) = 0 IF (DO_JVS(1441)) & -! JVS(1441) = Jac_FULL(203,291) - JVS(1441) = B(548) +! JVS(1441) = Jac_FULL(215,192) + JVS(1441) = 0 IF (DO_JVS(1442)) & -! JVS(1442) = Jac_FULL(204,144) - JVS(1442) = B(1003)+B(1005) +! JVS(1442) = Jac_FULL(215,199) + JVS(1442) = 0 IF (DO_JVS(1443)) & -! JVS(1443) = Jac_FULL(204,186) +! JVS(1443) = Jac_FULL(215,209) JVS(1443) = 0 IF (DO_JVS(1444)) & -! JVS(1444) = Jac_FULL(204,204) - JVS(1444) = -B(1027)-B(1029)-B(1031) +! JVS(1444) = Jac_FULL(215,215) + JVS(1444) = -B(1011)-B(1632) IF (DO_JVS(1445)) & -! JVS(1445) = Jac_FULL(204,224) - JVS(1445) = 0 +! JVS(1445) = Jac_FULL(215,230) + JVS(1445) = 0.085*B(1001) IF (DO_JVS(1446)) & -! JVS(1446) = Jac_FULL(204,240) - JVS(1446) = 0 +! JVS(1446) = Jac_FULL(215,231) + JVS(1446) = 0.165*B(1003) IF (DO_JVS(1447)) & -! JVS(1447) = Jac_FULL(204,245) +! JVS(1447) = Jac_FULL(215,267) JVS(1447) = 0 IF (DO_JVS(1448)) & -! JVS(1448) = Jac_FULL(204,248) - JVS(1448) = B(981) +! JVS(1448) = Jac_FULL(215,268) + JVS(1448) = 0 IF (DO_JVS(1449)) & -! JVS(1449) = Jac_FULL(204,279) - JVS(1449) = B(1004)-B(1030)-B(1032) +! JVS(1449) = Jac_FULL(215,276) + JVS(1449) = 0 IF (DO_JVS(1450)) & -! JVS(1450) = Jac_FULL(204,284) - JVS(1450) = B(1006)-B(1028) +! JVS(1450) = Jac_FULL(215,301) + JVS(1450) = B(1210) IF (DO_JVS(1451)) & -! JVS(1451) = Jac_FULL(204,286) - JVS(1451) = B(982) +! JVS(1451) = Jac_FULL(215,304) + JVS(1451) = 0 IF (DO_JVS(1452)) & -! JVS(1452) = Jac_FULL(204,291) +! JVS(1452) = Jac_FULL(215,305) JVS(1452) = 0 IF (DO_JVS(1453)) & -! JVS(1453) = Jac_FULL(205,145) - JVS(1453) = B(1009)+B(1011) +! JVS(1453) = Jac_FULL(215,311) + JVS(1453) = 0 IF (DO_JVS(1454)) & -! JVS(1454) = Jac_FULL(205,188) +! JVS(1454) = Jac_FULL(215,337) JVS(1454) = 0 IF (DO_JVS(1455)) & -! JVS(1455) = Jac_FULL(205,205) - JVS(1455) = -B(1033)-B(1039)-B(1040)-B(1042) +! 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) IF (DO_JVS(1456)) & -! JVS(1456) = Jac_FULL(205,224) +! JVS(1456) = Jac_FULL(215,346) JVS(1456) = 0 IF (DO_JVS(1457)) & -! JVS(1457) = Jac_FULL(205,240) - JVS(1457) = 0 +! JVS(1457) = Jac_FULL(216,206) + JVS(1457) = 0.031*B(1129)+0.065*B(1131) IF (DO_JVS(1458)) & -! JVS(1458) = Jac_FULL(205,244) - JVS(1458) = 0 +! JVS(1458) = Jac_FULL(216,216) + JVS(1458) = -B(1244)-B(1638)-B(1774) IF (DO_JVS(1459)) & -! JVS(1459) = Jac_FULL(205,251) - JVS(1459) = 0.964*B(985) +! JVS(1459) = Jac_FULL(216,226) + JVS(1459) = 0.073*B(1200)+0.291*B(1206) IF (DO_JVS(1460)) & -! JVS(1460) = Jac_FULL(205,279) - JVS(1460) = B(1010)-B(1041)-B(1043) +! JVS(1460) = Jac_FULL(216,268) + JVS(1460) = 0.6*B(1109) IF (DO_JVS(1461)) & -! JVS(1461) = Jac_FULL(205,284) - JVS(1461) = B(1012)-B(1034) +! JVS(1461) = Jac_FULL(216,271) + JVS(1461) = 0.06*B(1198)+0.17*B(1202) IF (DO_JVS(1462)) & -! JVS(1462) = Jac_FULL(205,286) - JVS(1462) = 0.964*B(986) +! JVS(1462) = Jac_FULL(216,293) + JVS(1462) = 0.094*B(1141)+0.355*B(1143) IF (DO_JVS(1463)) & -! JVS(1463) = Jac_FULL(205,291) - JVS(1463) = 0 +! JVS(1463) = Jac_FULL(216,301) + JVS(1463) = 0.378*B(1212) IF (DO_JVS(1464)) & -! JVS(1464) = Jac_FULL(206,141) - JVS(1464) = 0.333*B(1067)+0.75*B(1504) +! JVS(1464) = Jac_FULL(216,308) + JVS(1464) = 0.13*B(1291)+0.3*B(1299) IF (DO_JVS(1465)) & -! JVS(1465) = Jac_FULL(206,182) - JVS(1465) = 0.176*B(788) +! JVS(1465) = Jac_FULL(216,328) + JVS(1465) = 0.3*B(1300) IF (DO_JVS(1466)) & -! JVS(1466) = Jac_FULL(206,183) - JVS(1466) = 0.548*B(795) +! 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) IF (DO_JVS(1467)) & -! JVS(1467) = Jac_FULL(206,187) - JVS(1467) = 0 +! JVS(1467) = Jac_FULL(216,345) + JVS(1467) = 0.6*B(1110)+0.378*B(1213)-B(1245) IF (DO_JVS(1468)) & -! JVS(1468) = Jac_FULL(206,194) - JVS(1468) = 0.35*B(835) +! JVS(1468) = Jac_FULL(216,346) + JVS(1468) = 0.065*B(1132)+0.355*B(1144)+0.17*B(1203)+0.291*B(1207) IF (DO_JVS(1469)) & -! JVS(1469) = Jac_FULL(206,206) - JVS(1469) = -B(1063)-B(1502)-B(1503) +! JVS(1469) = Jac_FULL(217,181) + JVS(1469) = 0.09*B(495) IF (DO_JVS(1470)) & -! JVS(1470) = Jac_FULL(206,214) - JVS(1470) = 0 +! JVS(1470) = Jac_FULL(217,217) + JVS(1470) = -B(471)-B(473)-B(475) IF (DO_JVS(1471)) & -! JVS(1471) = Jac_FULL(206,220) - JVS(1471) = 0 +! JVS(1471) = Jac_FULL(217,228) + JVS(1471) = 0.2*B(443) IF (DO_JVS(1472)) & -! JVS(1472) = Jac_FULL(206,228) - JVS(1472) = 0.35*B(821) +! JVS(1472) = Jac_FULL(217,325) + JVS(1472) = B(1647) IF (DO_JVS(1473)) & -! JVS(1473) = Jac_FULL(206,229) - JVS(1473) = 0.35*B(833) +! 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) IF (DO_JVS(1474)) & -! JVS(1474) = Jac_FULL(206,244) - JVS(1474) = 0 +! JVS(1474) = Jac_FULL(217,337) + JVS(1474) = -B(476) IF (DO_JVS(1475)) & -! JVS(1475) = Jac_FULL(206,245) - JVS(1475) = 0 +! JVS(1475) = Jac_FULL(217,339) + JVS(1475) = 0.22*B(488) IF (DO_JVS(1476)) & -! JVS(1476) = Jac_FULL(206,279) - JVS(1476) = 0 +! JVS(1476) = Jac_FULL(217,340) + JVS(1476) = B(569) IF (DO_JVS(1477)) & -! JVS(1477) = Jac_FULL(206,284) - JVS(1477) = 0.35*B(822)+0.35*B(834)+0.35*B(836) +! JVS(1477) = Jac_FULL(217,341) + JVS(1477) = -B(474) IF (DO_JVS(1478)) & -! JVS(1478) = Jac_FULL(206,286) - JVS(1478) = -B(1064)+0.333*B(1068) +! JVS(1478) = Jac_FULL(217,343) + JVS(1478) = B(451) IF (DO_JVS(1479)) & -! JVS(1479) = Jac_FULL(207,136) - JVS(1479) = 0.165*B(1037) +! JVS(1479) = Jac_FULL(217,345) + JVS(1479) = B(449)+B(452) IF (DO_JVS(1480)) & -! JVS(1480) = Jac_FULL(207,153) - JVS(1480) = B(1058) +! JVS(1480) = Jac_FULL(217,352) + JVS(1480) = 0.2*B(490) IF (DO_JVS(1481)) & -! JVS(1481) = Jac_FULL(207,207) - JVS(1481) = -B(1035)-B(1044)-B(1046) +! JVS(1481) = Jac_FULL(218,218) + JVS(1481) = -B(401)-B(1509)-B(1511)-B(1693)-B(1694) IF (DO_JVS(1482)) & -! JVS(1482) = Jac_FULL(207,249) - JVS(1482) = 0 +! JVS(1482) = Jac_FULL(218,335) + JVS(1482) = B(425) IF (DO_JVS(1483)) & -! JVS(1483) = Jac_FULL(207,251) - JVS(1483) = B(987)+0.32*B(991) +! JVS(1483) = Jac_FULL(218,336) + JVS(1483) = -B(1510) IF (DO_JVS(1484)) & -! JVS(1484) = Jac_FULL(207,279) - JVS(1484) = -B(1045) +! JVS(1484) = Jac_FULL(218,339) + JVS(1484) = -B(1512) IF (DO_JVS(1485)) & -! JVS(1485) = Jac_FULL(207,281) - JVS(1485) = 0.32*B(992) +! JVS(1485) = Jac_FULL(218,342) + JVS(1485) = -B(402) IF (DO_JVS(1486)) & -! JVS(1486) = Jac_FULL(207,284) - JVS(1486) = -B(1036) +! JVS(1486) = Jac_FULL(218,347) + JVS(1486) = B(426) IF (DO_JVS(1487)) & -! JVS(1487) = Jac_FULL(207,286) - JVS(1487) = B(988)+0.165*B(1038) +! JVS(1487) = Jac_FULL(219,219) + JVS(1487) = -B(719)-B(727)-B(729) IF (DO_JVS(1488)) & -! JVS(1488) = Jac_FULL(207,291) - JVS(1488) = -B(1047) +! JVS(1488) = Jac_FULL(219,341) + JVS(1488) = -B(730) IF (DO_JVS(1489)) & -! JVS(1489) = Jac_FULL(208,146) - JVS(1489) = 0.89*B(977)+0.73*B(979) +! JVS(1489) = Jac_FULL(219,345) + JVS(1489) = -B(728) IF (DO_JVS(1490)) & -! JVS(1490) = Jac_FULL(208,150) - JVS(1490) = 0.099*B(971)+0.099*B(973) +! JVS(1490) = Jac_FULL(219,351) + JVS(1490) = -B(720) IF (DO_JVS(1491)) & -! JVS(1491) = Jac_FULL(208,168) - JVS(1491) = 0.441*B(892)+0.858*B(894) +! JVS(1491) = Jac_FULL(220,220) + JVS(1491) = -B(1338)-B(1340)-B(1342) IF (DO_JVS(1492)) & -! JVS(1492) = Jac_FULL(208,189) - JVS(1492) = 0.054*B(957)+0.07*B(963) +! JVS(1492) = Jac_FULL(220,341) + JVS(1492) = -B(1343) IF (DO_JVS(1493)) & -! JVS(1493) = Jac_FULL(208,208) - JVS(1493) = -B(588)-B(1075)-B(1459) +! JVS(1493) = Jac_FULL(220,345) + JVS(1493) = -B(1339) IF (DO_JVS(1494)) & -! JVS(1494) = Jac_FULL(208,214) - JVS(1494) = 0 +! JVS(1494) = Jac_FULL(220,351) + JVS(1494) = -B(1341) IF (DO_JVS(1495)) & -! JVS(1495) = Jac_FULL(208,222) - JVS(1495) = 0.051*B(955)+0.064*B(959) +! JVS(1495) = Jac_FULL(221,82) + JVS(1495) = 0.68*B(1383) IF (DO_JVS(1496)) & -! JVS(1496) = Jac_FULL(208,232) - JVS(1496) = 0.033*B(898)+0.071*B(900) +! JVS(1496) = Jac_FULL(221,101) + JVS(1496) = 0.28*B(1385) IF (DO_JVS(1497)) & -! JVS(1497) = Jac_FULL(208,240) - JVS(1497) = 0 +! JVS(1497) = Jac_FULL(221,143) + JVS(1497) = 0.55*B(1381) IF (DO_JVS(1498)) & -! JVS(1498) = Jac_FULL(208,241) - JVS(1498) = 0.3*B(1482) +! JVS(1498) = Jac_FULL(221,149) + JVS(1498) = 0.8*B(1344) IF (DO_JVS(1499)) & -! JVS(1499) = Jac_FULL(208,242) - JVS(1499) = 0.15*B(1507) +! JVS(1499) = Jac_FULL(221,195) + JVS(1499) = 0.18*B(1414) IF (DO_JVS(1500)) & -! JVS(1500) = Jac_FULL(208,243) - JVS(1500) = 0 +! JVS(1500) = Jac_FULL(221,200) + JVS(1500) = 0.375*B(1348) IF (DO_JVS(1501)) & -! JVS(1501) = Jac_FULL(208,246) - JVS(1501) = 0 +! JVS(1501) = Jac_FULL(221,202) + JVS(1501) = 1.05*B(1422)+B(1424)+0.3*B(1426) IF (DO_JVS(1502)) & -! JVS(1502) = Jac_FULL(208,279) - JVS(1502) = 0.858*B(895)+0.071*B(901)+0.064*B(960)+0.07*B(964)+0.099*B(972)+0.89*B(978) +! JVS(1502) = Jac_FULL(221,220) + JVS(1502) = 0 IF (DO_JVS(1503)) & -! JVS(1503) = Jac_FULL(208,281) - JVS(1503) = -B(1076) +! JVS(1503) = Jac_FULL(221,221) + JVS(1503) = -B(1465)-B(1467)-B(1469) IF (DO_JVS(1504)) & -! JVS(1504) = Jac_FULL(208,284) - JVS(1504) = 0.441*B(893)+0.033*B(899)+0.051*B(956)+0.054*B(958)+0.099*B(974)+0.73*B(980) +! JVS(1504) = Jac_FULL(221,269) + JVS(1504) = 0.9*B(1457)+0.9*B(1459)+B(1805) IF (DO_JVS(1505)) & -! JVS(1505) = Jac_FULL(208,286) - JVS(1505) = -B(589) +! JVS(1505) = Jac_FULL(221,341) + JVS(1505) = B(1425)-B(1468) IF (DO_JVS(1506)) & -! JVS(1506) = Jac_FULL(209,112) - JVS(1506) = 0.209*B(243) +! 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) IF (DO_JVS(1507)) & -! JVS(1507) = Jac_FULL(209,209) - JVS(1507) = -B(120)-B(159)-B(205)-B(270) +! JVS(1507) = Jac_FULL(221,351) + JVS(1507) = 0.3*B(1427)+0.9*B(1460) IF (DO_JVS(1508)) & -! JVS(1508) = Jac_FULL(209,253) - JVS(1508) = B(209)+B(540)+B(542) +! JVS(1508) = Jac_FULL(222,222) + JVS(1508) = -B(1180)-B(1184)-B(1190)-B(1634)-B(1787) IF (DO_JVS(1509)) & -! JVS(1509) = Jac_FULL(209,261) - JVS(1509) = -B(271) +! JVS(1509) = Jac_FULL(222,310) + JVS(1509) = 0.473*B(1149)+0.07*B(1153)+0.399*B(1154)+0.355*B(1159) IF (DO_JVS(1510)) & -! JVS(1510) = Jac_FULL(209,266) - JVS(1510) = -B(160) +! JVS(1510) = Jac_FULL(222,311) + JVS(1510) = 0.399*B(1155) IF (DO_JVS(1511)) & -! JVS(1511) = Jac_FULL(209,273) - JVS(1511) = B(543) +! JVS(1511) = Jac_FULL(222,328) + JVS(1511) = 0.355*B(1160) IF (DO_JVS(1512)) & -! JVS(1512) = Jac_FULL(209,279) - JVS(1512) = -B(121) +! JVS(1512) = Jac_FULL(222,337) + JVS(1512) = 0.473*B(1150) IF (DO_JVS(1513)) & -! JVS(1513) = Jac_FULL(209,284) - JVS(1513) = -B(206) +! JVS(1513) = Jac_FULL(222,345) + JVS(1513) = -B(1181)-B(1185)-B(1191) IF (DO_JVS(1514)) & -! JVS(1514) = Jac_FULL(209,286) - JVS(1514) = B(210)+0.209*B(244) +! JVS(1514) = Jac_FULL(223,187) + JVS(1514) = 0.345*B(1015) IF (DO_JVS(1515)) & -! JVS(1515) = Jac_FULL(209,290) - JVS(1515) = B(541) +! JVS(1515) = Jac_FULL(223,209) + JVS(1515) = 0.595*B(1027) IF (DO_JVS(1516)) & -! JVS(1516) = Jac_FULL(210,115) - JVS(1516) = 0.5*B(1138) +! JVS(1516) = Jac_FULL(223,223) + JVS(1516) = -B(1031)-B(1032)-B(1034)-B(1036) IF (DO_JVS(1517)) & -! JVS(1517) = Jac_FULL(210,118) - JVS(1517) = 0.258*B(1134) +! JVS(1517) = Jac_FULL(223,305) + JVS(1517) = 0 IF (DO_JVS(1518)) & -! JVS(1518) = Jac_FULL(210,142) - JVS(1518) = 0.5*B(1144) +! JVS(1518) = Jac_FULL(223,337) + JVS(1518) = -B(1037) IF (DO_JVS(1519)) & -! JVS(1519) = Jac_FULL(210,160) - JVS(1519) = B(1173) +! JVS(1519) = Jac_FULL(223,345) + JVS(1519) = 0.345*B(1016)+0.595*B(1028) IF (DO_JVS(1520)) & -! JVS(1520) = Jac_FULL(210,180) - JVS(1520) = 0 +! JVS(1520) = Jac_FULL(223,346) + JVS(1520) = -B(1033)-B(1035) IF (DO_JVS(1521)) & -! JVS(1521) = Jac_FULL(210,191) - JVS(1521) = 0 +! JVS(1521) = Jac_FULL(224,192) + JVS(1521) = 0.345*B(1019) IF (DO_JVS(1522)) & -! JVS(1522) = Jac_FULL(210,210) - JVS(1522) = -B(1175)-B(1177)-B(1358)-B(1515) +! JVS(1522) = Jac_FULL(224,199) + JVS(1522) = 0.255*B(1029) IF (DO_JVS(1523)) & -! JVS(1523) = Jac_FULL(210,266) - JVS(1523) = 0 +! JVS(1523) = Jac_FULL(224,224) + JVS(1523) = -B(1038)-B(1039)-B(1041)-B(1043) IF (DO_JVS(1524)) & -! JVS(1524) = Jac_FULL(210,279) +! JVS(1524) = Jac_FULL(224,304) JVS(1524) = 0 IF (DO_JVS(1525)) & -! JVS(1525) = Jac_FULL(210,281) - JVS(1525) = 0.258*B(1135)+0.5*B(1139)+0.5*B(1145)-B(1178) +! JVS(1525) = Jac_FULL(224,337) + JVS(1525) = -B(1044) IF (DO_JVS(1526)) & -! JVS(1526) = Jac_FULL(210,282) - JVS(1526) = 0 +! JVS(1526) = Jac_FULL(224,345) + JVS(1526) = 0.345*B(1020)+0.255*B(1030) IF (DO_JVS(1527)) & -! JVS(1527) = Jac_FULL(210,284) - JVS(1527) = 0 +! JVS(1527) = Jac_FULL(224,346) + JVS(1527) = -B(1040)-B(1042) IF (DO_JVS(1528)) & -! JVS(1528) = Jac_FULL(210,286) - JVS(1528) = -B(1176) +! JVS(1528) = Jac_FULL(225,111) + JVS(1528) = B(1807) IF (DO_JVS(1529)) & -! JVS(1529) = Jac_FULL(210,291) - JVS(1529) = B(1174) +! JVS(1529) = Jac_FULL(225,137) + JVS(1529) = 0.5*B(743) IF (DO_JVS(1530)) & -! JVS(1530) = Jac_FULL(211,58) - JVS(1530) = 0.364*B(1097) +! JVS(1530) = Jac_FULL(225,191) + JVS(1530) = 0.2*B(733) IF (DO_JVS(1531)) & -! JVS(1531) = Jac_FULL(211,85) - JVS(1531) = 0.5*B(1079) +! JVS(1531) = Jac_FULL(225,225) + JVS(1531) = -B(745)-B(747)-B(1808) IF (DO_JVS(1532)) & -! JVS(1532) = Jac_FULL(211,105) - JVS(1532) = 0.3*B(1061) +! JVS(1532) = Jac_FULL(225,277) + JVS(1532) = 0.75*B(737)+B(739)+B(877)+B(879) IF (DO_JVS(1533)) & -! JVS(1533) = Jac_FULL(211,136) - JVS(1533) = 0 +! JVS(1533) = Jac_FULL(225,324) + JVS(1533) = B(880) IF (DO_JVS(1534)) & -! JVS(1534) = Jac_FULL(211,148) - JVS(1534) = 0.1*B(1188)+0.2*B(1190) +! JVS(1534) = Jac_FULL(225,328) + JVS(1534) = B(878) IF (DO_JVS(1535)) & -! JVS(1535) = Jac_FULL(211,153) +! JVS(1535) = Jac_FULL(225,337) JVS(1535) = 0 IF (DO_JVS(1536)) & -! JVS(1536) = Jac_FULL(211,159) - JVS(1536) = 0.26*B(1183)+0.5*B(1185) +! JVS(1536) = Jac_FULL(225,341) + JVS(1536) = 0.2*B(734) IF (DO_JVS(1537)) & -! JVS(1537) = Jac_FULL(211,163) - JVS(1537) = 0.187*B(1015) +! JVS(1537) = Jac_FULL(225,345) + JVS(1537) = 0.5*B(744)-B(748) IF (DO_JVS(1538)) & -! JVS(1538) = Jac_FULL(211,170) - JVS(1538) = 0.01*B(642) +! JVS(1538) = Jac_FULL(225,346) + JVS(1538) = 0.75*B(738) IF (DO_JVS(1539)) & -! JVS(1539) = Jac_FULL(211,186) - JVS(1539) = 0 +! JVS(1539) = Jac_FULL(225,351) + JVS(1539) = B(740)-B(746) IF (DO_JVS(1540)) & -! JVS(1540) = Jac_FULL(211,188) - JVS(1540) = 0 +! JVS(1540) = Jac_FULL(226,186) + JVS(1540) = B(1182) IF (DO_JVS(1541)) & -! JVS(1541) = Jac_FULL(211,207) - JVS(1541) = 0 +! JVS(1541) = Jac_FULL(226,226) + JVS(1541) = -B(1196)-B(1200)-B(1206)-B(1208) IF (DO_JVS(1542)) & -! JVS(1542) = Jac_FULL(211,210) +! JVS(1542) = Jac_FULL(226,311) JVS(1542) = 0 IF (DO_JVS(1543)) & -! JVS(1543) = Jac_FULL(211,211) - JVS(1543) = -B(87)-B(512) +! JVS(1543) = Jac_FULL(226,337) + JVS(1543) = -B(1201) IF (DO_JVS(1544)) & -! JVS(1544) = Jac_FULL(211,224) - JVS(1544) = 0 +! JVS(1544) = Jac_FULL(226,345) + JVS(1544) = B(1183) IF (DO_JVS(1545)) & -! JVS(1545) = Jac_FULL(211,234) - JVS(1545) = 0.21*B(598)+0.54*B(600) +! JVS(1545) = Jac_FULL(226,346) + JVS(1545) = -B(1207)-B(1209) IF (DO_JVS(1546)) & -! JVS(1546) = Jac_FULL(211,236) - JVS(1546) = 0.134*B(213)+B(215) +! JVS(1546) = Jac_FULL(227,131) + JVS(1546) = 0.4*B(1262) IF (DO_JVS(1547)) & -! JVS(1547) = Jac_FULL(211,238) - JVS(1547) = 0.07*B(622) +! JVS(1547) = Jac_FULL(227,147) + JVS(1547) = 0.126*B(1308)+0.155*B(1796) IF (DO_JVS(1548)) & -! JVS(1548) = Jac_FULL(211,240) - JVS(1548) = 0 +! JVS(1548) = Jac_FULL(227,153) + JVS(1548) = 0.16*B(1268) IF (DO_JVS(1549)) & -! JVS(1549) = Jac_FULL(211,241) - JVS(1549) = 0.449*B(993) +! JVS(1549) = Jac_FULL(227,194) + JVS(1549) = 0.063*B(1258) IF (DO_JVS(1550)) & -! JVS(1550) = Jac_FULL(211,242) - JVS(1550) = 0 +! JVS(1550) = Jac_FULL(227,227) + JVS(1550) = -B(1264)-B(1766) IF (DO_JVS(1551)) & -! JVS(1551) = Jac_FULL(211,244) +! JVS(1551) = Jac_FULL(227,230) JVS(1551) = 0 IF (DO_JVS(1552)) & -! JVS(1552) = Jac_FULL(211,245) +! JVS(1552) = Jac_FULL(227,231) JVS(1552) = 0 IF (DO_JVS(1553)) & -! JVS(1553) = Jac_FULL(211,249) - JVS(1553) = 0 +! JVS(1553) = Jac_FULL(227,258) + JVS(1553) = 0.133*B(1793) IF (DO_JVS(1554)) & -! JVS(1554) = Jac_FULL(211,250) - JVS(1554) = 0.5*B(229) +! JVS(1554) = Jac_FULL(227,285) + JVS(1554) = 0 IF (DO_JVS(1555)) & -! JVS(1555) = Jac_FULL(211,251) +! JVS(1555) = Jac_FULL(227,286) JVS(1555) = 0 IF (DO_JVS(1556)) & -! JVS(1556) = Jac_FULL(211,266) - JVS(1556) = 0 +! JVS(1556) = Jac_FULL(227,288) + JVS(1556) = 0.47*B(1238) IF (DO_JVS(1557)) & -! JVS(1557) = Jac_FULL(211,278) - JVS(1557) = 0.21*B(599)+0.54*B(601) +! JVS(1557) = Jac_FULL(227,301) + JVS(1557) = 0 IF (DO_JVS(1558)) & -! JVS(1558) = Jac_FULL(211,279) - JVS(1558) = 0.07*B(623) +! JVS(1558) = Jac_FULL(227,302) + JVS(1558) = 0.29*B(1236) IF (DO_JVS(1559)) & -! JVS(1559) = Jac_FULL(211,281) +! JVS(1559) = Jac_FULL(227,303) JVS(1559) = 0 IF (DO_JVS(1560)) & -! JVS(1560) = Jac_FULL(211,282) - JVS(1560) = 0.01*B(643)+0.5*B(1186)+0.2*B(1191) +! JVS(1560) = Jac_FULL(227,337) + JVS(1560) = 0 IF (DO_JVS(1561)) & -! JVS(1561) = Jac_FULL(211,284) - JVS(1561) = 0 +! 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) IF (DO_JVS(1562)) & -! JVS(1562) = Jac_FULL(211,286) - JVS(1562) = -B(88)+0.134*B(214)+B(216)+0.5*B(230)+0.449*B(994)+0.187*B(1016)+0.3*B(1062)+0.5*B(1080)+0.364*B(1098)& - &+0.26*B(1184)+0.1*B(1189) +! JVS(1562) = Jac_FULL(227,346) + JVS(1562) = 0 IF (DO_JVS(1563)) & -! JVS(1563) = Jac_FULL(211,290) - JVS(1563) = -B(513) +! JVS(1563) = Jac_FULL(228,228) + JVS(1563) = -B(47)-B(443)-B(563) IF (DO_JVS(1564)) & -! JVS(1564) = Jac_FULL(211,291) - JVS(1564) = 0 +! JVS(1564) = Jac_FULL(228,290) + JVS(1564) = 0.1*B(287) IF (DO_JVS(1565)) & -! JVS(1565) = Jac_FULL(212,154) - JVS(1565) = 0.02*B(632) +! JVS(1565) = Jac_FULL(228,326) + JVS(1565) = B(1657) IF (DO_JVS(1566)) & -! JVS(1566) = Jac_FULL(212,155) - JVS(1566) = 0.02*B(634) +! JVS(1566) = Jac_FULL(228,334) + JVS(1566) = -B(444) IF (DO_JVS(1567)) & -! JVS(1567) = Jac_FULL(212,170) - JVS(1567) = 0.02*B(642) +! JVS(1567) = Jac_FULL(228,340) + JVS(1567) = -B(564) IF (DO_JVS(1568)) & -! JVS(1568) = Jac_FULL(212,195) - JVS(1568) = B(614) +! JVS(1568) = Jac_FULL(228,341) + JVS(1568) = 0.1*B(288) IF (DO_JVS(1569)) & -! JVS(1569) = Jac_FULL(212,212) - JVS(1569) = -B(15)-B(40)-B(370)-B(472)-B(1363) +! JVS(1569) = Jac_FULL(228,345) + JVS(1569) = -B(48) IF (DO_JVS(1570)) & -! JVS(1570) = Jac_FULL(212,224) - JVS(1570) = 0.013*B(704) +! JVS(1570) = Jac_FULL(229,229) + JVS(1570) = -B(859)-B(861)-B(863)-B(1748)-B(1816) IF (DO_JVS(1571)) & -! JVS(1571) = Jac_FULL(212,234) - JVS(1571) = 0.06*B(598)+0.06*B(600) +! JVS(1571) = Jac_FULL(229,291) + JVS(1571) = B(851) IF (DO_JVS(1572)) & -! JVS(1572) = Jac_FULL(212,248) - JVS(1572) = 0.045*B(983) +! JVS(1572) = Jac_FULL(229,337) + JVS(1572) = B(852) IF (DO_JVS(1573)) & -! JVS(1573) = Jac_FULL(212,253) - JVS(1573) = 0 +! JVS(1573) = Jac_FULL(229,341) + JVS(1573) = -B(862) IF (DO_JVS(1574)) & -! JVS(1574) = Jac_FULL(212,267) - JVS(1574) = 0 +! JVS(1574) = Jac_FULL(229,345) + JVS(1574) = -B(860) IF (DO_JVS(1575)) & -! JVS(1575) = Jac_FULL(212,276) - JVS(1575) = -B(16) +! JVS(1575) = Jac_FULL(229,351) + JVS(1575) = -B(864) IF (DO_JVS(1576)) & -! JVS(1576) = Jac_FULL(212,278) - JVS(1576) = 0.06*B(599)+0.06*B(601)+B(615) +! JVS(1576) = Jac_FULL(230,209) + JVS(1576) = 0.015*B(1027) IF (DO_JVS(1577)) & -! JVS(1577) = Jac_FULL(212,279) - JVS(1577) = 0 +! JVS(1577) = Jac_FULL(230,230) + JVS(1577) = -B(1001)-B(1779) IF (DO_JVS(1578)) & -! JVS(1578) = Jac_FULL(212,281) - JVS(1578) = 0 +! JVS(1578) = Jac_FULL(230,276) + JVS(1578) = 0.25*B(953) IF (DO_JVS(1579)) & -! JVS(1579) = Jac_FULL(212,282) - JVS(1579) = 0.02*B(633)+0.02*B(635)+0.02*B(643)+0.013*B(705)+0.045*B(984) +! JVS(1579) = Jac_FULL(230,305) + JVS(1579) = 0.25*B(966) IF (DO_JVS(1580)) & -! JVS(1580) = Jac_FULL(212,284) - JVS(1580) = B(44) +! JVS(1580) = Jac_FULL(230,337) + JVS(1580) = 0 IF (DO_JVS(1581)) & -! JVS(1581) = Jac_FULL(212,286) - JVS(1581) = B(37)-B(41) +! JVS(1581) = Jac_FULL(230,345) + JVS(1581) = 0.25*B(954)-B(1002)+0.015*B(1028) IF (DO_JVS(1582)) & -! JVS(1582) = Jac_FULL(212,288) - JVS(1582) = -B(371) +! JVS(1582) = Jac_FULL(231,199) + JVS(1582) = 0.015*B(1029) IF (DO_JVS(1583)) & -! JVS(1583) = Jac_FULL(212,290) - JVS(1583) = -B(473) +! JVS(1583) = Jac_FULL(231,231) + JVS(1583) = -B(1003)-B(1780) IF (DO_JVS(1584)) & -! JVS(1584) = Jac_FULL(212,291) - JVS(1584) = 0 +! JVS(1584) = Jac_FULL(231,276) + JVS(1584) = 0.25*B(955) IF (DO_JVS(1585)) & -! JVS(1585) = Jac_FULL(213,152) - JVS(1585) = B(877) +! JVS(1585) = Jac_FULL(231,304) + JVS(1585) = 0.25*B(968) IF (DO_JVS(1586)) & -! JVS(1586) = Jac_FULL(213,166) - JVS(1586) = B(884) +! JVS(1586) = Jac_FULL(231,337) + JVS(1586) = 0 IF (DO_JVS(1587)) & -! JVS(1587) = Jac_FULL(213,167) - JVS(1587) = B(870) +! JVS(1587) = Jac_FULL(231,345) + JVS(1587) = 0.25*B(956)-B(1004)+0.015*B(1030) IF (DO_JVS(1588)) & -! JVS(1588) = Jac_FULL(213,168) - JVS(1588) = B(885) +! JVS(1588) = Jac_FULL(232,187) + JVS(1588) = 0.655*B(1015) IF (DO_JVS(1589)) & -! JVS(1589) = Jac_FULL(213,189) - JVS(1589) = B(953) +! JVS(1589) = Jac_FULL(232,192) + JVS(1589) = 0.655*B(1019) IF (DO_JVS(1590)) & -! JVS(1590) = Jac_FULL(213,194) - JVS(1590) = B(837) +! JVS(1590) = Jac_FULL(232,232) + JVS(1590) = -B(1045)-B(1046)-B(1048)-B(1050) IF (DO_JVS(1591)) & -! JVS(1591) = Jac_FULL(213,213) - JVS(1591) = -B(1071)-B(1354)-B(1509)-B(1510) +! JVS(1591) = Jac_FULL(232,304) + JVS(1591) = 0 IF (DO_JVS(1592)) & -! JVS(1592) = Jac_FULL(213,214) +! JVS(1592) = Jac_FULL(232,305) JVS(1592) = 0 IF (DO_JVS(1593)) & -! JVS(1593) = Jac_FULL(213,220) - JVS(1593) = 0 +! JVS(1593) = Jac_FULL(232,337) + JVS(1593) = -B(1051) IF (DO_JVS(1594)) & -! JVS(1594) = Jac_FULL(213,222) - JVS(1594) = 0.5*B(954) +! JVS(1594) = Jac_FULL(232,345) + JVS(1594) = 0.655*B(1016)+0.655*B(1020) IF (DO_JVS(1595)) & -! JVS(1595) = Jac_FULL(213,228) - JVS(1595) = B(825) +! JVS(1595) = Jac_FULL(232,346) + JVS(1595) = -B(1047)-B(1049) IF (DO_JVS(1596)) & -! JVS(1596) = Jac_FULL(213,229) - JVS(1596) = B(831) +! JVS(1596) = Jac_FULL(233,140) + JVS(1596) = B(144)+B(146) IF (DO_JVS(1597)) & -! JVS(1597) = Jac_FULL(213,242) - JVS(1597) = 0.9*B(1073) +! JVS(1597) = Jac_FULL(233,212) + JVS(1597) = 0.73*B(148) IF (DO_JVS(1598)) & -! JVS(1598) = Jac_FULL(213,244) - JVS(1598) = 0 +! JVS(1598) = Jac_FULL(233,233) + JVS(1598) = -B(154)-B(1660) IF (DO_JVS(1599)) & -! JVS(1599) = Jac_FULL(213,245) +! JVS(1599) = Jac_FULL(233,337) JVS(1599) = 0 IF (DO_JVS(1600)) & -! JVS(1600) = Jac_FULL(213,246) - JVS(1600) = 0 +! JVS(1600) = Jac_FULL(233,341) + JVS(1600) = B(147) IF (DO_JVS(1601)) & -! JVS(1601) = Jac_FULL(213,279) - JVS(1601) = B(826)+B(832)+B(838) +! JVS(1601) = Jac_FULL(233,345) + JVS(1601) = -B(155) IF (DO_JVS(1602)) & -! JVS(1602) = Jac_FULL(213,284) - JVS(1602) = 0 +! JVS(1602) = Jac_FULL(233,346) + JVS(1602) = 0.73*B(149) IF (DO_JVS(1603)) & -! JVS(1603) = Jac_FULL(213,286) - JVS(1603) = -B(1072)+0.9*B(1074) +! JVS(1603) = Jac_FULL(233,351) + JVS(1603) = B(145) IF (DO_JVS(1604)) & -! JVS(1604) = Jac_FULL(214,214) - JVS(1604) = -B(862)-B(864)-B(868)-B(1349)-B(1496) +! JVS(1604) = Jac_FULL(234,109) + JVS(1604) = B(1360) IF (DO_JVS(1605)) & -! JVS(1605) = Jac_FULL(214,245) - JVS(1605) = B(746) +! JVS(1605) = Jac_FULL(234,136) + JVS(1605) = B(1377) IF (DO_JVS(1606)) & -! JVS(1606) = Jac_FULL(214,246) - JVS(1606) = 0.127*B(913)+0.057*B(914) +! JVS(1606) = Jac_FULL(234,233) + JVS(1606) = 0 IF (DO_JVS(1607)) & -! JVS(1607) = Jac_FULL(214,266) - JVS(1607) = 0.057*B(915) +! JVS(1607) = Jac_FULL(234,234) + JVS(1607) = -B(1364)-B(1366)-B(1368)-B(1370) IF (DO_JVS(1608)) & -! JVS(1608) = Jac_FULL(214,279) - JVS(1608) = B(747) +! JVS(1608) = Jac_FULL(234,246) + JVS(1608) = B(243)+0.44*B(245) IF (DO_JVS(1609)) & -! JVS(1609) = Jac_FULL(214,286) - JVS(1609) = -B(863)-B(865)-B(869) +! JVS(1609) = Jac_FULL(234,328) + JVS(1609) = -B(1371) IF (DO_JVS(1610)) & -! JVS(1610) = Jac_FULL(215,154) - JVS(1610) = 0.1*B(636) +! JVS(1610) = Jac_FULL(234,337) + JVS(1610) = 0.44*B(246)-B(1365) IF (DO_JVS(1611)) & -! JVS(1611) = Jac_FULL(215,155) - JVS(1611) = 0.1*B(638) +! JVS(1611) = Jac_FULL(234,341) + JVS(1611) = 0 IF (DO_JVS(1612)) & -! JVS(1612) = Jac_FULL(215,170) - JVS(1612) = 0.5*B(644) +! JVS(1612) = Jac_FULL(234,345) + JVS(1612) = B(1361)+B(1378) IF (DO_JVS(1613)) & -! JVS(1613) = Jac_FULL(215,215) - JVS(1613) = -B(658)-B(662)-B(666)-B(670)-B(674)-2*B(678)-B(679) +! JVS(1613) = Jac_FULL(234,346) + JVS(1613) = B(244)-B(1367) IF (DO_JVS(1614)) & -! JVS(1614) = Jac_FULL(215,216) - JVS(1614) = -B(680) +! JVS(1614) = Jac_FULL(234,351) + JVS(1614) = -B(1369) IF (DO_JVS(1615)) & -! JVS(1615) = Jac_FULL(215,261) - JVS(1615) = -B(671) +! JVS(1615) = Jac_FULL(235,71) + JVS(1615) = B(1438) IF (DO_JVS(1616)) & -! JVS(1616) = Jac_FULL(215,266) - JVS(1616) = -B(667) +! JVS(1616) = Jac_FULL(235,90) + JVS(1616) = B(1440) IF (DO_JVS(1617)) & -! JVS(1617) = Jac_FULL(215,279) - JVS(1617) = -B(659) +! JVS(1617) = Jac_FULL(235,204) + JVS(1617) = B(1428)+B(1430) IF (DO_JVS(1618)) & -! JVS(1618) = Jac_FULL(215,281) - JVS(1618) = 0.1*B(637)+0.1*B(639)+0.5*B(645)-B(675) +! JVS(1618) = Jac_FULL(235,220) + JVS(1618) = 0 IF (DO_JVS(1619)) & -! JVS(1619) = Jac_FULL(215,282) - JVS(1619) = 0 +! JVS(1619) = Jac_FULL(235,235) + JVS(1619) = -B(1432)-B(1434)-B(1436)-B(1463) IF (DO_JVS(1620)) & -! JVS(1620) = Jac_FULL(215,284) - JVS(1620) = -B(663) +! JVS(1620) = Jac_FULL(235,328) + JVS(1620) = -B(1464) IF (DO_JVS(1621)) & -! JVS(1621) = Jac_FULL(215,286) - JVS(1621) = 0 +! JVS(1621) = Jac_FULL(235,335) + JVS(1621) = -B(1437) IF (DO_JVS(1622)) & -! JVS(1622) = Jac_FULL(216,154) - JVS(1622) = 0.9*B(636) +! JVS(1622) = Jac_FULL(235,337) + JVS(1622) = -B(1433) IF (DO_JVS(1623)) & -! JVS(1623) = Jac_FULL(216,155) - JVS(1623) = 0.9*B(638) +! JVS(1623) = Jac_FULL(235,341) + JVS(1623) = 0 IF (DO_JVS(1624)) & -! JVS(1624) = Jac_FULL(216,170) - JVS(1624) = 0.5*B(644) +! JVS(1624) = Jac_FULL(235,345) + JVS(1624) = B(1429)+B(1439) IF (DO_JVS(1625)) & -! JVS(1625) = Jac_FULL(216,215) - JVS(1625) = -B(679) +! JVS(1625) = Jac_FULL(235,346) + JVS(1625) = -B(1435) IF (DO_JVS(1626)) & -! JVS(1626) = Jac_FULL(216,216) - JVS(1626) = -B(660)-B(664)-B(668)-B(672)-B(676)-B(680)-2*B(681) +! JVS(1626) = Jac_FULL(235,351) + JVS(1626) = B(1431) IF (DO_JVS(1627)) & -! JVS(1627) = Jac_FULL(216,261) - JVS(1627) = -B(673) +! JVS(1627) = Jac_FULL(236,71) + JVS(1627) = B(1803) IF (DO_JVS(1628)) & -! JVS(1628) = Jac_FULL(216,266) - JVS(1628) = -B(669) +! JVS(1628) = Jac_FULL(236,117) + JVS(1628) = B(1451) IF (DO_JVS(1629)) & -! JVS(1629) = Jac_FULL(216,279) - JVS(1629) = -B(661) +! JVS(1629) = Jac_FULL(236,203) + JVS(1629) = B(1453) IF (DO_JVS(1630)) & -! JVS(1630) = Jac_FULL(216,281) - JVS(1630) = 0.9*B(637)+0.9*B(639)+0.5*B(645)-B(677) +! JVS(1630) = Jac_FULL(236,204) + JVS(1630) = B(1802) IF (DO_JVS(1631)) & -! JVS(1631) = Jac_FULL(216,282) - JVS(1631) = 0 +! JVS(1631) = Jac_FULL(236,220) + JVS(1631) = 0.28*B(1342) IF (DO_JVS(1632)) & -! JVS(1632) = Jac_FULL(216,284) - JVS(1632) = -B(665) +! JVS(1632) = Jac_FULL(236,235) + JVS(1632) = 0.2*B(1432)+B(1434)+B(1463) IF (DO_JVS(1633)) & -! JVS(1633) = Jac_FULL(216,286) - JVS(1633) = 0 +! JVS(1633) = Jac_FULL(236,236) + JVS(1633) = -B(1443)-B(1445)-B(1447)-B(1449)-B(1461) IF (DO_JVS(1634)) & -! JVS(1634) = Jac_FULL(217,161) - JVS(1634) = B(104)+B(249)+B(320)+B(518) +! JVS(1634) = Jac_FULL(236,328) + JVS(1634) = -B(1462)+B(1464) IF (DO_JVS(1635)) & -! JVS(1635) = Jac_FULL(217,217) - JVS(1635) = -B(106)-B(108)-B(175)-2*B(197)-B(199)-B(266)-B(520) +! JVS(1635) = Jac_FULL(236,335) + JVS(1635) = -B(1444) IF (DO_JVS(1636)) & -! JVS(1636) = Jac_FULL(217,261) - JVS(1636) = -B(267) +! JVS(1636) = Jac_FULL(236,337) + JVS(1636) = 0.2*B(1433)-B(1450) IF (DO_JVS(1637)) & -! JVS(1637) = Jac_FULL(217,266) - JVS(1637) = -B(176) +! JVS(1637) = Jac_FULL(236,341) + JVS(1637) = 0.28*B(1343)+B(1454) IF (DO_JVS(1638)) & -! JVS(1638) = Jac_FULL(217,273) - JVS(1638) = B(321) +! JVS(1638) = Jac_FULL(236,345) + JVS(1638) = B(1452) IF (DO_JVS(1639)) & -! JVS(1639) = Jac_FULL(217,279) - JVS(1639) = -B(107)-B(109) +! JVS(1639) = Jac_FULL(236,346) + JVS(1639) = B(1435)-B(1446) IF (DO_JVS(1640)) & -! JVS(1640) = Jac_FULL(217,281) - JVS(1640) = B(250) +! JVS(1640) = Jac_FULL(236,351) + JVS(1640) = -B(1448) IF (DO_JVS(1641)) & -! JVS(1641) = Jac_FULL(217,284) - JVS(1641) = -B(200) +! JVS(1641) = Jac_FULL(237,237) + JVS(1641) = -B(812)-B(814)-B(816) IF (DO_JVS(1642)) & -! JVS(1642) = Jac_FULL(217,286) - JVS(1642) = B(105) +! 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) IF (DO_JVS(1643)) & -! JVS(1643) = Jac_FULL(217,290) - JVS(1643) = B(519)-B(521) +! JVS(1643) = Jac_FULL(237,324) + JVS(1643) = 0.37*B(888) IF (DO_JVS(1644)) & -! JVS(1644) = Jac_FULL(218,179) - JVS(1644) = 0.2*B(1105) +! JVS(1644) = Jac_FULL(237,328) + JVS(1644) = 0.37*B(886) IF (DO_JVS(1645)) & -! JVS(1645) = Jac_FULL(218,201) - JVS(1645) = 0.25*B(191) +! JVS(1645) = Jac_FULL(237,337) + JVS(1645) = 0.37*B(801) IF (DO_JVS(1646)) & -! JVS(1646) = Jac_FULL(218,209) - JVS(1646) = 0.25*B(159) +! JVS(1646) = Jac_FULL(237,341) + JVS(1646) = -B(815) IF (DO_JVS(1647)) & -! JVS(1647) = Jac_FULL(218,216) - JVS(1647) = 0.25*B(668) +! JVS(1647) = Jac_FULL(237,345) + JVS(1647) = -B(813) IF (DO_JVS(1648)) & -! JVS(1648) = Jac_FULL(218,217) - JVS(1648) = 0.25*B(175) +! JVS(1648) = Jac_FULL(237,346) + JVS(1648) = 0.28*B(803) IF (DO_JVS(1649)) & -! JVS(1649) = Jac_FULL(218,218) - JVS(1649) = -B(89)-B(524) +! JVS(1649) = Jac_FULL(237,351) + JVS(1649) = 0.37*B(805)-B(817) IF (DO_JVS(1650)) & -! JVS(1650) = Jac_FULL(218,225) - JVS(1650) = 0.25*B(650) +! JVS(1650) = Jac_FULL(238,199) + JVS(1650) = 0.06*B(1029)+B(1778) IF (DO_JVS(1651)) & -! JVS(1651) = Jac_FULL(218,236) - JVS(1651) = 0.1*B(1381) +! JVS(1651) = Jac_FULL(238,209) + JVS(1651) = 0.06*B(1027)+B(1777) IF (DO_JVS(1652)) & -! JVS(1652) = Jac_FULL(218,237) - JVS(1652) = 0.25*B(157) +! JVS(1652) = Jac_FULL(238,238) + JVS(1652) = -B(1009) IF (DO_JVS(1653)) & -! JVS(1653) = Jac_FULL(218,238) - JVS(1653) = 0.25*B(626) +! JVS(1653) = Jac_FULL(238,267) + JVS(1653) = 0.45*B(1786) IF (DO_JVS(1654)) & -! JVS(1654) = Jac_FULL(218,239) - JVS(1654) = 0.25*B(177) +! JVS(1654) = Jac_FULL(238,268) + JVS(1654) = 0.45*B(1783) IF (DO_JVS(1655)) & -! JVS(1655) = Jac_FULL(218,246) - JVS(1655) = 0.355*B(914) +! JVS(1655) = Jac_FULL(238,304) + JVS(1655) = B(974)+B(975)+0.5*B(983)+0.45*B(999) IF (DO_JVS(1656)) & -! JVS(1656) = Jac_FULL(218,247) - JVS(1656) = 0.034*B(916) +! JVS(1656) = Jac_FULL(238,305) + JVS(1656) = B(973)+B(976)+0.5*B(979)+0.45*B(991) IF (DO_JVS(1657)) & -! JVS(1657) = Jac_FULL(218,252) - JVS(1657) = 0.5*B(185) +! JVS(1657) = Jac_FULL(238,328) + JVS(1657) = 0.5*B(980)+0.5*B(984) IF (DO_JVS(1658)) & -! JVS(1658) = Jac_FULL(218,253) +! JVS(1658) = Jac_FULL(238,337) JVS(1658) = 0 IF (DO_JVS(1659)) & -! JVS(1659) = Jac_FULL(218,254) - JVS(1659) = 0.25*B(187) +! JVS(1659) = Jac_FULL(238,345) + JVS(1659) = -B(1010)+0.06*B(1028)+0.06*B(1030) IF (DO_JVS(1660)) & -! JVS(1660) = Jac_FULL(218,256) - JVS(1660) = 0.25*B(181) +! JVS(1660) = Jac_FULL(238,346) + JVS(1660) = 0.45*B(992)+0.45*B(1000) IF (DO_JVS(1661)) & -! JVS(1661) = Jac_FULL(218,257) - JVS(1661) = 0.25*B(183) +! JVS(1661) = Jac_FULL(239,64) + JVS(1661) = B(1755) IF (DO_JVS(1662)) & -! JVS(1662) = Jac_FULL(218,258) - JVS(1662) = 0.25*B(189) +! JVS(1662) = Jac_FULL(239,65) + JVS(1662) = B(1753) IF (DO_JVS(1663)) & -! JVS(1663) = Jac_FULL(218,261) +! JVS(1663) = Jac_FULL(239,166) JVS(1663) = 0 IF (DO_JVS(1664)) & -! JVS(1664) = Jac_FULL(218,266) - JVS(1664) = B(55)+0.13*B(57)+0.25*B(158)+0.25*B(160)+0.25*B(176)+0.25*B(178)+0.25*B(182)+0.25*B(184)+0.5*B(186)+0.25& - &*B(188)+0.25*B(190)+0.25*B(192)+0.25*B(627)+0.25*B(651)+0.25*B(669)+0.355*B(915)+0.034*B(917)+0.2*B(1106) +! JVS(1664) = Jac_FULL(239,179) + JVS(1664) = 0 IF (DO_JVS(1665)) & -! JVS(1665) = Jac_FULL(218,273) - JVS(1665) = 0 +! JVS(1665) = Jac_FULL(239,239) + JVS(1665) = -B(71)-B(1650) IF (DO_JVS(1666)) & -! JVS(1666) = Jac_FULL(218,279) - JVS(1666) = 0 +! JVS(1666) = Jac_FULL(239,252) + JVS(1666) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597) IF (DO_JVS(1667)) & -! JVS(1667) = Jac_FULL(218,281) - JVS(1667) = 0 +! JVS(1667) = Jac_FULL(239,269) + JVS(1667) = B(1805) IF (DO_JVS(1668)) & -! JVS(1668) = Jac_FULL(218,282) - JVS(1668) = 0 +! JVS(1668) = Jac_FULL(239,297) + JVS(1668) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537) IF (DO_JVS(1669)) & -! JVS(1669) = Jac_FULL(218,284) +! JVS(1669) = Jac_FULL(239,327) JVS(1669) = 0 IF (DO_JVS(1670)) & -! JVS(1670) = Jac_FULL(218,286) - JVS(1670) = 0.13*B(58)-B(90) +! JVS(1670) = Jac_FULL(239,335) + JVS(1670) = 0.5*B(1492) IF (DO_JVS(1671)) & -! JVS(1671) = Jac_FULL(218,290) - JVS(1671) = -B(525) +! JVS(1671) = Jac_FULL(239,339) + JVS(1671) = B(1532) IF (DO_JVS(1672)) & -! JVS(1672) = Jac_FULL(219,148) - JVS(1672) = 0.15*B(1188)+0.3*B(1190) +! JVS(1672) = Jac_FULL(239,341) + JVS(1672) = 0 IF (DO_JVS(1673)) & -! JVS(1673) = Jac_FULL(219,195) - JVS(1673) = B(616) +! JVS(1673) = Jac_FULL(239,344) + JVS(1673) = B(1530)+B(1598) IF (DO_JVS(1674)) & -! JVS(1674) = Jac_FULL(219,201) - JVS(1674) = 0.1*B(264) +! JVS(1674) = Jac_FULL(239,345) + JVS(1674) = B(69)-B(72) IF (DO_JVS(1675)) & -! JVS(1675) = Jac_FULL(219,209) - JVS(1675) = 0.1*B(270) +! JVS(1675) = Jac_FULL(239,346) + JVS(1675) = B(70) IF (DO_JVS(1676)) & -! JVS(1676) = Jac_FULL(219,217) - JVS(1676) = 0.1*B(266) +! JVS(1676) = Jac_FULL(239,348) + JVS(1676) = 0 IF (DO_JVS(1677)) & -! JVS(1677) = Jac_FULL(219,219) - JVS(1677) = -B(144)-B(528) +! JVS(1677) = Jac_FULL(239,349) + JVS(1677) = B(1534)+B(1592) IF (DO_JVS(1678)) & -! JVS(1678) = Jac_FULL(219,237) - JVS(1678) = 0.1*B(272) +! JVS(1678) = Jac_FULL(239,350) + JVS(1678) = B(1536)+B(1594) IF (DO_JVS(1679)) & -! JVS(1679) = Jac_FULL(219,239) - JVS(1679) = 0.1*B(268) +! JVS(1679) = Jac_FULL(239,351) + JVS(1679) = 0 IF (DO_JVS(1680)) & -! JVS(1680) = Jac_FULL(219,250) - JVS(1680) = 0.5*B(229) +! JVS(1680) = Jac_FULL(239,352) + JVS(1680) = B(1538) IF (DO_JVS(1681)) & -! JVS(1681) = Jac_FULL(219,252) - JVS(1681) = 0.1*B(256) +! JVS(1681) = Jac_FULL(239,353) + JVS(1681) = B(1528)+B(1596) IF (DO_JVS(1682)) & -! JVS(1682) = Jac_FULL(219,253) - JVS(1682) = 0 +! JVS(1682) = Jac_FULL(240,122) + JVS(1682) = B(1411) IF (DO_JVS(1683)) & -! JVS(1683) = Jac_FULL(219,254) - JVS(1683) = 0.1*B(258) +! JVS(1683) = Jac_FULL(240,146) + JVS(1683) = B(1403) IF (DO_JVS(1684)) & -! JVS(1684) = Jac_FULL(219,256) - JVS(1684) = 0.1*B(254) +! JVS(1684) = Jac_FULL(240,200) + JVS(1684) = 0 IF (DO_JVS(1685)) & -! JVS(1685) = Jac_FULL(219,257) - JVS(1685) = 0.1*B(262) +! JVS(1685) = Jac_FULL(240,240) + JVS(1685) = -B(1405)-B(1407)-B(1409) IF (DO_JVS(1686)) & -! JVS(1686) = Jac_FULL(219,258) - JVS(1686) = 0.1*B(260) +! JVS(1686) = Jac_FULL(240,335) + JVS(1686) = -B(1410) IF (DO_JVS(1687)) & -! JVS(1687) = Jac_FULL(219,261) - JVS(1687) = 0.1*B(252)+0.1*B(255)+0.1*B(257)+0.1*B(259)+0.1*B(261)+0.1*B(263)+0.1*B(265)+0.1*B(267)+0.1*B(269)+0.1& - &*B(271)+0.1*B(273)+0.13*B(1081) +! JVS(1687) = Jac_FULL(240,337) + JVS(1687) = -B(1408) IF (DO_JVS(1688)) & -! JVS(1688) = Jac_FULL(219,266) - JVS(1688) = 0.1*B(253) +! JVS(1688) = Jac_FULL(240,345) + JVS(1688) = B(1404) IF (DO_JVS(1689)) & -! JVS(1689) = Jac_FULL(219,267) - JVS(1689) = 0 +! JVS(1689) = Jac_FULL(240,346) + JVS(1689) = -B(1406) IF (DO_JVS(1690)) & -! JVS(1690) = Jac_FULL(219,273) +! JVS(1690) = Jac_FULL(240,351) JVS(1690) = 0 IF (DO_JVS(1691)) & -! JVS(1691) = Jac_FULL(219,276) - JVS(1691) = 0 +! JVS(1691) = Jac_FULL(241,241) + JVS(1691) = -B(705)-B(707)-B(709)-B(711)-B(713)-B(715) IF (DO_JVS(1692)) & -! JVS(1692) = Jac_FULL(219,278) - JVS(1692) = B(617) +! JVS(1692) = Jac_FULL(241,290) + JVS(1692) = 0.12*B(287) IF (DO_JVS(1693)) & -! JVS(1693) = Jac_FULL(219,279) - JVS(1693) = 0 +! JVS(1693) = Jac_FULL(241,329) + JVS(1693) = -B(706) IF (DO_JVS(1694)) & -! JVS(1694) = Jac_FULL(219,281) - JVS(1694) = 0 +! JVS(1694) = Jac_FULL(241,335) + JVS(1694) = -B(710) IF (DO_JVS(1695)) & -! JVS(1695) = Jac_FULL(219,282) - JVS(1695) = 0.3*B(1191) +! JVS(1695) = Jac_FULL(241,336) + JVS(1695) = -B(714)-B(716) IF (DO_JVS(1696)) & -! JVS(1696) = Jac_FULL(219,284) - JVS(1696) = 0.13*B(1082) +! JVS(1696) = Jac_FULL(241,341) + JVS(1696) = 0.12*B(288) IF (DO_JVS(1697)) & -! JVS(1697) = Jac_FULL(219,286) - JVS(1697) = -B(145)+0.5*B(230)+0.15*B(1189) +! JVS(1697) = Jac_FULL(241,346) + JVS(1697) = -B(708) IF (DO_JVS(1698)) & -! JVS(1698) = Jac_FULL(219,290) - JVS(1698) = -B(529) +! JVS(1698) = Jac_FULL(241,348) + JVS(1698) = -B(712) IF (DO_JVS(1699)) & -! JVS(1699) = Jac_FULL(219,291) - JVS(1699) = 0 +! JVS(1699) = Jac_FULL(242,193) + JVS(1699) = 0.7*B(865)+0.7*B(867)+0.35*B(869) IF (DO_JVS(1700)) & -! JVS(1700) = Jac_FULL(220,220) - JVS(1700) = -B(858)-B(860)-B(866)-B(1346)-B(1493) +! JVS(1700) = Jac_FULL(242,242) + JVS(1700) = -B(927)-B(929)-B(931)-B(1624)-B(1751) IF (DO_JVS(1701)) & -! JVS(1701) = Jac_FULL(220,244) - JVS(1701) = B(754) +! 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) IF (DO_JVS(1702)) & -! JVS(1702) = Jac_FULL(220,246) - JVS(1702) = 0.032*B(911)+0.671*B(913)+0.298*B(914) +! JVS(1702) = Jac_FULL(242,289) + JVS(1702) = 0.3*B(907)+0.15*B(911)+0.45*B(923)+0.3*B(924) IF (DO_JVS(1703)) & -! JVS(1703) = Jac_FULL(220,247) - JVS(1703) = 0.032*B(912) +! JVS(1703) = Jac_FULL(242,291) + JVS(1703) = 0 IF (DO_JVS(1704)) & -! JVS(1704) = Jac_FULL(220,266) - JVS(1704) = 0.298*B(915) +! JVS(1704) = Jac_FULL(242,324) + JVS(1704) = 0.3*B(914) IF (DO_JVS(1705)) & -! JVS(1705) = Jac_FULL(220,279) - JVS(1705) = B(755) +! JVS(1705) = Jac_FULL(242,328) + JVS(1705) = 0.3*B(910)+0.15*B(912) IF (DO_JVS(1706)) & -! JVS(1706) = Jac_FULL(220,286) - JVS(1706) = -B(859)-B(861)-B(867) +! JVS(1706) = Jac_FULL(242,337) + JVS(1706) = 0.3*B(906)+0.3*B(908) IF (DO_JVS(1707)) & -! JVS(1707) = Jac_FULL(221,87) - JVS(1707) = B(700)+B(1469) +! JVS(1707) = Jac_FULL(242,341) + JVS(1707) = 0.7*B(868)-B(930) IF (DO_JVS(1708)) & -! JVS(1708) = Jac_FULL(221,95) - JVS(1708) = 0.791*B(237)+B(1394) +! JVS(1708) = Jac_FULL(242,345) + JVS(1708) = 0.7*B(866)-B(928) IF (DO_JVS(1709)) & -! JVS(1709) = Jac_FULL(221,202) - JVS(1709) = 0.34*B(1398) +! JVS(1709) = Jac_FULL(242,346) + JVS(1709) = 0 IF (DO_JVS(1710)) & -! JVS(1710) = Jac_FULL(221,221) - JVS(1710) = -B(155)-B(318)-B(534)-B(1378)-B(1379) +! JVS(1710) = Jac_FULL(242,351) + JVS(1710) = 0.35*B(870)+0.3*B(918)-B(932) IF (DO_JVS(1711)) & -! JVS(1711) = Jac_FULL(221,238) - JVS(1711) = 0.11*B(622) +! JVS(1711) = Jac_FULL(243,128) + JVS(1711) = 0.25*B(1052) IF (DO_JVS(1712)) & -! JVS(1712) = Jac_FULL(221,254) - JVS(1712) = 0 +! JVS(1712) = Jac_FULL(243,192) + JVS(1712) = 0.16*B(1025) IF (DO_JVS(1713)) & -! JVS(1713) = Jac_FULL(221,256) - JVS(1713) = 0.34*B(124)+0.16*B(181)+0.29*B(254) +! JVS(1713) = Jac_FULL(243,199) + JVS(1713) = 0 IF (DO_JVS(1714)) & -! JVS(1714) = Jac_FULL(221,257) +! JVS(1714) = Jac_FULL(243,209) JVS(1714) = 0 IF (DO_JVS(1715)) & -! JVS(1715) = Jac_FULL(221,258) - JVS(1715) = B(134)+0.75*B(189)+B(260) +! JVS(1715) = Jac_FULL(243,243) + JVS(1715) = -B(1078)-B(1080)-B(1082)-B(1084) IF (DO_JVS(1716)) & -! JVS(1716) = Jac_FULL(221,261) - JVS(1716) = 0.29*B(255)+B(261) +! JVS(1716) = Jac_FULL(243,267) + JVS(1716) = 0 IF (DO_JVS(1717)) & -! JVS(1717) = Jac_FULL(221,266) - JVS(1717) = 0.16*B(182)+0.75*B(190) +! JVS(1717) = Jac_FULL(243,268) + JVS(1717) = 0 IF (DO_JVS(1718)) & -! JVS(1718) = Jac_FULL(221,273) - JVS(1718) = -B(319) +! JVS(1718) = Jac_FULL(243,304) + JVS(1718) = 0 IF (DO_JVS(1719)) & -! JVS(1719) = Jac_FULL(221,279) - JVS(1719) = 0.34*B(125)+B(135)+0.11*B(623) +! JVS(1719) = Jac_FULL(243,305) + JVS(1719) = 0 IF (DO_JVS(1720)) & -! JVS(1720) = Jac_FULL(221,284) - JVS(1720) = 0 +! JVS(1720) = Jac_FULL(243,337) + JVS(1720) = -B(1079) IF (DO_JVS(1721)) & -! JVS(1721) = Jac_FULL(221,286) - JVS(1721) = -B(156)+0.791*B(238)+B(701) +! JVS(1721) = Jac_FULL(243,345) + JVS(1721) = 0.16*B(1026)+0.25*B(1053) IF (DO_JVS(1722)) & -! JVS(1722) = Jac_FULL(221,290) - JVS(1722) = -B(535) +! JVS(1722) = Jac_FULL(243,346) + JVS(1722) = -B(1081)-B(1083) IF (DO_JVS(1723)) & -! JVS(1723) = Jac_FULL(222,181) - JVS(1723) = 0.67*B(937) +! JVS(1723) = Jac_FULL(244,199) + JVS(1723) = 0.018*B(1029) IF (DO_JVS(1724)) & -! JVS(1724) = Jac_FULL(222,222) - JVS(1724) = -B(954)-B(955)-B(959)-B(961) +! JVS(1724) = Jac_FULL(244,224) + JVS(1724) = 0.294*B(1039)+0.135*B(1043) IF (DO_JVS(1725)) & -! JVS(1725) = Jac_FULL(222,246) - JVS(1725) = 0 +! JVS(1725) = Jac_FULL(244,226) + JVS(1725) = 0.054*B(1200)+0.07*B(1206) IF (DO_JVS(1726)) & -! JVS(1726) = Jac_FULL(222,247) - JVS(1726) = 0 +! JVS(1726) = Jac_FULL(244,244) + JVS(1726) = -B(61)-B(1743) IF (DO_JVS(1727)) & -! JVS(1727) = Jac_FULL(222,266) - JVS(1727) = 0 +! JVS(1727) = Jac_FULL(244,271) + JVS(1727) = 0.009*B(1198)+0.013*B(1202) IF (DO_JVS(1728)) & -! JVS(1728) = Jac_FULL(222,279) - JVS(1728) = -B(960)-B(962) +! JVS(1728) = Jac_FULL(244,276) + JVS(1728) = 0.3*B(955) IF (DO_JVS(1729)) & -! JVS(1729) = Jac_FULL(222,284) - JVS(1729) = -B(956) +! JVS(1729) = Jac_FULL(244,287) + JVS(1729) = 0.23*B(1240) IF (DO_JVS(1730)) & -! JVS(1730) = Jac_FULL(222,286) - JVS(1730) = 0.67*B(938) +! JVS(1730) = Jac_FULL(244,303) + JVS(1730) = 0.05*B(1798) IF (DO_JVS(1731)) & -! JVS(1731) = Jac_FULL(223,58) - JVS(1731) = 0.636*B(1097) +! JVS(1731) = Jac_FULL(244,304) + JVS(1731) = 0.3*B(968) IF (DO_JVS(1732)) & -! JVS(1732) = Jac_FULL(223,64) - JVS(1732) = 0.18*B(1116) +! JVS(1732) = Jac_FULL(244,309) + JVS(1732) = 0.036*B(1228) IF (DO_JVS(1733)) & -! JVS(1733) = Jac_FULL(223,79) - JVS(1733) = 0.12*B(1118) +! JVS(1733) = Jac_FULL(244,311) + JVS(1733) = 0 IF (DO_JVS(1734)) & -! JVS(1734) = Jac_FULL(223,80) - JVS(1734) = 0.1*B(1120) +! JVS(1734) = Jac_FULL(244,313) + JVS(1734) = 0.85*B(226) IF (DO_JVS(1735)) & -! JVS(1735) = Jac_FULL(223,118) - JVS(1735) = 0.06*B(1132) +! JVS(1735) = Jac_FULL(244,320) + JVS(1735) = 0.85*B(228) IF (DO_JVS(1736)) & -! JVS(1736) = Jac_FULL(223,156) - JVS(1736) = 0.429*B(1478) +! 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) IF (DO_JVS(1737)) & -! JVS(1737) = Jac_FULL(223,159) - JVS(1737) = 0.6*B(1183)+0.6*B(1185)+0.2*B(1187) +! 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) IF (DO_JVS(1738)) & -! JVS(1738) = Jac_FULL(223,163) - JVS(1738) = 0.125*B(1479) +! JVS(1738) = Jac_FULL(244,346) + JVS(1738) = 0.294*B(1040)+0.013*B(1203)+0.07*B(1207) IF (DO_JVS(1739)) & -! JVS(1739) = Jac_FULL(223,164) - JVS(1739) = 0.571*B(1505) +! JVS(1739) = Jac_FULL(245,110) + JVS(1739) = 0.95*B(593) IF (DO_JVS(1740)) & -! JVS(1740) = Jac_FULL(223,172) - JVS(1740) = B(1085) +! JVS(1740) = Jac_FULL(245,245) + JVS(1740) = -0.75*B(491)-B(527)-B(1702) IF (DO_JVS(1741)) & -! JVS(1741) = Jac_FULL(223,182) - JVS(1741) = 0 +! JVS(1741) = Jac_FULL(245,297) + JVS(1741) = B(1527)+B(1529)+B(1531) IF (DO_JVS(1742)) & -! JVS(1742) = Jac_FULL(223,183) - JVS(1742) = 0 +! JVS(1742) = Jac_FULL(245,317) + JVS(1742) = B(603)+B(1515)+B(1523)+B(1525) IF (DO_JVS(1743)) & -! JVS(1743) = Jac_FULL(223,185) - JVS(1743) = 0.5*B(1476) +! JVS(1743) = Jac_FULL(245,328) + JVS(1743) = 0 IF (DO_JVS(1744)) & -! JVS(1744) = Jac_FULL(223,186) - JVS(1744) = 0 +! JVS(1744) = Jac_FULL(245,333) + JVS(1744) = B(1539)+B(1543)+B(1545) IF (DO_JVS(1745)) & -! JVS(1745) = Jac_FULL(223,187) - JVS(1745) = 0 +! JVS(1745) = Jac_FULL(245,334) + JVS(1745) = -0.75*B(492) IF (DO_JVS(1746)) & -! JVS(1746) = Jac_FULL(223,188) - JVS(1746) = 0 +! JVS(1746) = Jac_FULL(245,338) + JVS(1746) = B(585) IF (DO_JVS(1747)) & -! JVS(1747) = Jac_FULL(223,189) - JVS(1747) = 0 +! JVS(1747) = Jac_FULL(245,339) + JVS(1747) = B(1516)+B(1532)+B(1540) IF (DO_JVS(1748)) & -! JVS(1748) = Jac_FULL(223,206) - JVS(1748) = 0.586*B(1503) +! JVS(1748) = Jac_FULL(245,340) + JVS(1748) = 0.95*B(594)+B(604) IF (DO_JVS(1749)) & -! JVS(1749) = Jac_FULL(223,210) - JVS(1749) = 0 +! JVS(1749) = Jac_FULL(245,344) + JVS(1749) = 0.5*B(1507)+B(1526)+B(1530)+B(1546) IF (DO_JVS(1750)) & -! JVS(1750) = Jac_FULL(223,214) - JVS(1750) = 0 +! JVS(1750) = Jac_FULL(245,345) + JVS(1750) = -B(528)+0.5*B(1505)+0.5*B(1508) IF (DO_JVS(1751)) & -! JVS(1751) = Jac_FULL(223,220) +! JVS(1751) = Jac_FULL(245,347) JVS(1751) = 0 IF (DO_JVS(1752)) & -! JVS(1752) = Jac_FULL(223,222) - JVS(1752) = 0 +! JVS(1752) = Jac_FULL(245,353) + JVS(1752) = 0.5*B(1506)+B(1524)+B(1528)+B(1544) IF (DO_JVS(1753)) & -! JVS(1753) = Jac_FULL(223,223) - JVS(1753) = -B(219)-B(223)-B(1333)-B(1382)-B(1383)-B(1384) +! JVS(1753) = Jac_FULL(246,113) + JVS(1753) = B(240) IF (DO_JVS(1754)) & -! JVS(1754) = Jac_FULL(223,224) - JVS(1754) = 0 +! JVS(1754) = Jac_FULL(246,246) + JVS(1754) = -B(238)-B(243)-B(245) IF (DO_JVS(1755)) & -! JVS(1755) = Jac_FULL(223,228) - JVS(1755) = 0 +! JVS(1755) = Jac_FULL(246,320) + JVS(1755) = 0.31*B(236) IF (DO_JVS(1756)) & -! JVS(1756) = Jac_FULL(223,229) - JVS(1756) = 0.8*B(829)+0.52*B(833) +! JVS(1756) = Jac_FULL(246,335) + JVS(1756) = -B(239) IF (DO_JVS(1757)) & -! JVS(1757) = Jac_FULL(223,230) - JVS(1757) = 0 +! JVS(1757) = Jac_FULL(246,337) + JVS(1757) = -B(246) IF (DO_JVS(1758)) & -! JVS(1758) = Jac_FULL(223,236) - JVS(1758) = 0.134*B(213) +! JVS(1758) = Jac_FULL(246,345) + JVS(1758) = 0 IF (DO_JVS(1759)) & -! JVS(1759) = Jac_FULL(223,240) - JVS(1759) = 0 +! JVS(1759) = Jac_FULL(246,346) + JVS(1759) = 0.31*B(237)-B(244) IF (DO_JVS(1760)) & -! JVS(1760) = Jac_FULL(223,241) - JVS(1760) = 0 +! JVS(1760) = Jac_FULL(247,125) + JVS(1760) = 0.791*B(324) IF (DO_JVS(1761)) & -! JVS(1761) = Jac_FULL(223,242) - JVS(1761) = 0 +! JVS(1761) = Jac_FULL(247,180) + JVS(1761) = B(1220)+0.82*B(1222) IF (DO_JVS(1762)) & -! JVS(1762) = Jac_FULL(223,244) - JVS(1762) = 0 +! JVS(1762) = Jac_FULL(247,182) + JVS(1762) = 0.231*B(1214)+0.231*B(1216) IF (DO_JVS(1763)) & -! JVS(1763) = Jac_FULL(223,245) - JVS(1763) = 0 +! JVS(1763) = Jac_FULL(247,206) + JVS(1763) = 0.551*B(1129)+0.935*B(1131) IF (DO_JVS(1764)) & -! JVS(1764) = Jac_FULL(223,246) - JVS(1764) = 0 +! JVS(1764) = Jac_FULL(247,216) + JVS(1764) = B(1244)+B(1774) IF (DO_JVS(1765)) & -! JVS(1765) = Jac_FULL(223,247) - JVS(1765) = 0 +! JVS(1765) = Jac_FULL(247,226) + JVS(1765) = 0.471*B(1200)+0.59*B(1206) IF (DO_JVS(1766)) & -! JVS(1766) = Jac_FULL(223,266) - JVS(1766) = 0 +! JVS(1766) = Jac_FULL(247,247) + JVS(1766) = -B(689)-B(1764) IF (DO_JVS(1767)) & -! JVS(1767) = Jac_FULL(223,279) - JVS(1767) = 0.8*B(830) +! JVS(1767) = Jac_FULL(247,250) + JVS(1767) = 0 IF (DO_JVS(1768)) & -! JVS(1768) = Jac_FULL(223,281) - JVS(1768) = -B(224) +! JVS(1768) = Jac_FULL(247,268) + JVS(1768) = 0 IF (DO_JVS(1769)) & -! JVS(1769) = Jac_FULL(223,282) - JVS(1769) = 0.6*B(1186) +! JVS(1769) = Jac_FULL(247,271) + JVS(1769) = 0.589*B(1198)+0.687*B(1202) IF (DO_JVS(1770)) & -! JVS(1770) = Jac_FULL(223,284) - JVS(1770) = 0.52*B(834) +! JVS(1770) = Jac_FULL(247,293) + JVS(1770) = 0.242*B(1141)+0.546*B(1143) IF (DO_JVS(1771)) & -! JVS(1771) = Jac_FULL(223,286) - JVS(1771) = 0.134*B(214)-B(220)+B(1086)+0.636*B(1098)+0.18*B(1117)+0.12*B(1119)+0.1*B(1121)+0.06*B(1133)+0.6*B(1184) +! JVS(1771) = Jac_FULL(247,299) + JVS(1771) = 0 IF (DO_JVS(1772)) & -! JVS(1772) = Jac_FULL(223,291) +! JVS(1772) = Jac_FULL(247,301) JVS(1772) = 0 IF (DO_JVS(1773)) & -! JVS(1773) = Jac_FULL(224,224) - JVS(1773) = -B(536)-B(704)-B(706)-B(708)-B(710)-B(712)-B(904) +! JVS(1773) = Jac_FULL(247,303) + JVS(1773) = 0 IF (DO_JVS(1774)) & -! JVS(1774) = Jac_FULL(224,281) - JVS(1774) = -B(905) +! JVS(1774) = Jac_FULL(247,308) + JVS(1774) = 0 IF (DO_JVS(1775)) & -! JVS(1775) = Jac_FULL(224,282) - JVS(1775) = -B(705) +! JVS(1775) = Jac_FULL(247,309) + JVS(1775) = 0.68*B(1234) IF (DO_JVS(1776)) & -! JVS(1776) = Jac_FULL(224,286) - JVS(1776) = -B(707)-B(709)-B(711)-B(713) +! JVS(1776) = Jac_FULL(247,311) + JVS(1776) = 0 IF (DO_JVS(1777)) & -! JVS(1777) = Jac_FULL(224,290) - JVS(1777) = -B(537) +! JVS(1777) = Jac_FULL(247,328) + JVS(1777) = 0 IF (DO_JVS(1778)) & -! JVS(1778) = Jac_FULL(225,170) - JVS(1778) = B(640) +! 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) IF (DO_JVS(1779)) & -! JVS(1779) = Jac_FULL(225,225) - JVS(1779) = -B(646)-B(648)-B(650)-B(652)-B(654) +! JVS(1779) = Jac_FULL(247,345) + JVS(1779) = 0.791*B(325)-B(690)+B(1245) IF (DO_JVS(1780)) & -! JVS(1780) = Jac_FULL(225,261) - JVS(1780) = -B(653) +! 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) IF (DO_JVS(1781)) & -! JVS(1781) = Jac_FULL(225,266) - JVS(1781) = -B(651) +! JVS(1781) = Jac_FULL(247,351) + JVS(1781) = 0.68*B(1235) IF (DO_JVS(1782)) & -! JVS(1782) = Jac_FULL(225,279) - JVS(1782) = -B(647) +! JVS(1782) = Jac_FULL(248,172) + JVS(1782) = B(1256) IF (DO_JVS(1783)) & -! JVS(1783) = Jac_FULL(225,281) - JVS(1783) = -B(655) +! JVS(1783) = Jac_FULL(248,205) + JVS(1783) = 0.059*B(1114)+0.272*B(1116) IF (DO_JVS(1784)) & -! JVS(1784) = Jac_FULL(225,282) +! JVS(1784) = Jac_FULL(248,231) JVS(1784) = 0 IF (DO_JVS(1785)) & -! JVS(1785) = Jac_FULL(225,284) - JVS(1785) = -B(649) +! JVS(1785) = Jac_FULL(248,248) + JVS(1785) = -B(1242)-B(1639)-B(1773) IF (DO_JVS(1786)) & -! JVS(1786) = Jac_FULL(225,286) - JVS(1786) = B(641) +! JVS(1786) = Jac_FULL(248,253) + JVS(1786) = B(1285) IF (DO_JVS(1787)) & -! JVS(1787) = Jac_FULL(226,119) - JVS(1787) = 0.41*B(656) +! JVS(1787) = Jac_FULL(248,276) + JVS(1787) = 0 IF (DO_JVS(1788)) & -! JVS(1788) = Jac_FULL(226,154) - JVS(1788) = 0.53*B(632) +! JVS(1788) = Jac_FULL(248,301) + JVS(1788) = 0 IF (DO_JVS(1789)) & -! JVS(1789) = Jac_FULL(226,155) - JVS(1789) = 0.53*B(634) +! JVS(1789) = Jac_FULL(248,303) + JVS(1789) = 0.5*B(1797) IF (DO_JVS(1790)) & -! JVS(1790) = Jac_FULL(226,178) - JVS(1790) = B(1460) +! JVS(1790) = Jac_FULL(248,304) + JVS(1790) = 0 IF (DO_JVS(1791)) & -! JVS(1791) = Jac_FULL(226,202) - JVS(1791) = 0.19*B(1398) +! JVS(1791) = Jac_FULL(248,305) + JVS(1791) = 0 IF (DO_JVS(1792)) & -! JVS(1792) = Jac_FULL(226,215) - JVS(1792) = 0.149*B(679) +! JVS(1792) = Jac_FULL(248,308) + JVS(1792) = 0.37*B(1291) IF (DO_JVS(1793)) & -! JVS(1793) = Jac_FULL(226,216) - JVS(1793) = 0.464*B(660)+0.34*B(668)+0.464*B(672)+0.464*B(676)+0.149*B(680)+0.285*B(681) +! JVS(1793) = Jac_FULL(248,335) + JVS(1793) = B(1257) IF (DO_JVS(1794)) & -! JVS(1794) = Jac_FULL(226,225) - JVS(1794) = 0.289*B(646) +! JVS(1794) = Jac_FULL(248,337) + JVS(1794) = 0.059*B(1115)+0.37*B(1292) IF (DO_JVS(1795)) & -! JVS(1795) = Jac_FULL(226,226) - JVS(1795) = -B(173)-B(179)-B(1380) +! JVS(1795) = Jac_FULL(248,345) + JVS(1795) = -B(1243) IF (DO_JVS(1796)) & -! JVS(1796) = Jac_FULL(226,238) - JVS(1796) = 0.44*B(622)+0.75*B(626)+1.125*B(628)+B(630) +! JVS(1796) = Jac_FULL(248,346) + JVS(1796) = 0.272*B(1117)+B(1286) IF (DO_JVS(1797)) & -! JVS(1797) = Jac_FULL(226,254) - JVS(1797) = 0.25*B(187)+0.1*B(258) +! JVS(1797) = Jac_FULL(249,249) + JVS(1797) = -B(175)-B(224)-B(259)-B(361) IF (DO_JVS(1798)) & -! JVS(1798) = Jac_FULL(226,256) - JVS(1798) = 0.19*B(124)+0.35*B(181)+0.271*B(254) +! JVS(1798) = Jac_FULL(249,279) + JVS(1798) = B(197) IF (DO_JVS(1799)) & -! JVS(1799) = Jac_FULL(226,257) - JVS(1799) = 0 +! JVS(1799) = Jac_FULL(249,324) + JVS(1799) = -B(362) IF (DO_JVS(1800)) & -! JVS(1800) = Jac_FULL(226,261) - JVS(1800) = 0.271*B(255)+0.1*B(259)+1.125*B(629)+0.464*B(673) +! JVS(1800) = Jac_FULL(249,328) + JVS(1800) = -B(260) IF (DO_JVS(1801)) & -! JVS(1801) = Jac_FULL(226,266) - JVS(1801) = 0.35*B(182)+0.25*B(188)+0.75*B(627)+0.34*B(669) +! JVS(1801) = Jac_FULL(249,337) + JVS(1801) = -B(225) IF (DO_JVS(1802)) & -! JVS(1802) = Jac_FULL(226,279) - JVS(1802) = 0.19*B(125)+0.44*B(623)+0.289*B(647)+0.464*B(661) +! JVS(1802) = Jac_FULL(249,345) + JVS(1802) = B(198) IF (DO_JVS(1803)) & -! JVS(1803) = Jac_FULL(226,281) - JVS(1803) = -B(180)+B(631)+0.464*B(677) +! JVS(1803) = Jac_FULL(249,346) + JVS(1803) = -B(176) IF (DO_JVS(1804)) & -! JVS(1804) = Jac_FULL(226,282) - JVS(1804) = 0.53*B(633)+0.53*B(635) +! JVS(1804) = Jac_FULL(250,125) + JVS(1804) = 0.209*B(324) IF (DO_JVS(1805)) & -! JVS(1805) = Jac_FULL(226,284) - JVS(1805) = 0 +! JVS(1805) = Jac_FULL(250,250) + JVS(1805) = -B(191)-B(232)-B(267)-B(363) IF (DO_JVS(1806)) & -! JVS(1806) = Jac_FULL(226,286) - JVS(1806) = -B(174)+0.41*B(657) +! JVS(1806) = Jac_FULL(250,290) + JVS(1806) = B(310) IF (DO_JVS(1807)) & -! JVS(1807) = Jac_FULL(227,44) - JVS(1807) = 0.008*B(585) +! JVS(1807) = Jac_FULL(250,324) + JVS(1807) = -B(364) IF (DO_JVS(1808)) & -! JVS(1808) = Jac_FULL(227,49) - JVS(1808) = B(1448) +! JVS(1808) = Jac_FULL(250,328) + JVS(1808) = -B(268) IF (DO_JVS(1809)) & -! JVS(1809) = Jac_FULL(227,92) - JVS(1809) = -B(562)+B(566) +! JVS(1809) = Jac_FULL(250,337) + JVS(1809) = -B(233) IF (DO_JVS(1810)) & -! JVS(1810) = Jac_FULL(227,227) - JVS(1810) = -B(553)-B(560)-B(563)-B(568)-B(580)-B(582)-2*B(584)-B(1437) +! JVS(1810) = Jac_FULL(250,345) + JVS(1810) = 0.209*B(325) IF (DO_JVS(1811)) & -! JVS(1811) = Jac_FULL(227,268) - JVS(1811) = B(578) +! JVS(1811) = Jac_FULL(250,346) + JVS(1811) = -B(192) IF (DO_JVS(1812)) & -! JVS(1812) = Jac_FULL(227,269) - JVS(1812) = B(558)+B(570) +! JVS(1812) = Jac_FULL(250,351) + JVS(1812) = B(311) IF (DO_JVS(1813)) & -! JVS(1813) = Jac_FULL(227,270) - JVS(1813) = B(555) +! JVS(1813) = Jac_FULL(251,251) + JVS(1813) = -B(195)-B(1622)-B(1685) IF (DO_JVS(1814)) & -! JVS(1814) = Jac_FULL(227,274) - JVS(1814) = B(559)-B(561) +! JVS(1814) = Jac_FULL(251,318) + JVS(1814) = B(220) IF (DO_JVS(1815)) & -! JVS(1815) = Jac_FULL(227,279) - JVS(1815) = B(567)-B(583) +! JVS(1815) = Jac_FULL(251,319) + JVS(1815) = B(179) IF (DO_JVS(1816)) & -! JVS(1816) = Jac_FULL(227,282) - JVS(1816) = B(571) +! JVS(1816) = Jac_FULL(251,320) + JVS(1816) = 0.07*B(236) IF (DO_JVS(1817)) & -! JVS(1817) = Jac_FULL(227,284) - JVS(1817) = -B(581) +! JVS(1817) = Jac_FULL(251,337) + JVS(1817) = B(221) IF (DO_JVS(1818)) & -! JVS(1818) = Jac_FULL(227,285) - JVS(1818) = -B(569) +! JVS(1818) = Jac_FULL(251,345) + JVS(1818) = -B(196) IF (DO_JVS(1819)) & -! JVS(1819) = Jac_FULL(227,286) - JVS(1819) = B(579) +! JVS(1819) = Jac_FULL(251,346) + JVS(1819) = B(180)+0.07*B(237) IF (DO_JVS(1820)) & -! JVS(1820) = Jac_FULL(227,291) - JVS(1820) = -B(554) +! 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) IF (DO_JVS(1821)) & -! JVS(1821) = Jac_FULL(228,125) - JVS(1821) = 0.08*B(1065) +! JVS(1821) = Jac_FULL(252,331) + JVS(1821) = B(646) IF (DO_JVS(1822)) & -! JVS(1822) = Jac_FULL(228,130) - JVS(1822) = 0.67*B(813) +! JVS(1822) = Jac_FULL(252,335) + JVS(1822) = B(647) IF (DO_JVS(1823)) & -! JVS(1823) = Jac_FULL(228,131) - JVS(1823) = 0.81*B(817) +! JVS(1823) = Jac_FULL(252,344) + JVS(1823) = -B(1598) IF (DO_JVS(1824)) & -! JVS(1824) = Jac_FULL(228,139) - JVS(1824) = 0 +! JVS(1824) = Jac_FULL(252,349) + JVS(1824) = -B(1592) IF (DO_JVS(1825)) & -! JVS(1825) = Jac_FULL(228,140) - JVS(1825) = 0 +! JVS(1825) = Jac_FULL(252,350) + JVS(1825) = -B(1594) IF (DO_JVS(1826)) & -! JVS(1826) = Jac_FULL(228,157) - JVS(1826) = 0 +! JVS(1826) = Jac_FULL(252,353) + JVS(1826) = -B(1596) IF (DO_JVS(1827)) & -! JVS(1827) = Jac_FULL(228,162) - JVS(1827) = 0 +! JVS(1827) = Jac_FULL(253,172) + JVS(1827) = B(1252)+B(1254) IF (DO_JVS(1828)) & -! JVS(1828) = Jac_FULL(228,192) - JVS(1828) = 0.294*B(766) +! JVS(1828) = Jac_FULL(253,231) + JVS(1828) = 0 IF (DO_JVS(1829)) & -! JVS(1829) = Jac_FULL(228,214) - JVS(1829) = 0 +! JVS(1829) = Jac_FULL(253,253) + JVS(1829) = -B(1276)-B(1282)-B(1283)-B(1285) IF (DO_JVS(1830)) & -! JVS(1830) = Jac_FULL(228,220) +! JVS(1830) = Jac_FULL(253,276) JVS(1830) = 0 IF (DO_JVS(1831)) & -! JVS(1831) = Jac_FULL(228,228) - JVS(1831) = -B(819)-B(820)-B(821)-B(823)-B(825) +! JVS(1831) = Jac_FULL(253,301) + JVS(1831) = 0 IF (DO_JVS(1832)) & -! JVS(1832) = Jac_FULL(228,229) +! JVS(1832) = Jac_FULL(253,304) JVS(1832) = 0 IF (DO_JVS(1833)) & -! JVS(1833) = Jac_FULL(228,244) - JVS(1833) = 0 +! JVS(1833) = Jac_FULL(253,309) + JVS(1833) = 0.964*B(1228) IF (DO_JVS(1834)) & -! JVS(1834) = Jac_FULL(228,245) +! JVS(1834) = Jac_FULL(253,335) JVS(1834) = 0 IF (DO_JVS(1835)) & -! JVS(1835) = Jac_FULL(228,246) - JVS(1835) = 0 +! JVS(1835) = Jac_FULL(253,337) + JVS(1835) = B(1255)-B(1277) IF (DO_JVS(1836)) & -! JVS(1836) = Jac_FULL(228,247) - JVS(1836) = 0 +! JVS(1836) = Jac_FULL(253,345) + JVS(1836) = 0.964*B(1229) IF (DO_JVS(1837)) & -! JVS(1837) = Jac_FULL(228,266) - JVS(1837) = 0 +! JVS(1837) = Jac_FULL(253,346) + JVS(1837) = B(1253)-B(1284)-B(1286) IF (DO_JVS(1838)) & -! JVS(1838) = Jac_FULL(228,279) - JVS(1838) = -B(824)-B(826) +! JVS(1838) = Jac_FULL(254,171) + JVS(1838) = B(1246)+B(1248) IF (DO_JVS(1839)) & -! JVS(1839) = Jac_FULL(228,284) - JVS(1839) = -B(822) +! JVS(1839) = Jac_FULL(254,230) + JVS(1839) = 0 IF (DO_JVS(1840)) & -! JVS(1840) = Jac_FULL(228,286) - JVS(1840) = 0.294*B(767)+0.67*B(814)+0.81*B(818)+0.08*B(1066) +! JVS(1840) = Jac_FULL(254,254) + JVS(1840) = -B(1270)-B(1272)-B(1274) IF (DO_JVS(1841)) & -! JVS(1841) = Jac_FULL(229,125) - JVS(1841) = 0.032*B(1065) +! JVS(1841) = Jac_FULL(254,276) + JVS(1841) = 0 IF (DO_JVS(1842)) & -! JVS(1842) = Jac_FULL(229,130) - JVS(1842) = 0.33*B(813) +! JVS(1842) = Jac_FULL(254,301) + JVS(1842) = 0 IF (DO_JVS(1843)) & -! JVS(1843) = Jac_FULL(229,131) - JVS(1843) = 0.19*B(817) +! JVS(1843) = Jac_FULL(254,305) + JVS(1843) = 0 IF (DO_JVS(1844)) & -! JVS(1844) = Jac_FULL(229,139) - JVS(1844) = 0 +! JVS(1844) = Jac_FULL(254,314) + JVS(1844) = B(1224) IF (DO_JVS(1845)) & -! JVS(1845) = Jac_FULL(229,140) +! JVS(1845) = Jac_FULL(254,335) JVS(1845) = 0 IF (DO_JVS(1846)) & -! JVS(1846) = Jac_FULL(229,157) - JVS(1846) = 0 +! JVS(1846) = Jac_FULL(254,337) + JVS(1846) = B(1249)-B(1271) IF (DO_JVS(1847)) & -! JVS(1847) = Jac_FULL(229,162) - JVS(1847) = 0 +! JVS(1847) = Jac_FULL(254,345) + JVS(1847) = B(1225) IF (DO_JVS(1848)) & -! JVS(1848) = Jac_FULL(229,192) - JVS(1848) = 0.068*B(766) +! JVS(1848) = Jac_FULL(254,346) + JVS(1848) = B(1247)-B(1273)-B(1275) IF (DO_JVS(1849)) & -! JVS(1849) = Jac_FULL(229,214) - JVS(1849) = 0 +! JVS(1849) = Jac_FULL(255,167) + JVS(1849) = 0.27*B(725) IF (DO_JVS(1850)) & -! JVS(1850) = Jac_FULL(229,220) - JVS(1850) = 0 +! JVS(1850) = Jac_FULL(255,255) + JVS(1850) = -B(806)-B(808)-B(810)-B(1817) IF (DO_JVS(1851)) & -! JVS(1851) = Jac_FULL(229,228) - JVS(1851) = 0 +! 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) IF (DO_JVS(1852)) & -! JVS(1852) = Jac_FULL(229,229) - JVS(1852) = -B(827)-B(828)-B(829)-B(831)-B(833) +! JVS(1852) = Jac_FULL(255,324) + JVS(1852) = 0.63*B(888) IF (DO_JVS(1853)) & -! JVS(1853) = Jac_FULL(229,244) - JVS(1853) = 0 +! JVS(1853) = Jac_FULL(255,328) + JVS(1853) = 0.63*B(886) IF (DO_JVS(1854)) & -! JVS(1854) = Jac_FULL(229,245) - JVS(1854) = 0 +! JVS(1854) = Jac_FULL(255,337) + JVS(1854) = 0.63*B(801) IF (DO_JVS(1855)) & -! JVS(1855) = Jac_FULL(229,246) - JVS(1855) = 0 +! JVS(1855) = Jac_FULL(255,341) + JVS(1855) = 0.27*B(726)-B(809) IF (DO_JVS(1856)) & -! JVS(1856) = Jac_FULL(229,247) - JVS(1856) = 0 +! JVS(1856) = Jac_FULL(255,345) + JVS(1856) = -B(807) IF (DO_JVS(1857)) & -! JVS(1857) = Jac_FULL(229,266) - JVS(1857) = 0 +! JVS(1857) = Jac_FULL(255,346) + JVS(1857) = 0.47*B(803) IF (DO_JVS(1858)) & -! JVS(1858) = Jac_FULL(229,279) - JVS(1858) = -B(830)-B(832) +! JVS(1858) = Jac_FULL(255,351) + JVS(1858) = 0.63*B(805)-B(811) IF (DO_JVS(1859)) & -! JVS(1859) = Jac_FULL(229,284) - JVS(1859) = -B(834) +! JVS(1859) = Jac_FULL(256,162) + JVS(1859) = 0.5*B(798) IF (DO_JVS(1860)) & -! JVS(1860) = Jac_FULL(229,286) - JVS(1860) = 0.068*B(767)+0.33*B(814)+0.19*B(818)+0.032*B(1066) +! JVS(1860) = Jac_FULL(256,176) + JVS(1860) = 0.5*B(772) IF (DO_JVS(1861)) & -! JVS(1861) = Jac_FULL(230,129) - JVS(1861) = 0.19*B(762) +! JVS(1861) = Jac_FULL(256,177) + JVS(1861) = 0.5*B(836) IF (DO_JVS(1862)) & -! JVS(1862) = Jac_FULL(230,157) - JVS(1862) = 0.125*B(780) +! JVS(1862) = Jac_FULL(256,211) + JVS(1862) = 0 IF (DO_JVS(1863)) & -! JVS(1863) = Jac_FULL(230,164) - JVS(1863) = 0.429*B(1069) +! JVS(1863) = Jac_FULL(256,237) + JVS(1863) = 0 IF (DO_JVS(1864)) & -! JVS(1864) = Jac_FULL(230,171) +! JVS(1864) = Jac_FULL(256,255) JVS(1864) = 0 IF (DO_JVS(1865)) & -! JVS(1865) = Jac_FULL(230,182) - JVS(1865) = 0 +! JVS(1865) = Jac_FULL(256,256) + JVS(1865) = -B(925)-B(933)-B(1623)-B(1750) IF (DO_JVS(1866)) & -! JVS(1866) = Jac_FULL(230,183) - JVS(1866) = 0.706*B(796)+0.14*B(800) +! JVS(1866) = Jac_FULL(256,272) + JVS(1866) = 0 IF (DO_JVS(1867)) & -! JVS(1867) = Jac_FULL(230,186) - JVS(1867) = 0.33*B(758) +! JVS(1867) = Jac_FULL(256,273) + JVS(1867) = 0 IF (DO_JVS(1868)) & -! JVS(1868) = Jac_FULL(230,187) +! JVS(1868) = Jac_FULL(256,275) JVS(1868) = 0 IF (DO_JVS(1869)) & -! JVS(1869) = Jac_FULL(230,192) - JVS(1869) = 0.125*B(766) +! JVS(1869) = Jac_FULL(256,277) + JVS(1869) = 0 IF (DO_JVS(1870)) & -! JVS(1870) = Jac_FULL(230,204) - JVS(1870) = 0.335*B(1027) +! JVS(1870) = Jac_FULL(256,278) + JVS(1870) = 0 IF (DO_JVS(1871)) & -! JVS(1871) = Jac_FULL(230,213) - JVS(1871) = 0.75*B(1071)+0.5*B(1510) +! 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) IF (DO_JVS(1872)) & -! JVS(1872) = Jac_FULL(230,214) +! JVS(1872) = Jac_FULL(256,281) JVS(1872) = 0 IF (DO_JVS(1873)) & -! JVS(1873) = Jac_FULL(230,220) - JVS(1873) = 0.55*B(1493) +! JVS(1873) = Jac_FULL(256,289) + JVS(1873) = 0.7*B(907)+0.35*B(911)+1.05*B(923)+0.7*B(924) IF (DO_JVS(1874)) & -! JVS(1874) = Jac_FULL(230,222) - JVS(1874) = 0.054*B(955)+0.059*B(959) +! JVS(1874) = Jac_FULL(256,324) + JVS(1874) = 0.7*B(914) IF (DO_JVS(1875)) & -! JVS(1875) = Jac_FULL(230,224) - JVS(1875) = 0 +! JVS(1875) = Jac_FULL(256,328) + JVS(1875) = 0.7*B(910)+0.35*B(912) IF (DO_JVS(1876)) & -! JVS(1876) = Jac_FULL(230,228) - JVS(1876) = 0 +! JVS(1876) = Jac_FULL(256,337) + JVS(1876) = 0.7*B(906)+0.7*B(908) IF (DO_JVS(1877)) & -! JVS(1877) = Jac_FULL(230,229) +! JVS(1877) = Jac_FULL(256,341) JVS(1877) = 0 IF (DO_JVS(1878)) & -! JVS(1878) = Jac_FULL(230,230) - JVS(1878) = -B(995)-B(1477) +! JVS(1878) = Jac_FULL(256,345) + JVS(1878) = 0.5*B(773)+0.5*B(799)+0.5*B(837)-B(926) IF (DO_JVS(1879)) & -! JVS(1879) = Jac_FULL(230,240) - JVS(1879) = 0 +! JVS(1879) = Jac_FULL(256,346) + JVS(1879) = B(902) IF (DO_JVS(1880)) & -! JVS(1880) = Jac_FULL(230,242) - JVS(1880) = 0 +! JVS(1880) = Jac_FULL(256,351) + JVS(1880) = 0.7*B(918)-B(934) IF (DO_JVS(1881)) & -! JVS(1881) = Jac_FULL(230,244) - JVS(1881) = 0.5*B(732) +! JVS(1881) = Jac_FULL(257,56) + JVS(1881) = B(755) IF (DO_JVS(1882)) & -! JVS(1882) = Jac_FULL(230,245) - JVS(1882) = B(730)+0.5*B(733)+0.5*B(736)+0.55*B(748) +! JVS(1882) = Jac_FULL(257,74) + JVS(1882) = B(758) IF (DO_JVS(1883)) & -! JVS(1883) = Jac_FULL(230,246) - JVS(1883) = 0 +! JVS(1883) = Jac_FULL(257,111) + JVS(1883) = 0.4*B(741) IF (DO_JVS(1884)) & -! JVS(1884) = Jac_FULL(230,247) - JVS(1884) = 0 +! JVS(1884) = Jac_FULL(257,225) + JVS(1884) = B(745)+B(747) IF (DO_JVS(1885)) & -! JVS(1885) = Jac_FULL(230,248) - JVS(1885) = 0 +! JVS(1885) = Jac_FULL(257,257) + JVS(1885) = -B(749)-B(751)-B(753)-B(756)-B(893)-B(895) IF (DO_JVS(1886)) & -! JVS(1886) = Jac_FULL(230,266) - JVS(1886) = 0.5*B(737) +! JVS(1886) = Jac_FULL(257,277) + JVS(1886) = 0 IF (DO_JVS(1887)) & -! JVS(1887) = Jac_FULL(230,279) - JVS(1887) = 0.55*B(749)+0.706*B(797)+0.059*B(960) +! JVS(1887) = Jac_FULL(257,324) + JVS(1887) = -B(896) IF (DO_JVS(1888)) & -! JVS(1888) = Jac_FULL(230,281) - JVS(1888) = 0 +! JVS(1888) = Jac_FULL(257,328) + JVS(1888) = -B(894) IF (DO_JVS(1889)) & -! JVS(1889) = Jac_FULL(230,282) - JVS(1889) = 0 +! JVS(1889) = Jac_FULL(257,335) + JVS(1889) = -B(754) IF (DO_JVS(1890)) & -! JVS(1890) = Jac_FULL(230,284) - JVS(1890) = 0.14*B(801)+0.054*B(956)+0.335*B(1028) +! JVS(1890) = Jac_FULL(257,337) + JVS(1890) = -B(750) IF (DO_JVS(1891)) & -! JVS(1891) = Jac_FULL(230,286) - JVS(1891) = 0.33*B(759)+0.19*B(763)+0.125*B(767)+0.125*B(781)-B(996)+0.429*B(1070)+0.75*B(1072) +! JVS(1891) = Jac_FULL(257,341) + JVS(1891) = 0 IF (DO_JVS(1892)) & -! JVS(1892) = Jac_FULL(230,290) - JVS(1892) = 0 +! JVS(1892) = Jac_FULL(257,345) + JVS(1892) = 0.4*B(742)+B(748)+B(759) IF (DO_JVS(1893)) & -! JVS(1893) = Jac_FULL(230,291) - JVS(1893) = 0 +! JVS(1893) = Jac_FULL(257,346) + JVS(1893) = -B(752) IF (DO_JVS(1894)) & -! JVS(1894) = Jac_FULL(231,127) - JVS(1894) = 0.09*B(764) +! JVS(1894) = Jac_FULL(257,351) + JVS(1894) = B(746)-B(757) IF (DO_JVS(1895)) & -! JVS(1895) = Jac_FULL(231,162) - JVS(1895) = 0.165*B(782) +! JVS(1895) = Jac_FULL(258,174) + JVS(1895) = 0.333*B(1310)+0.75*B(1794) IF (DO_JVS(1896)) & -! JVS(1896) = Jac_FULL(231,164) - JVS(1896) = 0.571*B(1069) +! JVS(1896) = Jac_FULL(258,223) + JVS(1896) = 0.176*B(1031) IF (DO_JVS(1897)) & -! JVS(1897) = Jac_FULL(231,165) - JVS(1897) = 0 +! JVS(1897) = Jac_FULL(258,224) + JVS(1897) = 0.548*B(1038) IF (DO_JVS(1898)) & -! JVS(1898) = Jac_FULL(231,182) - JVS(1898) = 0.716*B(789)+0.14*B(793) +! JVS(1898) = Jac_FULL(258,232) + JVS(1898) = 0 IF (DO_JVS(1899)) & -! JVS(1899) = Jac_FULL(231,183) - JVS(1899) = 0 +! JVS(1899) = Jac_FULL(258,243) + JVS(1899) = 0.35*B(1078) IF (DO_JVS(1900)) & -! JVS(1900) = Jac_FULL(231,187) - JVS(1900) = 0 +! JVS(1900) = Jac_FULL(258,258) + JVS(1900) = -B(1306)-B(1792)-B(1793) IF (DO_JVS(1901)) & -! JVS(1901) = Jac_FULL(231,188) - JVS(1901) = 0.17*B(760) +! JVS(1901) = Jac_FULL(258,267) + JVS(1901) = 0 IF (DO_JVS(1902)) & -! JVS(1902) = Jac_FULL(231,192) - JVS(1902) = 0.158*B(766) +! JVS(1902) = Jac_FULL(258,268) + JVS(1902) = 0 IF (DO_JVS(1903)) & -! JVS(1903) = Jac_FULL(231,205) - JVS(1903) = 0.41*B(1033) +! JVS(1903) = Jac_FULL(258,285) + JVS(1903) = 0.35*B(1076) IF (DO_JVS(1904)) & -! JVS(1904) = Jac_FULL(231,206) - JVS(1904) = 0.5*B(1063)+0.5*B(1502) +! JVS(1904) = Jac_FULL(258,286) + JVS(1904) = 0.35*B(1064) IF (DO_JVS(1905)) & -! JVS(1905) = Jac_FULL(231,213) - JVS(1905) = 0.25*B(1071)+0.5*B(1510) +! JVS(1905) = Jac_FULL(258,304) + JVS(1905) = 0 IF (DO_JVS(1906)) & -! JVS(1906) = Jac_FULL(231,214) - JVS(1906) = 0.55*B(1496) +! JVS(1906) = Jac_FULL(258,305) + JVS(1906) = 0 IF (DO_JVS(1907)) & -! JVS(1907) = Jac_FULL(231,220) - JVS(1907) = 0 +! JVS(1907) = Jac_FULL(258,337) + JVS(1907) = 0.35*B(1065)+0.35*B(1077)+0.35*B(1079) IF (DO_JVS(1908)) & -! JVS(1908) = Jac_FULL(231,222) - JVS(1908) = 0.004*B(955)+0.006*B(959) +! JVS(1908) = Jac_FULL(258,345) + JVS(1908) = -B(1307)+0.333*B(1311) IF (DO_JVS(1909)) & -! JVS(1909) = Jac_FULL(231,224) +! JVS(1909) = Jac_FULL(258,346) JVS(1909) = 0 IF (DO_JVS(1910)) & -! JVS(1910) = Jac_FULL(231,228) - JVS(1910) = 0 +! JVS(1910) = Jac_FULL(259,159) + JVS(1910) = 0.165*B(1280) IF (DO_JVS(1911)) & -! JVS(1911) = Jac_FULL(231,229) - JVS(1911) = 0 +! JVS(1911) = Jac_FULL(259,184) + JVS(1911) = B(1301) IF (DO_JVS(1912)) & -! JVS(1912) = Jac_FULL(231,231) - JVS(1912) = -B(997)-B(1480) +! JVS(1912) = Jac_FULL(259,259) + JVS(1912) = -B(1278)-B(1287)-B(1289) IF (DO_JVS(1913)) & -! JVS(1913) = Jac_FULL(231,240) +! JVS(1913) = Jac_FULL(259,308) JVS(1913) = 0 IF (DO_JVS(1914)) & -! JVS(1914) = Jac_FULL(231,242) - JVS(1914) = 0.15*B(1508) +! JVS(1914) = Jac_FULL(259,309) + JVS(1914) = B(1230)+0.32*B(1234) IF (DO_JVS(1915)) & -! JVS(1915) = Jac_FULL(231,244) - JVS(1915) = B(731)+0.5*B(732)+0.5*B(740)+0.55*B(756) +! JVS(1915) = Jac_FULL(259,335) + JVS(1915) = -B(1290) IF (DO_JVS(1916)) & -! JVS(1916) = Jac_FULL(231,245) - JVS(1916) = 0.5*B(733) +! JVS(1916) = Jac_FULL(259,337) + JVS(1916) = -B(1279) IF (DO_JVS(1917)) & -! JVS(1917) = Jac_FULL(231,246) - JVS(1917) = 0 +! JVS(1917) = Jac_FULL(259,345) + JVS(1917) = B(1231)+0.165*B(1281) IF (DO_JVS(1918)) & -! JVS(1918) = Jac_FULL(231,247) - JVS(1918) = 0 +! JVS(1918) = Jac_FULL(259,346) + JVS(1918) = -B(1288) IF (DO_JVS(1919)) & -! JVS(1919) = Jac_FULL(231,251) - JVS(1919) = 0 +! JVS(1919) = Jac_FULL(259,351) + JVS(1919) = 0.32*B(1235) IF (DO_JVS(1920)) & -! JVS(1920) = Jac_FULL(231,266) - JVS(1920) = 0.5*B(741) +! JVS(1920) = Jac_FULL(260,123) + JVS(1920) = 0.209*B(338) IF (DO_JVS(1921)) & -! JVS(1921) = Jac_FULL(231,279) - JVS(1921) = 0.55*B(757)+0.716*B(790)+0.006*B(960) +! JVS(1921) = Jac_FULL(260,260) + JVS(1921) = -B(122)-B(216)-B(281)-B(369) IF (DO_JVS(1922)) & -! JVS(1922) = Jac_FULL(231,281) - JVS(1922) = 0 +! JVS(1922) = Jac_FULL(260,290) + JVS(1922) = B(285)+B(639)+B(641) IF (DO_JVS(1923)) & -! JVS(1923) = Jac_FULL(231,282) - JVS(1923) = 0 +! JVS(1923) = Jac_FULL(260,324) + JVS(1923) = -B(370) IF (DO_JVS(1924)) & -! JVS(1924) = Jac_FULL(231,284) - JVS(1924) = 0.14*B(794)+0.004*B(956)+0.41*B(1034) +! JVS(1924) = Jac_FULL(260,328) + JVS(1924) = -B(217) IF (DO_JVS(1925)) & -! JVS(1925) = Jac_FULL(231,286) - JVS(1925) = 0.17*B(761)+0.09*B(765)+0.158*B(767)+0.165*B(783)-B(998)+0.5*B(1064)+0.571*B(1070)+0.25*B(1072) +! JVS(1925) = Jac_FULL(260,337) + JVS(1925) = -B(282) IF (DO_JVS(1926)) & -! JVS(1926) = Jac_FULL(231,290) - JVS(1926) = 0 +! JVS(1926) = Jac_FULL(260,340) + JVS(1926) = B(640) IF (DO_JVS(1927)) & -! JVS(1927) = Jac_FULL(231,291) - JVS(1927) = 0 +! JVS(1927) = Jac_FULL(260,342) + JVS(1927) = B(642) IF (DO_JVS(1928)) & -! JVS(1928) = Jac_FULL(232,126) - JVS(1928) = B(936) +! JVS(1928) = Jac_FULL(260,345) + JVS(1928) = B(286)+0.209*B(339) IF (DO_JVS(1929)) & -! JVS(1929) = Jac_FULL(232,151) - JVS(1929) = 0 +! JVS(1929) = Jac_FULL(260,346) + JVS(1929) = -B(123) IF (DO_JVS(1930)) & -! JVS(1930) = Jac_FULL(232,181) - JVS(1930) = 0.33*B(937) +! JVS(1930) = Jac_FULL(261,180) + JVS(1930) = 0.89*B(1220)+0.73*B(1222) IF (DO_JVS(1931)) & -! JVS(1931) = Jac_FULL(232,232) - JVS(1931) = -B(898)-B(900)-B(902) +! JVS(1931) = Jac_FULL(261,182) + JVS(1931) = 0.099*B(1214)+0.099*B(1216) IF (DO_JVS(1932)) & -! JVS(1932) = Jac_FULL(232,242) - JVS(1932) = 0.037*B(1073) +! JVS(1932) = Jac_FULL(261,207) + JVS(1932) = 0.441*B(1135)+0.858*B(1137) IF (DO_JVS(1933)) & -! JVS(1933) = Jac_FULL(232,243) - JVS(1933) = 0 +! JVS(1933) = Jac_FULL(261,226) + JVS(1933) = 0.054*B(1200)+0.07*B(1206) IF (DO_JVS(1934)) & -! JVS(1934) = Jac_FULL(232,246) - JVS(1934) = 0 +! JVS(1934) = Jac_FULL(261,261) + JVS(1934) = -B(687)-B(1318)-B(1749) IF (DO_JVS(1935)) & -! JVS(1935) = Jac_FULL(232,247) +! JVS(1935) = Jac_FULL(261,267) JVS(1935) = 0 IF (DO_JVS(1936)) & -! JVS(1936) = Jac_FULL(232,261) - JVS(1936) = 0 +! JVS(1936) = Jac_FULL(261,271) + JVS(1936) = 0.051*B(1198)+0.064*B(1202) IF (DO_JVS(1937)) & -! JVS(1937) = Jac_FULL(232,266) - JVS(1937) = 0 +! JVS(1937) = Jac_FULL(261,293) + JVS(1937) = 0.033*B(1141)+0.071*B(1143) IF (DO_JVS(1938)) & -! JVS(1938) = Jac_FULL(232,279) - JVS(1938) = -B(901)-B(903) +! JVS(1938) = Jac_FULL(261,299) + JVS(1938) = 0 IF (DO_JVS(1939)) & -! JVS(1939) = Jac_FULL(232,281) +! JVS(1939) = Jac_FULL(261,301) JVS(1939) = 0 IF (DO_JVS(1940)) & -! JVS(1940) = Jac_FULL(232,284) - JVS(1940) = -B(899) +! JVS(1940) = Jac_FULL(261,302) + JVS(1940) = 0.3*B(1772) IF (DO_JVS(1941)) & -! JVS(1941) = Jac_FULL(232,286) - JVS(1941) = 0.33*B(938)+0.037*B(1074) +! JVS(1941) = Jac_FULL(261,303) + JVS(1941) = 0.15*B(1797) IF (DO_JVS(1942)) & -! JVS(1942) = Jac_FULL(233,79) - JVS(1942) = 0.12*B(1118) +! JVS(1942) = Jac_FULL(261,311) + JVS(1942) = 0 IF (DO_JVS(1943)) & -! JVS(1943) = Jac_FULL(233,80) - JVS(1943) = 0.2*B(1120) +! 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) IF (DO_JVS(1944)) & -! JVS(1944) = Jac_FULL(233,105) - JVS(1944) = 0.7*B(1061) +! JVS(1944) = Jac_FULL(261,345) + JVS(1944) = -B(688) IF (DO_JVS(1945)) & -! JVS(1945) = Jac_FULL(233,136) - JVS(1945) = 0 +! 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) IF (DO_JVS(1946)) & -! JVS(1946) = Jac_FULL(233,148) - JVS(1946) = 0.6*B(1188)+0.6*B(1190)+0.2*B(1192) +! JVS(1946) = Jac_FULL(261,351) + JVS(1946) = -B(1319) IF (DO_JVS(1947)) & -! JVS(1947) = Jac_FULL(233,153) - JVS(1947) = 0 +! JVS(1947) = Jac_FULL(262,193) + JVS(1947) = 0.3*B(865)+0.3*B(867)+0.15*B(869) IF (DO_JVS(1948)) & -! JVS(1948) = Jac_FULL(233,156) - JVS(1948) = B(1017)+0.571*B(1478) +! JVS(1948) = Jac_FULL(262,219) + JVS(1948) = 0.4*B(729) IF (DO_JVS(1949)) & -! JVS(1949) = Jac_FULL(233,163) - JVS(1949) = 0.187*B(1015)+0.125*B(1479) +! JVS(1949) = Jac_FULL(262,229) + JVS(1949) = 0.78*B(859)+0.78*B(861)+0.39*B(863)+0.675*B(1816) IF (DO_JVS(1950)) & -! JVS(1950) = Jac_FULL(233,164) - JVS(1950) = 0.429*B(1505) +! JVS(1950) = Jac_FULL(262,262) + JVS(1950) = -B(871)-B(873)-B(875) IF (DO_JVS(1951)) & -! JVS(1951) = Jac_FULL(233,165) - JVS(1951) = 0.018*B(786) +! JVS(1951) = Jac_FULL(262,291) + JVS(1951) = 0.675*B(855)+0.675*B(857)+0.675*B(889)+0.675*B(891) IF (DO_JVS(1952)) & -! JVS(1952) = Jac_FULL(233,171) - JVS(1952) = 0.018*B(784) +! JVS(1952) = Jac_FULL(262,324) + JVS(1952) = 0.675*B(892) IF (DO_JVS(1953)) & -! JVS(1953) = Jac_FULL(233,174) - JVS(1953) = 0.5*B(768) +! JVS(1953) = Jac_FULL(262,328) + JVS(1953) = 0.675*B(890) IF (DO_JVS(1954)) & -! JVS(1954) = Jac_FULL(233,182) +! JVS(1954) = Jac_FULL(262,337) JVS(1954) = 0 IF (DO_JVS(1955)) & -! JVS(1955) = Jac_FULL(233,183) - JVS(1955) = 0 +! JVS(1955) = Jac_FULL(262,341) + JVS(1955) = 0.4*B(730)+0.78*B(862)+0.3*B(868)-B(874) IF (DO_JVS(1956)) & -! JVS(1956) = Jac_FULL(233,185) - JVS(1956) = B(1021)+0.5*B(1476) +! JVS(1956) = Jac_FULL(262,345) + JVS(1956) = 0.78*B(860)+0.3*B(866)-B(872) IF (DO_JVS(1957)) & -! JVS(1957) = Jac_FULL(233,186) - JVS(1957) = 0.085*B(758) +! JVS(1957) = Jac_FULL(262,346) + JVS(1957) = 0.675*B(856) IF (DO_JVS(1958)) & -! JVS(1958) = Jac_FULL(233,187) - JVS(1958) = 0 +! JVS(1958) = Jac_FULL(262,351) + JVS(1958) = 0.675*B(858)+0.39*B(864)+0.15*B(870)-B(876) IF (DO_JVS(1959)) & -! JVS(1959) = Jac_FULL(233,188) - JVS(1959) = 0.165*B(760) +! JVS(1959) = Jac_FULL(263,82) + JVS(1959) = 0.81*B(1383) IF (DO_JVS(1960)) & -! JVS(1960) = Jac_FULL(233,192) - JVS(1960) = 0.355*B(766) +! JVS(1960) = Jac_FULL(263,101) + JVS(1960) = 0.85*B(1385) IF (DO_JVS(1961)) & -! JVS(1961) = Jac_FULL(233,196) - JVS(1961) = 0.3*B(61) +! JVS(1961) = Jac_FULL(263,137) + JVS(1961) = 0.5*B(743) IF (DO_JVS(1962)) & -! JVS(1962) = Jac_FULL(233,198) - JVS(1962) = B(590) +! JVS(1962) = Jac_FULL(263,138) + JVS(1962) = 0.5*B(780) IF (DO_JVS(1963)) & -! JVS(1963) = Jac_FULL(233,201) - JVS(1963) = 0 +! JVS(1963) = Jac_FULL(263,143) + JVS(1963) = 0.46*B(1381) IF (DO_JVS(1964)) & -! JVS(1964) = Jac_FULL(233,204) - JVS(1964) = 0.05*B(1027)+0.242*B(1029) +! JVS(1964) = Jac_FULL(263,149) + JVS(1964) = 0.813*B(1344)+B(1346) IF (DO_JVS(1965)) & -! JVS(1965) = Jac_FULL(233,205) - JVS(1965) = 0.083*B(1033)+0.14*B(1040) +! JVS(1965) = Jac_FULL(263,158) + JVS(1965) = 0.2*B(1418)+0.2*B(1420) IF (DO_JVS(1966)) & -! JVS(1966) = Jac_FULL(233,206) - JVS(1966) = 0.118*B(1503) +! JVS(1966) = Jac_FULL(263,160) + JVS(1966) = 0.5*B(770)+B(1811) IF (DO_JVS(1967)) & -! JVS(1967) = Jac_FULL(233,207) - JVS(1967) = 0 +! JVS(1967) = Jac_FULL(263,167) + JVS(1967) = 0.15*B(725) IF (DO_JVS(1968)) & -! JVS(1968) = Jac_FULL(233,213) - JVS(1968) = B(1509) +! JVS(1968) = Jac_FULL(263,176) + JVS(1968) = 0.55*B(772) IF (DO_JVS(1969)) & -! JVS(1969) = Jac_FULL(233,214) - JVS(1969) = 0 +! JVS(1969) = Jac_FULL(263,193) + JVS(1969) = 0.7*B(865)+0.7*B(867)+0.35*B(869) IF (DO_JVS(1970)) & -! JVS(1970) = Jac_FULL(233,220) - JVS(1970) = 0 +! JVS(1970) = Jac_FULL(263,195) + JVS(1970) = 0.14*B(1414) IF (DO_JVS(1971)) & -! JVS(1971) = Jac_FULL(233,222) - JVS(1971) = 0 +! JVS(1971) = Jac_FULL(263,200) + JVS(1971) = 0.93*B(1348)+B(1350) IF (DO_JVS(1972)) & -! JVS(1972) = Jac_FULL(233,224) - JVS(1972) = 0.3*B(710)+0.3*B(712) +! JVS(1972) = Jac_FULL(263,202) + JVS(1972) = 0.7*B(1422)+0.2*B(1426) IF (DO_JVS(1973)) & -! JVS(1973) = Jac_FULL(233,228) - JVS(1973) = 0.52*B(821)+0.8*B(823) +! JVS(1973) = Jac_FULL(263,211) + JVS(1973) = B(822) IF (DO_JVS(1974)) & -! JVS(1974) = Jac_FULL(233,229) - JVS(1974) = 0 +! JVS(1974) = Jac_FULL(263,219) + JVS(1974) = 0.5*B(729) IF (DO_JVS(1975)) & -! JVS(1975) = Jac_FULL(233,230) - JVS(1975) = 0.47*B(1477) +! JVS(1975) = Jac_FULL(263,220) + JVS(1975) = 0.7*B(1338)+B(1340) IF (DO_JVS(1976)) & -! JVS(1976) = Jac_FULL(233,231) - JVS(1976) = 0.23*B(1480) +! JVS(1976) = Jac_FULL(263,229) + JVS(1976) = 0.7*B(859)+0.7*B(861)+0.35*B(863) IF (DO_JVS(1977)) & -! JVS(1977) = Jac_FULL(233,232) - JVS(1977) = 0 +! JVS(1977) = Jac_FULL(263,237) + JVS(1977) = B(816) IF (DO_JVS(1978)) & -! JVS(1978) = Jac_FULL(233,233) - JVS(1978) = -B(221)-B(225)-B(1334)-B(1385) +! JVS(1978) = Jac_FULL(263,255) + JVS(1978) = B(810) IF (DO_JVS(1979)) & -! JVS(1979) = Jac_FULL(233,240) - JVS(1979) = 0 +! JVS(1979) = Jac_FULL(263,262) + JVS(1979) = B(871)+B(873)+0.5*B(875) IF (DO_JVS(1980)) & -! JVS(1980) = Jac_FULL(233,241) - JVS(1980) = 0.449*B(993) +! JVS(1980) = Jac_FULL(263,263) + JVS(1980) = -B(1387)-B(1389)-B(1391)-B(1393)-B(1395) IF (DO_JVS(1981)) & -! JVS(1981) = Jac_FULL(233,242) +! JVS(1981) = Jac_FULL(263,275) JVS(1981) = 0 IF (DO_JVS(1982)) & -! JVS(1982) = Jac_FULL(233,243) +! JVS(1982) = Jac_FULL(263,277) JVS(1982) = 0 IF (DO_JVS(1983)) & -! JVS(1983) = Jac_FULL(233,244) - JVS(1983) = 0.3*B(725) +! JVS(1983) = Jac_FULL(263,278) + JVS(1983) = 0.84*B(764)+B(766)+0.75*B(768) IF (DO_JVS(1984)) & -! JVS(1984) = Jac_FULL(233,245) - JVS(1984) = 0.3*B(723) +! JVS(1984) = Jac_FULL(263,281) + JVS(1984) = 0 IF (DO_JVS(1985)) & -! JVS(1985) = Jac_FULL(233,246) +! JVS(1985) = Jac_FULL(263,291) JVS(1985) = 0 IF (DO_JVS(1986)) & -! JVS(1986) = Jac_FULL(233,247) - JVS(1986) = 0 +! JVS(1986) = Jac_FULL(263,324) + JVS(1986) = -B(1396) IF (DO_JVS(1987)) & -! JVS(1987) = Jac_FULL(233,248) - JVS(1987) = 0.545*B(983) +! JVS(1987) = Jac_FULL(263,328) + JVS(1987) = 0.75*B(769)-B(1394) IF (DO_JVS(1988)) & -! JVS(1988) = Jac_FULL(233,249) - JVS(1988) = 0 +! JVS(1988) = Jac_FULL(263,337) + JVS(1988) = -B(1388) IF (DO_JVS(1989)) & -! JVS(1989) = Jac_FULL(233,250) - JVS(1989) = B(227) +! 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) IF (DO_JVS(1990)) & -! JVS(1990) = Jac_FULL(233,251) - JVS(1990) = 0.88*B(989) +! 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) IF (DO_JVS(1991)) & -! JVS(1991) = Jac_FULL(233,252) - JVS(1991) = 0.5*B(185)+0.1*B(256) +! JVS(1991) = Jac_FULL(263,346) + JVS(1991) = 0.84*B(765)-B(1390) IF (DO_JVS(1992)) & -! JVS(1992) = Jac_FULL(233,253) - JVS(1992) = 0 +! 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) IF (DO_JVS(1993)) & -! JVS(1993) = Jac_FULL(233,254) - JVS(1993) = 0 +! JVS(1993) = Jac_FULL(264,241) + JVS(1993) = B(713) IF (DO_JVS(1994)) & -! JVS(1994) = Jac_FULL(233,261) - JVS(1994) = 0.1*B(257) +! JVS(1994) = Jac_FULL(264,264) + JVS(1994) = -B(15)-B(40)-B(469)-B(571)-B(1645) IF (DO_JVS(1995)) & -! JVS(1995) = Jac_FULL(233,266) - JVS(1995) = 0.5*B(186) +! JVS(1995) = Jac_FULL(264,276) + JVS(1995) = 0.013*B(947) IF (DO_JVS(1996)) & -! JVS(1996) = Jac_FULL(233,279) - JVS(1996) = 0.8*B(824)+0.242*B(1030)+0.14*B(1041) +! JVS(1996) = Jac_FULL(264,290) + JVS(1996) = 0 IF (DO_JVS(1997)) & -! JVS(1997) = Jac_FULL(233,281) - JVS(1997) = -B(226) +! JVS(1997) = Jac_FULL(264,312) + JVS(1997) = 0.06*B(697)+0.06*B(699) IF (DO_JVS(1998)) & -! JVS(1998) = Jac_FULL(233,282) - JVS(1998) = 0.545*B(984)+0.88*B(990)+0.6*B(1191) +! JVS(1998) = Jac_FULL(264,314) + JVS(1998) = 0.045*B(1226) IF (DO_JVS(1999)) & -! JVS(1999) = Jac_FULL(233,284) - JVS(1999) = 0.52*B(822)+0.05*B(1028)+0.083*B(1034) +! JVS(1999) = Jac_FULL(264,329) + JVS(1999) = 0 IF (DO_JVS(2000)) & -! JVS(2000) = Jac_FULL(233,286) - JVS(2000) = 0.3*B(62)-B(222)+B(228)+B(591)+0.3*B(711)+0.3*B(713)+0.085*B(759)+0.165*B(761)+0.355*B(767)+0.5*B(769)& - &+0.018*B(785)+0.018*B(787)+0.449*B(994)+0.187*B(1016)+B(1018)+B(1022)+0.7*B(1062)+0.12*B(1119)+0.2*B(1121)& - &+0.6*B(1189) +! JVS(2000) = Jac_FULL(264,335) + JVS(2000) = 0 IF (DO_JVS(2001)) & -! JVS(2001) = Jac_FULL(233,290) - JVS(2001) = 0 +! JVS(2001) = Jac_FULL(264,336) + JVS(2001) = 0.06*B(698)+0.06*B(700)+B(714) IF (DO_JVS(2002)) & -! JVS(2002) = Jac_FULL(233,291) - JVS(2002) = 0 +! JVS(2002) = Jac_FULL(264,337) + JVS(2002) = B(44) IF (DO_JVS(2003)) & -! JVS(2003) = Jac_FULL(234,76) - JVS(2003) = B(1093) +! JVS(2003) = Jac_FULL(264,340) + JVS(2003) = -B(572) IF (DO_JVS(2004)) & -! JVS(2004) = Jac_FULL(234,224) - JVS(2004) = 0.58*B(704) +! JVS(2004) = Jac_FULL(264,341) + JVS(2004) = 0.013*B(948)+0.045*B(1227) IF (DO_JVS(2005)) & -! JVS(2005) = Jac_FULL(234,234) - JVS(2005) = -B(592)-B(594)-B(596)-B(598)-B(600)-B(602)-B(604) +! JVS(2005) = Jac_FULL(264,343) + JVS(2005) = -B(470) IF (DO_JVS(2006)) & -! JVS(2006) = Jac_FULL(234,248) - JVS(2006) = 0.5*B(983) +! JVS(2006) = Jac_FULL(264,345) + JVS(2006) = B(37)-B(41) IF (DO_JVS(2007)) & -! JVS(2007) = Jac_FULL(234,251) - JVS(2007) = 0.88*B(989) +! JVS(2007) = Jac_FULL(264,346) + JVS(2007) = 0 IF (DO_JVS(2008)) & -! JVS(2008) = Jac_FULL(234,253) - JVS(2008) = 0.22*B(211) +! JVS(2008) = Jac_FULL(264,348) + JVS(2008) = -B(16) IF (DO_JVS(2009)) & -! JVS(2009) = Jac_FULL(234,267) - JVS(2009) = -B(593) +! JVS(2009) = Jac_FULL(265,60) + JVS(2009) = 0.364*B(1362) IF (DO_JVS(2010)) & -! JVS(2010) = Jac_FULL(234,276) - JVS(2010) = -B(605) +! JVS(2010) = Jac_FULL(265,88) + JVS(2010) = 0.5*B(1322) IF (DO_JVS(2011)) & -! JVS(2011) = Jac_FULL(234,278) - JVS(2011) = -B(599)-B(601) +! JVS(2011) = Jac_FULL(265,107) + JVS(2011) = 0.3*B(1304) IF (DO_JVS(2012)) & -! JVS(2012) = Jac_FULL(234,279) - JVS(2012) = -B(595) +! JVS(2012) = Jac_FULL(265,159) + JVS(2012) = 0 IF (DO_JVS(2013)) & -! JVS(2013) = Jac_FULL(234,281) +! JVS(2013) = Jac_FULL(265,184) JVS(2013) = 0 IF (DO_JVS(2014)) & -! JVS(2014) = Jac_FULL(234,282) - JVS(2014) = 0.22*B(212)-B(603)+0.58*B(705)+0.5*B(984)+0.88*B(990)+B(1094) +! JVS(2014) = Jac_FULL(265,194) + JVS(2014) = 0.187*B(1258) IF (DO_JVS(2015)) & -! JVS(2015) = Jac_FULL(234,286) - JVS(2015) = 0 +! JVS(2015) = Jac_FULL(265,201) + JVS(2015) = 0.1*B(1470)+0.2*B(1472) IF (DO_JVS(2016)) & -! JVS(2016) = Jac_FULL(234,290) - JVS(2016) = 0 +! JVS(2016) = Jac_FULL(265,221) + JVS(2016) = 0.26*B(1465)+0.5*B(1467) IF (DO_JVS(2017)) & -! JVS(2017) = Jac_FULL(234,291) - JVS(2017) = -B(597) +! JVS(2017) = Jac_FULL(265,230) + JVS(2017) = 0 IF (DO_JVS(2018)) & -! JVS(2018) = Jac_FULL(235,173) - JVS(2018) = B(1216)+B(1219)+B(1221) +! JVS(2018) = Jac_FULL(265,231) + JVS(2018) = 0 IF (DO_JVS(2019)) & -! JVS(2019) = Jac_FULL(235,235) - JVS(2019) = -B(444)-B(1245)-B(1247)-B(1249)-B(1251)-B(1253)-B(1255)-B(1416) +! JVS(2019) = Jac_FULL(265,259) + JVS(2019) = 0 IF (DO_JVS(2020)) & -! JVS(2020) = Jac_FULL(235,275) - JVS(2020) = B(1217)-B(1250) +! JVS(2020) = Jac_FULL(265,265) + JVS(2020) = -B(87)-B(611) IF (DO_JVS(2021)) & -! JVS(2021) = Jac_FULL(235,277) - JVS(2021) = -B(1254) +! JVS(2021) = Jac_FULL(265,269) + JVS(2021) = 0 IF (DO_JVS(2022)) & -! JVS(2022) = Jac_FULL(235,278) +! JVS(2022) = Jac_FULL(265,276) JVS(2022) = 0 IF (DO_JVS(2023)) & -! JVS(2023) = Jac_FULL(235,280) - JVS(2023) = B(1220)-B(1246) +! JVS(2023) = Jac_FULL(265,301) + JVS(2023) = 0 IF (DO_JVS(2024)) & -! JVS(2024) = Jac_FULL(235,281) - JVS(2024) = 0 +! JVS(2024) = Jac_FULL(265,302) + JVS(2024) = 0.449*B(1236) IF (DO_JVS(2025)) & -! JVS(2025) = Jac_FULL(235,283) - JVS(2025) = -B(1252) +! JVS(2025) = Jac_FULL(265,303) + JVS(2025) = 0 IF (DO_JVS(2026)) & -! JVS(2026) = Jac_FULL(235,286) - JVS(2026) = -B(445) +! JVS(2026) = Jac_FULL(265,304) + JVS(2026) = 0 IF (DO_JVS(2027)) & -! JVS(2027) = Jac_FULL(235,287) - JVS(2027) = B(1222)-B(1248) +! JVS(2027) = Jac_FULL(265,305) + JVS(2027) = 0 IF (DO_JVS(2028)) & -! JVS(2028) = Jac_FULL(235,289) - JVS(2028) = -B(1256) +! JVS(2028) = Jac_FULL(265,306) + JVS(2028) = 0.134*B(289)+B(291) IF (DO_JVS(2029)) & -! JVS(2029) = Jac_FULL(235,291) - JVS(2029) = 0 +! JVS(2029) = Jac_FULL(265,307) + JVS(2029) = 0.5*B(322) IF (DO_JVS(2030)) & -! JVS(2030) = Jac_FULL(236,68) - JVS(2030) = B(1110) +! JVS(2030) = Jac_FULL(265,308) + JVS(2030) = 0 IF (DO_JVS(2031)) & -! JVS(2031) = Jac_FULL(236,108) - JVS(2031) = B(1108) +! JVS(2031) = Jac_FULL(265,309) + JVS(2031) = 0 IF (DO_JVS(2032)) & -! JVS(2032) = Jac_FULL(236,120) - JVS(2032) = B(1114) +! JVS(2032) = Jac_FULL(265,312) + JVS(2032) = 0.21*B(697)+0.54*B(699) IF (DO_JVS(2033)) & -! JVS(2033) = Jac_FULL(236,141) - JVS(2033) = 0.25*B(1504) +! JVS(2033) = Jac_FULL(265,335) + JVS(2033) = 0 IF (DO_JVS(2034)) & -! JVS(2034) = Jac_FULL(236,142) - JVS(2034) = B(1142) +! JVS(2034) = Jac_FULL(265,336) + JVS(2034) = 0.21*B(698)+0.54*B(700) IF (DO_JVS(2035)) & -! JVS(2035) = Jac_FULL(236,146) - JVS(2035) = 0.11*B(977)+0.09*B(979) +! JVS(2035) = Jac_FULL(265,337) + JVS(2035) = 0 IF (DO_JVS(2036)) & -! JVS(2036) = Jac_FULL(236,148) - JVS(2036) = 0.95*B(1190) +! JVS(2036) = Jac_FULL(265,340) + JVS(2036) = -B(612) IF (DO_JVS(2037)) & -! JVS(2037) = Jac_FULL(236,159) - JVS(2037) = 0.9*B(1185) +! JVS(2037) = Jac_FULL(265,341) + JVS(2037) = 0.5*B(1468)+0.2*B(1473) IF (DO_JVS(2038)) & -! JVS(2038) = Jac_FULL(236,164) - JVS(2038) = 0.429*B(1505) +! 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) IF (DO_JVS(2039)) & -! JVS(2039) = Jac_FULL(236,166) - JVS(2039) = 0.551*B(886)+0.935*B(888) +! JVS(2039) = Jac_FULL(265,346) + JVS(2039) = 0 IF (DO_JVS(2040)) & -! JVS(2040) = Jac_FULL(236,167) - JVS(2040) = 0.459*B(871)+0.728*B(873) +! JVS(2040) = Jac_FULL(265,351) + JVS(2040) = 0 IF (DO_JVS(2041)) & -! JVS(2041) = Jac_FULL(236,179) - JVS(2041) = 0.2*B(1105) +! JVS(2041) = Jac_FULL(266,190) + JVS(2041) = B(1120) IF (DO_JVS(2042)) & -! JVS(2042) = Jac_FULL(236,182) - JVS(2042) = 0 +! JVS(2042) = Jac_FULL(266,205) + JVS(2042) = B(1113) IF (DO_JVS(2043)) & -! JVS(2043) = Jac_FULL(236,183) - JVS(2043) = 0.294*B(796)+0.135*B(800) +! JVS(2043) = Jac_FULL(266,206) + JVS(2043) = B(1127) IF (DO_JVS(2044)) & -! JVS(2044) = Jac_FULL(236,187) - JVS(2044) = B(803)+0.65*B(807) +! JVS(2044) = Jac_FULL(266,207) + JVS(2044) = B(1128) IF (DO_JVS(2045)) & -! JVS(2045) = Jac_FULL(236,204) - JVS(2045) = 0.36*B(1027)+0.758*B(1029) +! JVS(2045) = Jac_FULL(266,226) + JVS(2045) = B(1196) IF (DO_JVS(2046)) & -! JVS(2046) = Jac_FULL(236,206) - JVS(2046) = 0.118*B(1503) +! JVS(2046) = Jac_FULL(266,243) + JVS(2046) = B(1080) IF (DO_JVS(2047)) & -! JVS(2047) = Jac_FULL(236,210) - JVS(2047) = 0 +! JVS(2047) = Jac_FULL(266,266) + JVS(2047) = -B(1314)-B(1636)-B(1799)-B(1800) IF (DO_JVS(2048)) & -! JVS(2048) = Jac_FULL(236,213) - JVS(2048) = B(1509) +! JVS(2048) = Jac_FULL(266,267) + JVS(2048) = 0 IF (DO_JVS(2049)) & -! JVS(2049) = Jac_FULL(236,214) +! JVS(2049) = Jac_FULL(266,268) JVS(2049) = 0 IF (DO_JVS(2050)) & -! JVS(2050) = Jac_FULL(236,220) - JVS(2050) = 0 +! JVS(2050) = Jac_FULL(266,271) + JVS(2050) = 0.5*B(1197) IF (DO_JVS(2051)) & -! JVS(2051) = Jac_FULL(236,222) - JVS(2051) = 0.34*B(955)+0.384*B(959) +! JVS(2051) = Jac_FULL(266,285) + JVS(2051) = B(1074) IF (DO_JVS(2052)) & -! JVS(2052) = Jac_FULL(236,224) - JVS(2052) = 0 +! JVS(2052) = Jac_FULL(266,286) + JVS(2052) = B(1068) IF (DO_JVS(2053)) & -! JVS(2053) = Jac_FULL(236,228) - JVS(2053) = 0.52*B(821)+0.8*B(823) +! JVS(2053) = Jac_FULL(266,303) + JVS(2053) = 0.9*B(1316) IF (DO_JVS(2054)) & -! JVS(2054) = Jac_FULL(236,229) +! JVS(2054) = Jac_FULL(266,304) JVS(2054) = 0 IF (DO_JVS(2055)) & -! JVS(2055) = Jac_FULL(236,230) - JVS(2055) = 0.53*B(1477) +! JVS(2055) = Jac_FULL(266,305) + JVS(2055) = 0 IF (DO_JVS(2056)) & -! JVS(2056) = Jac_FULL(236,232) - JVS(2056) = 0.242*B(898)+0.546*B(900) +! JVS(2056) = Jac_FULL(266,311) + JVS(2056) = 0 IF (DO_JVS(2057)) & -! JVS(2057) = Jac_FULL(236,236) - JVS(2057) = -B(213)-B(215)-B(1381) +! JVS(2057) = Jac_FULL(266,337) + JVS(2057) = 0 IF (DO_JVS(2058)) & -! JVS(2058) = Jac_FULL(236,240) - JVS(2058) = 0 +! JVS(2058) = Jac_FULL(266,345) + JVS(2058) = -B(1315)+0.9*B(1317) IF (DO_JVS(2059)) & -! JVS(2059) = Jac_FULL(236,241) - JVS(2059) = 0.69*B(1482) +! JVS(2059) = Jac_FULL(266,346) + JVS(2059) = B(1069)+B(1075)+B(1081) IF (DO_JVS(2060)) & -! JVS(2060) = Jac_FULL(236,242) - JVS(2060) = 0.3*B(1507)+0.35*B(1508) +! JVS(2060) = Jac_FULL(267,267) + JVS(2060) = -B(1105)-B(1107)-B(1111)-B(1631)-B(1786) IF (DO_JVS(2061)) & -! JVS(2061) = Jac_FULL(236,243) - JVS(2061) = 0.5*B(1501) +! JVS(2061) = Jac_FULL(267,305) + JVS(2061) = B(989) IF (DO_JVS(2062)) & -! JVS(2062) = Jac_FULL(236,244) - JVS(2062) = 0 +! JVS(2062) = Jac_FULL(267,311) + JVS(2062) = 0.127*B(1156)+0.057*B(1157) IF (DO_JVS(2063)) & -! JVS(2063) = Jac_FULL(236,245) - JVS(2063) = 0 +! JVS(2063) = Jac_FULL(267,328) + JVS(2063) = 0.057*B(1158) IF (DO_JVS(2064)) & -! JVS(2064) = Jac_FULL(236,246) - JVS(2064) = 0 +! JVS(2064) = Jac_FULL(267,345) + JVS(2064) = -B(1106)-B(1108)-B(1112) IF (DO_JVS(2065)) & -! JVS(2065) = Jac_FULL(236,247) - JVS(2065) = 0 +! JVS(2065) = Jac_FULL(267,346) + JVS(2065) = B(990) IF (DO_JVS(2066)) & -! JVS(2066) = Jac_FULL(236,248) - JVS(2066) = 0 +! JVS(2066) = Jac_FULL(268,268) + JVS(2066) = -B(1101)-B(1103)-B(1109)-B(1628)-B(1783) IF (DO_JVS(2067)) & -! JVS(2067) = Jac_FULL(236,261) - JVS(2067) = 0 +! JVS(2067) = Jac_FULL(268,304) + JVS(2067) = B(997) IF (DO_JVS(2068)) & -! JVS(2068) = Jac_FULL(236,266) - JVS(2068) = 0.2*B(1106) +! JVS(2068) = Jac_FULL(268,310) + JVS(2068) = 0.032*B(1154) IF (DO_JVS(2069)) & -! JVS(2069) = Jac_FULL(236,279) - JVS(2069) = 0.294*B(797)+B(804)+0.8*B(824)+0.728*B(874)+0.935*B(889)+0.546*B(901)+0.384*B(960)+0.11*B(978)+0.758& - &*B(1030) +! JVS(2069) = Jac_FULL(268,311) + JVS(2069) = 0.032*B(1155)+0.671*B(1156)+0.298*B(1157) IF (DO_JVS(2070)) & -! JVS(2070) = Jac_FULL(236,281) - JVS(2070) = 0 +! JVS(2070) = Jac_FULL(268,328) + JVS(2070) = 0.298*B(1158) IF (DO_JVS(2071)) & -! JVS(2071) = Jac_FULL(236,282) - JVS(2071) = B(1143)+0.9*B(1186)+0.95*B(1191) +! JVS(2071) = Jac_FULL(268,345) + JVS(2071) = -B(1102)-B(1104)-B(1110) IF (DO_JVS(2072)) & -! JVS(2072) = Jac_FULL(236,284) - JVS(2072) = 0.135*B(801)+0.65*B(808)+0.52*B(822)+0.459*B(872)+0.551*B(887)+0.242*B(899)+0.34*B(956)+0.09*B(980)+0.36& - &*B(1028) +! JVS(2072) = Jac_FULL(268,346) + JVS(2072) = B(998) IF (DO_JVS(2073)) & -! JVS(2073) = Jac_FULL(236,286) - JVS(2073) = -B(214)-B(216)+B(1111)+B(1115) +! JVS(2073) = Jac_FULL(269,158) + JVS(2073) = 0.5*B(1420) IF (DO_JVS(2074)) & -! JVS(2074) = Jac_FULL(236,290) - JVS(2074) = 0 +! JVS(2074) = Jac_FULL(269,195) + JVS(2074) = 0.258*B(1416) IF (DO_JVS(2075)) & -! JVS(2075) = Jac_FULL(236,291) +! JVS(2075) = Jac_FULL(269,200) JVS(2075) = 0 IF (DO_JVS(2076)) & -! JVS(2076) = Jac_FULL(237,94) - JVS(2076) = 0.36*B(235) +! JVS(2076) = Jac_FULL(269,202) + JVS(2076) = 0.5*B(1426) IF (DO_JVS(2077)) & -! JVS(2077) = Jac_FULL(237,124) - JVS(2077) = B(114)+B(322)+B(532) +! JVS(2077) = Jac_FULL(269,203) + JVS(2077) = B(1455) IF (DO_JVS(2078)) & -! JVS(2078) = Jac_FULL(237,202) - JVS(2078) = 0.05*B(1398) +! JVS(2078) = Jac_FULL(269,220) + JVS(2078) = 0 IF (DO_JVS(2079)) & -! JVS(2079) = Jac_FULL(237,226) - JVS(2079) = 0.06*B(1380) +! JVS(2079) = Jac_FULL(269,235) + JVS(2079) = 0 IF (DO_JVS(2080)) & -! JVS(2080) = Jac_FULL(237,237) - JVS(2080) = -B(116)-B(118)-B(157)-B(203)-B(272) +! JVS(2080) = Jac_FULL(269,236) + JVS(2080) = 0 IF (DO_JVS(2081)) & -! JVS(2081) = Jac_FULL(237,238) - JVS(2081) = 0 +! JVS(2081) = Jac_FULL(269,269) + JVS(2081) = -B(1457)-B(1459)-B(1640)-B(1805) IF (DO_JVS(2082)) & -! JVS(2082) = Jac_FULL(237,254) +! JVS(2082) = Jac_FULL(269,328) JVS(2082) = 0 IF (DO_JVS(2083)) & -! JVS(2083) = Jac_FULL(237,255) - JVS(2083) = 0.07*B(151)+0.03*B(207)+0.07*B(274)+0.07*B(276) +! JVS(2083) = Jac_FULL(269,335) + JVS(2083) = B(1456) IF (DO_JVS(2084)) & -! JVS(2084) = Jac_FULL(237,256) - JVS(2084) = 0.05*B(124)+0.03*B(181)+0.045*B(254) +! JVS(2084) = Jac_FULL(269,337) + JVS(2084) = 0 IF (DO_JVS(2085)) & -! JVS(2085) = Jac_FULL(237,257) +! JVS(2085) = Jac_FULL(269,341) JVS(2085) = 0 IF (DO_JVS(2086)) & -! JVS(2086) = Jac_FULL(237,259) - JVS(2086) = 0.07*B(1377) +! JVS(2086) = Jac_FULL(269,345) + JVS(2086) = -B(1458) IF (DO_JVS(2087)) & -! JVS(2087) = Jac_FULL(237,261) - JVS(2087) = 0.045*B(255)-B(273)+0.07*B(275) +! JVS(2087) = Jac_FULL(269,346) + JVS(2087) = 0 IF (DO_JVS(2088)) & -! JVS(2088) = Jac_FULL(237,266) - JVS(2088) = -B(158)+0.03*B(182)+0.07*B(277) +! JVS(2088) = Jac_FULL(269,351) + JVS(2088) = 0.258*B(1417)+0.5*B(1421)+0.5*B(1427)-B(1460) IF (DO_JVS(2089)) & -! JVS(2089) = Jac_FULL(237,273) - JVS(2089) = B(323) +! JVS(2089) = Jac_FULL(270,60) + JVS(2089) = 0.636*B(1362) IF (DO_JVS(2090)) & -! JVS(2090) = Jac_FULL(237,279) - JVS(2090) = -B(117)-B(119)+0.05*B(125)+0.07*B(152) +! JVS(2090) = Jac_FULL(270,82) + JVS(2090) = 0.12*B(1383) IF (DO_JVS(2091)) & -! JVS(2091) = Jac_FULL(237,281) - JVS(2091) = 0 +! JVS(2091) = Jac_FULL(270,101) + JVS(2091) = 0.1*B(1385) IF (DO_JVS(2092)) & -! JVS(2092) = Jac_FULL(237,282) - JVS(2092) = 0 +! JVS(2092) = Jac_FULL(270,143) + JVS(2092) = 0.18*B(1381) IF (DO_JVS(2093)) & -! JVS(2093) = Jac_FULL(237,284) - JVS(2093) = -B(204)+0.03*B(208) +! JVS(2093) = Jac_FULL(270,185) + JVS(2093) = 0.429*B(1768) IF (DO_JVS(2094)) & -! JVS(2094) = Jac_FULL(237,286) - JVS(2094) = B(115)+0.36*B(236) +! JVS(2094) = Jac_FULL(270,194) + JVS(2094) = 0.125*B(1769) IF (DO_JVS(2095)) & -! JVS(2095) = Jac_FULL(237,290) - JVS(2095) = B(533) +! JVS(2095) = Jac_FULL(270,195) + JVS(2095) = 0.06*B(1414) IF (DO_JVS(2096)) & -! JVS(2096) = Jac_FULL(238,154) - JVS(2096) = B(618) +! JVS(2096) = Jac_FULL(270,198) + JVS(2096) = 0.571*B(1795) IF (DO_JVS(2097)) & -! JVS(2097) = Jac_FULL(238,155) - JVS(2097) = B(620) +! JVS(2097) = Jac_FULL(270,200) + JVS(2097) = 0.1*B(1348) IF (DO_JVS(2098)) & -! JVS(2098) = Jac_FULL(238,238) - JVS(2098) = -B(622)-B(624)-B(626)-B(628)-B(630) +! JVS(2098) = Jac_FULL(270,210) + JVS(2098) = B(1328) IF (DO_JVS(2099)) & -! JVS(2099) = Jac_FULL(238,261) - JVS(2099) = -B(629) +! JVS(2099) = Jac_FULL(270,220) + JVS(2099) = 0 IF (DO_JVS(2100)) & -! JVS(2100) = Jac_FULL(238,266) - JVS(2100) = -B(627) +! JVS(2100) = Jac_FULL(270,221) + JVS(2100) = 0.6*B(1465)+0.6*B(1467)+0.2*B(1469) IF (DO_JVS(2101)) & -! JVS(2101) = Jac_FULL(238,279) - JVS(2101) = -B(623) +! JVS(2101) = Jac_FULL(270,223) + JVS(2101) = 0 IF (DO_JVS(2102)) & -! JVS(2102) = Jac_FULL(238,281) - JVS(2102) = -B(631) +! JVS(2102) = Jac_FULL(270,224) + JVS(2102) = 0 IF (DO_JVS(2103)) & -! JVS(2103) = Jac_FULL(238,282) +! JVS(2103) = Jac_FULL(270,226) JVS(2103) = 0 IF (DO_JVS(2104)) & -! JVS(2104) = Jac_FULL(238,284) - JVS(2104) = -B(625) +! JVS(2104) = Jac_FULL(270,227) + JVS(2104) = 0.5*B(1766) IF (DO_JVS(2105)) & -! JVS(2105) = Jac_FULL(238,286) - JVS(2105) = B(619)+B(621) +! JVS(2105) = Jac_FULL(270,230) + JVS(2105) = 0 IF (DO_JVS(2106)) & -! JVS(2106) = Jac_FULL(239,110) - JVS(2106) = 0.36*B(233) +! JVS(2106) = Jac_FULL(270,231) + JVS(2106) = 0 IF (DO_JVS(2107)) & -! JVS(2107) = Jac_FULL(239,170) - JVS(2107) = 0.16*B(642) +! JVS(2107) = Jac_FULL(270,232) + JVS(2107) = 0 IF (DO_JVS(2108)) & -! JVS(2108) = Jac_FULL(239,202) - JVS(2108) = 0.34*B(1398) +! JVS(2108) = Jac_FULL(270,233) + JVS(2108) = 0.065*B(154) IF (DO_JVS(2109)) & -! JVS(2109) = Jac_FULL(239,217) - JVS(2109) = 0 +! JVS(2109) = Jac_FULL(270,258) + JVS(2109) = 0.586*B(1793) IF (DO_JVS(2110)) & -! JVS(2110) = Jac_FULL(239,226) - JVS(2110) = 0.415*B(1380) +! JVS(2110) = Jac_FULL(270,267) + JVS(2110) = 0 IF (DO_JVS(2111)) & -! JVS(2111) = Jac_FULL(239,238) +! JVS(2111) = Jac_FULL(270,268) JVS(2111) = 0 IF (DO_JVS(2112)) & -! JVS(2112) = Jac_FULL(239,239) - JVS(2112) = -B(110)-B(177)-2*B(198)-B(201)-B(268)-B(522) +! JVS(2112) = Jac_FULL(270,269) + JVS(2112) = 0 IF (DO_JVS(2113)) & -! JVS(2113) = Jac_FULL(239,254) - JVS(2113) = 0 +! JVS(2113) = Jac_FULL(270,270) + JVS(2113) = -B(312)-B(316)-B(1615)-B(1667)-B(1668)-B(1669) IF (DO_JVS(2114)) & -! JVS(2114) = Jac_FULL(239,255) - JVS(2114) = 0.49*B(151)+0.22*B(207)+0.49*B(274)+0.49*B(276) +! JVS(2114) = Jac_FULL(270,271) + JVS(2114) = 0 IF (DO_JVS(2115)) & -! JVS(2115) = Jac_FULL(239,256) - JVS(2115) = 0.34*B(124)+0.16*B(181)+0.29*B(254) +! JVS(2115) = Jac_FULL(270,276) + JVS(2115) = 0 IF (DO_JVS(2116)) & -! JVS(2116) = Jac_FULL(239,257) - JVS(2116) = 0 +! JVS(2116) = Jac_FULL(270,285) + JVS(2116) = 0.8*B(1072)+0.52*B(1076) IF (DO_JVS(2117)) & -! JVS(2117) = Jac_FULL(239,259) - JVS(2117) = 0.49*B(1377) +! JVS(2117) = Jac_FULL(270,286) + JVS(2117) = 0 IF (DO_JVS(2118)) & -! JVS(2118) = Jac_FULL(239,261) - JVS(2118) = 0.29*B(255)-B(269)+0.49*B(275) +! JVS(2118) = Jac_FULL(270,288) + JVS(2118) = 0 IF (DO_JVS(2119)) & -! JVS(2119) = Jac_FULL(239,266) - JVS(2119) = -B(178)+0.16*B(182)+0.49*B(277) +! JVS(2119) = Jac_FULL(270,301) + JVS(2119) = 0 IF (DO_JVS(2120)) & -! JVS(2120) = Jac_FULL(239,273) +! JVS(2120) = Jac_FULL(270,302) JVS(2120) = 0 IF (DO_JVS(2121)) & -! JVS(2121) = Jac_FULL(239,279) - JVS(2121) = -B(111)+0.34*B(125)+0.49*B(152) +! JVS(2121) = Jac_FULL(270,303) + JVS(2121) = 0 IF (DO_JVS(2122)) & -! JVS(2122) = Jac_FULL(239,281) +! JVS(2122) = Jac_FULL(270,304) JVS(2122) = 0 IF (DO_JVS(2123)) & -! JVS(2123) = Jac_FULL(239,282) - JVS(2123) = 0.16*B(643) +! JVS(2123) = Jac_FULL(270,305) + JVS(2123) = 0 IF (DO_JVS(2124)) & -! JVS(2124) = Jac_FULL(239,284) - JVS(2124) = -B(202)+0.22*B(208) +! JVS(2124) = Jac_FULL(270,306) + JVS(2124) = 0.134*B(289)+0.2*B(293) IF (DO_JVS(2125)) & -! JVS(2125) = Jac_FULL(239,286) - JVS(2125) = 0.36*B(234) +! JVS(2125) = Jac_FULL(270,310) + JVS(2125) = 0 IF (DO_JVS(2126)) & -! JVS(2126) = Jac_FULL(239,290) - JVS(2126) = -B(523) +! JVS(2126) = Jac_FULL(270,311) + JVS(2126) = 0 IF (DO_JVS(2127)) & -! JVS(2127) = Jac_FULL(240,126) - JVS(2127) = B(934) +! JVS(2127) = Jac_FULL(270,328) + JVS(2127) = 0 IF (DO_JVS(2128)) & -! JVS(2128) = Jac_FULL(240,151) - JVS(2128) = B(951)+0.159*B(1498) +! JVS(2128) = Jac_FULL(270,335) + JVS(2128) = 0 IF (DO_JVS(2129)) & -! JVS(2129) = Jac_FULL(240,214) - JVS(2129) = 0.4*B(868) +! JVS(2129) = Jac_FULL(270,337) + JVS(2129) = 0.52*B(1077) IF (DO_JVS(2130)) & -! JVS(2130) = Jac_FULL(240,220) - JVS(2130) = 0.4*B(866) +! JVS(2130) = Jac_FULL(270,341) + JVS(2130) = 0.6*B(1468) IF (DO_JVS(2131)) & -! JVS(2131) = Jac_FULL(240,240) - JVS(2131) = -B(967)-B(969)-B(1500) +! 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) IF (DO_JVS(2132)) & -! JVS(2132) = Jac_FULL(240,243) - JVS(2132) = 0.223*B(1501) +! JVS(2132) = Jac_FULL(270,346) + JVS(2132) = 0.8*B(1073) IF (DO_JVS(2133)) & -! JVS(2133) = Jac_FULL(240,244) - JVS(2133) = 0 +! JVS(2133) = Jac_FULL(270,351) + JVS(2133) = -B(317) IF (DO_JVS(2134)) & -! JVS(2134) = Jac_FULL(240,245) - JVS(2134) = 0 +! JVS(2134) = Jac_FULL(271,222) + JVS(2134) = 0.67*B(1180) IF (DO_JVS(2135)) & -! JVS(2135) = Jac_FULL(240,246) - JVS(2135) = 0.532*B(911)+0.862*B(913)+0.401*B(914)+0.159*B(920)+0.159*B(924)+0.159*B(930) +! JVS(2135) = Jac_FULL(271,271) + JVS(2135) = -B(1197)-B(1198)-B(1202)-B(1204) IF (DO_JVS(2136)) & -! JVS(2136) = Jac_FULL(240,247) - JVS(2136) = 0.07*B(910)+0.532*B(912)+0.034*B(916) +! JVS(2136) = Jac_FULL(271,310) + JVS(2136) = 0 IF (DO_JVS(2137)) & -! JVS(2137) = Jac_FULL(240,261) - JVS(2137) = 0.159*B(921) +! JVS(2137) = Jac_FULL(271,311) + JVS(2137) = 0 IF (DO_JVS(2138)) & -! JVS(2138) = Jac_FULL(240,266) - JVS(2138) = 0.401*B(915)+0.034*B(917) +! JVS(2138) = Jac_FULL(271,328) + JVS(2138) = 0 IF (DO_JVS(2139)) & -! JVS(2139) = Jac_FULL(240,279) - JVS(2139) = 0.159*B(931) +! JVS(2139) = Jac_FULL(271,337) + JVS(2139) = -B(1199) IF (DO_JVS(2140)) & -! JVS(2140) = Jac_FULL(240,281) - JVS(2140) = 0.159*B(925) +! JVS(2140) = Jac_FULL(271,345) + JVS(2140) = 0.67*B(1181) IF (DO_JVS(2141)) & -! JVS(2141) = Jac_FULL(240,284) - JVS(2141) = 0 +! JVS(2141) = Jac_FULL(271,346) + JVS(2141) = -B(1203)-B(1205) IF (DO_JVS(2142)) & -! JVS(2142) = Jac_FULL(240,286) - JVS(2142) = 0.4*B(867)+0.4*B(869)+B(952)-B(968)-B(970) +! JVS(2142) = Jac_FULL(272,211) + JVS(2142) = 0.18*B(818) IF (DO_JVS(2143)) & -! JVS(2143) = Jac_FULL(241,144) - JVS(2143) = B(1007) +! JVS(2143) = Jac_FULL(272,237) + JVS(2143) = B(812)+0.27*B(814) IF (DO_JVS(2144)) & -! JVS(2144) = Jac_FULL(241,152) - JVS(2144) = 0.599*B(878)+B(880) +! JVS(2144) = Jac_FULL(272,272) + JVS(2144) = -B(824)-B(826)-B(828)-B(830) IF (DO_JVS(2145)) & -! JVS(2145) = Jac_FULL(241,168) - JVS(2145) = 0.065*B(892)+0.142*B(894) +! JVS(2145) = Jac_FULL(272,281) + JVS(2145) = 0 IF (DO_JVS(2146)) & -! JVS(2146) = Jac_FULL(241,186) +! JVS(2146) = Jac_FULL(272,324) JVS(2146) = 0 IF (DO_JVS(2147)) & -! JVS(2147) = Jac_FULL(241,189) - JVS(2147) = 0.015*B(957)+0.049*B(963) +! JVS(2147) = Jac_FULL(272,328) + JVS(2147) = -B(831) IF (DO_JVS(2148)) & -! JVS(2148) = Jac_FULL(241,204) - JVS(2148) = B(1031) +! JVS(2148) = Jac_FULL(272,337) + JVS(2148) = -B(827) IF (DO_JVS(2149)) & -! JVS(2149) = Jac_FULL(241,214) - JVS(2149) = 0.6*B(868) +! JVS(2149) = Jac_FULL(272,341) + JVS(2149) = 0.27*B(815) IF (DO_JVS(2150)) & -! JVS(2150) = Jac_FULL(241,222) - JVS(2150) = 0.008*B(955)+0.014*B(959) +! JVS(2150) = Jac_FULL(272,345) + JVS(2150) = B(813)+0.18*B(819) IF (DO_JVS(2151)) & -! JVS(2151) = Jac_FULL(241,224) - JVS(2151) = 0 +! JVS(2151) = Jac_FULL(272,346) + JVS(2151) = -B(825) IF (DO_JVS(2152)) & -! JVS(2152) = Jac_FULL(241,232) - JVS(2152) = 0.01*B(898)+0.028*B(900) +! JVS(2152) = Jac_FULL(272,351) + JVS(2152) = -B(829) IF (DO_JVS(2153)) & -! JVS(2153) = Jac_FULL(241,240) - JVS(2153) = 0.161*B(969) +! JVS(2153) = Jac_FULL(273,129) + JVS(2153) = B(784) IF (DO_JVS(2154)) & -! JVS(2154) = Jac_FULL(241,241) - JVS(2154) = -B(993)-B(1339)-B(1482) +! JVS(2154) = Jac_FULL(273,138) + JVS(2154) = 0 IF (DO_JVS(2155)) & -! JVS(2155) = Jac_FULL(241,242) - JVS(2155) = 0.05*B(1507) +! JVS(2155) = Jac_FULL(273,161) + JVS(2155) = B(796) IF (DO_JVS(2156)) & -! JVS(2156) = Jac_FULL(241,243) - JVS(2156) = 0 +! JVS(2156) = Jac_FULL(273,191) + JVS(2156) = 0.1*B(733) IF (DO_JVS(2157)) & -! JVS(2157) = Jac_FULL(241,244) - JVS(2157) = 0 +! JVS(2157) = Jac_FULL(273,273) + JVS(2157) = -B(786)-B(788)-B(790)-B(792)-B(794) IF (DO_JVS(2158)) & -! JVS(2158) = Jac_FULL(241,245) +! JVS(2158) = Jac_FULL(273,275) JVS(2158) = 0 IF (DO_JVS(2159)) & -! JVS(2159) = Jac_FULL(241,246) +! JVS(2159) = Jac_FULL(273,324) JVS(2159) = 0 IF (DO_JVS(2160)) & -! JVS(2160) = Jac_FULL(241,247) - JVS(2160) = 0 +! JVS(2160) = Jac_FULL(273,328) + JVS(2160) = -B(793) IF (DO_JVS(2161)) & -! JVS(2161) = Jac_FULL(241,248) - JVS(2161) = 0 +! JVS(2161) = Jac_FULL(273,337) + JVS(2161) = -B(787) IF (DO_JVS(2162)) & -! JVS(2162) = Jac_FULL(241,261) - JVS(2162) = 0 +! JVS(2162) = Jac_FULL(273,341) + JVS(2162) = 0.1*B(734) IF (DO_JVS(2163)) & -! JVS(2163) = Jac_FULL(241,266) - JVS(2163) = 0 +! JVS(2163) = Jac_FULL(273,345) + JVS(2163) = B(785)+B(797) IF (DO_JVS(2164)) & -! JVS(2164) = Jac_FULL(241,279) - JVS(2164) = B(881)+0.142*B(895)+0.028*B(901)+0.014*B(960)+0.049*B(964)+B(1032) +! JVS(2164) = Jac_FULL(273,346) + JVS(2164) = -B(789)-B(791) IF (DO_JVS(2165)) & -! JVS(2165) = Jac_FULL(241,281) - JVS(2165) = 0 +! JVS(2165) = Jac_FULL(273,351) + JVS(2165) = -B(795) IF (DO_JVS(2166)) & -! JVS(2166) = Jac_FULL(241,282) - JVS(2166) = 0 +! JVS(2166) = Jac_FULL(274,57) + JVS(2166) = B(844) IF (DO_JVS(2167)) & -! JVS(2167) = Jac_FULL(241,284) - JVS(2167) = 0.599*B(879)+0.065*B(893)+0.01*B(899)+0.008*B(956)+0.015*B(958) +! JVS(2167) = Jac_FULL(274,161) + JVS(2167) = 0.27*B(1813) IF (DO_JVS(2168)) & -! JVS(2168) = Jac_FULL(241,286) - JVS(2168) = 0.6*B(869)+0.161*B(970)-B(994) +! JVS(2168) = Jac_FULL(274,162) + JVS(2168) = 0.085*B(798) IF (DO_JVS(2169)) & -! JVS(2169) = Jac_FULL(241,290) - JVS(2169) = 0 +! JVS(2169) = Jac_FULL(274,163) + JVS(2169) = B(832)+B(834) IF (DO_JVS(2170)) & -! JVS(2170) = Jac_FULL(241,291) - JVS(2170) = B(1008) +! JVS(2170) = Jac_FULL(274,167) + JVS(2170) = 0.715*B(725) IF (DO_JVS(2171)) & -! JVS(2171) = Jac_FULL(242,151) - JVS(2171) = B(943) +! JVS(2171) = Jac_FULL(274,169) + JVS(2171) = B(847) IF (DO_JVS(2172)) & -! JVS(2172) = Jac_FULL(242,152) - JVS(2172) = 0.401*B(878) +! JVS(2172) = Jac_FULL(274,177) + JVS(2172) = 0.5*B(836) IF (DO_JVS(2173)) & -! JVS(2173) = Jac_FULL(242,166) - JVS(2173) = 0.418*B(886) +! JVS(2173) = Jac_FULL(274,211) + JVS(2173) = 0.32*B(818)+0.4*B(820) IF (DO_JVS(2174)) & -! JVS(2174) = Jac_FULL(242,167) - JVS(2174) = 0.482*B(871) +! JVS(2174) = Jac_FULL(274,237) + JVS(2174) = 0.73*B(814) IF (DO_JVS(2175)) & -! JVS(2175) = Jac_FULL(242,168) - JVS(2175) = 0.494*B(892) +! JVS(2175) = Jac_FULL(274,255) + JVS(2175) = B(806)+0.6*B(808)+0.9*B(1817) IF (DO_JVS(2176)) & -! JVS(2176) = Jac_FULL(242,181) - JVS(2176) = B(941) +! JVS(2176) = Jac_FULL(274,272) + JVS(2176) = 0 IF (DO_JVS(2177)) & -! JVS(2177) = Jac_FULL(242,182) - JVS(2177) = B(791) +! JVS(2177) = Jac_FULL(274,273) + JVS(2177) = 0.27*B(790)+0.23*B(792)+0.27*B(794) IF (DO_JVS(2178)) & -! JVS(2178) = Jac_FULL(242,183) - JVS(2178) = B(798) +! JVS(2178) = Jac_FULL(274,274) + JVS(2178) = -B(838)-B(840)-B(842)-B(845)-B(897)-B(899) IF (DO_JVS(2179)) & -! JVS(2179) = Jac_FULL(242,187) - JVS(2179) = B(805) +! JVS(2179) = Jac_FULL(274,275) + JVS(2179) = 0 IF (DO_JVS(2180)) & -! JVS(2180) = Jac_FULL(242,189) - JVS(2180) = 0.387*B(957) +! JVS(2180) = Jac_FULL(274,281) + JVS(2180) = 0 IF (DO_JVS(2181)) & -! JVS(2181) = Jac_FULL(242,214) - JVS(2181) = 0 +! JVS(2181) = Jac_FULL(274,324) + JVS(2181) = -B(900) IF (DO_JVS(2182)) & -! JVS(2182) = Jac_FULL(242,220) - JVS(2182) = 0 +! JVS(2182) = Jac_FULL(274,328) + JVS(2182) = 0.23*B(793)-B(898) IF (DO_JVS(2183)) & -! JVS(2183) = Jac_FULL(242,222) - JVS(2183) = 0.5*B(954)+0.234*B(955) +! JVS(2183) = Jac_FULL(274,335) + JVS(2183) = -B(843) IF (DO_JVS(2184)) & -! JVS(2184) = Jac_FULL(242,232) - JVS(2184) = 0.621*B(898) +! JVS(2184) = Jac_FULL(274,337) + JVS(2184) = -B(839) IF (DO_JVS(2185)) & -! JVS(2185) = Jac_FULL(242,242) - JVS(2185) = -B(1073)-B(1355)-B(1507)-B(1508) +! JVS(2185) = Jac_FULL(274,341) + JVS(2185) = 0.715*B(726)+0.6*B(809)+0.73*B(815)+0.4*B(821) IF (DO_JVS(2186)) & -! JVS(2186) = Jac_FULL(242,243) - JVS(2186) = 0.565*B(975) +! 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) IF (DO_JVS(2187)) & -! JVS(2187) = Jac_FULL(242,244) - JVS(2187) = 0 +! JVS(2187) = Jac_FULL(274,346) + JVS(2187) = 0.27*B(791)-B(841) IF (DO_JVS(2188)) & -! JVS(2188) = Jac_FULL(242,245) - JVS(2188) = 0 +! JVS(2188) = Jac_FULL(274,351) + JVS(2188) = 0.27*B(795)+B(835)-B(846) IF (DO_JVS(2189)) & -! JVS(2189) = Jac_FULL(242,246) - JVS(2189) = 0 +! JVS(2189) = Jac_FULL(275,112) + JVS(2189) = B(782) IF (DO_JVS(2190)) & -! JVS(2190) = Jac_FULL(242,247) - JVS(2190) = 0 +! JVS(2190) = Jac_FULL(275,191) + JVS(2190) = 0.255*B(731) IF (DO_JVS(2191)) & -! JVS(2191) = Jac_FULL(242,261) - JVS(2191) = 0 +! JVS(2191) = Jac_FULL(275,219) + JVS(2191) = 0.15*B(727) IF (DO_JVS(2192)) & -! JVS(2192) = Jac_FULL(242,266) - JVS(2192) = 0 +! JVS(2192) = Jac_FULL(275,275) + JVS(2192) = -B(774)-B(776)-B(778)-B(881)-B(883) IF (DO_JVS(2193)) & -! JVS(2193) = Jac_FULL(242,279) - JVS(2193) = B(792)+B(799)+B(806) +! JVS(2193) = Jac_FULL(275,324) + JVS(2193) = -B(884) IF (DO_JVS(2194)) & -! JVS(2194) = Jac_FULL(242,281) - JVS(2194) = 0 +! JVS(2194) = Jac_FULL(275,328) + JVS(2194) = -B(882) IF (DO_JVS(2195)) & -! JVS(2195) = Jac_FULL(242,284) - JVS(2195) = 0.482*B(872)+0.401*B(879)+0.418*B(887)+0.494*B(893)+0.621*B(899)+0.234*B(956)+0.387*B(958) +! JVS(2195) = Jac_FULL(275,337) + JVS(2195) = -B(775) IF (DO_JVS(2196)) & -! JVS(2196) = Jac_FULL(242,286) - JVS(2196) = B(942)+B(944)+0.565*B(976)-B(1074) +! JVS(2196) = Jac_FULL(275,341) + JVS(2196) = 0 IF (DO_JVS(2197)) & -! JVS(2197) = Jac_FULL(243,146) - JVS(2197) = 0.18*B(979) +! JVS(2197) = Jac_FULL(275,345) + JVS(2197) = 0.15*B(728)+0.255*B(732)+B(783) IF (DO_JVS(2198)) & -! JVS(2198) = Jac_FULL(243,152) - JVS(2198) = B(882) +! JVS(2198) = Jac_FULL(275,346) + JVS(2198) = -B(777) IF (DO_JVS(2199)) & -! JVS(2199) = Jac_FULL(243,166) - JVS(2199) = B(890) +! JVS(2199) = Jac_FULL(275,351) + JVS(2199) = -B(779) IF (DO_JVS(2200)) & -! JVS(2200) = Jac_FULL(243,167) - JVS(2200) = B(875) +! JVS(2200) = Jac_FULL(276,276) + JVS(2200) = -B(635)-B(947)-B(949)-B(951)-B(953)-B(955)-B(1147) IF (DO_JVS(2201)) & -! JVS(2201) = Jac_FULL(243,168) - JVS(2201) = B(896) +! JVS(2201) = Jac_FULL(276,340) + JVS(2201) = -B(636) IF (DO_JVS(2202)) & -! JVS(2202) = Jac_FULL(243,189) - JVS(2202) = B(965) +! JVS(2202) = Jac_FULL(276,341) + JVS(2202) = -B(948) IF (DO_JVS(2203)) & -! JVS(2203) = Jac_FULL(243,214) - JVS(2203) = 0 +! JVS(2203) = Jac_FULL(276,345) + JVS(2203) = -B(950)-B(952)-B(954)-B(956) IF (DO_JVS(2204)) & -! JVS(2204) = Jac_FULL(243,220) - JVS(2204) = 0 +! JVS(2204) = Jac_FULL(276,351) + JVS(2204) = -B(1148) IF (DO_JVS(2205)) & -! JVS(2205) = Jac_FULL(243,222) - JVS(2205) = B(961) +! JVS(2205) = Jac_FULL(277,111) + JVS(2205) = 0.6*B(741) IF (DO_JVS(2206)) & -! JVS(2206) = Jac_FULL(243,232) - JVS(2206) = B(902) +! JVS(2206) = Jac_FULL(277,191) + JVS(2206) = 0.67*B(731)+0.5*B(733) IF (DO_JVS(2207)) & -! JVS(2207) = Jac_FULL(243,242) - JVS(2207) = 0 +! JVS(2207) = Jac_FULL(277,219) + JVS(2207) = 0.15*B(727) IF (DO_JVS(2208)) & -! JVS(2208) = Jac_FULL(243,243) - JVS(2208) = -B(975)-B(1353)-B(1501) +! JVS(2208) = Jac_FULL(277,277) + JVS(2208) = -B(735)-B(737)-B(739)-B(877)-B(879) IF (DO_JVS(2209)) & -! JVS(2209) = Jac_FULL(243,244) - JVS(2209) = 0 +! JVS(2209) = Jac_FULL(277,324) + JVS(2209) = -B(880) IF (DO_JVS(2210)) & -! JVS(2210) = Jac_FULL(243,245) - JVS(2210) = 0 +! JVS(2210) = Jac_FULL(277,328) + JVS(2210) = -B(878) IF (DO_JVS(2211)) & -! JVS(2211) = Jac_FULL(243,246) - JVS(2211) = B(932) +! JVS(2211) = Jac_FULL(277,337) + JVS(2211) = -B(736) IF (DO_JVS(2212)) & -! JVS(2212) = Jac_FULL(243,247) - JVS(2212) = B(928) +! JVS(2212) = Jac_FULL(277,341) + JVS(2212) = 0.5*B(734) IF (DO_JVS(2213)) & -! JVS(2213) = Jac_FULL(243,261) - JVS(2213) = 0 +! JVS(2213) = Jac_FULL(277,345) + JVS(2213) = 0.15*B(728)+0.67*B(732)+0.6*B(742) IF (DO_JVS(2214)) & -! JVS(2214) = Jac_FULL(243,266) - JVS(2214) = 0 +! JVS(2214) = Jac_FULL(277,346) + JVS(2214) = -B(738) IF (DO_JVS(2215)) & -! JVS(2215) = Jac_FULL(243,279) - JVS(2215) = B(876)+B(883)+B(891)+B(897)+B(903)+B(929)+B(933)+B(962)+B(966) +! JVS(2215) = Jac_FULL(277,351) + JVS(2215) = -B(740) IF (DO_JVS(2216)) & -! JVS(2216) = Jac_FULL(243,281) - JVS(2216) = 0 +! JVS(2216) = Jac_FULL(278,66) + JVS(2216) = B(760)+B(1810) IF (DO_JVS(2217)) & -! JVS(2217) = Jac_FULL(243,284) - JVS(2217) = 0.18*B(980) +! JVS(2217) = Jac_FULL(278,74) + JVS(2217) = B(1809) IF (DO_JVS(2218)) & -! JVS(2218) = Jac_FULL(243,286) - JVS(2218) = -B(976) +! JVS(2218) = Jac_FULL(278,160) + JVS(2218) = 0.5*B(770) IF (DO_JVS(2219)) & -! JVS(2219) = Jac_FULL(244,151) - JVS(2219) = 0.159*B(1499) +! JVS(2219) = Jac_FULL(278,225) + JVS(2219) = B(1808) IF (DO_JVS(2220)) & -! JVS(2220) = Jac_FULL(244,162) - JVS(2220) = 0.51*B(782) +! JVS(2220) = Jac_FULL(278,257) + JVS(2220) = 0.44*B(749)+B(751)+B(756)+0.75*B(893)+B(895) IF (DO_JVS(2221)) & -! JVS(2221) = Jac_FULL(244,165) - JVS(2221) = 0.03*B(786) +! JVS(2221) = Jac_FULL(278,277) + JVS(2221) = 0 IF (DO_JVS(2222)) & -! JVS(2222) = Jac_FULL(244,224) - JVS(2222) = 0.5*B(536)+B(708) +! JVS(2222) = Jac_FULL(278,278) + JVS(2222) = -B(762)-B(764)-B(766)-B(768) IF (DO_JVS(2223)) & -! JVS(2223) = Jac_FULL(244,244) - JVS(2223) = -B(718)-B(720)-B(724)-B(725)-2*B(727)-B(728)-2*B(731)-B(732)-B(738)-B(740)-B(750)-B(752)-B(754)-B(756) +! JVS(2223) = Jac_FULL(278,324) + JVS(2223) = B(896) IF (DO_JVS(2224)) & -! JVS(2224) = Jac_FULL(244,245) - JVS(2224) = -B(729)-B(733) +! JVS(2224) = Jac_FULL(278,328) + JVS(2224) = -B(769)+0.75*B(894) IF (DO_JVS(2225)) & -! JVS(2225) = Jac_FULL(244,246) +! JVS(2225) = Jac_FULL(278,335) JVS(2225) = 0 IF (DO_JVS(2226)) & -! JVS(2226) = Jac_FULL(244,266) - JVS(2226) = -B(739)-B(741) +! JVS(2226) = Jac_FULL(278,337) + JVS(2226) = 0.44*B(750)-B(763) IF (DO_JVS(2227)) & -! JVS(2227) = Jac_FULL(244,279) - JVS(2227) = -B(751)-B(753)-B(755)-B(757) +! JVS(2227) = Jac_FULL(278,341) + JVS(2227) = 0 IF (DO_JVS(2228)) & -! JVS(2228) = Jac_FULL(244,281) - JVS(2228) = 0 +! JVS(2228) = Jac_FULL(278,345) + JVS(2228) = B(761)+0.5*B(771) IF (DO_JVS(2229)) & -! JVS(2229) = Jac_FULL(244,282) - JVS(2229) = 0 +! JVS(2229) = Jac_FULL(278,346) + JVS(2229) = B(752)-B(765) IF (DO_JVS(2230)) & -! JVS(2230) = Jac_FULL(244,284) - JVS(2230) = -B(719)-B(721) +! JVS(2230) = Jac_FULL(278,351) + JVS(2230) = B(757)-B(767) IF (DO_JVS(2231)) & -! JVS(2231) = Jac_FULL(244,286) - JVS(2231) = B(709)+0.51*B(783)+0.03*B(787) +! JVS(2231) = Jac_FULL(279,249) + JVS(2231) = B(224) IF (DO_JVS(2232)) & -! JVS(2232) = Jac_FULL(244,290) - JVS(2232) = 0.5*B(537) +! JVS(2232) = Jac_FULL(279,279) + JVS(2232) = -B(197)-B(1688) IF (DO_JVS(2233)) & -! JVS(2233) = Jac_FULL(245,151) - JVS(2233) = 0.841*B(1499) +! JVS(2233) = Jac_FULL(279,300) + JVS(2233) = B(173) IF (DO_JVS(2234)) & -! JVS(2234) = Jac_FULL(245,157) - JVS(2234) = 0.75*B(780) +! JVS(2234) = Jac_FULL(279,320) + JVS(2234) = 0.072*B(185) IF (DO_JVS(2235)) & -! JVS(2235) = Jac_FULL(245,171) - JVS(2235) = 0.03*B(784) +! JVS(2235) = Jac_FULL(279,324) + JVS(2235) = 0 IF (DO_JVS(2236)) & -! JVS(2236) = Jac_FULL(245,224) - JVS(2236) = 0.5*B(536)+B(706) +! JVS(2236) = Jac_FULL(279,328) + JVS(2236) = 0 IF (DO_JVS(2237)) & -! JVS(2237) = Jac_FULL(245,244) - JVS(2237) = -B(728)-B(732) +! JVS(2237) = Jac_FULL(279,337) + JVS(2237) = B(225) IF (DO_JVS(2238)) & -! JVS(2238) = Jac_FULL(245,245) - JVS(2238) = -B(714)-B(716)-B(722)-B(723)-2*B(726)-B(729)-2*B(730)-B(733)-B(734)-B(736)-B(742)-B(744)-B(746)-B(748) +! JVS(2238) = Jac_FULL(279,345) + JVS(2238) = -B(198) IF (DO_JVS(2239)) & -! JVS(2239) = Jac_FULL(245,246) - JVS(2239) = 0 +! JVS(2239) = Jac_FULL(279,346) + JVS(2239) = B(174)+0.072*B(186) IF (DO_JVS(2240)) & -! JVS(2240) = Jac_FULL(245,266) - JVS(2240) = -B(735)-B(737) +! JVS(2240) = Jac_FULL(280,167) + JVS(2240) = 0.5*B(721) IF (DO_JVS(2241)) & -! JVS(2241) = Jac_FULL(245,279) - JVS(2241) = -B(743)-B(745)-B(747)-B(749) +! JVS(2241) = Jac_FULL(280,191) + JVS(2241) = 0.1*B(717) IF (DO_JVS(2242)) & -! JVS(2242) = Jac_FULL(245,281) - JVS(2242) = 0 +! JVS(2242) = Jac_FULL(280,193) + JVS(2242) = 0.5*B(869) IF (DO_JVS(2243)) & -! JVS(2243) = Jac_FULL(245,282) - JVS(2243) = 0 +! JVS(2243) = Jac_FULL(280,219) + JVS(2243) = 0.1*B(719) IF (DO_JVS(2244)) & -! JVS(2244) = Jac_FULL(245,284) - JVS(2244) = -B(715)-B(717) +! JVS(2244) = Jac_FULL(280,229) + JVS(2244) = 0.5*B(863) IF (DO_JVS(2245)) & -! JVS(2245) = Jac_FULL(245,286) - JVS(2245) = B(707)+0.75*B(781)+0.03*B(785) +! JVS(2245) = Jac_FULL(280,262) + JVS(2245) = 0.5*B(875) IF (DO_JVS(2246)) & -! JVS(2246) = Jac_FULL(245,290) - JVS(2246) = 0.5*B(537) +! JVS(2246) = Jac_FULL(280,280) + JVS(2246) = -B(901)-B(905)-B(909)-B(913)-B(917)-2*B(921)-B(922) IF (DO_JVS(2247)) & -! JVS(2247) = Jac_FULL(246,151) - JVS(2247) = B(949) +! JVS(2247) = Jac_FULL(280,289) + JVS(2247) = -B(923) IF (DO_JVS(2248)) & -! JVS(2248) = Jac_FULL(246,224) - JVS(2248) = 0.535*B(904) +! JVS(2248) = Jac_FULL(280,291) + JVS(2248) = 0 IF (DO_JVS(2249)) & -! JVS(2249) = Jac_FULL(246,246) - JVS(2249) = -B(908)-B(911)-2*B(913)-B(914)-B(920)-B(924)-B(930)-B(932) +! JVS(2249) = Jac_FULL(280,324) + JVS(2249) = -B(914) IF (DO_JVS(2250)) & -! JVS(2250) = Jac_FULL(246,247) - JVS(2250) = -B(912) +! JVS(2250) = Jac_FULL(280,328) + JVS(2250) = -B(910) IF (DO_JVS(2251)) & -! JVS(2251) = Jac_FULL(246,261) - JVS(2251) = -B(921) +! JVS(2251) = Jac_FULL(280,337) + JVS(2251) = -B(906) IF (DO_JVS(2252)) & -! JVS(2252) = Jac_FULL(246,266) - JVS(2252) = -B(915) +! JVS(2252) = Jac_FULL(280,341) + JVS(2252) = 0 IF (DO_JVS(2253)) & -! JVS(2253) = Jac_FULL(246,279) - JVS(2253) = -B(931)-B(933) +! JVS(2253) = Jac_FULL(280,345) + JVS(2253) = 0 IF (DO_JVS(2254)) & -! JVS(2254) = Jac_FULL(246,281) - JVS(2254) = 0.535*B(905)-B(925) +! JVS(2254) = Jac_FULL(280,346) + JVS(2254) = -B(902) IF (DO_JVS(2255)) & -! JVS(2255) = Jac_FULL(246,282) - JVS(2255) = 0 +! 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) IF (DO_JVS(2256)) & -! JVS(2256) = Jac_FULL(246,284) - JVS(2256) = -B(909) +! JVS(2256) = Jac_FULL(281,167) + JVS(2256) = B(723) IF (DO_JVS(2257)) & -! JVS(2257) = Jac_FULL(246,286) - JVS(2257) = B(950) +! JVS(2257) = Jac_FULL(281,191) + JVS(2257) = 0.075*B(731) IF (DO_JVS(2258)) & -! JVS(2258) = Jac_FULL(246,290) - JVS(2258) = 0 +! JVS(2258) = Jac_FULL(281,219) + JVS(2258) = 0.2*B(727) IF (DO_JVS(2259)) & -! JVS(2259) = Jac_FULL(247,181) - JVS(2259) = B(947) +! JVS(2259) = Jac_FULL(281,281) + JVS(2259) = -B(800)-B(802)-B(804)-B(885)-B(887) IF (DO_JVS(2260)) & -! JVS(2260) = Jac_FULL(247,224) - JVS(2260) = 0.465*B(904) +! JVS(2260) = Jac_FULL(281,324) + JVS(2260) = -B(888) IF (DO_JVS(2261)) & -! JVS(2261) = Jac_FULL(247,246) - JVS(2261) = -B(911) +! JVS(2261) = Jac_FULL(281,328) + JVS(2261) = -B(886) IF (DO_JVS(2262)) & -! JVS(2262) = Jac_FULL(247,247) - JVS(2262) = -B(906)-2*B(910)-B(912)-B(916)-B(918)-B(922)-B(926)-B(928) +! JVS(2262) = Jac_FULL(281,337) + JVS(2262) = -B(801) IF (DO_JVS(2263)) & -! JVS(2263) = Jac_FULL(247,261) - JVS(2263) = -B(919) +! JVS(2263) = Jac_FULL(281,341) + JVS(2263) = 0 IF (DO_JVS(2264)) & -! JVS(2264) = Jac_FULL(247,266) - JVS(2264) = -B(917) +! JVS(2264) = Jac_FULL(281,345) + JVS(2264) = B(724)+0.2*B(728)+0.075*B(732) IF (DO_JVS(2265)) & -! JVS(2265) = Jac_FULL(247,279) - JVS(2265) = -B(927)-B(929) +! JVS(2265) = Jac_FULL(281,346) + JVS(2265) = -B(803) IF (DO_JVS(2266)) & -! JVS(2266) = Jac_FULL(247,281) - JVS(2266) = 0.465*B(905)-B(923) +! JVS(2266) = Jac_FULL(281,351) + JVS(2266) = -B(805) IF (DO_JVS(2267)) & -! JVS(2267) = Jac_FULL(247,282) - JVS(2267) = 0 +! JVS(2267) = Jac_FULL(282,234) + JVS(2267) = 0.2*B(1370) IF (DO_JVS(2268)) & -! JVS(2268) = Jac_FULL(247,284) - JVS(2268) = -B(907) +! JVS(2268) = Jac_FULL(282,246) + JVS(2268) = 0 IF (DO_JVS(2269)) & -! JVS(2269) = Jac_FULL(247,286) - JVS(2269) = B(948) +! JVS(2269) = Jac_FULL(282,249) + JVS(2269) = 0.25*B(259) IF (DO_JVS(2270)) & -! JVS(2270) = Jac_FULL(247,290) - JVS(2270) = 0 +! JVS(2270) = Jac_FULL(282,250) + JVS(2270) = 0.25*B(267) IF (DO_JVS(2271)) & -! JVS(2271) = Jac_FULL(248,79) - JVS(2271) = 0.04*B(1118) +! JVS(2271) = Jac_FULL(282,260) + JVS(2271) = 0.25*B(216) IF (DO_JVS(2272)) & -! JVS(2272) = Jac_FULL(248,80) - JVS(2272) = 0.04*B(1120) +! JVS(2272) = Jac_FULL(282,272) + JVS(2272) = 0.25*B(830) IF (DO_JVS(2273)) & -! JVS(2273) = Jac_FULL(248,121) - JVS(2273) = B(842)+B(844) +! JVS(2273) = Jac_FULL(282,273) + JVS(2273) = 0.25*B(792) IF (DO_JVS(2274)) & -! JVS(2274) = Jac_FULL(248,129) - JVS(2274) = 0.23*B(762)+B(1491) +! JVS(2274) = Jac_FULL(282,275) + JVS(2274) = 0.25*B(881) IF (DO_JVS(2275)) & -! JVS(2275) = Jac_FULL(248,139) - JVS(2275) = B(1494) +! JVS(2275) = Jac_FULL(282,277) + JVS(2275) = 0.25*B(877) IF (DO_JVS(2276)) & -! JVS(2276) = Jac_FULL(248,157) - JVS(2276) = 0.125*B(780)+B(1485) +! JVS(2276) = Jac_FULL(282,278) + JVS(2276) = 0.25*B(768) IF (DO_JVS(2277)) & -! JVS(2277) = Jac_FULL(248,171) +! JVS(2277) = Jac_FULL(282,279) JVS(2277) = 0 IF (DO_JVS(2278)) & -! JVS(2278) = Jac_FULL(248,181) - JVS(2278) = 0.903*B(1497) +! JVS(2278) = Jac_FULL(282,281) + JVS(2278) = 0.25*B(885) IF (DO_JVS(2279)) & -! JVS(2279) = Jac_FULL(248,186) - JVS(2279) = 0.035*B(758) +! JVS(2279) = Jac_FULL(282,282) + JVS(2279) = -B(89)-B(623) IF (DO_JVS(2280)) & -! JVS(2280) = Jac_FULL(248,224) - JVS(2280) = 0.177*B(704) +! JVS(2280) = Jac_FULL(282,289) + JVS(2280) = 0.25*B(911) IF (DO_JVS(2281)) & -! JVS(2281) = Jac_FULL(248,243) - JVS(2281) = 0.05*B(1501) +! JVS(2281) = Jac_FULL(282,290) + JVS(2281) = 0 IF (DO_JVS(2282)) & -! JVS(2282) = Jac_FULL(248,244) - JVS(2282) = B(728) +! JVS(2282) = Jac_FULL(282,291) + JVS(2282) = 0.25*B(889) IF (DO_JVS(2283)) & -! JVS(2283) = Jac_FULL(248,245) - JVS(2283) = 0.063*B(714)+B(722)+2*B(726)+B(729)+B(734)+B(744) +! JVS(2283) = Jac_FULL(282,296) + JVS(2283) = 0.25*B(247) IF (DO_JVS(2284)) & -! JVS(2284) = Jac_FULL(248,246) - JVS(2284) = 0.544*B(911) +! JVS(2284) = Jac_FULL(282,300) + JVS(2284) = 0.25*B(257) IF (DO_JVS(2285)) & -! JVS(2285) = Jac_FULL(248,247) - JVS(2285) = 0.479*B(906)+1.737*B(910)+0.544*B(912)+0.583*B(916)+0.903*B(918)+0.903*B(922)+0.904*B(926) +! JVS(2285) = Jac_FULL(282,306) + JVS(2285) = 0.1*B(1666) IF (DO_JVS(2286)) & -! JVS(2286) = Jac_FULL(248,248) - JVS(2286) = -B(981)-B(983)-B(1386)-B(1387)-B(1388) +! JVS(2286) = Jac_FULL(282,310) + JVS(2286) = 0.034*B(1159) IF (DO_JVS(2287)) & -! JVS(2287) = Jac_FULL(248,261) - JVS(2287) = 0.903*B(919) +! JVS(2287) = Jac_FULL(282,311) + JVS(2287) = 0.355*B(1157) IF (DO_JVS(2288)) & -! JVS(2288) = Jac_FULL(248,266) - JVS(2288) = B(735)+0.583*B(917) +! JVS(2288) = Jac_FULL(282,313) + JVS(2288) = 0.5*B(261) IF (DO_JVS(2289)) & -! JVS(2289) = Jac_FULL(248,279) - JVS(2289) = B(745)+B(843)+0.904*B(927) +! JVS(2289) = Jac_FULL(282,315) + JVS(2289) = 0.25*B(249) IF (DO_JVS(2290)) & -! JVS(2290) = Jac_FULL(248,281) - JVS(2290) = 0.903*B(923) +! JVS(2290) = Jac_FULL(282,318) + JVS(2290) = 0.25*B(255) IF (DO_JVS(2291)) & -! JVS(2291) = Jac_FULL(248,282) - JVS(2291) = 0.177*B(705)-B(984) +! JVS(2291) = Jac_FULL(282,319) + JVS(2291) = 0.25*B(253) IF (DO_JVS(2292)) & -! JVS(2292) = Jac_FULL(248,284) - JVS(2292) = 0.063*B(715)+B(845)+0.479*B(907) +! JVS(2292) = Jac_FULL(282,320) + JVS(2292) = 0.25*B(263) IF (DO_JVS(2293)) & -! JVS(2293) = Jac_FULL(248,286) - JVS(2293) = 0.035*B(759)+0.23*B(763)+0.125*B(781)-B(982)+0.04*B(1119)+0.04*B(1121) +! JVS(2293) = Jac_FULL(282,321) + JVS(2293) = 0.25*B(214) IF (DO_JVS(2294)) & -! JVS(2294) = Jac_FULL(248,290) - JVS(2294) = 0 +! JVS(2294) = Jac_FULL(282,323) + JVS(2294) = 0.25*B(265) IF (DO_JVS(2295)) & -! JVS(2295) = Jac_FULL(249,200) - JVS(2295) = B(999) +! JVS(2295) = Jac_FULL(282,324) + JVS(2295) = 0 IF (DO_JVS(2296)) & -! JVS(2296) = Jac_FULL(249,205) - JVS(2296) = 0 +! 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) IF (DO_JVS(2297)) & -! JVS(2297) = Jac_FULL(249,224) +! JVS(2297) = Jac_FULL(282,335) JVS(2297) = 0 IF (DO_JVS(2298)) & -! JVS(2298) = Jac_FULL(249,240) +! JVS(2298) = Jac_FULL(282,337) JVS(2298) = 0 IF (DO_JVS(2299)) & -! JVS(2299) = Jac_FULL(249,242) - JVS(2299) = 0 +! JVS(2299) = Jac_FULL(282,340) + JVS(2299) = -B(624) IF (DO_JVS(2300)) & -! JVS(2300) = Jac_FULL(249,243) +! JVS(2300) = Jac_FULL(282,341) JVS(2300) = 0 IF (DO_JVS(2301)) & -! JVS(2301) = Jac_FULL(249,244) +! JVS(2301) = Jac_FULL(282,342) JVS(2301) = 0 IF (DO_JVS(2302)) & -! JVS(2302) = Jac_FULL(249,245) - JVS(2302) = 0 +! JVS(2302) = Jac_FULL(282,345) + JVS(2302) = 0.13*B(58)-B(90) IF (DO_JVS(2303)) & -! JVS(2303) = Jac_FULL(249,246) +! JVS(2303) = Jac_FULL(282,346) JVS(2303) = 0 IF (DO_JVS(2304)) & -! JVS(2304) = Jac_FULL(249,247) +! JVS(2304) = Jac_FULL(282,351) JVS(2304) = 0 IF (DO_JVS(2305)) & -! JVS(2305) = Jac_FULL(249,249) - JVS(2305) = -B(1048)-B(1050)-B(1052)-B(1054)-B(1056) +! JVS(2305) = Jac_FULL(283,201) + JVS(2305) = 0.15*B(1470)+0.3*B(1472) IF (DO_JVS(2306)) & -! JVS(2306) = Jac_FULL(249,251) - JVS(2306) = 0 +! JVS(2306) = Jac_FULL(283,241) + JVS(2306) = B(715) IF (DO_JVS(2307)) & -! JVS(2307) = Jac_FULL(249,261) - JVS(2307) = 0 +! JVS(2307) = Jac_FULL(283,249) + JVS(2307) = 0.1*B(361) IF (DO_JVS(2308)) & -! JVS(2308) = Jac_FULL(249,266) - JVS(2308) = -B(1057) +! JVS(2308) = Jac_FULL(283,250) + JVS(2308) = 0.1*B(363) IF (DO_JVS(2309)) & -! JVS(2309) = Jac_FULL(249,279) - JVS(2309) = -B(1051) +! JVS(2309) = Jac_FULL(283,260) + JVS(2309) = 0.1*B(369) IF (DO_JVS(2310)) & -! JVS(2310) = Jac_FULL(249,281) - JVS(2310) = -B(1055) +! JVS(2310) = Jac_FULL(283,275) + JVS(2310) = 0.1*B(883) IF (DO_JVS(2311)) & -! JVS(2311) = Jac_FULL(249,282) - JVS(2311) = 0 +! JVS(2311) = Jac_FULL(283,277) + JVS(2311) = 0.1*B(879) IF (DO_JVS(2312)) & -! JVS(2312) = Jac_FULL(249,284) - JVS(2312) = -B(1049) +! JVS(2312) = Jac_FULL(283,279) + JVS(2312) = 0 IF (DO_JVS(2313)) & -! JVS(2313) = Jac_FULL(249,286) - JVS(2313) = B(1000) +! JVS(2313) = Jac_FULL(283,281) + JVS(2313) = 0.1*B(887) IF (DO_JVS(2314)) & -! JVS(2314) = Jac_FULL(249,290) - JVS(2314) = 0 +! JVS(2314) = Jac_FULL(283,283) + JVS(2314) = -B(199)-B(627) IF (DO_JVS(2315)) & -! JVS(2315) = Jac_FULL(249,291) - JVS(2315) = -B(1053) +! JVS(2315) = Jac_FULL(283,290) + JVS(2315) = 0 IF (DO_JVS(2316)) & -! JVS(2316) = Jac_FULL(250,112) - JVS(2316) = 0.791*B(243) +! JVS(2316) = Jac_FULL(283,291) + JVS(2316) = 0.1*B(891) IF (DO_JVS(2317)) & -! JVS(2317) = Jac_FULL(250,132) - JVS(2317) = 0.84*B(1025) +! JVS(2317) = Jac_FULL(283,296) + JVS(2317) = 0.1*B(365) IF (DO_JVS(2318)) & -! JVS(2318) = Jac_FULL(250,134) - JVS(2318) = B(694)+B(1462) +! JVS(2318) = Jac_FULL(283,300) + JVS(2318) = 0.1*B(351) IF (DO_JVS(2319)) & -! JVS(2319) = Jac_FULL(250,136) - JVS(2319) = 0.488*B(1037) +! JVS(2319) = Jac_FULL(283,307) + JVS(2319) = 0.5*B(322) IF (DO_JVS(2320)) & -! JVS(2320) = Jac_FULL(250,141) - JVS(2320) = 0.25*B(1504) +! JVS(2320) = Jac_FULL(283,313) + JVS(2320) = 0.1*B(353) IF (DO_JVS(2321)) & -! JVS(2321) = Jac_FULL(250,153) - JVS(2321) = 0.25*B(1059) +! JVS(2321) = Jac_FULL(283,315) + JVS(2321) = 0.1*B(367) IF (DO_JVS(2322)) & -! JVS(2322) = Jac_FULL(250,164) - JVS(2322) = 0.571*B(1505) +! JVS(2322) = Jac_FULL(283,318) + JVS(2322) = 0.1*B(359) IF (DO_JVS(2323)) & -! JVS(2323) = Jac_FULL(250,167) - JVS(2323) = 0.459*B(871)+0.728*B(873) +! JVS(2323) = Jac_FULL(283,319) + JVS(2323) = 0.1*B(349) IF (DO_JVS(2324)) & -! JVS(2324) = Jac_FULL(250,168) - JVS(2324) = 0.441*B(892)+0.858*B(894) +! JVS(2324) = Jac_FULL(283,320) + JVS(2324) = 0.1*B(355) IF (DO_JVS(2325)) & -! JVS(2325) = Jac_FULL(250,174) - JVS(2325) = 0.5*B(768) +! JVS(2325) = Jac_FULL(283,321) + JVS(2325) = 0.1*B(371) IF (DO_JVS(2326)) & -! JVS(2326) = Jac_FULL(250,178) - JVS(2326) = 0 +! JVS(2326) = Jac_FULL(283,323) + JVS(2326) = 0.1*B(357) IF (DO_JVS(2327)) & -! JVS(2327) = Jac_FULL(250,182) - JVS(2327) = 0.284*B(789)+0.135*B(793) +! 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) IF (DO_JVS(2328)) & -! JVS(2328) = Jac_FULL(250,183) - JVS(2328) = 0 +! JVS(2328) = Jac_FULL(283,328) + JVS(2328) = 0.1*B(348) IF (DO_JVS(2329)) & -! JVS(2329) = Jac_FULL(250,186) +! JVS(2329) = Jac_FULL(283,329) JVS(2329) = 0 IF (DO_JVS(2330)) & -! JVS(2330) = Jac_FULL(250,187) - JVS(2330) = B(803)+0.65*B(807) +! JVS(2330) = Jac_FULL(283,335) + JVS(2330) = 0 IF (DO_JVS(2331)) & -! JVS(2331) = Jac_FULL(250,188) - JVS(2331) = 0 +! JVS(2331) = Jac_FULL(283,336) + JVS(2331) = B(716) IF (DO_JVS(2332)) & -! JVS(2332) = Jac_FULL(250,194) - JVS(2332) = 0.52*B(835)+0.8*B(839)+B(841) +! JVS(2332) = Jac_FULL(283,337) + JVS(2332) = 0.13*B(1325) IF (DO_JVS(2333)) & -! JVS(2333) = Jac_FULL(250,199) - JVS(2333) = 0 +! JVS(2333) = Jac_FULL(283,340) + JVS(2333) = -B(628) IF (DO_JVS(2334)) & -! JVS(2334) = Jac_FULL(250,200) - JVS(2334) = B(1483) +! JVS(2334) = Jac_FULL(283,341) + JVS(2334) = 0.3*B(1473) IF (DO_JVS(2335)) & -! JVS(2335) = Jac_FULL(250,205) - JVS(2335) = 0.507*B(1033)+B(1039)+0.86*B(1040) +! JVS(2335) = Jac_FULL(283,342) + JVS(2335) = 0 IF (DO_JVS(2336)) & -! JVS(2336) = Jac_FULL(250,206) - JVS(2336) = 0.586*B(1503) +! JVS(2336) = Jac_FULL(283,345) + JVS(2336) = -B(200)+0.5*B(323)+0.15*B(1471) IF (DO_JVS(2337)) & -! JVS(2337) = Jac_FULL(250,207) +! JVS(2337) = Jac_FULL(283,346) JVS(2337) = 0 IF (DO_JVS(2338)) & -! JVS(2338) = Jac_FULL(250,209) - JVS(2338) = 0.16*B(159)+0.065*B(270) +! JVS(2338) = Jac_FULL(283,348) + JVS(2338) = 0 IF (DO_JVS(2339)) & -! JVS(2339) = Jac_FULL(250,214) +! JVS(2339) = Jac_FULL(283,351) JVS(2339) = 0 IF (DO_JVS(2340)) & -! JVS(2340) = Jac_FULL(250,215) - JVS(2340) = 0 +! JVS(2340) = Jac_FULL(284,44) + JVS(2340) = 0.008*B(684) IF (DO_JVS(2341)) & -! JVS(2341) = Jac_FULL(250,216) - JVS(2341) = 0 +! JVS(2341) = Jac_FULL(284,55) + JVS(2341) = B(1738) IF (DO_JVS(2342)) & -! JVS(2342) = Jac_FULL(250,220) - JVS(2342) = 0 +! JVS(2342) = Jac_FULL(284,96) + JVS(2342) = -B(661)+B(665) IF (DO_JVS(2343)) & -! JVS(2343) = Jac_FULL(250,222) - JVS(2343) = 0.042*B(955)+0.051*B(959) +! 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) IF (DO_JVS(2344)) & -! JVS(2344) = Jac_FULL(250,224) - JVS(2344) = 0 +! JVS(2344) = Jac_FULL(284,330) + JVS(2344) = B(677) IF (DO_JVS(2345)) & -! JVS(2345) = Jac_FULL(250,225) - JVS(2345) = 0.058*B(646) +! JVS(2345) = Jac_FULL(284,331) + JVS(2345) = B(657)+B(669) IF (DO_JVS(2346)) & -! JVS(2346) = Jac_FULL(250,228) - JVS(2346) = 0 +! JVS(2346) = Jac_FULL(284,332) + JVS(2346) = B(654) IF (DO_JVS(2347)) & -! JVS(2347) = Jac_FULL(250,229) - JVS(2347) = 0.8*B(829)+0.52*B(833) +! JVS(2347) = Jac_FULL(284,335) + JVS(2347) = -B(653) IF (DO_JVS(2348)) & -! JVS(2348) = Jac_FULL(250,231) - JVS(2348) = 0.77*B(997)+0.77*B(1480) +! JVS(2348) = Jac_FULL(284,337) + JVS(2348) = -B(680) IF (DO_JVS(2349)) & -! JVS(2349) = Jac_FULL(250,232) - JVS(2349) = 0.033*B(898)+0.071*B(900) +! JVS(2349) = Jac_FULL(284,338) + JVS(2349) = -B(668) IF (DO_JVS(2350)) & -! JVS(2350) = Jac_FULL(250,238) - JVS(2350) = 0 +! JVS(2350) = Jac_FULL(284,341) + JVS(2350) = B(670) IF (DO_JVS(2351)) & -! JVS(2351) = Jac_FULL(250,240) - JVS(2351) = 0 +! JVS(2351) = Jac_FULL(284,345) + JVS(2351) = B(678) IF (DO_JVS(2352)) & -! JVS(2352) = Jac_FULL(250,242) - JVS(2352) = 0.45*B(1507)+0.8*B(1508) +! JVS(2352) = Jac_FULL(284,346) + JVS(2352) = B(666)-B(682) IF (DO_JVS(2353)) & -! JVS(2353) = Jac_FULL(250,243) - JVS(2353) = 0.5*B(1501) +! JVS(2353) = Jac_FULL(284,347) + JVS(2353) = B(658)-B(660) IF (DO_JVS(2354)) & -! JVS(2354) = Jac_FULL(250,244) - JVS(2354) = 0 +! JVS(2354) = Jac_FULL(285,147) + JVS(2354) = 0.032*B(1308) IF (DO_JVS(2355)) & -! JVS(2355) = Jac_FULL(250,245) - JVS(2355) = 0 +! JVS(2355) = Jac_FULL(285,151) + JVS(2355) = 0.33*B(1056) IF (DO_JVS(2356)) & -! JVS(2356) = Jac_FULL(250,246) - JVS(2356) = 0 +! JVS(2356) = Jac_FULL(285,152) + JVS(2356) = 0.19*B(1060) IF (DO_JVS(2357)) & -! JVS(2357) = Jac_FULL(250,247) +! JVS(2357) = Jac_FULL(285,168) JVS(2357) = 0 IF (DO_JVS(2358)) & -! JVS(2358) = Jac_FULL(250,249) - JVS(2358) = 0.5*B(1048)+B(1050)+B(1054)+0.7*B(1056) +! JVS(2358) = Jac_FULL(285,175) + JVS(2358) = 0 IF (DO_JVS(2359)) & -! JVS(2359) = Jac_FULL(250,250) - JVS(2359) = -B(227)-B(229)-B(1390) +! JVS(2359) = Jac_FULL(285,187) + JVS(2359) = 0 IF (DO_JVS(2360)) & -! JVS(2360) = Jac_FULL(250,251) +! JVS(2360) = Jac_FULL(285,192) JVS(2360) = 0 IF (DO_JVS(2361)) & -! JVS(2361) = Jac_FULL(250,252) - JVS(2361) = 0.2*B(185) +! JVS(2361) = Jac_FULL(285,238) + JVS(2361) = 0.068*B(1009) IF (DO_JVS(2362)) & -! JVS(2362) = Jac_FULL(250,253) +! JVS(2362) = Jac_FULL(285,267) JVS(2362) = 0 IF (DO_JVS(2363)) & -! JVS(2363) = Jac_FULL(250,261) - JVS(2363) = 0.065*B(271) +! JVS(2363) = Jac_FULL(285,268) + JVS(2363) = 0 IF (DO_JVS(2364)) & -! JVS(2364) = Jac_FULL(250,266) - JVS(2364) = 0.16*B(160)+0.2*B(186)+0.7*B(1057) +! JVS(2364) = Jac_FULL(285,285) + JVS(2364) = -B(1070)-B(1071)-B(1072)-B(1074)-B(1076) IF (DO_JVS(2365)) & -! JVS(2365) = Jac_FULL(250,273) +! JVS(2365) = Jac_FULL(285,286) JVS(2365) = 0 IF (DO_JVS(2366)) & -! JVS(2366) = Jac_FULL(250,279) - JVS(2366) = 0.058*B(647)+0.284*B(790)+B(804)+0.8*B(830)+0.8*B(840)+0.728*B(874)+0.858*B(895)+0.071*B(901)+0.051*B(960)& - &+0.86*B(1041)+B(1051) +! JVS(2366) = Jac_FULL(285,304) + JVS(2366) = 0 IF (DO_JVS(2367)) & -! JVS(2367) = Jac_FULL(250,281) - JVS(2367) = B(1055) +! JVS(2367) = Jac_FULL(285,305) + JVS(2367) = 0 IF (DO_JVS(2368)) & -! JVS(2368) = Jac_FULL(250,282) +! JVS(2368) = Jac_FULL(285,310) JVS(2368) = 0 IF (DO_JVS(2369)) & -! JVS(2369) = Jac_FULL(250,284) - JVS(2369) = 0.135*B(794)+0.65*B(808)+0.52*B(834)+0.52*B(836)+0.459*B(872)+0.441*B(893)+0.033*B(899)+0.042*B(956)+0.507& - &*B(1034)+0.5*B(1049) +! JVS(2369) = Jac_FULL(285,311) + JVS(2369) = 0 IF (DO_JVS(2370)) & -! JVS(2370) = Jac_FULL(250,286) - JVS(2370) = -B(228)-B(230)+0.791*B(244)+B(695)+0.5*B(769)+0.77*B(998)+0.84*B(1026)+0.488*B(1038)+0.25*B(1060) +! JVS(2370) = Jac_FULL(285,328) + JVS(2370) = 0 IF (DO_JVS(2371)) & -! JVS(2371) = Jac_FULL(250,290) - JVS(2371) = 0 +! JVS(2371) = Jac_FULL(285,337) + JVS(2371) = -B(1077) IF (DO_JVS(2372)) & -! JVS(2372) = Jac_FULL(250,291) - JVS(2372) = 0 +! JVS(2372) = Jac_FULL(285,345) + JVS(2372) = 0.068*B(1010)+0.33*B(1057)+0.19*B(1061)+0.032*B(1309) IF (DO_JVS(2373)) & -! JVS(2373) = Jac_FULL(251,123) - JVS(2373) = B(846)+B(848) +! JVS(2373) = Jac_FULL(285,346) + JVS(2373) = -B(1073)-B(1075) IF (DO_JVS(2374)) & -! JVS(2374) = Jac_FULL(251,127) - JVS(2374) = 0.14*B(764)+B(1492) +! JVS(2374) = Jac_FULL(286,147) + JVS(2374) = 0.08*B(1308) IF (DO_JVS(2375)) & -! JVS(2375) = Jac_FULL(251,140) - JVS(2375) = B(1495) +! JVS(2375) = Jac_FULL(286,151) + JVS(2375) = 0.67*B(1056) IF (DO_JVS(2376)) & -! JVS(2376) = Jac_FULL(251,162) - JVS(2376) = 0.165*B(782)+B(1486) +! JVS(2376) = Jac_FULL(286,152) + JVS(2376) = 0.81*B(1060) IF (DO_JVS(2377)) & -! JVS(2377) = Jac_FULL(251,165) +! JVS(2377) = Jac_FULL(286,168) JVS(2377) = 0 IF (DO_JVS(2378)) & -! JVS(2378) = Jac_FULL(251,170) - JVS(2378) = 0.79*B(642) +! JVS(2378) = Jac_FULL(286,175) + JVS(2378) = 0 IF (DO_JVS(2379)) & -! JVS(2379) = Jac_FULL(251,181) - JVS(2379) = 0.097*B(1497) +! JVS(2379) = Jac_FULL(286,187) + JVS(2379) = 0 IF (DO_JVS(2380)) & -! JVS(2380) = Jac_FULL(251,188) - JVS(2380) = 0.035*B(760) +! JVS(2380) = Jac_FULL(286,192) + JVS(2380) = 0 IF (DO_JVS(2381)) & -! JVS(2381) = Jac_FULL(251,224) - JVS(2381) = 0.416*B(704) +! JVS(2381) = Jac_FULL(286,238) + JVS(2381) = 0.294*B(1009) IF (DO_JVS(2382)) & -! JVS(2382) = Jac_FULL(251,225) - JVS(2382) = 0.308*B(650)+0.308*B(652)+0.615*B(654) +! JVS(2382) = Jac_FULL(286,267) + JVS(2382) = 0 IF (DO_JVS(2383)) & -! JVS(2383) = Jac_FULL(251,243) - JVS(2383) = 0.005*B(1501) +! JVS(2383) = Jac_FULL(286,268) + JVS(2383) = 0 IF (DO_JVS(2384)) & -! JVS(2384) = Jac_FULL(251,244) - JVS(2384) = 0.063*B(718)+B(724)+2*B(727)+B(728)+B(738)+B(752) +! JVS(2384) = Jac_FULL(286,285) + JVS(2384) = 0 IF (DO_JVS(2385)) & -! JVS(2385) = Jac_FULL(251,245) - JVS(2385) = B(729) +! JVS(2385) = Jac_FULL(286,286) + JVS(2385) = -B(1062)-B(1063)-B(1064)-B(1066)-B(1068) IF (DO_JVS(2386)) & -! JVS(2386) = Jac_FULL(251,246) - JVS(2386) = 0.019*B(911) +! JVS(2386) = Jac_FULL(286,304) + JVS(2386) = 0 IF (DO_JVS(2387)) & -! JVS(2387) = Jac_FULL(251,247) - JVS(2387) = 0.048*B(906)+0.123*B(910)+0.019*B(912)+0.028*B(916)+0.097*B(918)+0.097*B(922)+0.096*B(926) +! JVS(2387) = Jac_FULL(286,305) + JVS(2387) = 0 IF (DO_JVS(2388)) & -! JVS(2388) = Jac_FULL(251,251) - JVS(2388) = -B(985)-B(987)-B(989)-B(991)-B(1389) +! JVS(2388) = Jac_FULL(286,310) + JVS(2388) = 0 IF (DO_JVS(2389)) & -! JVS(2389) = Jac_FULL(251,261) - JVS(2389) = 0.308*B(653)+0.097*B(919) +! JVS(2389) = Jac_FULL(286,311) + JVS(2389) = 0 IF (DO_JVS(2390)) & -! JVS(2390) = Jac_FULL(251,266) - JVS(2390) = 0.308*B(651)+B(739)+0.028*B(917) +! JVS(2390) = Jac_FULL(286,328) + JVS(2390) = 0 IF (DO_JVS(2391)) & -! JVS(2391) = Jac_FULL(251,279) - JVS(2391) = B(753)+B(847)+0.096*B(927) +! JVS(2391) = Jac_FULL(286,337) + JVS(2391) = -B(1065) IF (DO_JVS(2392)) & -! JVS(2392) = Jac_FULL(251,281) - JVS(2392) = 0.615*B(655)+0.097*B(923)-B(992) +! JVS(2392) = Jac_FULL(286,345) + JVS(2392) = 0.294*B(1010)+0.67*B(1057)+0.81*B(1061)+0.08*B(1309) IF (DO_JVS(2393)) & -! JVS(2393) = Jac_FULL(251,282) - JVS(2393) = 0.79*B(643)+0.416*B(705)-B(990) +! JVS(2393) = Jac_FULL(286,346) + JVS(2393) = -B(1067)-B(1069) IF (DO_JVS(2394)) & -! JVS(2394) = Jac_FULL(251,284) - JVS(2394) = 0.063*B(719)+B(849)+0.048*B(907) +! JVS(2394) = Jac_FULL(287,144) + JVS(2394) = 0.09*B(1007) IF (DO_JVS(2395)) & -! JVS(2395) = Jac_FULL(251,286) - JVS(2395) = 0.035*B(761)+0.14*B(765)+0.165*B(783)-B(986)-B(988) +! JVS(2395) = Jac_FULL(287,192) + JVS(2395) = 0.165*B(1025) IF (DO_JVS(2396)) & -! JVS(2396) = Jac_FULL(251,290) - JVS(2396) = 0 +! JVS(2396) = Jac_FULL(287,198) + JVS(2396) = 0.571*B(1312) IF (DO_JVS(2397)) & -! JVS(2397) = Jac_FULL(252,196) - JVS(2397) = 0.7*B(61) +! JVS(2397) = Jac_FULL(287,199) + JVS(2397) = 0 IF (DO_JVS(2398)) & -! JVS(2398) = Jac_FULL(252,221) - JVS(2398) = B(155)+B(318)+B(534) +! JVS(2398) = Jac_FULL(287,223) + JVS(2398) = 0.716*B(1032)+0.14*B(1036) IF (DO_JVS(2399)) & -! JVS(2399) = Jac_FULL(252,222) +! JVS(2399) = Jac_FULL(287,224) JVS(2399) = 0 IF (DO_JVS(2400)) & -! JVS(2400) = Jac_FULL(252,224) - JVS(2400) = 0 +! JVS(2400) = Jac_FULL(287,231) + JVS(2400) = 0.17*B(1003) IF (DO_JVS(2401)) & -! JVS(2401) = Jac_FULL(252,231) +! JVS(2401) = Jac_FULL(287,232) JVS(2401) = 0 IF (DO_JVS(2402)) & -! JVS(2402) = Jac_FULL(252,238) - JVS(2402) = 0 +! JVS(2402) = Jac_FULL(287,238) + JVS(2402) = 0.158*B(1009) IF (DO_JVS(2403)) & -! JVS(2403) = Jac_FULL(252,240) - JVS(2403) = 0 +! JVS(2403) = Jac_FULL(287,253) + JVS(2403) = 0.41*B(1276) IF (DO_JVS(2404)) & -! JVS(2404) = Jac_FULL(252,242) - JVS(2404) = 0 +! JVS(2404) = Jac_FULL(287,258) + JVS(2404) = 0.5*B(1306)+0.5*B(1792) IF (DO_JVS(2405)) & -! JVS(2405) = Jac_FULL(252,243) - JVS(2405) = 0 +! JVS(2405) = Jac_FULL(287,266) + JVS(2405) = 0.25*B(1314)+0.5*B(1800) IF (DO_JVS(2406)) & -! JVS(2406) = Jac_FULL(252,244) - JVS(2406) = 0 +! JVS(2406) = Jac_FULL(287,267) + JVS(2406) = 0.55*B(1786) IF (DO_JVS(2407)) & -! JVS(2407) = Jac_FULL(252,245) +! JVS(2407) = Jac_FULL(287,268) JVS(2407) = 0 IF (DO_JVS(2408)) & -! JVS(2408) = Jac_FULL(252,246) - JVS(2408) = 0 +! JVS(2408) = Jac_FULL(287,271) + JVS(2408) = 0.004*B(1198)+0.006*B(1202) IF (DO_JVS(2409)) & -! JVS(2409) = Jac_FULL(252,247) +! JVS(2409) = Jac_FULL(287,276) JVS(2409) = 0 IF (DO_JVS(2410)) & -! JVS(2410) = Jac_FULL(252,251) +! JVS(2410) = Jac_FULL(287,285) JVS(2410) = 0 IF (DO_JVS(2411)) & -! JVS(2411) = Jac_FULL(252,252) - JVS(2411) = -B(130)-B(165)-B(185)-B(256) +! JVS(2411) = Jac_FULL(287,286) + JVS(2411) = 0 IF (DO_JVS(2412)) & -! JVS(2412) = Jac_FULL(252,254) - JVS(2412) = 0 +! JVS(2412) = Jac_FULL(287,287) + JVS(2412) = -B(1240)-B(1770) IF (DO_JVS(2413)) & -! JVS(2413) = Jac_FULL(252,256) +! JVS(2413) = Jac_FULL(287,301) JVS(2413) = 0 IF (DO_JVS(2414)) & -! JVS(2414) = Jac_FULL(252,257) - JVS(2414) = 0 +! JVS(2414) = Jac_FULL(287,303) + JVS(2414) = 0.15*B(1798) IF (DO_JVS(2415)) & -! JVS(2415) = Jac_FULL(252,258) - JVS(2415) = 0 +! JVS(2415) = Jac_FULL(287,304) + JVS(2415) = B(974)+0.5*B(975)+0.5*B(983)+0.55*B(999) IF (DO_JVS(2416)) & -! JVS(2416) = Jac_FULL(252,261) - JVS(2416) = -B(257) +! JVS(2416) = Jac_FULL(287,305) + JVS(2416) = 0.5*B(976) IF (DO_JVS(2417)) & -! JVS(2417) = Jac_FULL(252,266) - JVS(2417) = -B(186) +! JVS(2417) = Jac_FULL(287,309) + JVS(2417) = 0 IF (DO_JVS(2418)) & -! JVS(2418) = Jac_FULL(252,273) - JVS(2418) = B(319) +! JVS(2418) = Jac_FULL(287,310) + JVS(2418) = 0 IF (DO_JVS(2419)) & -! JVS(2419) = Jac_FULL(252,279) - JVS(2419) = -B(131) +! JVS(2419) = Jac_FULL(287,311) + JVS(2419) = 0 IF (DO_JVS(2420)) & -! JVS(2420) = Jac_FULL(252,281) - JVS(2420) = 0 +! JVS(2420) = Jac_FULL(287,328) + JVS(2420) = 0.5*B(984) IF (DO_JVS(2421)) & -! JVS(2421) = Jac_FULL(252,282) +! JVS(2421) = Jac_FULL(287,335) JVS(2421) = 0 IF (DO_JVS(2422)) & -! JVS(2422) = Jac_FULL(252,284) - JVS(2422) = -B(166) +! JVS(2422) = Jac_FULL(287,337) + JVS(2422) = 0.14*B(1037)+0.004*B(1199)+0.41*B(1277) IF (DO_JVS(2423)) & -! JVS(2423) = Jac_FULL(252,286) - JVS(2423) = 0.7*B(62)+B(156) +! JVS(2423) = Jac_FULL(287,340) + JVS(2423) = 0 IF (DO_JVS(2424)) & -! JVS(2424) = Jac_FULL(252,290) - JVS(2424) = B(535) +! JVS(2424) = Jac_FULL(287,341) + JVS(2424) = 0 IF (DO_JVS(2425)) & -! JVS(2425) = Jac_FULL(252,291) - JVS(2425) = 0 +! 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) IF (DO_JVS(2426)) & -! JVS(2426) = Jac_FULL(253,170) - JVS(2426) = 0.46*B(642) +! JVS(2426) = Jac_FULL(287,346) + JVS(2426) = 0.55*B(1000)+0.716*B(1033)+0.006*B(1203) IF (DO_JVS(2427)) & -! JVS(2427) = Jac_FULL(253,225) - JVS(2427) = 0.289*B(646)+0.192*B(650)+0.192*B(652)+0.385*B(654) +! JVS(2427) = Jac_FULL(287,351) + JVS(2427) = 0 IF (DO_JVS(2428)) & -! JVS(2428) = Jac_FULL(253,248) - JVS(2428) = B(1386) +! JVS(2428) = Jac_FULL(288,150) + JVS(2428) = 0.19*B(1005) IF (DO_JVS(2429)) & -! JVS(2429) = Jac_FULL(253,253) - JVS(2429) = -B(209)-B(211)-B(217)-B(540)-B(542) +! JVS(2429) = Jac_FULL(288,187) + JVS(2429) = 0.125*B(1023) IF (DO_JVS(2430)) & -! JVS(2430) = Jac_FULL(253,261) - JVS(2430) = 0.192*B(653) +! JVS(2430) = Jac_FULL(288,198) + JVS(2430) = 0.429*B(1312) IF (DO_JVS(2431)) & -! JVS(2431) = Jac_FULL(253,266) - JVS(2431) = 0.192*B(651) +! JVS(2431) = Jac_FULL(288,209) + JVS(2431) = 0 IF (DO_JVS(2432)) & -! JVS(2432) = Jac_FULL(253,273) - JVS(2432) = -B(543) +! JVS(2432) = Jac_FULL(288,223) + JVS(2432) = 0 IF (DO_JVS(2433)) & -! JVS(2433) = Jac_FULL(253,279) - JVS(2433) = 0.289*B(647) +! JVS(2433) = Jac_FULL(288,224) + JVS(2433) = 0.706*B(1039)+0.14*B(1043) IF (DO_JVS(2434)) & -! JVS(2434) = Jac_FULL(253,281) - JVS(2434) = -B(218)+0.385*B(655) +! JVS(2434) = Jac_FULL(288,230) + JVS(2434) = 0.33*B(1001) IF (DO_JVS(2435)) & -! JVS(2435) = Jac_FULL(253,282) - JVS(2435) = -B(212)+0.46*B(643) +! JVS(2435) = Jac_FULL(288,232) + JVS(2435) = 0 IF (DO_JVS(2436)) & -! JVS(2436) = Jac_FULL(253,284) - JVS(2436) = 0 +! JVS(2436) = Jac_FULL(288,238) + JVS(2436) = 0.125*B(1009) IF (DO_JVS(2437)) & -! JVS(2437) = Jac_FULL(253,286) - JVS(2437) = -B(210) +! JVS(2437) = Jac_FULL(288,254) + JVS(2437) = 0.335*B(1270) IF (DO_JVS(2438)) & -! JVS(2438) = Jac_FULL(253,290) - JVS(2438) = -B(541) +! JVS(2438) = Jac_FULL(288,266) + JVS(2438) = 0.75*B(1314)+0.5*B(1800) IF (DO_JVS(2439)) & -! JVS(2439) = Jac_FULL(254,154) - JVS(2439) = 0.62*B(632) +! JVS(2439) = Jac_FULL(288,267) + JVS(2439) = 0 IF (DO_JVS(2440)) & -! JVS(2440) = Jac_FULL(254,155) - JVS(2440) = 0.62*B(634) +! JVS(2440) = Jac_FULL(288,268) + JVS(2440) = 0.55*B(1783) IF (DO_JVS(2441)) & -! JVS(2441) = Jac_FULL(254,170) - JVS(2441) = 0.42*B(642) +! JVS(2441) = Jac_FULL(288,271) + JVS(2441) = 0.054*B(1198)+0.059*B(1202) IF (DO_JVS(2442)) & -! JVS(2442) = Jac_FULL(254,226) - JVS(2442) = B(173)+B(179) +! JVS(2442) = Jac_FULL(288,276) + JVS(2442) = 0 IF (DO_JVS(2443)) & -! JVS(2443) = Jac_FULL(254,238) +! JVS(2443) = Jac_FULL(288,285) JVS(2443) = 0 IF (DO_JVS(2444)) & -! JVS(2444) = Jac_FULL(254,254) - JVS(2444) = -B(132)-B(167)-B(187)-B(258) +! JVS(2444) = Jac_FULL(288,286) + JVS(2444) = 0 IF (DO_JVS(2445)) & -! JVS(2445) = Jac_FULL(254,256) - JVS(2445) = 0 +! JVS(2445) = Jac_FULL(288,288) + JVS(2445) = -B(1238)-B(1767) IF (DO_JVS(2446)) & -! JVS(2446) = Jac_FULL(254,257) +! JVS(2446) = Jac_FULL(288,301) JVS(2446) = 0 IF (DO_JVS(2447)) & -! JVS(2447) = Jac_FULL(254,261) - JVS(2447) = -B(259) +! JVS(2447) = Jac_FULL(288,303) + JVS(2447) = 0 IF (DO_JVS(2448)) & -! JVS(2448) = Jac_FULL(254,266) - JVS(2448) = -B(188) +! JVS(2448) = Jac_FULL(288,304) + JVS(2448) = 0.5*B(975) IF (DO_JVS(2449)) & -! JVS(2449) = Jac_FULL(254,279) - JVS(2449) = -B(133) +! JVS(2449) = Jac_FULL(288,305) + JVS(2449) = B(973)+0.5*B(976)+0.5*B(979)+0.55*B(991) IF (DO_JVS(2450)) & -! JVS(2450) = Jac_FULL(254,281) - JVS(2450) = B(180) +! JVS(2450) = Jac_FULL(288,310) + JVS(2450) = 0 IF (DO_JVS(2451)) & -! JVS(2451) = Jac_FULL(254,282) - JVS(2451) = 0.62*B(633)+0.62*B(635)+0.42*B(643) +! JVS(2451) = Jac_FULL(288,311) + JVS(2451) = 0 IF (DO_JVS(2452)) & -! JVS(2452) = Jac_FULL(254,284) - JVS(2452) = -B(168) +! JVS(2452) = Jac_FULL(288,314) + JVS(2452) = 0 IF (DO_JVS(2453)) & -! JVS(2453) = Jac_FULL(254,286) - JVS(2453) = B(174) +! JVS(2453) = Jac_FULL(288,328) + JVS(2453) = 0.5*B(980) IF (DO_JVS(2454)) & -! JVS(2454) = Jac_FULL(255,50) - JVS(2454) = B(150) +! JVS(2454) = Jac_FULL(288,335) + JVS(2454) = 0 IF (DO_JVS(2455)) & -! JVS(2455) = Jac_FULL(255,106) - JVS(2455) = B(241) +! JVS(2455) = Jac_FULL(288,337) + JVS(2455) = 0.14*B(1044)+0.054*B(1199)+0.335*B(1271) IF (DO_JVS(2456)) & -! JVS(2456) = Jac_FULL(255,148) - JVS(2456) = 0.33*B(1188) +! JVS(2456) = Jac_FULL(288,340) + JVS(2456) = 0 IF (DO_JVS(2457)) & -! JVS(2457) = Jac_FULL(255,159) - JVS(2457) = 0.33*B(1183) +! JVS(2457) = Jac_FULL(288,341) + JVS(2457) = 0 IF (DO_JVS(2458)) & -! JVS(2458) = Jac_FULL(255,210) - JVS(2458) = 0 +! 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) IF (DO_JVS(2459)) & -! JVS(2459) = Jac_FULL(255,226) - JVS(2459) = 0.15*B(1380) +! JVS(2459) = Jac_FULL(288,346) + JVS(2459) = 0.55*B(992)+0.706*B(1040)+0.059*B(1203) IF (DO_JVS(2460)) & -! JVS(2460) = Jac_FULL(255,238) +! JVS(2460) = Jac_FULL(288,351) JVS(2460) = 0 IF (DO_JVS(2461)) & -! JVS(2461) = Jac_FULL(255,248) - JVS(2461) = B(1388) +! JVS(2461) = Jac_FULL(289,167) + JVS(2461) = 0.5*B(721) IF (DO_JVS(2462)) & -! JVS(2462) = Jac_FULL(255,254) - JVS(2462) = 0 +! JVS(2462) = Jac_FULL(289,191) + JVS(2462) = 0.9*B(717) IF (DO_JVS(2463)) & -! JVS(2463) = Jac_FULL(255,255) - JVS(2463) = -B(148)-B(151)-B(207)-B(274)-B(276) +! JVS(2463) = Jac_FULL(289,219) + JVS(2463) = 0.9*B(719) IF (DO_JVS(2464)) & -! JVS(2464) = Jac_FULL(255,256) - JVS(2464) = 0 +! JVS(2464) = Jac_FULL(289,280) + JVS(2464) = -B(922) IF (DO_JVS(2465)) & -! JVS(2465) = Jac_FULL(255,257) - JVS(2465) = 0 +! JVS(2465) = Jac_FULL(289,289) + JVS(2465) = -B(903)-B(907)-B(911)-B(915)-B(919)-B(923)-2*B(924) IF (DO_JVS(2466)) & -! JVS(2466) = Jac_FULL(255,259) - JVS(2466) = B(146)+B(153) +! JVS(2466) = Jac_FULL(289,291) + JVS(2466) = 0 IF (DO_JVS(2467)) & -! JVS(2467) = Jac_FULL(255,261) - JVS(2467) = -B(275) +! JVS(2467) = Jac_FULL(289,324) + JVS(2467) = -B(916) IF (DO_JVS(2468)) & -! JVS(2468) = Jac_FULL(255,266) - JVS(2468) = -B(277) +! JVS(2468) = Jac_FULL(289,328) + JVS(2468) = -B(912) IF (DO_JVS(2469)) & -! JVS(2469) = Jac_FULL(255,279) - JVS(2469) = -B(152) +! JVS(2469) = Jac_FULL(289,337) + JVS(2469) = -B(908) IF (DO_JVS(2470)) & -! JVS(2470) = Jac_FULL(255,281) - JVS(2470) = B(154) +! JVS(2470) = Jac_FULL(289,341) + JVS(2470) = 0 IF (DO_JVS(2471)) & -! JVS(2471) = Jac_FULL(255,282) +! JVS(2471) = Jac_FULL(289,345) JVS(2471) = 0 IF (DO_JVS(2472)) & -! JVS(2472) = Jac_FULL(255,284) - JVS(2472) = -B(208) +! JVS(2472) = Jac_FULL(289,346) + JVS(2472) = -B(904) IF (DO_JVS(2473)) & -! JVS(2473) = Jac_FULL(255,286) - JVS(2473) = B(147)+B(242)+0.33*B(1184)+0.33*B(1189) +! JVS(2473) = Jac_FULL(289,351) + JVS(2473) = 0.9*B(718)+0.9*B(720)+0.5*B(722)-B(920) IF (DO_JVS(2474)) & -! JVS(2474) = Jac_FULL(255,290) - JVS(2474) = 0 +! JVS(2474) = Jac_FULL(290,290) + JVS(2474) = -B(285)-B(287)-B(310)-B(639)-B(641) IF (DO_JVS(2475)) & -! JVS(2475) = Jac_FULL(255,291) - JVS(2475) = -B(149) +! JVS(2475) = Jac_FULL(290,314) + JVS(2475) = B(1671) IF (DO_JVS(2476)) & -! JVS(2476) = Jac_FULL(256,93) - JVS(2476) = 0.21*B(239) +! JVS(2476) = Jac_FULL(290,340) + JVS(2476) = -B(640) IF (DO_JVS(2477)) & -! JVS(2477) = Jac_FULL(256,114) - JVS(2477) = B(122)+B(140)+B(538) +! JVS(2477) = Jac_FULL(290,341) + JVS(2477) = -B(288) IF (DO_JVS(2478)) & -! JVS(2478) = Jac_FULL(256,119) - JVS(2478) = 0.44*B(656) +! JVS(2478) = Jac_FULL(290,342) + JVS(2478) = -B(642) IF (DO_JVS(2479)) & -! JVS(2479) = Jac_FULL(256,148) - JVS(2479) = 0.2*B(1192) +! JVS(2479) = Jac_FULL(290,345) + JVS(2479) = -B(286) IF (DO_JVS(2480)) & -! JVS(2480) = Jac_FULL(256,225) - JVS(2480) = 0 +! JVS(2480) = Jac_FULL(290,351) + JVS(2480) = -B(311) IF (DO_JVS(2481)) & -! JVS(2481) = Jac_FULL(256,238) - JVS(2481) = 0 +! JVS(2481) = Jac_FULL(291,219) + JVS(2481) = 0.5*B(727) IF (DO_JVS(2482)) & -! JVS(2482) = Jac_FULL(256,256) - JVS(2482) = -B(124)-B(126)-B(161)-B(181)-B(254) +! JVS(2482) = Jac_FULL(291,291) + JVS(2482) = -B(851)-B(853)-B(855)-B(857)-B(889)-B(891) IF (DO_JVS(2483)) & -! JVS(2483) = Jac_FULL(256,257) - JVS(2483) = 0.15*B(183)+0.27*B(262) +! JVS(2483) = Jac_FULL(291,324) + JVS(2483) = -B(892) IF (DO_JVS(2484)) & -! JVS(2484) = Jac_FULL(256,261) - JVS(2484) = -B(255)+0.27*B(263) +! JVS(2484) = Jac_FULL(291,328) + JVS(2484) = -B(890) IF (DO_JVS(2485)) & -! JVS(2485) = Jac_FULL(256,266) - JVS(2485) = -B(182)+0.15*B(184) +! JVS(2485) = Jac_FULL(291,337) + JVS(2485) = -B(852) IF (DO_JVS(2486)) & -! JVS(2486) = Jac_FULL(256,279) - JVS(2486) = -B(125)-B(127) +! JVS(2486) = Jac_FULL(291,341) + JVS(2486) = 0 IF (DO_JVS(2487)) & -! JVS(2487) = Jac_FULL(256,281) - JVS(2487) = B(141) +! JVS(2487) = Jac_FULL(291,345) + JVS(2487) = 0.5*B(728) IF (DO_JVS(2488)) & -! JVS(2488) = Jac_FULL(256,282) - JVS(2488) = 0 +! JVS(2488) = Jac_FULL(291,346) + JVS(2488) = -B(854)-B(856) IF (DO_JVS(2489)) & -! JVS(2489) = Jac_FULL(256,284) - JVS(2489) = -B(162) +! JVS(2489) = Jac_FULL(291,351) + JVS(2489) = -B(858) IF (DO_JVS(2490)) & -! JVS(2490) = Jac_FULL(256,286) - JVS(2490) = B(123)+0.21*B(240)+0.44*B(657) +! JVS(2490) = Jac_FULL(292,160) + JVS(2490) = 0.25*B(770)+0.5*B(1811) IF (DO_JVS(2491)) & -! JVS(2491) = Jac_FULL(256,290) - JVS(2491) = B(539) +! JVS(2491) = Jac_FULL(292,176) + JVS(2491) = 0.3*B(772) IF (DO_JVS(2492)) & -! JVS(2492) = Jac_FULL(257,202) - JVS(2492) = B(142) +! JVS(2492) = Jac_FULL(292,178) + JVS(2492) = 0.25*B(128) IF (DO_JVS(2493)) & -! JVS(2493) = Jac_FULL(257,210) - JVS(2493) = 0.5*B(1175)+0.5*B(1177) +! JVS(2493) = Jac_FULL(292,219) + JVS(2493) = 0.5*B(729) IF (DO_JVS(2494)) & -! JVS(2494) = Jac_FULL(257,254) - JVS(2494) = 0 +! JVS(2494) = Jac_FULL(292,251) + JVS(2494) = 0.19*B(1685) IF (DO_JVS(2495)) & -! JVS(2495) = Jac_FULL(257,256) - JVS(2495) = 0 +! JVS(2495) = Jac_FULL(292,256) + JVS(2495) = B(1750) IF (DO_JVS(2496)) & -! JVS(2496) = Jac_FULL(257,257) - JVS(2496) = -B(128)-B(163)-B(183)-B(262) +! JVS(2496) = Jac_FULL(292,262) + JVS(2496) = B(871)+B(873)+0.5*B(875) IF (DO_JVS(2497)) & -! JVS(2497) = Jac_FULL(257,261) - JVS(2497) = -B(263) +! JVS(2497) = Jac_FULL(292,272) + JVS(2497) = 0 IF (DO_JVS(2498)) & -! JVS(2498) = Jac_FULL(257,266) - JVS(2498) = -B(184) +! JVS(2498) = Jac_FULL(292,273) + JVS(2498) = 0 IF (DO_JVS(2499)) & -! JVS(2499) = Jac_FULL(257,279) - JVS(2499) = -B(129) +! JVS(2499) = Jac_FULL(292,275) + JVS(2499) = 0 IF (DO_JVS(2500)) & -! JVS(2500) = Jac_FULL(257,281) - JVS(2500) = 0.5*B(1178) +! JVS(2500) = Jac_FULL(292,277) + JVS(2500) = 0 IF (DO_JVS(2501)) & -! JVS(2501) = Jac_FULL(257,282) - JVS(2501) = 0 +! JVS(2501) = Jac_FULL(292,278) + JVS(2501) = 0.42*B(764)+0.5*B(766)+0.375*B(768) IF (DO_JVS(2502)) & -! JVS(2502) = Jac_FULL(257,284) - JVS(2502) = -B(164) +! JVS(2502) = Jac_FULL(292,279) + JVS(2502) = 0.19*B(1688) IF (DO_JVS(2503)) & -! JVS(2503) = Jac_FULL(257,286) - JVS(2503) = B(143)+0.5*B(1176) +! JVS(2503) = Jac_FULL(292,280) + JVS(2503) = 0.149*B(922) IF (DO_JVS(2504)) & -! JVS(2504) = Jac_FULL(257,290) +! JVS(2504) = Jac_FULL(292,281) JVS(2504) = 0 IF (DO_JVS(2505)) & -! JVS(2505) = Jac_FULL(257,291) - JVS(2505) = 0 +! 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) IF (DO_JVS(2506)) & -! JVS(2506) = Jac_FULL(258,95) - JVS(2506) = 0.209*B(237) +! JVS(2506) = Jac_FULL(292,291) + JVS(2506) = 0 IF (DO_JVS(2507)) & -! JVS(2507) = Jac_FULL(258,124) - JVS(2507) = B(112)+B(530) +! JVS(2507) = Jac_FULL(292,292) + JVS(2507) = -B(234)-B(251)-B(1665) IF (DO_JVS(2508)) & -! JVS(2508) = Jac_FULL(258,202) - JVS(2508) = 0.19*B(1398) +! JVS(2508) = Jac_FULL(292,300) + JVS(2508) = 0.19*B(171)+0.35*B(257)+0.271*B(351) IF (DO_JVS(2509)) & -! JVS(2509) = Jac_FULL(258,226) - JVS(2509) = 0.23*B(1380) +! JVS(2509) = Jac_FULL(292,318) + JVS(2509) = 0 IF (DO_JVS(2510)) & -! JVS(2510) = Jac_FULL(258,238) - JVS(2510) = 0 +! JVS(2510) = Jac_FULL(292,319) + JVS(2510) = 0.19*B(177)+0.35*B(253)+0.271*B(349) IF (DO_JVS(2511)) & -! JVS(2511) = Jac_FULL(258,254) - JVS(2511) = 0 +! JVS(2511) = Jac_FULL(292,320) + JVS(2511) = 0.25*B(263)+0.1*B(355) IF (DO_JVS(2512)) & -! JVS(2512) = Jac_FULL(258,255) - JVS(2512) = 0.27*B(151)+0.12*B(207)+0.27*B(274)+0.27*B(276) +! JVS(2512) = Jac_FULL(292,324) + JVS(2512) = 0.271*B(350)+0.271*B(352)+0.1*B(356)+0.464*B(916) IF (DO_JVS(2513)) & -! JVS(2513) = Jac_FULL(258,256) - JVS(2513) = 0.19*B(124)+0.09*B(181)+0.162*B(254) +! 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) IF (DO_JVS(2514)) & -! JVS(2514) = Jac_FULL(258,257) +! JVS(2514) = Jac_FULL(292,335) JVS(2514) = 0 IF (DO_JVS(2515)) & -! JVS(2515) = Jac_FULL(258,258) - JVS(2515) = -B(134)-B(136)-B(169)-B(189)-B(260) +! JVS(2515) = Jac_FULL(292,337) + JVS(2515) = 0 IF (DO_JVS(2516)) & -! JVS(2516) = Jac_FULL(258,259) - JVS(2516) = 0.27*B(1377) +! JVS(2516) = Jac_FULL(292,341) + JVS(2516) = 0.5*B(730)+B(874) IF (DO_JVS(2517)) & -! JVS(2517) = Jac_FULL(258,261) - JVS(2517) = 0.162*B(255)-B(261)+0.27*B(275) +! JVS(2517) = Jac_FULL(292,345) + JVS(2517) = -B(235)+0.25*B(771)+0.3*B(773)+B(872) IF (DO_JVS(2518)) & -! JVS(2518) = Jac_FULL(258,266) - JVS(2518) = 0.09*B(182)-B(190)+0.27*B(277) +! 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) IF (DO_JVS(2519)) & -! JVS(2519) = Jac_FULL(258,273) - JVS(2519) = 0 +! JVS(2519) = Jac_FULL(292,351) + JVS(2519) = -B(252)+0.5*B(767)+0.5*B(876)+0.464*B(920) IF (DO_JVS(2520)) & -! JVS(2520) = Jac_FULL(258,279) - JVS(2520) = 0.19*B(125)-B(135)-B(137)+0.27*B(152) +! JVS(2520) = Jac_FULL(293,145) + JVS(2520) = B(1179) IF (DO_JVS(2521)) & -! JVS(2521) = Jac_FULL(258,281) +! JVS(2521) = Jac_FULL(293,186) JVS(2521) = 0 IF (DO_JVS(2522)) & -! JVS(2522) = Jac_FULL(258,282) - JVS(2522) = 0 +! JVS(2522) = Jac_FULL(293,222) + JVS(2522) = 0.33*B(1180) IF (DO_JVS(2523)) & -! JVS(2523) = Jac_FULL(258,284) - JVS(2523) = -B(170)+0.12*B(208) +! JVS(2523) = Jac_FULL(293,293) + JVS(2523) = -B(1141)-B(1143)-B(1145) IF (DO_JVS(2524)) & -! JVS(2524) = Jac_FULL(258,286) - JVS(2524) = B(113)+0.209*B(238) +! JVS(2524) = Jac_FULL(293,299) + JVS(2524) = 0 IF (DO_JVS(2525)) & -! JVS(2525) = Jac_FULL(258,290) - JVS(2525) = B(531) +! JVS(2525) = Jac_FULL(293,303) + JVS(2525) = 0.037*B(1316) IF (DO_JVS(2526)) & -! JVS(2526) = Jac_FULL(258,291) +! JVS(2526) = Jac_FULL(293,310) JVS(2526) = 0 IF (DO_JVS(2527)) & -! JVS(2527) = Jac_FULL(259,91) - JVS(2527) = B(702)+B(1470) +! JVS(2527) = Jac_FULL(293,311) + JVS(2527) = 0 IF (DO_JVS(2528)) & -! JVS(2528) = Jac_FULL(259,93) - JVS(2528) = 1.185*B(239)+1.5*B(1395) +! JVS(2528) = Jac_FULL(293,324) + JVS(2528) = 0 IF (DO_JVS(2529)) & -! JVS(2529) = Jac_FULL(259,94) - JVS(2529) = 0.64*B(235)+B(1393) +! JVS(2529) = Jac_FULL(293,328) + JVS(2529) = 0 IF (DO_JVS(2530)) & -! JVS(2530) = Jac_FULL(259,113) - JVS(2530) = B(1391) +! JVS(2530) = Jac_FULL(293,337) + JVS(2530) = -B(1142) IF (DO_JVS(2531)) & -! JVS(2531) = Jac_FULL(259,119) - JVS(2531) = 0.08*B(656)+B(1458) +! JVS(2531) = Jac_FULL(293,345) + JVS(2531) = 0.33*B(1181)+0.037*B(1317) IF (DO_JVS(2532)) & -! JVS(2532) = Jac_FULL(259,148) - JVS(2532) = 1.15*B(1192) +! JVS(2532) = Jac_FULL(293,346) + JVS(2532) = -B(1144)-B(1146) IF (DO_JVS(2533)) & -! JVS(2533) = Jac_FULL(259,154) - JVS(2533) = 0.65*B(632) +! JVS(2533) = Jac_FULL(293,351) + JVS(2533) = 0 IF (DO_JVS(2534)) & -! JVS(2534) = Jac_FULL(259,155) - JVS(2534) = 0.65*B(634) +! JVS(2534) = Jac_FULL(294,82) + JVS(2534) = 0.12*B(1383) IF (DO_JVS(2535)) & -! JVS(2535) = Jac_FULL(259,158) - JVS(2535) = B(195) +! JVS(2535) = Jac_FULL(294,101) + JVS(2535) = 0.2*B(1385) IF (DO_JVS(2536)) & -! JVS(2536) = Jac_FULL(259,159) - JVS(2536) = 1.2*B(1187) +! JVS(2536) = Jac_FULL(294,107) + JVS(2536) = 0.7*B(1304) IF (DO_JVS(2537)) & -! JVS(2537) = Jac_FULL(259,199) - JVS(2537) = B(1461) +! JVS(2537) = Jac_FULL(294,159) + JVS(2537) = 0 IF (DO_JVS(2538)) & -! JVS(2538) = Jac_FULL(259,201) - JVS(2538) = 0.25*B(191)+0.1*B(264) +! JVS(2538) = Jac_FULL(294,184) + JVS(2538) = 0 IF (DO_JVS(2539)) & -! JVS(2539) = Jac_FULL(259,202) - JVS(2539) = 0.15*B(1398) +! JVS(2539) = Jac_FULL(294,185) + JVS(2539) = B(1260)+0.571*B(1768) IF (DO_JVS(2540)) & -! JVS(2540) = Jac_FULL(259,209) - JVS(2540) = 0.09*B(159)+0.035*B(270) +! JVS(2540) = Jac_FULL(294,194) + JVS(2540) = 0.187*B(1258)+0.125*B(1769) IF (DO_JVS(2541)) & -! JVS(2541) = Jac_FULL(259,210) - JVS(2541) = 0 +! JVS(2541) = Jac_FULL(294,198) + JVS(2541) = 0.429*B(1795) IF (DO_JVS(2542)) & -! JVS(2542) = Jac_FULL(259,215) - JVS(2542) = 0.64*B(679) +! JVS(2542) = Jac_FULL(294,199) + JVS(2542) = 0.018*B(1029) IF (DO_JVS(2543)) & -! JVS(2543) = Jac_FULL(259,216) - JVS(2543) = 1.24*B(660)+0.93*B(668)+1.24*B(672)+1.24*B(676)+0.64*B(680)+1.21*B(681) +! JVS(2543) = Jac_FULL(294,200) + JVS(2543) = 0.25*B(1348) IF (DO_JVS(2544)) & -! JVS(2544) = Jac_FULL(259,225) - JVS(2544) = 0.491*B(646) +! JVS(2544) = Jac_FULL(294,201) + JVS(2544) = 0.6*B(1470)+0.6*B(1472)+0.2*B(1474) IF (DO_JVS(2545)) & -! JVS(2545) = Jac_FULL(259,237) - JVS(2545) = B(116)+0.75*B(157)+B(272) +! JVS(2545) = Jac_FULL(294,209) + JVS(2545) = 0.018*B(1027) IF (DO_JVS(2546)) & -! JVS(2546) = Jac_FULL(259,238) - JVS(2546) = 0.43*B(622)+0.75*B(626)+B(628)+B(630) +! JVS(2546) = Jac_FULL(294,215) + JVS(2546) = 0.5*B(1011) IF (DO_JVS(2547)) & -! JVS(2547) = Jac_FULL(259,253) +! JVS(2547) = Jac_FULL(294,223) JVS(2547) = 0 IF (DO_JVS(2548)) & -! JVS(2548) = Jac_FULL(259,254) +! JVS(2548) = Jac_FULL(294,224) JVS(2548) = 0 IF (DO_JVS(2549)) & -! JVS(2549) = Jac_FULL(259,255) - JVS(2549) = 0 +! JVS(2549) = Jac_FULL(294,227) + JVS(2549) = B(1264)+0.5*B(1766) IF (DO_JVS(2550)) & -! JVS(2550) = Jac_FULL(259,256) - JVS(2550) = 0.15*B(124)+0.13*B(181)+0.255*B(254) +! JVS(2550) = Jac_FULL(294,230) + JVS(2550) = 0.085*B(1001) IF (DO_JVS(2551)) & -! JVS(2551) = Jac_FULL(259,257) - JVS(2551) = 0.64*B(128)+0.58*B(183)+0.613*B(262) +! JVS(2551) = Jac_FULL(294,231) + JVS(2551) = 0.165*B(1003) IF (DO_JVS(2552)) & -! JVS(2552) = Jac_FULL(259,258) +! JVS(2552) = Jac_FULL(294,232) JVS(2552) = 0 IF (DO_JVS(2553)) & -! JVS(2553) = Jac_FULL(259,259) - JVS(2553) = -B(146)-B(153)-B(1377) +! JVS(2553) = Jac_FULL(294,238) + JVS(2553) = 0.355*B(1009) IF (DO_JVS(2554)) & -! JVS(2554) = Jac_FULL(259,261) - JVS(2554) = 0.255*B(255)+0.613*B(263)+0.1*B(265)+0.035*B(271)+B(273)+B(629)+1.24*B(673) +! JVS(2554) = Jac_FULL(294,244) + JVS(2554) = 0.3*B(61) IF (DO_JVS(2555)) & -! JVS(2555) = Jac_FULL(259,266) - JVS(2555) = 0.75*B(158)+0.09*B(160)+0.13*B(182)+0.58*B(184)+0.25*B(192)+0.75*B(627)+0.93*B(669) +! JVS(2555) = Jac_FULL(294,247) + JVS(2555) = B(689) IF (DO_JVS(2556)) & -! JVS(2556) = Jac_FULL(259,273) +! JVS(2556) = Jac_FULL(294,250) JVS(2556) = 0 IF (DO_JVS(2557)) & -! JVS(2557) = Jac_FULL(259,279) - JVS(2557) = B(117)+0.15*B(125)+0.64*B(129)+0.43*B(623)+0.491*B(647)+1.24*B(661) +! JVS(2557) = Jac_FULL(294,253) + JVS(2557) = 0.083*B(1276)+0.14*B(1283) IF (DO_JVS(2558)) & -! JVS(2558) = Jac_FULL(259,281) - JVS(2558) = -B(154)+B(631)+1.24*B(677) +! JVS(2558) = Jac_FULL(294,254) + JVS(2558) = 0.05*B(1270)+0.242*B(1272) IF (DO_JVS(2559)) & -! JVS(2559) = Jac_FULL(259,282) - JVS(2559) = 0.65*B(633)+0.65*B(635) +! JVS(2559) = Jac_FULL(294,258) + JVS(2559) = 0.118*B(1793) IF (DO_JVS(2560)) & -! JVS(2560) = Jac_FULL(259,284) +! JVS(2560) = Jac_FULL(294,259) JVS(2560) = 0 IF (DO_JVS(2561)) & -! JVS(2561) = Jac_FULL(259,286) - JVS(2561) = -B(147)+B(196)+0.64*B(236)+1.185*B(240)+0.08*B(657)+B(703) +! JVS(2561) = Jac_FULL(294,266) + JVS(2561) = B(1799) IF (DO_JVS(2562)) & -! JVS(2562) = Jac_FULL(259,290) +! JVS(2562) = Jac_FULL(294,267) JVS(2562) = 0 IF (DO_JVS(2563)) & -! JVS(2563) = Jac_FULL(259,291) +! JVS(2563) = Jac_FULL(294,268) JVS(2563) = 0 IF (DO_JVS(2564)) & -! JVS(2564) = Jac_FULL(260,128) - JVS(2564) = B(304) +! JVS(2564) = Jac_FULL(294,271) + JVS(2564) = 0 IF (DO_JVS(2565)) & -! JVS(2565) = Jac_FULL(260,176) - JVS(2565) = B(1227) +! JVS(2565) = Jac_FULL(294,276) + JVS(2565) = 0.3*B(953)+0.3*B(955) IF (DO_JVS(2566)) & -! JVS(2566) = Jac_FULL(260,260) - JVS(2566) = -B(306)-B(1267)-B(1269)-B(1271)-B(1273)-B(1275)-B(1277)-B(1279)-B(1402) +! JVS(2566) = Jac_FULL(294,285) + JVS(2566) = 0 IF (DO_JVS(2567)) & -! JVS(2567) = Jac_FULL(260,273) - JVS(2567) = 0 +! JVS(2567) = Jac_FULL(294,286) + JVS(2567) = 0.52*B(1064)+0.8*B(1066) IF (DO_JVS(2568)) & -! JVS(2568) = Jac_FULL(260,274) - JVS(2568) = B(292) +! JVS(2568) = Jac_FULL(294,287) + JVS(2568) = 0.23*B(1770) IF (DO_JVS(2569)) & -! JVS(2569) = Jac_FULL(260,275) - JVS(2569) = -B(1270) +! JVS(2569) = Jac_FULL(294,288) + JVS(2569) = 0.47*B(1767) IF (DO_JVS(2570)) & -! JVS(2570) = Jac_FULL(260,276) - JVS(2570) = -B(1280) +! JVS(2570) = Jac_FULL(294,290) + JVS(2570) = 0 IF (DO_JVS(2571)) & -! JVS(2571) = Jac_FULL(260,277) - JVS(2571) = -B(1278)+B(1285) +! JVS(2571) = Jac_FULL(294,293) + JVS(2571) = 0 IF (DO_JVS(2572)) & -! JVS(2572) = Jac_FULL(260,278) - JVS(2572) = B(1228) +! JVS(2572) = Jac_FULL(294,294) + JVS(2572) = -B(314)-B(318)-B(1616)-B(1670) IF (DO_JVS(2573)) & -! JVS(2573) = Jac_FULL(260,280) - JVS(2573) = -B(1272) +! JVS(2573) = Jac_FULL(294,299) + JVS(2573) = 0 IF (DO_JVS(2574)) & -! JVS(2574) = Jac_FULL(260,282) - JVS(2574) = B(1281)+B(1283)+B(1286) +! JVS(2574) = Jac_FULL(294,301) + JVS(2574) = 0 IF (DO_JVS(2575)) & -! JVS(2575) = Jac_FULL(260,283) - JVS(2575) = -B(1276)+B(1284) +! JVS(2575) = Jac_FULL(294,302) + JVS(2575) = 0.449*B(1236) IF (DO_JVS(2576)) & -! JVS(2576) = Jac_FULL(260,284) - JVS(2576) = B(293) +! JVS(2576) = Jac_FULL(294,303) + JVS(2576) = 0 IF (DO_JVS(2577)) & -! JVS(2577) = Jac_FULL(260,286) - JVS(2577) = B(305) +! JVS(2577) = Jac_FULL(294,304) + JVS(2577) = 0.3*B(968) IF (DO_JVS(2578)) & -! JVS(2578) = Jac_FULL(260,287) - JVS(2578) = -B(1274) +! JVS(2578) = Jac_FULL(294,305) + JVS(2578) = 0.3*B(966) IF (DO_JVS(2579)) & -! JVS(2579) = Jac_FULL(260,288) - JVS(2579) = -B(307) +! JVS(2579) = Jac_FULL(294,307) + JVS(2579) = B(320) IF (DO_JVS(2580)) & -! JVS(2580) = Jac_FULL(260,289) - JVS(2580) = -B(1268)+B(1282) +! JVS(2580) = Jac_FULL(294,308) + JVS(2580) = 0 IF (DO_JVS(2581)) & -! JVS(2581) = Jac_FULL(260,291) - JVS(2581) = 0 +! JVS(2581) = Jac_FULL(294,309) + JVS(2581) = 0.88*B(1232) IF (DO_JVS(2582)) & -! JVS(2582) = Jac_FULL(261,67) - JVS(2582) = B(101)+0.7*B(1376) +! JVS(2582) = Jac_FULL(294,310) + JVS(2582) = 0 IF (DO_JVS(2583)) & -! JVS(2583) = Jac_FULL(261,88) - JVS(2583) = 0.78*B(247) +! JVS(2583) = Jac_FULL(294,311) + JVS(2583) = 0 IF (DO_JVS(2584)) & -! JVS(2584) = Jac_FULL(261,104) - JVS(2584) = B(1077)+B(1473) +! JVS(2584) = Jac_FULL(294,313) + JVS(2584) = 0.5*B(261)+0.1*B(353) IF (DO_JVS(2585)) & -! JVS(2585) = Jac_FULL(261,105) - JVS(2585) = 0.3*B(1061) +! JVS(2585) = Jac_FULL(294,314) + JVS(2585) = 0.545*B(1226) IF (DO_JVS(2586)) & -! JVS(2586) = Jac_FULL(261,136) - JVS(2586) = 0.087*B(1037)+0.262*B(1481) +! JVS(2586) = Jac_FULL(294,320) + JVS(2586) = 0 IF (DO_JVS(2587)) & -! JVS(2587) = Jac_FULL(261,153) - JVS(2587) = 0 +! JVS(2587) = Jac_FULL(294,324) + JVS(2587) = 0.1*B(354) IF (DO_JVS(2588)) & -! JVS(2588) = Jac_FULL(261,156) - JVS(2588) = 0.429*B(1478) +! JVS(2588) = Jac_FULL(294,328) + JVS(2588) = 0.5*B(262) IF (DO_JVS(2589)) & -! JVS(2589) = Jac_FULL(261,163) - JVS(2589) = 0.097*B(1015)+0.125*B(1479) +! JVS(2589) = Jac_FULL(294,335) + JVS(2589) = 0 IF (DO_JVS(2590)) & -! JVS(2590) = Jac_FULL(261,169) - JVS(2590) = B(1023)+B(1475) +! JVS(2590) = Jac_FULL(294,337) + JVS(2590) = 0.52*B(1065)+0.05*B(1271)+0.083*B(1277) IF (DO_JVS(2591)) & -! JVS(2591) = Jac_FULL(261,171) - JVS(2591) = 0.018*B(784) +! JVS(2591) = Jac_FULL(294,340) + JVS(2591) = 0 IF (DO_JVS(2592)) & -! JVS(2592) = Jac_FULL(261,184) - JVS(2592) = -B(1130) +! JVS(2592) = Jac_FULL(294,341) + JVS(2592) = 0.545*B(1227)+0.88*B(1233)+0.6*B(1473) IF (DO_JVS(2593)) & -! JVS(2593) = Jac_FULL(261,185) - JVS(2593) = 0.5*B(1476) +! JVS(2593) = Jac_FULL(294,342) + JVS(2593) = 0 IF (DO_JVS(2594)) & -! JVS(2594) = Jac_FULL(261,186) - JVS(2594) = 0 +! 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) IF (DO_JVS(2595)) & -! JVS(2595) = Jac_FULL(261,188) - JVS(2595) = 0 +! JVS(2595) = Jac_FULL(294,346) + JVS(2595) = 0.8*B(1067)+0.242*B(1273)+0.14*B(1284) IF (DO_JVS(2596)) & -! JVS(2596) = Jac_FULL(261,194) - JVS(2596) = 0 +! JVS(2596) = Jac_FULL(294,351) + JVS(2596) = -B(319) IF (DO_JVS(2597)) & -! JVS(2597) = Jac_FULL(261,196) - JVS(2597) = B(1453) +! JVS(2597) = Jac_FULL(295,91) + JVS(2597) = B(943)+B(1759) IF (DO_JVS(2598)) & -! JVS(2598) = Jac_FULL(261,198) - JVS(2598) = B(1474) +! JVS(2598) = Jac_FULL(295,100) + JVS(2598) = 0.791*B(330)+B(1679) IF (DO_JVS(2599)) & -! JVS(2599) = Jac_FULL(261,201) - JVS(2599) = -B(264) +! JVS(2599) = Jac_FULL(295,160) + JVS(2599) = 0.5*B(770)+B(1811) IF (DO_JVS(2600)) & -! JVS(2600) = Jac_FULL(261,204) - JVS(2600) = 0.36*B(1027)+0.758*B(1029) +! JVS(2600) = Jac_FULL(295,161) + JVS(2600) = 0.6*B(1813) IF (DO_JVS(2601)) & -! JVS(2601) = Jac_FULL(261,206) - JVS(2601) = 0 +! JVS(2601) = Jac_FULL(295,162) + JVS(2601) = 0.3*B(798) IF (DO_JVS(2602)) & -! JVS(2602) = Jac_FULL(261,207) - JVS(2602) = 0.175*B(1035)+0.35*B(1044) +! JVS(2602) = Jac_FULL(295,176) + JVS(2602) = 0.4*B(772) IF (DO_JVS(2603)) & -! JVS(2603) = Jac_FULL(261,208) - JVS(2603) = B(1075) +! JVS(2603) = Jac_FULL(295,219) + JVS(2603) = 0.5*B(729) IF (DO_JVS(2604)) & -! JVS(2604) = Jac_FULL(261,209) - JVS(2604) = -B(270) +! JVS(2604) = Jac_FULL(295,229) + JVS(2604) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1816) IF (DO_JVS(2605)) & -! JVS(2605) = Jac_FULL(261,214) - JVS(2605) = 0 +! JVS(2605) = Jac_FULL(295,251) + JVS(2605) = 0.34*B(1685) IF (DO_JVS(2606)) & -! JVS(2606) = Jac_FULL(261,215) - JVS(2606) = -B(670) +! JVS(2606) = Jac_FULL(295,262) + JVS(2606) = 0.5*B(871)+0.5*B(873)+0.25*B(875) IF (DO_JVS(2607)) & -! JVS(2607) = Jac_FULL(261,216) - JVS(2607) = -B(672) +! JVS(2607) = Jac_FULL(295,273) + JVS(2607) = 0.6*B(790)+0.4*B(792)+0.6*B(794) IF (DO_JVS(2608)) & -! JVS(2608) = Jac_FULL(261,217) - JVS(2608) = -B(266) +! JVS(2608) = Jac_FULL(295,275) + JVS(2608) = 0 IF (DO_JVS(2609)) & -! JVS(2609) = Jac_FULL(261,220) +! JVS(2609) = Jac_FULL(295,277) JVS(2609) = 0 IF (DO_JVS(2610)) & -! JVS(2610) = Jac_FULL(261,221) - JVS(2610) = B(1378) +! JVS(2610) = Jac_FULL(295,278) + JVS(2610) = 0.84*B(764)+B(766)+0.75*B(768) IF (DO_JVS(2611)) & -! JVS(2611) = Jac_FULL(261,222) - JVS(2611) = 0 +! JVS(2611) = Jac_FULL(295,279) + JVS(2611) = 0.34*B(1688) IF (DO_JVS(2612)) & -! JVS(2612) = Jac_FULL(261,224) - JVS(2612) = 0.3*B(710) +! JVS(2612) = Jac_FULL(295,291) + JVS(2612) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891) IF (DO_JVS(2613)) & -! JVS(2613) = Jac_FULL(261,225) - JVS(2613) = -B(652) +! JVS(2613) = Jac_FULL(295,295) + JVS(2613) = -B(212)-B(417)-B(633)-B(1663)-B(1664) IF (DO_JVS(2614)) & -! JVS(2614) = Jac_FULL(261,226) - JVS(2614) = 0.85*B(1380) +! JVS(2614) = Jac_FULL(295,300) + JVS(2614) = 0.34*B(171)+0.16*B(257)+0.29*B(351) IF (DO_JVS(2615)) & -! JVS(2615) = Jac_FULL(261,228) +! JVS(2615) = Jac_FULL(295,318) JVS(2615) = 0 IF (DO_JVS(2616)) & -! JVS(2616) = Jac_FULL(261,229) - JVS(2616) = 0 +! JVS(2616) = Jac_FULL(295,319) + JVS(2616) = 0.34*B(177)+0.16*B(253)+0.29*B(349) IF (DO_JVS(2617)) & -! JVS(2617) = Jac_FULL(261,230) - JVS(2617) = 0.53*B(1477) +! JVS(2617) = Jac_FULL(295,320) + JVS(2617) = 0 IF (DO_JVS(2618)) & -! JVS(2618) = Jac_FULL(261,231) - JVS(2618) = 0 +! JVS(2618) = Jac_FULL(295,323) + JVS(2618) = B(187)+0.75*B(265)+B(357) IF (DO_JVS(2619)) & -! JVS(2619) = Jac_FULL(261,232) - JVS(2619) = 0 +! JVS(2619) = Jac_FULL(295,324) + JVS(2619) = 0.29*B(350)+0.29*B(352)+B(358)+0.45*B(892) IF (DO_JVS(2620)) & -! JVS(2620) = Jac_FULL(261,233) - JVS(2620) = B(221)+B(225)+B(1385) +! 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) IF (DO_JVS(2621)) & -! JVS(2621) = Jac_FULL(261,237) - JVS(2621) = -B(272) +! JVS(2621) = Jac_FULL(295,335) + JVS(2621) = 0 IF (DO_JVS(2622)) & -! JVS(2622) = Jac_FULL(261,238) - JVS(2622) = -B(628) +! JVS(2622) = Jac_FULL(295,337) + JVS(2622) = 0 IF (DO_JVS(2623)) & -! JVS(2623) = Jac_FULL(261,239) - JVS(2623) = -B(268) +! JVS(2623) = Jac_FULL(295,340) + JVS(2623) = -B(634) IF (DO_JVS(2624)) & -! JVS(2624) = Jac_FULL(261,240) - JVS(2624) = 0 +! JVS(2624) = Jac_FULL(295,341) + JVS(2624) = 0.5*B(730)+0.3*B(862)+0.5*B(874) IF (DO_JVS(2625)) & -! JVS(2625) = Jac_FULL(261,241) - JVS(2625) = 0.04*B(993)+1.01*B(1482) +! JVS(2625) = Jac_FULL(295,342) + JVS(2625) = -B(418) IF (DO_JVS(2626)) & -! JVS(2626) = Jac_FULL(261,242) - JVS(2626) = 0 +! 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) IF (DO_JVS(2627)) & -! JVS(2627) = Jac_FULL(261,243) - JVS(2627) = 0 +! 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) IF (DO_JVS(2628)) & -! JVS(2628) = Jac_FULL(261,244) - JVS(2628) = 0 +! 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) IF (DO_JVS(2629)) & -! JVS(2629) = Jac_FULL(261,245) - JVS(2629) = 0.3*B(723) +! JVS(2629) = Jac_FULL(296,173) + JVS(2629) = B(1336) IF (DO_JVS(2630)) & -! JVS(2630) = Jac_FULL(261,246) - JVS(2630) = -B(920) +! JVS(2630) = Jac_FULL(296,183) + JVS(2630) = B(106)+B(344)+B(419)+B(617) IF (DO_JVS(2631)) & -! JVS(2631) = Jac_FULL(261,247) - JVS(2631) = -B(918) +! JVS(2631) = Jac_FULL(296,200) + JVS(2631) = 0 IF (DO_JVS(2632)) & -! JVS(2632) = Jac_FULL(261,248) - JVS(2632) = 0.38*B(983)+B(1387) +! JVS(2632) = Jac_FULL(296,201) + JVS(2632) = 0 IF (DO_JVS(2633)) & -! JVS(2633) = Jac_FULL(261,249) +! JVS(2633) = Jac_FULL(296,221) JVS(2633) = 0 IF (DO_JVS(2634)) & -! JVS(2634) = Jac_FULL(261,250) - JVS(2634) = B(1390) +! JVS(2634) = Jac_FULL(296,240) + JVS(2634) = 0 IF (DO_JVS(2635)) & -! JVS(2635) = Jac_FULL(261,251) - JVS(2635) = 0.12*B(989)+B(1389) +! JVS(2635) = Jac_FULL(296,246) + JVS(2635) = 0 IF (DO_JVS(2636)) & -! JVS(2636) = Jac_FULL(261,252) - JVS(2636) = B(130)+0.15*B(165)+0.3*B(185)-0.1*B(256) +! JVS(2636) = Jac_FULL(296,269) + JVS(2636) = 0 IF (DO_JVS(2637)) & -! JVS(2637) = Jac_FULL(261,253) +! JVS(2637) = Jac_FULL(296,289) JVS(2637) = 0 IF (DO_JVS(2638)) & -! JVS(2638) = Jac_FULL(261,254) - JVS(2638) = 0.919*B(132)+0.15*B(167)+0.5*B(187)-0.1*B(258) +! JVS(2638) = Jac_FULL(296,291) + JVS(2638) = 0 IF (DO_JVS(2639)) & -! JVS(2639) = Jac_FULL(261,255) - JVS(2639) = -B(274) +! JVS(2639) = Jac_FULL(296,296) + JVS(2639) = -B(108)-B(110)-B(247)-2*B(273)-B(275)-B(365)-B(619) IF (DO_JVS(2640)) & -! JVS(2640) = Jac_FULL(261,256) - JVS(2640) = -B(254) +! JVS(2640) = Jac_FULL(296,320) + JVS(2640) = 0 IF (DO_JVS(2641)) & -! JVS(2641) = Jac_FULL(261,257) - JVS(2641) = -B(262) +! JVS(2641) = Jac_FULL(296,322) + JVS(2641) = 0 IF (DO_JVS(2642)) & -! JVS(2642) = Jac_FULL(261,258) - JVS(2642) = -B(260) +! JVS(2642) = Jac_FULL(296,324) + JVS(2642) = -B(366) IF (DO_JVS(2643)) & -! JVS(2643) = Jac_FULL(261,259) - JVS(2643) = 0 +! JVS(2643) = Jac_FULL(296,328) + JVS(2643) = -B(248) IF (DO_JVS(2644)) & -! JVS(2644) = Jac_FULL(261,261) - JVS(2644) = -B(99)-B(102)-2*B(251)-B(252)-B(255)-0.1*B(257)-0.1*B(259)-B(261)-B(263)-B(265)-B(267)-B(269)-B(271)& - &-B(273)-B(275)-B(629)-B(653)-B(671)-B(673)-B(919)-B(921)-B(1081)-B(1131) +! JVS(2644) = Jac_FULL(296,335) + JVS(2644) = 0 IF (DO_JVS(2645)) & -! JVS(2645) = Jac_FULL(261,264) - JVS(2645) = 0.95*B(95)+B(97)+B(316)+0.12*B(1374) +! JVS(2645) = Jac_FULL(296,337) + JVS(2645) = -B(276) IF (DO_JVS(2646)) & -! JVS(2646) = Jac_FULL(261,266) - JVS(2646) = 0.3*B(186)+0.5*B(188)-B(253) +! JVS(2646) = Jac_FULL(296,340) + JVS(2646) = B(618)-B(620) IF (DO_JVS(2647)) & -! JVS(2647) = Jac_FULL(261,273) - JVS(2647) = B(317) +! JVS(2647) = Jac_FULL(296,341) + JVS(2647) = 0 IF (DO_JVS(2648)) & -! JVS(2648) = Jac_FULL(261,279) - JVS(2648) = -B(103)+B(131)+0.919*B(133)+0.758*B(1030)+0.35*B(1045) +! JVS(2648) = Jac_FULL(296,342) + JVS(2648) = B(420) IF (DO_JVS(2649)) & -! JVS(2649) = Jac_FULL(261,281) - JVS(2649) = B(98)+B(226)+B(1076) +! JVS(2649) = Jac_FULL(296,345) + JVS(2649) = B(107)+B(1337) IF (DO_JVS(2650)) & -! JVS(2650) = Jac_FULL(261,282) - JVS(2650) = 0.38*B(984)+0.12*B(990) +! JVS(2650) = Jac_FULL(296,346) + JVS(2650) = -B(109)-B(111) IF (DO_JVS(2651)) & -! JVS(2651) = Jac_FULL(261,284) - JVS(2651) = 0.15*B(166)+0.15*B(168)+0.36*B(1028)+0.175*B(1036)-B(1082) +! JVS(2651) = Jac_FULL(296,351) + JVS(2651) = B(345) IF (DO_JVS(2652)) & -! JVS(2652) = Jac_FULL(261,286) - JVS(2652) = 0.95*B(96)+B(222)+0.78*B(248)+0.3*B(711)+0.018*B(785)+0.04*B(994)+0.097*B(1016)+B(1024)+0.087*B(1038)+0.3& - &*B(1062)+B(1078) +! JVS(2652) = Jac_FULL(297,214) + JVS(2652) = B(1498)+B(1501)+B(1503) IF (DO_JVS(2653)) & -! JVS(2653) = Jac_FULL(261,290) - JVS(2653) = 0 +! JVS(2653) = Jac_FULL(297,297) + JVS(2653) = -B(543)-B(1527)-B(1529)-B(1531)-B(1533)-B(1535)-B(1537)-B(1706) IF (DO_JVS(2654)) & -! JVS(2654) = Jac_FULL(261,291) - JVS(2654) = -B(100) +! JVS(2654) = Jac_FULL(297,335) + JVS(2654) = 0 IF (DO_JVS(2655)) & -! JVS(2655) = Jac_FULL(262,262) - JVS(2655) = -B(446)-B(502)-B(504)-B(1231)-B(1233)-B(1235)-B(1237)-B(1239)-B(1241)-B(1243)-B(1417)-B(1418) +! JVS(2655) = Jac_FULL(297,336) + JVS(2655) = 0 IF (DO_JVS(2656)) & -! JVS(2656) = Jac_FULL(262,275) - JVS(2656) = -B(1234) +! JVS(2656) = Jac_FULL(297,339) + JVS(2656) = B(1499)-B(1532) IF (DO_JVS(2657)) & -! JVS(2657) = Jac_FULL(262,277) - JVS(2657) = -B(1240) +! JVS(2657) = Jac_FULL(297,344) + JVS(2657) = B(1504)-B(1530) IF (DO_JVS(2658)) & -! JVS(2658) = Jac_FULL(262,278) - JVS(2658) = -B(1232) +! JVS(2658) = Jac_FULL(297,345) + JVS(2658) = -B(544) IF (DO_JVS(2659)) & -! JVS(2659) = Jac_FULL(262,280) - JVS(2659) = -B(1242) +! JVS(2659) = Jac_FULL(297,349) + JVS(2659) = -B(1534) IF (DO_JVS(2660)) & -! JVS(2660) = Jac_FULL(262,283) - JVS(2660) = -B(1238) +! JVS(2660) = Jac_FULL(297,350) + JVS(2660) = -B(1536) IF (DO_JVS(2661)) & -! JVS(2661) = Jac_FULL(262,285) - JVS(2661) = B(484) +! JVS(2661) = Jac_FULL(297,351) + JVS(2661) = 0 IF (DO_JVS(2662)) & -! JVS(2662) = Jac_FULL(262,286) - JVS(2662) = -B(447) +! JVS(2662) = Jac_FULL(297,352) + JVS(2662) = -B(1538) IF (DO_JVS(2663)) & -! JVS(2663) = Jac_FULL(262,287) - JVS(2663) = -B(1244) +! JVS(2663) = Jac_FULL(297,353) + JVS(2663) = B(1502)-B(1528) IF (DO_JVS(2664)) & -! JVS(2664) = Jac_FULL(262,288) - JVS(2664) = -B(503) +! JVS(2664) = Jac_FULL(298,95) + JVS(2664) = B(945)+B(1760) IF (DO_JVS(2665)) & -! JVS(2665) = Jac_FULL(262,289) - JVS(2665) = -B(1236) +! JVS(2665) = Jac_FULL(298,97) + JVS(2665) = 1.185*B(332)+1.5*B(1680) IF (DO_JVS(2666)) & -! JVS(2666) = Jac_FULL(262,290) - JVS(2666) = -B(505) +! JVS(2666) = Jac_FULL(298,98) + JVS(2666) = 0.5*B(134)+B(1681) IF (DO_JVS(2667)) & -! JVS(2667) = Jac_FULL(262,291) - JVS(2667) = B(485) +! JVS(2667) = Jac_FULL(298,99) + JVS(2667) = 0.64*B(328)+B(1678) IF (DO_JVS(2668)) & -! JVS(2668) = Jac_FULL(263,74) - JVS(2668) = B(1451) +! JVS(2668) = Jac_FULL(298,102) + JVS(2668) = 1.185*B(334)+1.5*B(1682) IF (DO_JVS(2669)) & -! JVS(2669) = Jac_FULL(263,76) - JVS(2669) = B(1093) +! JVS(2669) = Jac_FULL(298,125) + JVS(2669) = B(1676) IF (DO_JVS(2670)) & -! JVS(2670) = Jac_FULL(263,85) - JVS(2670) = 0.5*B(1079)+B(1471) +! JVS(2670) = Jac_FULL(298,130) + JVS(2670) = B(849)+B(1815) IF (DO_JVS(2671)) & -! JVS(2671) = Jac_FULL(263,86) - JVS(2671) = B(22)+B(23) +! JVS(2671) = Jac_FULL(298,161) + JVS(2671) = 0.6*B(1813) IF (DO_JVS(2672)) & -! JVS(2672) = Jac_FULL(263,88) - JVS(2672) = 0.22*B(247) +! JVS(2672) = Jac_FULL(298,162) + JVS(2672) = 0.3*B(798) IF (DO_JVS(2673)) & -! JVS(2673) = Jac_FULL(263,89) - JVS(2673) = B(696)+B(1467) +! JVS(2673) = Jac_FULL(298,165) + JVS(2673) = 1.24*B(138) IF (DO_JVS(2674)) & -! JVS(2674) = Jac_FULL(263,90) - JVS(2674) = B(282)+B(286) +! JVS(2674) = Jac_FULL(298,169) + JVS(2674) = B(1814) IF (DO_JVS(2675)) & -! JVS(2675) = Jac_FULL(263,108) - JVS(2675) = 2*B(1107) +! JVS(2675) = Jac_FULL(298,178) + JVS(2675) = 0.75*B(128) IF (DO_JVS(2676)) & -! JVS(2676) = Jac_FULL(263,112) - JVS(2676) = B(1396) +! JVS(2676) = Jac_FULL(298,188) + JVS(2676) = B(271) IF (DO_JVS(2677)) & -! JVS(2677) = Jac_FULL(263,120) - JVS(2677) = 0 +! JVS(2677) = Jac_FULL(298,196) + JVS(2677) = 1.558*B(1686) IF (DO_JVS(2678)) & -! JVS(2678) = Jac_FULL(263,136) - JVS(2678) = 0.25*B(1037)+0.75*B(1481) +! JVS(2678) = Jac_FULL(298,201) + JVS(2678) = 1.15*B(1474) IF (DO_JVS(2679)) & -! JVS(2679) = Jac_FULL(263,137) - JVS(2679) = 0.3*B(59)+B(1364) +! JVS(2679) = Jac_FULL(298,212) + JVS(2679) = 0.326*B(148)+0.894*B(150) IF (DO_JVS(2680)) & -! JVS(2680) = Jac_FULL(263,139) - JVS(2680) = B(1494) +! JVS(2680) = Jac_FULL(298,219) + JVS(2680) = 0.3*B(729) IF (DO_JVS(2681)) & -! JVS(2681) = Jac_FULL(263,140) - JVS(2681) = B(1495) +! JVS(2681) = Jac_FULL(298,221) + JVS(2681) = 1.2*B(1469) IF (DO_JVS(2682)) & -! JVS(2682) = Jac_FULL(263,152) - JVS(2682) = 0.599*B(878)+B(880) +! JVS(2682) = Jac_FULL(298,229) + JVS(2682) = B(1748) IF (DO_JVS(2683)) & -! JVS(2683) = Jac_FULL(263,157) - JVS(2683) = B(1485) +! JVS(2683) = Jac_FULL(298,242) + JVS(2683) = B(1751) IF (DO_JVS(2684)) & -! JVS(2684) = Jac_FULL(263,162) - JVS(2684) = B(1486) +! JVS(2684) = Jac_FULL(298,249) + JVS(2684) = 0.64*B(175)+0.58*B(259)+0.613*B(361) IF (DO_JVS(2685)) & -! JVS(2685) = Jac_FULL(263,165) - JVS(2685) = 0.018*B(786) +! JVS(2685) = Jac_FULL(298,250) + JVS(2685) = 0.25*B(267)+0.1*B(363) IF (DO_JVS(2686)) & -! JVS(2686) = Jac_FULL(263,166) - JVS(2686) = 0.031*B(886)+0.065*B(888) +! JVS(2686) = Jac_FULL(298,251) + JVS(2686) = 0.15*B(1685) IF (DO_JVS(2687)) & -! JVS(2687) = Jac_FULL(263,167) - JVS(2687) = 0.059*B(871)+0.272*B(873) +! JVS(2687) = Jac_FULL(298,260) + JVS(2687) = 0.09*B(216)+0.035*B(369) IF (DO_JVS(2688)) & -! JVS(2688) = Jac_FULL(263,168) - JVS(2688) = 0.065*B(892)+0.142*B(894) +! JVS(2688) = Jac_FULL(298,269) + JVS(2688) = 0 IF (DO_JVS(2689)) & -! JVS(2689) = Jac_FULL(263,169) - JVS(2689) = B(1475) +! JVS(2689) = Jac_FULL(298,272) + JVS(2689) = 0 IF (DO_JVS(2690)) & -! JVS(2690) = Jac_FULL(263,170) - JVS(2690) = 0.04*B(642) +! JVS(2690) = Jac_FULL(298,273) + JVS(2690) = 0.6*B(790)+0.4*B(792)+0.6*B(794) IF (DO_JVS(2691)) & -! JVS(2691) = Jac_FULL(263,171) - JVS(2691) = 0.018*B(784) +! JVS(2691) = Jac_FULL(298,274) + JVS(2691) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899) IF (DO_JVS(2692)) & -! JVS(2692) = Jac_FULL(263,172) - JVS(2692) = B(1083)+B(1472) +! JVS(2692) = Jac_FULL(298,275) + JVS(2692) = 0 IF (DO_JVS(2693)) & -! JVS(2693) = Jac_FULL(263,174) - JVS(2693) = 0.5*B(768) +! JVS(2693) = Jac_FULL(298,279) + JVS(2693) = 0.15*B(1688) IF (DO_JVS(2694)) & -! JVS(2694) = Jac_FULL(263,179) - JVS(2694) = 0.8*B(1105) +! JVS(2694) = Jac_FULL(298,280) + JVS(2694) = 0.64*B(922) IF (DO_JVS(2695)) & -! JVS(2695) = Jac_FULL(263,180) - JVS(2695) = B(1181) +! JVS(2695) = Jac_FULL(298,281) + JVS(2695) = 0 IF (DO_JVS(2696)) & -! JVS(2696) = Jac_FULL(263,181) - JVS(2696) = B(1497) +! 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) IF (DO_JVS(2697)) & -! JVS(2697) = Jac_FULL(263,182) - JVS(2697) = 0.716*B(789)+0.14*B(793) +! JVS(2697) = Jac_FULL(298,290) + JVS(2697) = 0 IF (DO_JVS(2698)) & -! JVS(2698) = Jac_FULL(263,183) - JVS(2698) = 0.706*B(796)+0.14*B(800) +! JVS(2698) = Jac_FULL(298,291) + JVS(2698) = 0 IF (DO_JVS(2699)) & -! JVS(2699) = Jac_FULL(263,184) - JVS(2699) = B(1128) +! JVS(2699) = Jac_FULL(298,298) + JVS(2699) = -B(201)-B(210)-B(1662) IF (DO_JVS(2700)) & -! JVS(2700) = Jac_FULL(263,186) - JVS(2700) = 0.085*B(758) +! JVS(2700) = Jac_FULL(298,300) + JVS(2700) = 0.15*B(171)+0.13*B(257)+0.255*B(351) IF (DO_JVS(2701)) & -! JVS(2701) = Jac_FULL(263,188) - JVS(2701) = 0.165*B(760) +! JVS(2701) = Jac_FULL(298,314) + JVS(2701) = 0 IF (DO_JVS(2702)) & -! JVS(2702) = Jac_FULL(263,189) - JVS(2702) = 0.088*B(957)+0.34*B(963) +! JVS(2702) = Jac_FULL(298,318) + JVS(2702) = 0.64*B(181)+0.58*B(255)+0.613*B(359) IF (DO_JVS(2703)) & -! JVS(2703) = Jac_FULL(263,190) - JVS(2703) = 0.25*B(344) +! JVS(2703) = Jac_FULL(298,319) + JVS(2703) = 0.15*B(177)+0.13*B(253)+0.255*B(349) IF (DO_JVS(2704)) & -! JVS(2704) = Jac_FULL(263,191) - JVS(2704) = B(1179) +! JVS(2704) = Jac_FULL(298,320) + JVS(2704) = 0 IF (DO_JVS(2705)) & -! JVS(2705) = Jac_FULL(263,194) - JVS(2705) = 0.65*B(835)+B(839) +! JVS(2705) = Jac_FULL(298,321) + JVS(2705) = B(118)+0.75*B(214)+B(371) IF (DO_JVS(2706)) & -! JVS(2706) = Jac_FULL(263,196) - JVS(2706) = B(1453) +! JVS(2706) = Jac_FULL(298,323) + JVS(2706) = 0 IF (DO_JVS(2707)) & -! JVS(2707) = Jac_FULL(263,198) - JVS(2707) = B(1474) +! 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) IF (DO_JVS(2708)) & -! JVS(2708) = Jac_FULL(263,201) - JVS(2708) = B(138)+1.25*B(191)+0.9*B(264) +! 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) IF (DO_JVS(2709)) & -! JVS(2709) = Jac_FULL(263,204) - JVS(2709) = 0.05*B(1027)+0.242*B(1029) +! JVS(2709) = Jac_FULL(298,335) + JVS(2709) = 0 IF (DO_JVS(2710)) & -! JVS(2710) = Jac_FULL(263,205) - JVS(2710) = 0.083*B(1033)+0.14*B(1040) +! JVS(2710) = Jac_FULL(298,337) + JVS(2710) = 0.894*B(151)+0.44*B(839) IF (DO_JVS(2711)) & -! JVS(2711) = Jac_FULL(263,206) - JVS(2711) = 0.133*B(1503) +! JVS(2711) = Jac_FULL(298,340) + JVS(2711) = 0 IF (DO_JVS(2712)) & -! JVS(2712) = Jac_FULL(263,207) - JVS(2712) = 0.5*B(1035)+B(1044) +! JVS(2712) = Jac_FULL(298,341) + JVS(2712) = 0.3*B(730) IF (DO_JVS(2713)) & -! JVS(2713) = Jac_FULL(263,208) - JVS(2713) = B(588)+B(1459) +! JVS(2713) = Jac_FULL(298,342) + JVS(2713) = 0 IF (DO_JVS(2714)) & -! JVS(2714) = Jac_FULL(263,209) - JVS(2714) = B(120)+1.25*B(159)+0.9*B(270) +! 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) IF (DO_JVS(2715)) & -! JVS(2715) = Jac_FULL(263,214) - JVS(2715) = 0 +! 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) IF (DO_JVS(2716)) & -! JVS(2716) = Jac_FULL(263,215) - JVS(2716) = B(666)+0.202*B(679) +! JVS(2716) = Jac_FULL(298,351) + JVS(2716) = -B(211)+0.6*B(795)+B(846)+1.24*B(920) IF (DO_JVS(2717)) & -! JVS(2717) = Jac_FULL(263,216) - JVS(2717) = 0.287*B(660)+0.85*B(668)+0.287*B(672)+0.287*B(676)+0.202*B(680)+0.504*B(681) +! JVS(2717) = Jac_FULL(299,180) + JVS(2717) = 0.18*B(1222) IF (DO_JVS(2718)) & -! JVS(2718) = Jac_FULL(263,217) - JVS(2718) = 0.75*B(175) +! JVS(2718) = Jac_FULL(299,190) + JVS(2718) = B(1125) IF (DO_JVS(2719)) & -! JVS(2719) = Jac_FULL(263,218) - JVS(2719) = B(89)+B(524) +! JVS(2719) = Jac_FULL(299,205) + JVS(2719) = B(1118) IF (DO_JVS(2720)) & -! JVS(2720) = Jac_FULL(263,220) - JVS(2720) = 0 +! JVS(2720) = Jac_FULL(299,206) + JVS(2720) = B(1133) IF (DO_JVS(2721)) & -! JVS(2721) = Jac_FULL(263,222) - JVS(2721) = 0.126*B(955)+0.249*B(959) +! JVS(2721) = Jac_FULL(299,207) + JVS(2721) = B(1139) IF (DO_JVS(2722)) & -! JVS(2722) = Jac_FULL(263,223) - JVS(2722) = B(1384) +! JVS(2722) = Jac_FULL(299,226) + JVS(2722) = B(1208) IF (DO_JVS(2723)) & -! JVS(2723) = Jac_FULL(263,224) - JVS(2723) = 0.827*B(704)+0.3*B(710)+0.3*B(712) +! JVS(2723) = Jac_FULL(299,267) + JVS(2723) = 0 IF (DO_JVS(2724)) & -! JVS(2724) = Jac_FULL(263,225) - JVS(2724) = 0.231*B(646)+1.04*B(650)+0.385*B(652)+0.385*B(654) +! JVS(2724) = Jac_FULL(299,268) + JVS(2724) = 0 IF (DO_JVS(2725)) & -! JVS(2725) = Jac_FULL(263,228) - JVS(2725) = 0 +! JVS(2725) = Jac_FULL(299,271) + JVS(2725) = B(1204) IF (DO_JVS(2726)) & -! JVS(2726) = Jac_FULL(263,229) - JVS(2726) = 0 +! JVS(2726) = Jac_FULL(299,293) + JVS(2726) = B(1145) IF (DO_JVS(2727)) & -! JVS(2727) = Jac_FULL(263,230) - JVS(2727) = 0.47*B(1477) +! JVS(2727) = Jac_FULL(299,299) + JVS(2727) = -B(1218)-B(1635)-B(1791) IF (DO_JVS(2728)) & -! JVS(2728) = Jac_FULL(263,231) - JVS(2728) = 0.23*B(1480) +! JVS(2728) = Jac_FULL(299,303) + JVS(2728) = 0 IF (DO_JVS(2729)) & -! JVS(2729) = Jac_FULL(263,232) - JVS(2729) = 0.104*B(898)+0.383*B(900) +! JVS(2729) = Jac_FULL(299,304) + JVS(2729) = 0 IF (DO_JVS(2730)) & -! JVS(2730) = Jac_FULL(263,234) - JVS(2730) = B(592)+B(594)+B(596)+0.06*B(598)+0.06*B(600)+B(602)+B(604) +! JVS(2730) = Jac_FULL(299,305) + JVS(2730) = 0 IF (DO_JVS(2731)) & -! JVS(2731) = Jac_FULL(263,236) - JVS(2731) = 0.732*B(213)+0.9*B(1381) +! JVS(2731) = Jac_FULL(299,310) + JVS(2731) = B(1171) IF (DO_JVS(2732)) & -! JVS(2732) = Jac_FULL(263,237) - JVS(2732) = 0.75*B(157) +! JVS(2732) = Jac_FULL(299,311) + JVS(2732) = B(1175) IF (DO_JVS(2733)) & -! JVS(2733) = Jac_FULL(263,238) - JVS(2733) = 0.23*B(622)+0.75*B(626) +! JVS(2733) = Jac_FULL(299,324) + JVS(2733) = 0 IF (DO_JVS(2734)) & -! JVS(2734) = Jac_FULL(263,239) - JVS(2734) = 0.75*B(177) +! JVS(2734) = Jac_FULL(299,328) + JVS(2734) = 0 IF (DO_JVS(2735)) & -! JVS(2735) = Jac_FULL(263,240) - JVS(2735) = 0 +! JVS(2735) = Jac_FULL(299,337) + JVS(2735) = 0.18*B(1223) IF (DO_JVS(2736)) & -! JVS(2736) = Jac_FULL(263,241) - JVS(2736) = 0.241*B(993) +! JVS(2736) = Jac_FULL(299,345) + JVS(2736) = -B(1219) IF (DO_JVS(2737)) & -! JVS(2737) = Jac_FULL(263,242) - JVS(2737) = 0.022*B(1073)+0.55*B(1507)+0.15*B(1508) +! 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) IF (DO_JVS(2738)) & -! JVS(2738) = Jac_FULL(263,243) - JVS(2738) = 0.055*B(1501) +! JVS(2738) = Jac_FULL(299,351) + JVS(2738) = 0 IF (DO_JVS(2739)) & -! JVS(2739) = Jac_FULL(263,244) - JVS(2739) = 0.063*B(718)+B(724)+0.3*B(725)+2*B(727)+2*B(728)+2*B(738)+B(740)+B(752) +! JVS(2739) = Jac_FULL(300,102) + JVS(2739) = 0.21*B(334) IF (DO_JVS(2740)) & -! JVS(2740) = Jac_FULL(263,245) - JVS(2740) = 0.063*B(714)+B(722)+0.3*B(723)+2*B(726)+2*B(729)+2*B(734)+B(736)+B(744) +! JVS(2740) = Jac_FULL(300,142) + JVS(2740) = B(193)+B(637) IF (DO_JVS(2741)) & -! JVS(2741) = Jac_FULL(263,246) - JVS(2741) = 0.563*B(911)+0.645*B(914) +! JVS(2741) = Jac_FULL(300,201) + JVS(2741) = 0.2*B(1474) IF (DO_JVS(2742)) & -! JVS(2742) = Jac_FULL(263,247) - JVS(2742) = 0.527*B(906)+1.86*B(910)+0.563*B(912)+1.577*B(916)+B(918)+B(922)+B(926) +! JVS(2742) = Jac_FULL(300,300) + JVS(2742) = -B(171)-B(173)-B(222)-B(257)-B(351) IF (DO_JVS(2743)) & -! JVS(2743) = Jac_FULL(263,248) - JVS(2743) = 0.6*B(983)+B(1387) +! JVS(2743) = Jac_FULL(300,324) + JVS(2743) = -B(352) IF (DO_JVS(2744)) & -! JVS(2744) = Jac_FULL(263,249) - JVS(2744) = B(1056) +! JVS(2744) = Jac_FULL(300,328) + JVS(2744) = -B(258) IF (DO_JVS(2745)) & -! JVS(2745) = Jac_FULL(263,250) - JVS(2745) = B(1390) +! JVS(2745) = Jac_FULL(300,337) + JVS(2745) = -B(223) IF (DO_JVS(2746)) & -! JVS(2746) = Jac_FULL(263,251) - JVS(2746) = 0.12*B(989)+B(1389) +! JVS(2746) = Jac_FULL(300,340) + JVS(2746) = B(638) IF (DO_JVS(2747)) & -! JVS(2747) = Jac_FULL(263,252) - JVS(2747) = B(130)+0.15*B(165)+0.5*B(185)+0.9*B(256) +! JVS(2747) = Jac_FULL(300,341) + JVS(2747) = 0 IF (DO_JVS(2748)) & -! JVS(2748) = Jac_FULL(263,253) - JVS(2748) = 0.5*B(211) +! JVS(2748) = Jac_FULL(300,345) + JVS(2748) = 0.21*B(335) IF (DO_JVS(2749)) & -! JVS(2749) = Jac_FULL(263,254) - JVS(2749) = 0.75*B(187) +! JVS(2749) = Jac_FULL(300,346) + JVS(2749) = -B(172)-B(174) IF (DO_JVS(2750)) & -! JVS(2750) = Jac_FULL(263,255) - JVS(2750) = B(276) +! JVS(2750) = Jac_FULL(300,351) + JVS(2750) = B(194) IF (DO_JVS(2751)) & -! JVS(2751) = Jac_FULL(263,256) - JVS(2751) = 0.75*B(181) +! JVS(2751) = Jac_FULL(301,145) + JVS(2751) = B(1177) IF (DO_JVS(2752)) & -! JVS(2752) = Jac_FULL(263,257) - JVS(2752) = 0.64*B(128)+0.95*B(183)+0.351*B(262) +! JVS(2752) = Jac_FULL(301,186) + JVS(2752) = B(1194)+0.159*B(1788) IF (DO_JVS(2753)) & -! JVS(2753) = Jac_FULL(263,258) - JVS(2753) = 0.75*B(189) +! JVS(2753) = Jac_FULL(301,267) + JVS(2753) = 0.4*B(1111) IF (DO_JVS(2754)) & -! JVS(2754) = Jac_FULL(263,259) - JVS(2754) = 0 +! JVS(2754) = Jac_FULL(301,268) + JVS(2754) = 0.4*B(1109) IF (DO_JVS(2755)) & -! JVS(2755) = Jac_FULL(263,261) - JVS(2755) = B(252)+0.9*B(257)+0.351*B(263)+0.9*B(265)+0.9*B(271)+0.385*B(653)+0.287*B(673)+B(919) +! JVS(2755) = Jac_FULL(301,299) + JVS(2755) = 0.223*B(1791) IF (DO_JVS(2756)) & -! JVS(2756) = Jac_FULL(263,263) - JVS(2756) = -B(20)-B(63)-B(93)-B(314)-B(386)-B(466)-B(1365)-B(1366) +! JVS(2756) = Jac_FULL(301,301) + JVS(2756) = -B(1210)-B(1212)-B(1790) IF (DO_JVS(2757)) & -! JVS(2757) = Jac_FULL(263,264) - JVS(2757) = 0.05*B(95) +! JVS(2757) = Jac_FULL(301,303) + JVS(2757) = 0 IF (DO_JVS(2758)) & -! JVS(2758) = Jac_FULL(263,266) - JVS(2758) = B(34)+B(49)+B(55)+2*B(56)+0.87*B(57)+0.75*B(158)+1.25*B(160)+0.75*B(176)+0.75*B(178)+0.75*B(182)+0.95& - &*B(184)+0.5*B(186)+0.75*B(188)+0.75*B(190)+1.25*B(192)+B(253)+B(277)+B(430)+B(514)+0.75*B(627)+1.04*B(651)& - &+B(667)+0.85*B(669)+2*B(735)+B(737)+2*B(739)+B(741)+0.645*B(915)+1.577*B(917)+B(1057)+0.8*B(1106)+B(1129)& - &+B(1180)+B(1182)+B(1205) +! JVS(2758) = Jac_FULL(301,304) + JVS(2758) = 0 IF (DO_JVS(2759)) & -! JVS(2759) = Jac_FULL(263,267) - JVS(2759) = B(593) +! JVS(2759) = Jac_FULL(301,305) + JVS(2759) = 0 IF (DO_JVS(2760)) & -! JVS(2760) = Jac_FULL(263,272) - JVS(2760) = 0.25*B(345) +! JVS(2760) = Jac_FULL(301,310) + JVS(2760) = 0.07*B(1153)+0.532*B(1154)+0.034*B(1159) IF (DO_JVS(2761)) & -! JVS(2761) = Jac_FULL(263,273) - JVS(2761) = -B(315) +! 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) IF (DO_JVS(2762)) & -! JVS(2762) = Jac_FULL(263,276) - JVS(2762) = -B(21)+B(24)+B(605) +! JVS(2762) = Jac_FULL(301,324) + JVS(2762) = 0.159*B(1164) IF (DO_JVS(2763)) & -! JVS(2763) = Jac_FULL(263,278) - JVS(2763) = 0.06*B(599)+0.06*B(601) +! JVS(2763) = Jac_FULL(301,328) + JVS(2763) = 0.401*B(1158)+0.034*B(1160) IF (DO_JVS(2764)) & -! JVS(2764) = Jac_FULL(263,279) - JVS(2764) = B(50)+B(121)+0.64*B(129)+B(131)+B(139)+B(595)+0.23*B(623)+0.231*B(647)+0.287*B(661)+B(745)+B(753)+0.716& - &*B(790)+0.706*B(797)+B(840)+0.272*B(874)+B(881)+0.065*B(889)+0.142*B(895)+0.383*B(901)+B(927)+0.249*B(960)& - &+0.34*B(964)+0.242*B(1030)+0.14*B(1041)+B(1045) +! JVS(2764) = Jac_FULL(301,337) + JVS(2764) = 0 IF (DO_JVS(2765)) & -! JVS(2765) = Jac_FULL(263,281) - JVS(2765) = -B(94)+B(287)+0.385*B(655)+0.287*B(677)+B(923)+B(1206) +! JVS(2765) = Jac_FULL(301,345) + JVS(2765) = 0.4*B(1110)+0.4*B(1112)+B(1195)-B(1211)-B(1213) IF (DO_JVS(2766)) & -! JVS(2766) = Jac_FULL(263,282) - JVS(2766) = B(35)+0.5*B(212)+B(603)+0.04*B(643)+0.827*B(705)+0.6*B(984)+0.12*B(990)+B(1094) +! JVS(2766) = Jac_FULL(301,346) + JVS(2766) = 0.159*B(1174) IF (DO_JVS(2767)) & -! JVS(2767) = Jac_FULL(263,284) - JVS(2767) = 0.15*B(166)+0.063*B(715)+0.063*B(719)+0.14*B(794)+0.14*B(801)+0.65*B(836)+0.059*B(872)+0.599*B(879)+0.031& - &*B(887)+0.065*B(893)+0.104*B(899)+0.527*B(907)+0.126*B(956)+0.088*B(958)+0.05*B(1028)+0.083*B(1034)+0.5& - &*B(1036) +! JVS(2767) = Jac_FULL(301,351) + JVS(2767) = 0.159*B(1168) IF (DO_JVS(2768)) & -! JVS(2768) = Jac_FULL(263,285) - JVS(2768) = B(431) +! JVS(2768) = Jac_FULL(302,171) + JVS(2768) = B(1250) IF (DO_JVS(2769)) & -! JVS(2769) = Jac_FULL(263,286) - JVS(2769) = B(25)+0.87*B(58)+0.3*B(60)-B(64)+B(90)+0.05*B(96)+0.732*B(214)+0.22*B(248)+B(283)+B(589)+B(697)+0.3*B(711)& - &+0.3*B(713)+0.085*B(759)+0.165*B(761)+0.5*B(769)+0.018*B(785)+0.018*B(787)+0.241*B(994)+0.25*B(1038)+0.022& - &*B(1074)+0.5*B(1080)+B(1084) +! JVS(2769) = Jac_FULL(302,190) + JVS(2769) = 0.599*B(1121)+B(1123) IF (DO_JVS(2770)) & -! JVS(2770) = Jac_FULL(263,288) - JVS(2770) = -B(387) +! JVS(2770) = Jac_FULL(302,207) + JVS(2770) = 0.065*B(1135)+0.142*B(1137) IF (DO_JVS(2771)) & -! JVS(2771) = Jac_FULL(263,290) - JVS(2771) = -B(467)+B(515)+B(525) +! JVS(2771) = Jac_FULL(302,226) + JVS(2771) = 0.015*B(1200)+0.049*B(1206) IF (DO_JVS(2772)) & -! JVS(2772) = Jac_FULL(263,291) - JVS(2772) = B(597) +! JVS(2772) = Jac_FULL(302,230) + JVS(2772) = 0 IF (DO_JVS(2773)) & -! JVS(2773) = Jac_FULL(264,96) - JVS(2773) = B(698)+B(1468) +! JVS(2773) = Jac_FULL(302,254) + JVS(2773) = B(1274) IF (DO_JVS(2774)) & -! JVS(2774) = Jac_FULL(264,106) - JVS(2774) = B(1397) +! JVS(2774) = Jac_FULL(302,267) + JVS(2774) = 0.6*B(1111) IF (DO_JVS(2775)) & -! JVS(2775) = Jac_FULL(264,110) - JVS(2775) = 0.64*B(233)+B(1392) +! JVS(2775) = Jac_FULL(302,271) + JVS(2775) = 0.008*B(1198)+0.014*B(1202) IF (DO_JVS(2776)) & -! JVS(2776) = Jac_FULL(264,112) - JVS(2776) = B(1396) +! JVS(2776) = Jac_FULL(302,276) + JVS(2776) = 0 IF (DO_JVS(2777)) & -! JVS(2777) = Jac_FULL(264,133) - JVS(2777) = B(193)+B(526) +! JVS(2777) = Jac_FULL(302,293) + JVS(2777) = 0.01*B(1141)+0.028*B(1143) IF (DO_JVS(2778)) & -! JVS(2778) = Jac_FULL(264,195) - JVS(2778) = B(606)+B(608)+B(610)+B(612)+B(614) +! JVS(2778) = Jac_FULL(302,299) + JVS(2778) = 0 IF (DO_JVS(2779)) & -! JVS(2779) = Jac_FULL(264,201) - JVS(2779) = B(138)+0.5*B(191)+0.9*B(264) +! JVS(2779) = Jac_FULL(302,301) + JVS(2779) = 0.161*B(1212) IF (DO_JVS(2780)) & -! JVS(2780) = Jac_FULL(264,202) - JVS(2780) = 0.34*B(1398) +! JVS(2780) = Jac_FULL(302,302) + JVS(2780) = -B(1236)-B(1621)-B(1772) IF (DO_JVS(2781)) & -! JVS(2781) = Jac_FULL(264,209) - JVS(2781) = B(120)+0.5*B(159)+0.9*B(270) +! JVS(2781) = Jac_FULL(302,303) + JVS(2781) = 0.05*B(1797) IF (DO_JVS(2782)) & -! JVS(2782) = Jac_FULL(264,217) - JVS(2782) = B(106)+0.75*B(175)+1.6*B(197)+B(266)+B(520) +! JVS(2782) = Jac_FULL(302,304) + JVS(2782) = 0 IF (DO_JVS(2783)) & -! JVS(2783) = Jac_FULL(264,239) - JVS(2783) = B(110)+0.75*B(177)+1.6*B(198)+B(268)+B(522) +! JVS(2783) = Jac_FULL(302,305) + JVS(2783) = 0 IF (DO_JVS(2784)) & -! JVS(2784) = Jac_FULL(264,253) - JVS(2784) = 0.5*B(211) +! JVS(2784) = Jac_FULL(302,310) + JVS(2784) = 0 IF (DO_JVS(2785)) & -! JVS(2785) = Jac_FULL(264,254) - JVS(2785) = 0.919*B(132)+0.15*B(167)+0.5*B(187)+0.9*B(258) +! JVS(2785) = Jac_FULL(302,311) + JVS(2785) = 0 IF (DO_JVS(2786)) & -! JVS(2786) = Jac_FULL(264,255) +! JVS(2786) = Jac_FULL(302,314) JVS(2786) = 0 IF (DO_JVS(2787)) & -! JVS(2787) = Jac_FULL(264,256) - JVS(2787) = 0.34*B(124)+0.16*B(181)+0.29*B(254) +! JVS(2787) = Jac_FULL(302,324) + JVS(2787) = 0 IF (DO_JVS(2788)) & -! JVS(2788) = Jac_FULL(264,257) - JVS(2788) = 0.97*B(128)+0.38*B(183)+0.675*B(262) +! JVS(2788) = Jac_FULL(302,328) + JVS(2788) = 0 IF (DO_JVS(2789)) & -! JVS(2789) = Jac_FULL(264,259) - JVS(2789) = 0 +! JVS(2789) = Jac_FULL(302,335) + JVS(2789) = B(1251) IF (DO_JVS(2790)) & -! JVS(2790) = Jac_FULL(264,261) - JVS(2790) = 0.29*B(255)+0.9*B(259)+0.675*B(263)+0.9*B(265)+B(267)+B(269)+0.9*B(271) +! 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) IF (DO_JVS(2791)) & -! JVS(2791) = Jac_FULL(264,264) - JVS(2791) = -B(95)-B(97)-B(316)-B(1374)-B(1375) +! JVS(2791) = Jac_FULL(302,340) + JVS(2791) = 0 IF (DO_JVS(2792)) & -! JVS(2792) = Jac_FULL(264,266) - JVS(2792) = 0.5*B(160)+0.75*B(176)+0.75*B(178)+0.16*B(182)+0.38*B(184)+0.5*B(188)+0.5*B(192) +! JVS(2792) = Jac_FULL(302,341) + JVS(2792) = 0 IF (DO_JVS(2793)) & -! JVS(2793) = Jac_FULL(264,267) - JVS(2793) = B(607) +! JVS(2793) = Jac_FULL(302,345) + JVS(2793) = 0.6*B(1112)+0.161*B(1213)-B(1237) IF (DO_JVS(2794)) & -! JVS(2794) = Jac_FULL(264,273) - JVS(2794) = -B(317) +! 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) IF (DO_JVS(2795)) & -! JVS(2795) = Jac_FULL(264,276) - JVS(2795) = B(613) +! JVS(2795) = Jac_FULL(302,351) + JVS(2795) = 0 IF (DO_JVS(2796)) & -! JVS(2796) = Jac_FULL(264,278) - JVS(2796) = B(615) +! JVS(2796) = Jac_FULL(303,186) + JVS(2796) = B(1186) IF (DO_JVS(2797)) & -! JVS(2797) = Jac_FULL(264,279) - JVS(2797) = B(107)+B(111)+B(121)+0.34*B(125)+0.97*B(129)+0.919*B(133)+B(139)+B(609) +! JVS(2797) = Jac_FULL(303,190) + JVS(2797) = 0.401*B(1121) IF (DO_JVS(2798)) & -! JVS(2798) = Jac_FULL(264,281) - JVS(2798) = -B(98) +! JVS(2798) = Jac_FULL(303,205) + JVS(2798) = 0.482*B(1114) IF (DO_JVS(2799)) & -! JVS(2799) = Jac_FULL(264,282) - JVS(2799) = 0.5*B(212) +! JVS(2799) = Jac_FULL(303,206) + JVS(2799) = 0.418*B(1129) IF (DO_JVS(2800)) & -! JVS(2800) = Jac_FULL(264,284) - JVS(2800) = 0.15*B(168) +! JVS(2800) = Jac_FULL(303,207) + JVS(2800) = 0.494*B(1135) IF (DO_JVS(2801)) & -! JVS(2801) = Jac_FULL(264,286) - JVS(2801) = -B(96)+B(194)+0.64*B(234)+B(699) +! JVS(2801) = Jac_FULL(303,222) + JVS(2801) = B(1184) IF (DO_JVS(2802)) & -! JVS(2802) = Jac_FULL(264,290) - JVS(2802) = B(521)+B(523)+B(527) +! JVS(2802) = Jac_FULL(303,223) + JVS(2802) = B(1034) IF (DO_JVS(2803)) & -! JVS(2803) = Jac_FULL(264,291) - JVS(2803) = B(611) +! JVS(2803) = Jac_FULL(303,224) + JVS(2803) = B(1041) IF (DO_JVS(2804)) & -! JVS(2804) = Jac_FULL(265,45) - JVS(2804) = B(693) +! JVS(2804) = Jac_FULL(303,226) + JVS(2804) = 0.387*B(1200) IF (DO_JVS(2805)) & -! JVS(2805) = Jac_FULL(265,90) - JVS(2805) = B(286) +! JVS(2805) = Jac_FULL(303,232) + JVS(2805) = B(1048) IF (DO_JVS(2806)) & -! JVS(2806) = Jac_FULL(265,98) - JVS(2806) = B(692) +! JVS(2806) = Jac_FULL(303,267) + JVS(2806) = 0 IF (DO_JVS(2807)) & -! JVS(2807) = Jac_FULL(265,101) - JVS(2807) = B(1148) +! JVS(2807) = Jac_FULL(303,268) + JVS(2807) = 0 IF (DO_JVS(2808)) & -! JVS(2808) = Jac_FULL(265,114) - JVS(2808) = B(140) +! JVS(2808) = Jac_FULL(303,271) + JVS(2808) = 0.5*B(1197)+0.234*B(1198) IF (DO_JVS(2809)) & -! JVS(2809) = Jac_FULL(265,115) - JVS(2809) = 0.5*B(1138) +! JVS(2809) = Jac_FULL(303,293) + JVS(2809) = 0.621*B(1141) IF (DO_JVS(2810)) & -! JVS(2810) = Jac_FULL(265,118) - JVS(2810) = 0.742*B(1134) +! JVS(2810) = Jac_FULL(303,299) + JVS(2810) = 0.565*B(1218) IF (DO_JVS(2811)) & -! JVS(2811) = Jac_FULL(265,134) - JVS(2811) = 0 +! JVS(2811) = Jac_FULL(303,303) + JVS(2811) = -B(1316)-B(1637)-B(1797)-B(1798) IF (DO_JVS(2812)) & -! JVS(2812) = Jac_FULL(265,138) - JVS(2812) = -B(13) +! JVS(2812) = Jac_FULL(303,304) + JVS(2812) = 0 IF (DO_JVS(2813)) & -! JVS(2813) = Jac_FULL(265,139) +! JVS(2813) = Jac_FULL(303,305) JVS(2813) = 0 IF (DO_JVS(2814)) & -! JVS(2814) = Jac_FULL(265,140) +! JVS(2814) = Jac_FULL(303,310) JVS(2814) = 0 IF (DO_JVS(2815)) & -! JVS(2815) = Jac_FULL(265,142) - JVS(2815) = 0.5*B(1144) +! JVS(2815) = Jac_FULL(303,311) + JVS(2815) = 0 IF (DO_JVS(2816)) & -! JVS(2816) = Jac_FULL(265,147) - JVS(2816) = -B(6) +! JVS(2816) = Jac_FULL(303,324) + JVS(2816) = 0 IF (DO_JVS(2817)) & -! JVS(2817) = Jac_FULL(265,151) +! JVS(2817) = Jac_FULL(303,328) JVS(2817) = 0 IF (DO_JVS(2818)) & -! JVS(2818) = Jac_FULL(265,161) - JVS(2818) = B(249) +! 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) IF (DO_JVS(2819)) & -! JVS(2819) = Jac_FULL(265,173) - JVS(2819) = 2*B(1214)+B(1216)+2*B(1218)+B(1219)+B(1221) +! JVS(2819) = Jac_FULL(303,345) + JVS(2819) = B(1185)+B(1187)+0.565*B(1219)-B(1317) IF (DO_JVS(2820)) & -! JVS(2820) = Jac_FULL(265,175) - JVS(2820) = 0 +! JVS(2820) = Jac_FULL(303,346) + JVS(2820) = B(1035)+B(1042)+B(1049) IF (DO_JVS(2821)) & -! JVS(2821) = Jac_FULL(265,176) - JVS(2821) = B(1227)+B(1229) +! JVS(2821) = Jac_FULL(303,351) + JVS(2821) = 0 IF (DO_JVS(2822)) & -! JVS(2822) = Jac_FULL(265,178) - JVS(2822) = 0 +! JVS(2822) = Jac_FULL(304,186) + JVS(2822) = 0.159*B(1789) IF (DO_JVS(2823)) & -! JVS(2823) = Jac_FULL(265,181) - JVS(2823) = 0 +! JVS(2823) = Jac_FULL(304,192) + JVS(2823) = 0.51*B(1025) IF (DO_JVS(2824)) & -! JVS(2824) = Jac_FULL(265,189) - JVS(2824) = 0 +! JVS(2824) = Jac_FULL(304,199) + JVS(2824) = 0.03*B(1029) IF (DO_JVS(2825)) & -! JVS(2825) = Jac_FULL(265,199) - JVS(2825) = 0 +! JVS(2825) = Jac_FULL(304,276) + JVS(2825) = 0.5*B(635)+B(951) IF (DO_JVS(2826)) & -! JVS(2826) = Jac_FULL(265,200) - JVS(2826) = 0 +! 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) IF (DO_JVS(2827)) & -! JVS(2827) = Jac_FULL(265,202) - JVS(2827) = 0 +! JVS(2827) = Jac_FULL(304,305) + JVS(2827) = -B(972)-B(976) IF (DO_JVS(2828)) & -! JVS(2828) = Jac_FULL(265,205) +! JVS(2828) = Jac_FULL(304,311) JVS(2828) = 0 IF (DO_JVS(2829)) & -! JVS(2829) = Jac_FULL(265,208) - JVS(2829) = B(1075) +! JVS(2829) = Jac_FULL(304,328) + JVS(2829) = -B(982)-B(984) IF (DO_JVS(2830)) & -! JVS(2830) = Jac_FULL(265,210) - JVS(2830) = 0.5*B(1177) +! JVS(2830) = Jac_FULL(304,337) + JVS(2830) = -B(962)-B(964) IF (DO_JVS(2831)) & -! JVS(2831) = Jac_FULL(265,213) - JVS(2831) = 0 +! JVS(2831) = Jac_FULL(304,340) + JVS(2831) = 0.5*B(636) IF (DO_JVS(2832)) & -! JVS(2832) = Jac_FULL(265,214) +! JVS(2832) = Jac_FULL(304,341) JVS(2832) = 0 IF (DO_JVS(2833)) & -! JVS(2833) = Jac_FULL(265,215) - JVS(2833) = 0 +! JVS(2833) = Jac_FULL(304,345) + JVS(2833) = B(952)+0.51*B(1026)+0.03*B(1030) IF (DO_JVS(2834)) & -! JVS(2834) = Jac_FULL(265,216) - JVS(2834) = 0 +! JVS(2834) = Jac_FULL(304,346) + JVS(2834) = -B(994)-B(996)-B(998)-B(1000) IF (DO_JVS(2835)) & -! JVS(2835) = Jac_FULL(265,220) +! JVS(2835) = Jac_FULL(304,351) JVS(2835) = 0 IF (DO_JVS(2836)) & -! JVS(2836) = Jac_FULL(265,222) - JVS(2836) = 0 +! JVS(2836) = Jac_FULL(305,186) + JVS(2836) = 0.841*B(1789) IF (DO_JVS(2837)) & -! JVS(2837) = Jac_FULL(265,223) - JVS(2837) = B(223) +! JVS(2837) = Jac_FULL(305,187) + JVS(2837) = 0.75*B(1023) IF (DO_JVS(2838)) & -! JVS(2838) = Jac_FULL(265,224) - JVS(2838) = 0 +! JVS(2838) = Jac_FULL(305,209) + JVS(2838) = 0.03*B(1027) IF (DO_JVS(2839)) & -! JVS(2839) = Jac_FULL(265,225) - JVS(2839) = 0 +! JVS(2839) = Jac_FULL(305,276) + JVS(2839) = 0.5*B(635)+B(949) IF (DO_JVS(2840)) & -! JVS(2840) = Jac_FULL(265,226) - JVS(2840) = B(179) +! JVS(2840) = Jac_FULL(305,304) + JVS(2840) = -B(971)-B(975) IF (DO_JVS(2841)) & -! JVS(2841) = Jac_FULL(265,228) - JVS(2841) = 0 +! 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) IF (DO_JVS(2842)) & -! JVS(2842) = Jac_FULL(265,229) +! JVS(2842) = Jac_FULL(305,311) JVS(2842) = 0 IF (DO_JVS(2843)) & -! JVS(2843) = Jac_FULL(265,230) - JVS(2843) = 0 +! JVS(2843) = Jac_FULL(305,328) + JVS(2843) = -B(978)-B(980) IF (DO_JVS(2844)) & -! JVS(2844) = Jac_FULL(265,232) - JVS(2844) = 0 +! JVS(2844) = Jac_FULL(305,337) + JVS(2844) = -B(958)-B(960) IF (DO_JVS(2845)) & -! JVS(2845) = Jac_FULL(265,233) - JVS(2845) = B(225) +! JVS(2845) = Jac_FULL(305,340) + JVS(2845) = 0.5*B(636) IF (DO_JVS(2846)) & -! JVS(2846) = Jac_FULL(265,236) +! JVS(2846) = Jac_FULL(305,341) JVS(2846) = 0 IF (DO_JVS(2847)) & -! JVS(2847) = Jac_FULL(265,238) - JVS(2847) = 0 +! JVS(2847) = Jac_FULL(305,345) + JVS(2847) = B(950)+0.75*B(1024)+0.03*B(1028) IF (DO_JVS(2848)) & -! JVS(2848) = Jac_FULL(265,240) - JVS(2848) = 0 +! JVS(2848) = Jac_FULL(305,346) + JVS(2848) = -B(986)-B(988)-B(990)-B(992) IF (DO_JVS(2849)) & -! JVS(2849) = Jac_FULL(265,241) +! JVS(2849) = Jac_FULL(305,351) JVS(2849) = 0 IF (DO_JVS(2850)) & -! JVS(2850) = Jac_FULL(265,242) - JVS(2850) = 0 +! JVS(2850) = Jac_FULL(306,70) + JVS(2850) = B(1375) IF (DO_JVS(2851)) & -! JVS(2851) = Jac_FULL(265,243) - JVS(2851) = 0 +! JVS(2851) = Jac_FULL(306,106) + JVS(2851) = B(1373) IF (DO_JVS(2852)) & -! JVS(2852) = Jac_FULL(265,244) - JVS(2852) = 0 +! JVS(2852) = Jac_FULL(306,113) + JVS(2852) = B(241) IF (DO_JVS(2853)) & -! JVS(2853) = Jac_FULL(265,245) - JVS(2853) = 0 +! JVS(2853) = Jac_FULL(306,126) + JVS(2853) = B(167) IF (DO_JVS(2854)) & -! JVS(2854) = Jac_FULL(265,246) - JVS(2854) = 0 +! JVS(2854) = Jac_FULL(306,127) + JVS(2854) = B(152) IF (DO_JVS(2855)) & -! JVS(2855) = Jac_FULL(265,247) - JVS(2855) = 0 +! JVS(2855) = Jac_FULL(306,132) + JVS(2855) = B(156)+B(158) IF (DO_JVS(2856)) & -! JVS(2856) = Jac_FULL(265,248) - JVS(2856) = 0 +! JVS(2856) = Jac_FULL(306,136) + JVS(2856) = B(1379) IF (DO_JVS(2857)) & -! JVS(2857) = Jac_FULL(265,249) - JVS(2857) = 0 +! JVS(2857) = Jac_FULL(306,174) + JVS(2857) = 0.25*B(1794) IF (DO_JVS(2858)) & -! JVS(2858) = Jac_FULL(265,250) - JVS(2858) = 0 +! JVS(2858) = Jac_FULL(306,180) + JVS(2858) = 0.11*B(1220)+0.09*B(1222) IF (DO_JVS(2859)) & -! JVS(2859) = Jac_FULL(265,251) - JVS(2859) = 0.32*B(991) +! JVS(2859) = Jac_FULL(306,197) + JVS(2859) = 0.5*B(160) IF (DO_JVS(2860)) & -! JVS(2860) = Jac_FULL(265,252) - JVS(2860) = 0 +! JVS(2860) = Jac_FULL(306,198) + JVS(2860) = 0.429*B(1795) IF (DO_JVS(2861)) & -! JVS(2861) = Jac_FULL(265,253) - JVS(2861) = 0 +! JVS(2861) = Jac_FULL(306,201) + JVS(2861) = 0.95*B(1472) IF (DO_JVS(2862)) & -! JVS(2862) = Jac_FULL(265,254) - JVS(2862) = 0 +! JVS(2862) = Jac_FULL(306,202) + JVS(2862) = B(1424) IF (DO_JVS(2863)) & -! JVS(2863) = Jac_FULL(265,256) - JVS(2863) = 0 +! JVS(2863) = Jac_FULL(306,205) + JVS(2863) = 0.459*B(1114)+0.728*B(1116) IF (DO_JVS(2864)) & -! JVS(2864) = Jac_FULL(265,257) - JVS(2864) = 0 +! JVS(2864) = Jac_FULL(306,206) + JVS(2864) = 0.551*B(1129)+0.935*B(1131) IF (DO_JVS(2865)) & -! JVS(2865) = Jac_FULL(265,258) - JVS(2865) = 0 +! JVS(2865) = Jac_FULL(306,212) + JVS(2865) = 0.659*B(150) IF (DO_JVS(2866)) & -! JVS(2866) = Jac_FULL(265,259) - JVS(2866) = B(153) +! JVS(2866) = Jac_FULL(306,220) + JVS(2866) = 0 IF (DO_JVS(2867)) & -! JVS(2867) = Jac_FULL(265,261) - JVS(2867) = 0 +! JVS(2867) = Jac_FULL(306,221) + JVS(2867) = 0.9*B(1467) IF (DO_JVS(2868)) & -! JVS(2868) = Jac_FULL(265,262) - JVS(2868) = B(1231)+B(1233)+B(1235)+B(1237)+B(1239)+B(1241)+B(1243) +! JVS(2868) = Jac_FULL(306,223) + JVS(2868) = 0 IF (DO_JVS(2869)) & -! JVS(2869) = Jac_FULL(265,263) - JVS(2869) = B(93) +! JVS(2869) = Jac_FULL(306,224) + JVS(2869) = 0.294*B(1039)+0.135*B(1043) IF (DO_JVS(2870)) & -! JVS(2870) = Jac_FULL(265,264) - JVS(2870) = B(97) +! JVS(2870) = Jac_FULL(306,232) + JVS(2870) = B(1046)+0.65*B(1050) IF (DO_JVS(2871)) & -! JVS(2871) = Jac_FULL(265,265) - JVS(2871) = -B(7)-B(14)-B(67)-B(1367) +! JVS(2871) = Jac_FULL(306,233) + JVS(2871) = 0 IF (DO_JVS(2872)) & -! JVS(2872) = Jac_FULL(265,266) - JVS(2872) = 0 +! JVS(2872) = Jac_FULL(306,234) + JVS(2872) = 0.2*B(1370) IF (DO_JVS(2873)) & -! JVS(2873) = Jac_FULL(265,267) +! JVS(2873) = Jac_FULL(306,246) JVS(2873) = 0 IF (DO_JVS(2874)) & -! JVS(2874) = Jac_FULL(265,270) - JVS(2874) = B(1305)+B(1306)+B(1307)+B(1317)+B(1319)+B(1321)+B(1323) +! JVS(2874) = Jac_FULL(306,254) + JVS(2874) = 0.36*B(1270)+0.758*B(1272) IF (DO_JVS(2875)) & -! JVS(2875) = Jac_FULL(265,272) - JVS(2875) = 0 +! JVS(2875) = Jac_FULL(306,258) + JVS(2875) = 0.118*B(1793) IF (DO_JVS(2876)) & -! JVS(2876) = Jac_FULL(265,273) - JVS(2876) = 0 +! JVS(2876) = Jac_FULL(306,262) + JVS(2876) = 0.5*B(871)+0.5*B(873)+0.25*B(875) IF (DO_JVS(2877)) & -! JVS(2877) = Jac_FULL(265,274) - JVS(2877) = 0 +! JVS(2877) = Jac_FULL(306,266) + JVS(2877) = B(1799) IF (DO_JVS(2878)) & -! JVS(2878) = Jac_FULL(265,275) - JVS(2878) = B(1217)+B(1230)+B(1234) +! JVS(2878) = Jac_FULL(306,267) + JVS(2878) = 0 IF (DO_JVS(2879)) & -! JVS(2879) = Jac_FULL(265,276) +! JVS(2879) = Jac_FULL(306,268) JVS(2879) = 0 IF (DO_JVS(2880)) & -! JVS(2880) = Jac_FULL(265,277) - JVS(2880) = B(1240)+B(1320) +! JVS(2880) = Jac_FULL(306,269) + JVS(2880) = 0 IF (DO_JVS(2881)) & -! JVS(2881) = Jac_FULL(265,278) - JVS(2881) = 2*B(1215)+B(1228)+B(1232)+B(1308) +! JVS(2881) = Jac_FULL(306,271) + JVS(2881) = 0.34*B(1198)+0.384*B(1202) IF (DO_JVS(2882)) & -! JVS(2882) = Jac_FULL(265,279) +! JVS(2882) = Jac_FULL(306,276) JVS(2882) = 0 IF (DO_JVS(2883)) & -! JVS(2883) = Jac_FULL(265,280) - JVS(2883) = B(1220)+B(1242)+B(1322) +! JVS(2883) = Jac_FULL(306,285) + JVS(2883) = 0 IF (DO_JVS(2884)) & -! JVS(2884) = Jac_FULL(265,281) - JVS(2884) = B(94)+B(98)+B(141)+B(154)+B(180)+B(224)+B(226)+B(250)+B(287)+0.32*B(992)+B(1076)+0.742*B(1135)+0.5*B(1139)& - &+0.5*B(1145)+B(1149)+0.5*B(1178)+B(1211) +! JVS(2884) = Jac_FULL(306,286) + JVS(2884) = 0.52*B(1064)+0.8*B(1066) IF (DO_JVS(2885)) & -! JVS(2885) = Jac_FULL(265,282) - JVS(2885) = 0 +! JVS(2885) = Jac_FULL(306,288) + JVS(2885) = 0.53*B(1767) IF (DO_JVS(2886)) & -! JVS(2886) = Jac_FULL(265,283) - JVS(2886) = B(1238)+B(1318) +! JVS(2886) = Jac_FULL(306,291) + JVS(2886) = 0 IF (DO_JVS(2887)) & -! JVS(2887) = Jac_FULL(265,284) - JVS(2887) = 0 +! JVS(2887) = Jac_FULL(306,293) + JVS(2887) = 0.242*B(1141)+0.546*B(1143) IF (DO_JVS(2888)) & -! JVS(2888) = Jac_FULL(265,285) - JVS(2888) = 0 +! JVS(2888) = Jac_FULL(306,299) + JVS(2888) = 0.5*B(1791) IF (DO_JVS(2889)) & -! JVS(2889) = Jac_FULL(265,286) - JVS(2889) = B(65)-B(68) +! JVS(2889) = Jac_FULL(306,301) + JVS(2889) = 0 IF (DO_JVS(2890)) & -! JVS(2890) = Jac_FULL(265,287) - JVS(2890) = B(1222)+B(1244)+B(1324) +! JVS(2890) = Jac_FULL(306,302) + JVS(2890) = 0.69*B(1772) IF (DO_JVS(2891)) & -! JVS(2891) = Jac_FULL(265,288) - JVS(2891) = 0 +! JVS(2891) = Jac_FULL(306,303) + JVS(2891) = 0.3*B(1797)+0.35*B(1798) IF (DO_JVS(2892)) & -! JVS(2892) = Jac_FULL(265,289) - JVS(2892) = B(1236) +! JVS(2892) = Jac_FULL(306,304) + JVS(2892) = 0 IF (DO_JVS(2893)) & -! JVS(2893) = Jac_FULL(265,290) +! JVS(2893) = Jac_FULL(306,305) JVS(2893) = 0 IF (DO_JVS(2894)) & -! JVS(2894) = Jac_FULL(265,291) - JVS(2894) = B(66)+0.5*B(1210) +! JVS(2894) = Jac_FULL(306,306) + JVS(2894) = -B(289)-B(291)-B(293)-B(295)-B(1666) IF (DO_JVS(2895)) & -! JVS(2895) = Jac_FULL(266,46) - JVS(2895) = B(586) +! JVS(2895) = Jac_FULL(306,310) + JVS(2895) = 0 IF (DO_JVS(2896)) & -! JVS(2896) = Jac_FULL(266,67) - JVS(2896) = 0.3*B(1376) +! JVS(2896) = Jac_FULL(306,311) + JVS(2896) = 0 IF (DO_JVS(2897)) & -! JVS(2897) = Jac_FULL(266,74) - JVS(2897) = B(281)+B(1452) +! JVS(2897) = Jac_FULL(306,314) + JVS(2897) = 0 IF (DO_JVS(2898)) & -! JVS(2898) = Jac_FULL(266,88) - JVS(2898) = B(1399) +! JVS(2898) = Jac_FULL(306,320) + JVS(2898) = 0 IF (DO_JVS(2899)) & -! JVS(2899) = Jac_FULL(266,90) - JVS(2899) = B(282)+B(284)+B(286) +! JVS(2899) = Jac_FULL(306,324) + JVS(2899) = 0 IF (DO_JVS(2900)) & -! JVS(2900) = Jac_FULL(266,100) - JVS(2900) = B(398)+B(1408) +! JVS(2900) = Jac_FULL(306,328) + JVS(2900) = 0.2*B(1371) IF (DO_JVS(2901)) & -! JVS(2901) = Jac_FULL(266,106) - JVS(2901) = B(1397) +! JVS(2901) = Jac_FULL(306,335) + JVS(2901) = 0 IF (DO_JVS(2902)) & -! JVS(2902) = Jac_FULL(266,136) - JVS(2902) = 0.162*B(1037)+0.488*B(1481) +! 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) IF (DO_JVS(2903)) & -! JVS(2903) = Jac_FULL(266,137) - JVS(2903) = 0.7*B(59)+B(516) +! JVS(2903) = Jac_FULL(306,340) + JVS(2903) = 0 IF (DO_JVS(2904)) & -! JVS(2904) = Jac_FULL(266,149) - JVS(2904) = 0.9*B(396)+B(1409) +! JVS(2904) = Jac_FULL(306,341) + JVS(2904) = 0.5*B(874)+B(1425)+0.9*B(1468)+0.95*B(1473) IF (DO_JVS(2905)) & -! JVS(2905) = Jac_FULL(266,179) - JVS(2905) = -B(1105) +! 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) IF (DO_JVS(2906)) & -! JVS(2906) = Jac_FULL(266,180) - JVS(2906) = -B(1181) +! 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) IF (DO_JVS(2907)) & -! JVS(2907) = Jac_FULL(266,184) - JVS(2907) = -B(1128)+B(1130) +! JVS(2907) = Jac_FULL(306,351) + JVS(2907) = -B(296)+0.25*B(876) IF (DO_JVS(2908)) & -! JVS(2908) = Jac_FULL(266,190) - JVS(2908) = B(47)+0.75*B(344)+B(464) +! JVS(2908) = Jac_FULL(307,123) + JVS(2908) = 0.791*B(338) IF (DO_JVS(2909)) & -! JVS(2909) = Jac_FULL(266,191) - JVS(2909) = -B(1179) +! JVS(2909) = Jac_FULL(307,153) + JVS(2909) = 0.84*B(1268) IF (DO_JVS(2910)) & -! JVS(2910) = Jac_FULL(266,201) - JVS(2910) = -B(191)+0.9*B(264) +! JVS(2910) = Jac_FULL(307,154) + JVS(2910) = B(937)+B(1752) IF (DO_JVS(2911)) & -! JVS(2911) = Jac_FULL(266,202) - JVS(2911) = 0.19*B(1398) +! JVS(2911) = Jac_FULL(307,159) + JVS(2911) = 0.488*B(1280) IF (DO_JVS(2912)) & -! JVS(2912) = Jac_FULL(266,207) - JVS(2912) = 0.325*B(1035)+0.65*B(1044) +! JVS(2912) = Jac_FULL(307,174) + JVS(2912) = 0.25*B(1794) IF (DO_JVS(2913)) & -! JVS(2913) = Jac_FULL(266,209) - JVS(2913) = -B(159)+0.9*B(270) +! JVS(2913) = Jac_FULL(307,184) + JVS(2913) = 0.25*B(1302) IF (DO_JVS(2914)) & -! JVS(2914) = Jac_FULL(266,215) - JVS(2914) = -B(666)+B(670) +! JVS(2914) = Jac_FULL(307,198) + JVS(2914) = 0.571*B(1795) IF (DO_JVS(2915)) & -! JVS(2915) = Jac_FULL(266,216) - JVS(2915) = -B(668)+0.5*B(672) +! JVS(2915) = Jac_FULL(307,205) + JVS(2915) = 0.459*B(1114)+0.728*B(1116) IF (DO_JVS(2916)) & -! JVS(2916) = Jac_FULL(266,217) - JVS(2916) = -B(175)+0.9*B(266) +! JVS(2916) = Jac_FULL(307,207) + JVS(2916) = 0.441*B(1135)+0.858*B(1137) IF (DO_JVS(2917)) & -! JVS(2917) = Jac_FULL(266,219) - JVS(2917) = B(144)+B(528) +! JVS(2917) = Jac_FULL(307,215) + JVS(2917) = 0.5*B(1011) IF (DO_JVS(2918)) & -! JVS(2918) = Jac_FULL(266,221) - JVS(2918) = B(1378)+2*B(1379) +! JVS(2918) = Jac_FULL(307,223) + JVS(2918) = 0.284*B(1032)+0.135*B(1036) IF (DO_JVS(2919)) & -! JVS(2919) = Jac_FULL(266,224) - JVS(2919) = 0.407*B(704) +! JVS(2919) = Jac_FULL(307,224) + JVS(2919) = 0 IF (DO_JVS(2920)) & -! JVS(2920) = Jac_FULL(266,225) - JVS(2920) = -B(650)+0.5*B(652) +! JVS(2920) = Jac_FULL(307,230) + JVS(2920) = 0 IF (DO_JVS(2921)) & -! JVS(2921) = Jac_FULL(266,226) - JVS(2921) = 0.15*B(1380) +! JVS(2921) = Jac_FULL(307,231) + JVS(2921) = 0 IF (DO_JVS(2922)) & -! JVS(2922) = Jac_FULL(266,237) - JVS(2922) = -B(157)+0.9*B(272) +! JVS(2922) = Jac_FULL(307,232) + JVS(2922) = B(1046)+0.65*B(1050) IF (DO_JVS(2923)) & -! JVS(2923) = Jac_FULL(266,238) - JVS(2923) = -B(626)+0.5*B(628) +! JVS(2923) = Jac_FULL(307,242) + JVS(2923) = 0 IF (DO_JVS(2924)) & -! JVS(2924) = Jac_FULL(266,239) - JVS(2924) = -B(177)+0.9*B(268) +! JVS(2924) = Jac_FULL(307,243) + JVS(2924) = 0.52*B(1078)+0.8*B(1082)+B(1084) IF (DO_JVS(2925)) & -! JVS(2925) = Jac_FULL(266,244) - JVS(2925) = -B(738)-B(740) +! JVS(2925) = Jac_FULL(307,248) + JVS(2925) = B(1773) IF (DO_JVS(2926)) & -! JVS(2926) = Jac_FULL(266,245) - JVS(2926) = -B(734)-B(736) +! JVS(2926) = Jac_FULL(307,253) + JVS(2926) = 0.507*B(1276)+B(1282)+0.86*B(1283) IF (DO_JVS(2927)) & -! JVS(2927) = Jac_FULL(266,246) - JVS(2927) = -B(914)+B(920) +! JVS(2927) = Jac_FULL(307,256) + JVS(2927) = 0 IF (DO_JVS(2928)) & -! JVS(2928) = Jac_FULL(266,247) - JVS(2928) = -B(916)+B(918) +! JVS(2928) = Jac_FULL(307,258) + JVS(2928) = 0.586*B(1793) IF (DO_JVS(2929)) & -! JVS(2929) = Jac_FULL(266,248) - JVS(2929) = B(1388) +! JVS(2929) = Jac_FULL(307,259) + JVS(2929) = 0 IF (DO_JVS(2930)) & -! JVS(2930) = Jac_FULL(266,249) - JVS(2930) = -B(1056) +! JVS(2930) = Jac_FULL(307,260) + JVS(2930) = 0.16*B(216)+0.065*B(369) IF (DO_JVS(2931)) & -! JVS(2931) = Jac_FULL(266,250) - JVS(2931) = 0.5*B(229) +! JVS(2931) = Jac_FULL(307,267) + JVS(2931) = 0 IF (DO_JVS(2932)) & -! JVS(2932) = Jac_FULL(266,251) +! JVS(2932) = Jac_FULL(307,268) JVS(2932) = 0 IF (DO_JVS(2933)) & -! JVS(2933) = Jac_FULL(266,252) - JVS(2933) = -B(185)+0.9*B(256) +! JVS(2933) = Jac_FULL(307,271) + JVS(2933) = 0.042*B(1198)+0.051*B(1202) IF (DO_JVS(2934)) & -! JVS(2934) = Jac_FULL(266,253) - JVS(2934) = 0.28*B(211) +! JVS(2934) = Jac_FULL(307,272) + JVS(2934) = 0 IF (DO_JVS(2935)) & -! JVS(2935) = Jac_FULL(266,254) - JVS(2935) = 0.85*B(167)-0.75*B(187)+0.9*B(258) +! JVS(2935) = Jac_FULL(307,273) + JVS(2935) = 0 IF (DO_JVS(2936)) & -! JVS(2936) = Jac_FULL(266,255) - JVS(2936) = B(274)-B(276) +! JVS(2936) = Jac_FULL(307,275) + JVS(2936) = 0 IF (DO_JVS(2937)) & -! JVS(2937) = Jac_FULL(266,256) - JVS(2937) = 0.19*B(124)-0.91*B(181)+0.9*B(254) +! JVS(2937) = Jac_FULL(307,276) + JVS(2937) = 0 IF (DO_JVS(2938)) & -! JVS(2938) = Jac_FULL(266,257) - JVS(2938) = -B(183)+0.9*B(262) +! JVS(2938) = Jac_FULL(307,277) + JVS(2938) = 0 IF (DO_JVS(2939)) & -! JVS(2939) = Jac_FULL(266,258) - JVS(2939) = -B(189)+0.9*B(260) +! JVS(2939) = Jac_FULL(307,278) + JVS(2939) = 0 IF (DO_JVS(2940)) & -! JVS(2940) = Jac_FULL(266,259) +! JVS(2940) = Jac_FULL(307,280) JVS(2940) = 0 IF (DO_JVS(2941)) & -! JVS(2941) = Jac_FULL(266,261) - JVS(2941) = B(102)+2*B(251)-0.1*B(252)+0.9*B(255)+0.9*B(257)+0.9*B(259)+0.9*B(261)+0.9*B(263)+0.9*B(265)+0.9*B(267)& - &+0.9*B(269)+0.9*B(271)+0.9*B(273)+B(275)+0.5*B(629)+0.5*B(653)+B(671)+0.5*B(673)+B(919)+B(921)+0.5*B(1081)& - &+B(1131) +! JVS(2941) = Jac_FULL(307,281) + JVS(2941) = 0 IF (DO_JVS(2942)) & -! JVS(2942) = Jac_FULL(266,264) - JVS(2942) = 0.88*B(1374) +! JVS(2942) = Jac_FULL(307,285) + JVS(2942) = 0.8*B(1072)+0.52*B(1076) IF (DO_JVS(2943)) & -! JVS(2943) = Jac_FULL(266,266) - JVS(2943) = -B(34)-B(49)-B(51)-B(53)-2*B(55)-2*B(56)-B(57)-B(158)-B(160)-B(176)-B(178)-0.91*B(182)-B(184)-B(186)-0.75& - &*B(188)-B(190)-B(192)-0.1*B(253)-B(277)-B(279)-B(430)-B(514)-B(627)-B(651)-B(667)-B(669)-B(735)-B(737)& - &-B(739)-B(741)-B(915)-B(917)-B(1057)-B(1106)-B(1129)-B(1180)-B(1182)-B(1205) +! JVS(2943) = Jac_FULL(307,286) + JVS(2943) = 0 IF (DO_JVS(2944)) & -! JVS(2944) = Jac_FULL(266,267) - JVS(2944) = 0 +! JVS(2944) = Jac_FULL(307,287) + JVS(2944) = 0.77*B(1240)+0.77*B(1770) IF (DO_JVS(2945)) & -! JVS(2945) = Jac_FULL(266,272) - JVS(2945) = 0.75*B(345)+0.9*B(397)+B(399) +! JVS(2945) = Jac_FULL(307,289) + JVS(2945) = 0 IF (DO_JVS(2946)) & -! JVS(2946) = Jac_FULL(266,273) +! JVS(2946) = Jac_FULL(307,290) JVS(2946) = 0 IF (DO_JVS(2947)) & -! JVS(2947) = Jac_FULL(266,276) +! JVS(2947) = Jac_FULL(307,291) JVS(2947) = 0 IF (DO_JVS(2948)) & -! JVS(2948) = Jac_FULL(266,278) - JVS(2948) = 0 +! JVS(2948) = Jac_FULL(307,293) + JVS(2948) = 0.033*B(1141)+0.071*B(1143) IF (DO_JVS(2949)) & -! JVS(2949) = Jac_FULL(266,279) - JVS(2949) = -B(50)-B(52)+B(103)+0.19*B(125)+0.65*B(1045) +! JVS(2949) = Jac_FULL(307,299) + JVS(2949) = 0.5*B(1791) IF (DO_JVS(2950)) & -! JVS(2950) = Jac_FULL(266,281) - JVS(2950) = B(287)-B(1206) +! JVS(2950) = Jac_FULL(307,301) + JVS(2950) = 0 IF (DO_JVS(2951)) & -! JVS(2951) = Jac_FULL(266,282) - JVS(2951) = -B(35)+0.28*B(212)+0.407*B(705) +! JVS(2951) = Jac_FULL(307,303) + JVS(2951) = 0.45*B(1797)+0.8*B(1798) IF (DO_JVS(2952)) & -! JVS(2952) = Jac_FULL(266,284) - JVS(2952) = -B(54)+0.85*B(168)+0.325*B(1036)+0.5*B(1082) +! JVS(2952) = Jac_FULL(307,304) + JVS(2952) = 0 IF (DO_JVS(2953)) & -! JVS(2953) = Jac_FULL(266,285) - JVS(2953) = -B(431) +! JVS(2953) = Jac_FULL(307,305) + JVS(2953) = 0 IF (DO_JVS(2954)) & -! JVS(2954) = Jac_FULL(266,286) - JVS(2954) = B(48)-B(58)+0.7*B(60)+B(145)+0.5*B(230)+B(283)+B(285)+B(587)+0.162*B(1038) +! JVS(2954) = Jac_FULL(307,307) + JVS(2954) = -B(320)-B(322)-B(1675) IF (DO_JVS(2955)) & -! JVS(2955) = Jac_FULL(266,290) - JVS(2955) = B(465)-B(515)+B(517)+B(529) +! JVS(2955) = Jac_FULL(307,308) + JVS(2955) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299) IF (DO_JVS(2956)) & -! JVS(2956) = Jac_FULL(266,291) - JVS(2956) = -B(280) +! JVS(2956) = Jac_FULL(307,309) + JVS(2956) = 0 IF (DO_JVS(2957)) & -! JVS(2957) = Jac_FULL(267,58) - JVS(2957) = 0.364*B(1097) +! JVS(2957) = Jac_FULL(307,310) + JVS(2957) = 0 IF (DO_JVS(2958)) & -! JVS(2958) = Jac_FULL(267,64) - JVS(2958) = 0.2*B(1116) +! JVS(2958) = Jac_FULL(307,311) + JVS(2958) = 0 IF (DO_JVS(2959)) & -! JVS(2959) = Jac_FULL(267,66) - JVS(2959) = B(358)+B(1455) +! JVS(2959) = Jac_FULL(307,313) + JVS(2959) = 0.2*B(261) IF (DO_JVS(2960)) & -! JVS(2960) = Jac_FULL(267,72) - JVS(2960) = B(508) +! JVS(2960) = Jac_FULL(307,314) + JVS(2960) = 0 IF (DO_JVS(2961)) & -! JVS(2961) = Jac_FULL(267,78) - JVS(2961) = B(510) +! JVS(2961) = Jac_FULL(307,324) + JVS(2961) = 0.065*B(370) IF (DO_JVS(2962)) & -! JVS(2962) = Jac_FULL(267,79) - JVS(2962) = 0.27*B(1118) +! JVS(2962) = Jac_FULL(307,328) + JVS(2962) = 0.16*B(217)+0.2*B(262)+0.7*B(1300) IF (DO_JVS(2963)) & -! JVS(2963) = Jac_FULL(267,80) - JVS(2963) = 0.3*B(1120) +! JVS(2963) = Jac_FULL(307,335) + JVS(2963) = 0 IF (DO_JVS(2964)) & -! JVS(2964) = Jac_FULL(267,101) - JVS(2964) = B(1512) +! 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) IF (DO_JVS(2965)) & -! JVS(2965) = Jac_FULL(267,105) - JVS(2965) = B(1061) +! JVS(2965) = Jac_FULL(307,340) + JVS(2965) = 0 IF (DO_JVS(2966)) & -! JVS(2966) = Jac_FULL(267,109) - JVS(2966) = B(770) +! JVS(2966) = Jac_FULL(307,341) + JVS(2966) = 0 IF (DO_JVS(2967)) & -! JVS(2967) = Jac_FULL(267,125) - JVS(2967) = 0.888*B(1065)+B(1506) +! JVS(2967) = Jac_FULL(307,342) + JVS(2967) = 0 IF (DO_JVS(2968)) & -! JVS(2968) = Jac_FULL(267,127) - JVS(2968) = 0.23*B(764)+B(1492) +! 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) IF (DO_JVS(2969)) & -! JVS(2969) = Jac_FULL(267,129) - JVS(2969) = 0.42*B(762)+B(1491) +! 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) IF (DO_JVS(2970)) & -! JVS(2970) = Jac_FULL(267,132) - JVS(2970) = 0.84*B(1025) +! JVS(2970) = Jac_FULL(307,351) + JVS(2970) = B(1298) IF (DO_JVS(2971)) & -! JVS(2971) = Jac_FULL(267,136) - JVS(2971) = 0.488*B(1037) +! JVS(2971) = Jac_FULL(308,248) + JVS(2971) = B(1242) IF (DO_JVS(2972)) & -! JVS(2972) = Jac_FULL(267,148) - JVS(2972) = 0.25*B(1188)+0.5*B(1190)+0.05*B(1192) +! JVS(2972) = Jac_FULL(308,253) + JVS(2972) = 0 IF (DO_JVS(2973)) & -! JVS(2973) = Jac_FULL(267,149) - JVS(2973) = B(506) +! JVS(2973) = Jac_FULL(308,276) + JVS(2973) = 0 IF (DO_JVS(2974)) & -! JVS(2974) = Jac_FULL(267,150) - JVS(2974) = 0.33*B(971)+0.33*B(973) +! JVS(2974) = Jac_FULL(308,301) + JVS(2974) = 0 IF (DO_JVS(2975)) & -! JVS(2975) = Jac_FULL(267,153) - JVS(2975) = 0.25*B(1059) +! JVS(2975) = Jac_FULL(308,303) + JVS(2975) = 0 IF (DO_JVS(2976)) & -! JVS(2976) = Jac_FULL(267,154) - JVS(2976) = 0.14*B(632) +! JVS(2976) = Jac_FULL(308,304) + JVS(2976) = 0 IF (DO_JVS(2977)) & -! JVS(2977) = Jac_FULL(267,155) - JVS(2977) = 0.14*B(634) +! JVS(2977) = Jac_FULL(308,305) + JVS(2977) = 0 IF (DO_JVS(2978)) & -! JVS(2978) = Jac_FULL(267,156) - JVS(2978) = B(1017)+0.571*B(1478) +! JVS(2978) = Jac_FULL(308,308) + JVS(2978) = -B(1291)-B(1293)-B(1295)-B(1297)-B(1299) IF (DO_JVS(2979)) & -! JVS(2979) = Jac_FULL(267,157) - JVS(2979) = 0.25*B(780) +! JVS(2979) = Jac_FULL(308,309) + JVS(2979) = 0 IF (DO_JVS(2980)) & -! JVS(2980) = Jac_FULL(267,159) - JVS(2980) = 0.26*B(1183)+0.5*B(1185) +! JVS(2980) = Jac_FULL(308,310) + JVS(2980) = 0 IF (DO_JVS(2981)) & -! JVS(2981) = Jac_FULL(267,162) - JVS(2981) = 0.33*B(782) +! JVS(2981) = Jac_FULL(308,311) + JVS(2981) = 0 IF (DO_JVS(2982)) & -! JVS(2982) = Jac_FULL(267,163) - JVS(2982) = 0.75*B(1015)+0.875*B(1479) +! JVS(2982) = Jac_FULL(308,324) + JVS(2982) = 0 IF (DO_JVS(2983)) & -! JVS(2983) = Jac_FULL(267,165) - JVS(2983) = 0.054*B(786) +! JVS(2983) = Jac_FULL(308,328) + JVS(2983) = -B(1300) IF (DO_JVS(2984)) & -! JVS(2984) = Jac_FULL(267,169) - JVS(2984) = 2*B(1023)+B(1475) +! JVS(2984) = Jac_FULL(308,335) + JVS(2984) = -B(1296) IF (DO_JVS(2985)) & -! JVS(2985) = Jac_FULL(267,170) - JVS(2985) = 0.14*B(642) +! JVS(2985) = Jac_FULL(308,337) + JVS(2985) = -B(1292) IF (DO_JVS(2986)) & -! JVS(2986) = Jac_FULL(267,171) - JVS(2986) = 0.036*B(784) +! JVS(2986) = Jac_FULL(308,340) + JVS(2986) = 0 IF (DO_JVS(2987)) & -! JVS(2987) = Jac_FULL(267,172) - JVS(2987) = B(1083)+B(1472) +! JVS(2987) = Jac_FULL(308,341) + JVS(2987) = 0 IF (DO_JVS(2988)) & -! JVS(2988) = Jac_FULL(267,174) - JVS(2988) = 1.5*B(768) +! JVS(2988) = Jac_FULL(308,345) + JVS(2988) = B(1243) IF (DO_JVS(2989)) & -! JVS(2989) = Jac_FULL(267,175) - JVS(2989) = 0.25*B(1001)+B(1484) +! JVS(2989) = Jac_FULL(308,346) + JVS(2989) = -B(1294) IF (DO_JVS(2990)) & -! JVS(2990) = Jac_FULL(267,182) - JVS(2990) = 0 +! JVS(2990) = Jac_FULL(308,351) + JVS(2990) = -B(1298) IF (DO_JVS(2991)) & -! JVS(2991) = Jac_FULL(267,185) - JVS(2991) = B(1021)+0.5*B(1476) +! JVS(2991) = Jac_FULL(309,135) + JVS(2991) = B(1089)+B(1091) IF (DO_JVS(2992)) & -! JVS(2992) = Jac_FULL(267,186) - JVS(2992) = 0.45*B(758)+0.888*B(1489) +! JVS(2992) = Jac_FULL(309,144) + JVS(2992) = 0.14*B(1007)+B(1782) IF (DO_JVS(2993)) & -! JVS(2993) = Jac_FULL(267,188) - JVS(2993) = 0.37*B(760)+0.818*B(1490) +! JVS(2993) = Jac_FULL(309,168) + JVS(2993) = B(1785) IF (DO_JVS(2994)) & -! JVS(2994) = Jac_FULL(267,189) - JVS(2994) = 0 +! JVS(2994) = Jac_FULL(309,192) + JVS(2994) = 0.165*B(1025)+B(1776) IF (DO_JVS(2995)) & -! JVS(2995) = Jac_FULL(267,192) - JVS(2995) = 0.638*B(766) +! JVS(2995) = Jac_FULL(309,199) + JVS(2995) = 0 IF (DO_JVS(2996)) & -! JVS(2996) = Jac_FULL(267,194) - JVS(2996) = 0.52*B(835)+0.8*B(839)+2*B(841) +! JVS(2996) = Jac_FULL(309,222) + JVS(2996) = 0.097*B(1787) IF (DO_JVS(2997)) & -! JVS(2997) = Jac_FULL(267,195) - JVS(2997) = -B(606) +! JVS(2997) = Jac_FULL(309,231) + JVS(2997) = 0.035*B(1003) IF (DO_JVS(2998)) & -! JVS(2998) = Jac_FULL(267,200) - JVS(2998) = B(1483) +! JVS(2998) = Jac_FULL(309,276) + JVS(2998) = 0.416*B(947) IF (DO_JVS(2999)) & -! JVS(2999) = Jac_FULL(267,204) - JVS(2999) = 0 +! JVS(2999) = Jac_FULL(309,299) + JVS(2999) = 0.005*B(1791) IF (DO_JVS(3000)) & -! JVS(3000) = Jac_FULL(267,205) - JVS(3000) = 0.507*B(1033)+B(1039)+0.86*B(1040) +! JVS(3000) = Jac_FULL(309,303) + JVS(3000) = 0 IF (DO_JVS(3001)) & -! JVS(3001) = Jac_FULL(267,206) - JVS(3001) = B(1063)+B(1502)+0.163*B(1503) +! JVS(3001) = Jac_FULL(309,304) + JVS(3001) = 0.063*B(961)+B(967)+2*B(970)+B(971)+B(981)+B(995) IF (DO_JVS(3002)) & -! JVS(3002) = Jac_FULL(267,207) - JVS(3002) = 0.325*B(1035)+0.65*B(1044) +! JVS(3002) = Jac_FULL(309,305) + JVS(3002) = B(972) IF (DO_JVS(3003)) & -! JVS(3003) = Jac_FULL(267,208) - JVS(3003) = B(1459) +! JVS(3003) = Jac_FULL(309,309) + JVS(3003) = -B(1228)-B(1230)-B(1232)-B(1234)-B(1674) IF (DO_JVS(3004)) & -! JVS(3004) = Jac_FULL(267,210) - JVS(3004) = 0.15*B(1175)+0.15*B(1177)+B(1515) +! 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) IF (DO_JVS(3005)) & -! JVS(3005) = Jac_FULL(267,213) - JVS(3005) = B(1071)+B(1510) +! JVS(3005) = Jac_FULL(309,311) + JVS(3005) = 0.019*B(1155) IF (DO_JVS(3006)) & -! JVS(3006) = Jac_FULL(267,214) - JVS(3006) = 0.6*B(868)+0.55*B(1496) +! JVS(3006) = Jac_FULL(309,324) + JVS(3006) = 0.097*B(1162) IF (DO_JVS(3007)) & -! JVS(3007) = Jac_FULL(267,220) - JVS(3007) = 0.6*B(866)+0.55*B(1493) +! JVS(3007) = Jac_FULL(309,328) + JVS(3007) = B(982)+0.028*B(1160) IF (DO_JVS(3008)) & -! JVS(3008) = Jac_FULL(267,221) - JVS(3008) = B(1379) +! JVS(3008) = Jac_FULL(309,337) + JVS(3008) = 0.063*B(962)+B(1092)+0.048*B(1150) IF (DO_JVS(3009)) & -! JVS(3009) = Jac_FULL(267,222) +! JVS(3009) = Jac_FULL(309,340) JVS(3009) = 0 IF (DO_JVS(3010)) & -! JVS(3010) = Jac_FULL(267,223) - JVS(3010) = 2*B(219)+2*B(223)+2*B(1382)+2*B(1383)+B(1384) +! JVS(3010) = Jac_FULL(309,341) + JVS(3010) = 0.416*B(948)-B(1233) IF (DO_JVS(3011)) & -! JVS(3011) = Jac_FULL(267,224) - JVS(3011) = 0.407*B(704)+0.6*B(710)+0.9*B(712) +! JVS(3011) = Jac_FULL(309,345) + JVS(3011) = 0.035*B(1004)+0.14*B(1008)+0.165*B(1026)-B(1229)-B(1231) IF (DO_JVS(3012)) & -! JVS(3012) = Jac_FULL(267,228) - JVS(3012) = B(820)+0.13*B(821)+0.2*B(823) +! JVS(3012) = Jac_FULL(309,346) + JVS(3012) = B(996)+B(1090)+0.096*B(1170) IF (DO_JVS(3013)) & -! JVS(3013) = Jac_FULL(267,229) - JVS(3013) = B(828)+0.2*B(829)+0.13*B(833) +! JVS(3013) = Jac_FULL(309,351) + JVS(3013) = 0.097*B(1166)-B(1235) IF (DO_JVS(3014)) & -! JVS(3014) = Jac_FULL(267,230) - JVS(3014) = 0 +! JVS(3014) = Jac_FULL(310,222) + JVS(3014) = B(1190) IF (DO_JVS(3015)) & -! JVS(3015) = Jac_FULL(267,231) - JVS(3015) = 0.77*B(997)+0.77*B(1480) +! JVS(3015) = Jac_FULL(310,276) + JVS(3015) = 0.465*B(1147) IF (DO_JVS(3016)) & -! JVS(3016) = Jac_FULL(267,232) - JVS(3016) = 0 +! 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) IF (DO_JVS(3017)) & -! JVS(3017) = Jac_FULL(267,233) - JVS(3017) = B(221)+B(225)+B(1385) +! JVS(3017) = Jac_FULL(310,311) + JVS(3017) = -B(1155) IF (DO_JVS(3018)) & -! JVS(3018) = Jac_FULL(267,234) - JVS(3018) = -B(592) +! JVS(3018) = Jac_FULL(310,324) + JVS(3018) = -B(1162) IF (DO_JVS(3019)) & -! JVS(3019) = Jac_FULL(267,236) - JVS(3019) = 0.505*B(213)+B(215)+B(1381) +! JVS(3019) = Jac_FULL(310,328) + JVS(3019) = -B(1160) IF (DO_JVS(3020)) & -! JVS(3020) = Jac_FULL(267,238) - JVS(3020) = 0 +! JVS(3020) = Jac_FULL(310,337) + JVS(3020) = -B(1150) IF (DO_JVS(3021)) & -! JVS(3021) = Jac_FULL(267,240) - JVS(3021) = 0.539*B(969)+0.839*B(1500) +! JVS(3021) = Jac_FULL(310,340) + JVS(3021) = 0 IF (DO_JVS(3022)) & -! JVS(3022) = Jac_FULL(267,241) +! JVS(3022) = Jac_FULL(310,341) JVS(3022) = 0 IF (DO_JVS(3023)) & -! JVS(3023) = Jac_FULL(267,242) - JVS(3023) = 0 +! JVS(3023) = Jac_FULL(310,345) + JVS(3023) = B(1191) IF (DO_JVS(3024)) & -! JVS(3024) = Jac_FULL(267,243) - JVS(3024) = 0 +! JVS(3024) = Jac_FULL(310,346) + JVS(3024) = -B(1170)-B(1172) IF (DO_JVS(3025)) & -! JVS(3025) = Jac_FULL(267,244) - JVS(3025) = 0.9*B(725)+B(731)+B(732)+0.5*B(740)+0.55*B(756) +! JVS(3025) = Jac_FULL(310,351) + JVS(3025) = 0.465*B(1148)-B(1166) IF (DO_JVS(3026)) & -! JVS(3026) = Jac_FULL(267,245) - JVS(3026) = 0.6*B(723)+B(730)+B(733)+0.5*B(736)+0.55*B(748) +! JVS(3026) = Jac_FULL(311,186) + JVS(3026) = B(1192) IF (DO_JVS(3027)) & -! JVS(3027) = Jac_FULL(267,246) - JVS(3027) = 0 +! JVS(3027) = Jac_FULL(311,276) + JVS(3027) = 0.535*B(1147) IF (DO_JVS(3028)) & -! JVS(3028) = Jac_FULL(267,247) - JVS(3028) = 0 +! JVS(3028) = Jac_FULL(311,310) + JVS(3028) = -B(1154) IF (DO_JVS(3029)) & -! JVS(3029) = Jac_FULL(267,248) - JVS(3029) = 0.28*B(983)+B(1386)+B(1387) +! 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) IF (DO_JVS(3030)) & -! JVS(3030) = Jac_FULL(267,249) - JVS(3030) = 0 +! JVS(3030) = Jac_FULL(311,324) + JVS(3030) = -B(1164) IF (DO_JVS(3031)) & -! JVS(3031) = Jac_FULL(267,250) - JVS(3031) = 0.5*B(229) +! JVS(3031) = Jac_FULL(311,328) + JVS(3031) = -B(1158) IF (DO_JVS(3032)) & -! JVS(3032) = Jac_FULL(267,251) - JVS(3032) = 0.036*B(985)+0.12*B(989)+0.68*B(991)+B(1389) +! JVS(3032) = Jac_FULL(311,337) + JVS(3032) = -B(1152) IF (DO_JVS(3033)) & -! JVS(3033) = Jac_FULL(267,252) +! JVS(3033) = Jac_FULL(311,340) JVS(3033) = 0 IF (DO_JVS(3034)) & -! JVS(3034) = Jac_FULL(267,253) - JVS(3034) = 0.56*B(211) +! JVS(3034) = Jac_FULL(311,341) + JVS(3034) = 0 IF (DO_JVS(3035)) & -! JVS(3035) = Jac_FULL(267,254) - JVS(3035) = 0 +! JVS(3035) = Jac_FULL(311,345) + JVS(3035) = B(1193) IF (DO_JVS(3036)) & -! JVS(3036) = Jac_FULL(267,256) - JVS(3036) = 0 +! JVS(3036) = Jac_FULL(311,346) + JVS(3036) = -B(1174)-B(1176) IF (DO_JVS(3037)) & -! JVS(3037) = Jac_FULL(267,257) - JVS(3037) = 0 +! JVS(3037) = Jac_FULL(311,351) + JVS(3037) = 0.535*B(1148)-B(1168) IF (DO_JVS(3038)) & -! JVS(3038) = Jac_FULL(267,258) - JVS(3038) = 0 +! JVS(3038) = Jac_FULL(312,109) + JVS(3038) = B(1358) IF (DO_JVS(3039)) & -! JVS(3039) = Jac_FULL(267,259) - JVS(3039) = B(1377) +! JVS(3039) = Jac_FULL(312,191) + JVS(3039) = 0.1*B(733) IF (DO_JVS(3040)) & -! JVS(3040) = Jac_FULL(267,261) - JVS(3040) = 0 +! JVS(3040) = Jac_FULL(312,220) + JVS(3040) = 0.5*B(1342) IF (DO_JVS(3041)) & -! JVS(3041) = Jac_FULL(267,263) - JVS(3041) = B(63)+B(93)+B(314)+B(386)+B(466)+B(1365)+B(1366) +! JVS(3041) = Jac_FULL(312,233) + JVS(3041) = 0 IF (DO_JVS(3042)) & -! JVS(3042) = Jac_FULL(267,264) - JVS(3042) = 0.05*B(95)+0.88*B(1374)+B(1375) +! JVS(3042) = Jac_FULL(312,255) + JVS(3042) = 0.33*B(808) IF (DO_JVS(3043)) & -! JVS(3043) = Jac_FULL(267,266) - JVS(3043) = 0.5*B(737)+0.5*B(741) +! JVS(3043) = Jac_FULL(312,276) + JVS(3043) = 0.58*B(947) IF (DO_JVS(3044)) & -! JVS(3044) = Jac_FULL(267,267) - JVS(3044) = -B(45)-B(593)-B(607) +! JVS(3044) = Jac_FULL(312,281) + JVS(3044) = 0 IF (DO_JVS(3045)) & -! JVS(3045) = Jac_FULL(267,272) - JVS(3045) = 0 +! JVS(3045) = Jac_FULL(312,290) + JVS(3045) = 0.22*B(287) IF (DO_JVS(3046)) & -! JVS(3046) = Jac_FULL(267,273) - JVS(3046) = B(315) +! JVS(3046) = Jac_FULL(312,309) + JVS(3046) = 0.88*B(1232) IF (DO_JVS(3047)) & -! JVS(3047) = Jac_FULL(267,276) +! JVS(3047) = Jac_FULL(312,310) JVS(3047) = 0 IF (DO_JVS(3048)) & -! JVS(3048) = Jac_FULL(267,278) +! JVS(3048) = Jac_FULL(312,311) JVS(3048) = 0 IF (DO_JVS(3049)) & -! JVS(3049) = Jac_FULL(267,279) - JVS(3049) = 0.55*B(749)+0.55*B(757)+0.2*B(824)+0.2*B(830)+0.8*B(840)+0.33*B(972)+0.86*B(1041)+0.65*B(1045) +! JVS(3049) = Jac_FULL(312,312) + JVS(3049) = -B(691)-B(693)-B(695)-B(697)-B(699)-B(701)-B(703) IF (DO_JVS(3050)) & -! JVS(3050) = Jac_FULL(267,281) - JVS(3050) = B(94)+2*B(224)+B(226)+0.68*B(992)+0.15*B(1178) +! JVS(3050) = Jac_FULL(312,314) + JVS(3050) = 0.5*B(1226) IF (DO_JVS(3051)) & -! JVS(3051) = Jac_FULL(267,282) - JVS(3051) = 0.56*B(212)+0.14*B(633)+0.14*B(635)+0.14*B(643)+0.407*B(705)+0.28*B(984)+0.12*B(990)+0.5*B(1186)+0.5& - &*B(1191) +! JVS(3051) = Jac_FULL(312,324) + JVS(3051) = 0 IF (DO_JVS(3052)) & -! JVS(3052) = Jac_FULL(267,284) - JVS(3052) = 0.13*B(822)+0.13*B(834)+0.52*B(836)+0.33*B(974)+0.507*B(1034)+0.325*B(1036) +! JVS(3052) = Jac_FULL(312,328) + JVS(3052) = 0 IF (DO_JVS(3053)) & -! JVS(3053) = Jac_FULL(267,285) - JVS(3053) = 0 +! JVS(3053) = Jac_FULL(312,329) + JVS(3053) = -B(692) IF (DO_JVS(3054)) & -! JVS(3054) = Jac_FULL(267,286) - JVS(3054) = -B(46)+B(64)+0.05*B(96)+0.505*B(214)+B(216)+2*B(220)+B(222)+0.5*B(230)+0.6*B(711)+0.9*B(713)+0.45*B(759)& - &+0.37*B(761)+0.42*B(763)+0.23*B(765)+0.638*B(767)+1.5*B(769)+B(771)+0.25*B(781)+0.33*B(783)+0.036*B(785)& - &+0.054*B(787)+0.6*B(867)+0.6*B(869)+0.539*B(970)+0.036*B(986)+0.77*B(998)+0.25*B(1002)+0.75*B(1016)+B(1018)& - &+B(1022)+2*B(1024)+0.84*B(1026)+0.488*B(1038)+0.25*B(1060)+B(1062)+B(1064)+0.888*B(1066)+B(1072)+B(1084)& - &+0.364*B(1098)+0.2*B(1117)+0.27*B(1119)+0.3*B(1121)+0.15*B(1176)+0.26*B(1184)+0.25*B(1189) +! JVS(3054) = Jac_FULL(312,335) + JVS(3054) = -B(696) IF (DO_JVS(3055)) & -! JVS(3055) = Jac_FULL(267,288) - JVS(3055) = B(359)+B(387) +! JVS(3055) = Jac_FULL(312,336) + JVS(3055) = -B(698)-B(700) IF (DO_JVS(3056)) & -! JVS(3056) = Jac_FULL(267,290) - JVS(3056) = B(467)+B(507)+B(509)+B(511) +! JVS(3056) = Jac_FULL(312,337) + JVS(3056) = 0 IF (DO_JVS(3057)) & -! JVS(3057) = Jac_FULL(267,291) +! JVS(3057) = Jac_FULL(312,340) JVS(3057) = 0 IF (DO_JVS(3058)) & -! JVS(3058) = Jac_FULL(268,143) - JVS(3058) = B(574) +! 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) IF (DO_JVS(3059)) & -! JVS(3059) = Jac_FULL(268,203) +! JVS(3059) = Jac_FULL(312,342) JVS(3059) = 0 IF (DO_JVS(3060)) & -! JVS(3060) = Jac_FULL(268,227) - JVS(3060) = B(580) +! JVS(3060) = Jac_FULL(312,345) + JVS(3060) = 0 IF (DO_JVS(3061)) & -! JVS(3061) = Jac_FULL(268,268) - JVS(3061) = -B(578)-B(1292)-B(1293)-B(1325)-B(1327)-B(1329)-B(1331)-B(1436) +! JVS(3061) = Jac_FULL(312,346) + JVS(3061) = -B(694) IF (DO_JVS(3062)) & -! JVS(3062) = Jac_FULL(268,269) - JVS(3062) = 0 +! JVS(3062) = Jac_FULL(312,348) + JVS(3062) = -B(704) IF (DO_JVS(3063)) & -! JVS(3063) = Jac_FULL(268,270) - JVS(3063) = B(1307) +! JVS(3063) = Jac_FULL(312,351) + JVS(3063) = 0 IF (DO_JVS(3064)) & -! JVS(3064) = Jac_FULL(268,274) - JVS(3064) = 0 +! JVS(3064) = Jac_FULL(313,244) + JVS(3064) = 0.7*B(61) IF (DO_JVS(3065)) & -! JVS(3065) = Jac_FULL(268,277) - JVS(3065) = -B(1328) +! JVS(3065) = Jac_FULL(313,271) + JVS(3065) = 0 IF (DO_JVS(3066)) & -! JVS(3066) = Jac_FULL(268,278) - JVS(3066) = B(1308) +! JVS(3066) = Jac_FULL(313,276) + JVS(3066) = 0 IF (DO_JVS(3067)) & -! JVS(3067) = Jac_FULL(268,279) +! JVS(3067) = Jac_FULL(313,287) JVS(3067) = 0 IF (DO_JVS(3068)) & -! JVS(3068) = Jac_FULL(268,280) - JVS(3068) = -B(1330) +! JVS(3068) = Jac_FULL(313,295) + JVS(3068) = B(212)+B(417)+B(633) IF (DO_JVS(3069)) & -! JVS(3069) = Jac_FULL(268,281) +! JVS(3069) = Jac_FULL(313,300) JVS(3069) = 0 IF (DO_JVS(3070)) & -! JVS(3070) = Jac_FULL(268,282) +! JVS(3070) = Jac_FULL(313,301) JVS(3070) = 0 IF (DO_JVS(3071)) & -! JVS(3071) = Jac_FULL(268,283) - JVS(3071) = -B(1326) +! JVS(3071) = Jac_FULL(313,303) + JVS(3071) = 0 IF (DO_JVS(3072)) & -! JVS(3072) = Jac_FULL(268,284) - JVS(3072) = B(581) +! JVS(3072) = Jac_FULL(313,304) + JVS(3072) = 0 IF (DO_JVS(3073)) & -! JVS(3073) = Jac_FULL(268,285) +! JVS(3073) = Jac_FULL(313,305) JVS(3073) = 0 IF (DO_JVS(3074)) & -! JVS(3074) = Jac_FULL(268,286) - JVS(3074) = B(575)-B(579) +! JVS(3074) = Jac_FULL(313,309) + JVS(3074) = 0 IF (DO_JVS(3075)) & -! JVS(3075) = Jac_FULL(268,287) - JVS(3075) = -B(1332) +! JVS(3075) = Jac_FULL(313,310) + JVS(3075) = 0 IF (DO_JVS(3076)) & -! JVS(3076) = Jac_FULL(268,291) +! JVS(3076) = Jac_FULL(313,311) JVS(3076) = 0 IF (DO_JVS(3077)) & -! JVS(3077) = Jac_FULL(269,1) - JVS(3077) = 2*B(1444) +! JVS(3077) = Jac_FULL(313,313) + JVS(3077) = -B(183)-B(226)-B(261)-B(353) IF (DO_JVS(3078)) & -! JVS(3078) = Jac_FULL(269,2) - JVS(3078) = B(1446) +! JVS(3078) = Jac_FULL(313,318) + JVS(3078) = 0 IF (DO_JVS(3079)) & -! JVS(3079) = Jac_FULL(269,3) - JVS(3079) = B(1445) +! JVS(3079) = Jac_FULL(313,319) + JVS(3079) = 0 IF (DO_JVS(3080)) & -! JVS(3080) = Jac_FULL(269,44) - JVS(3080) = 0.996*B(585)+B(1442) +! JVS(3080) = Jac_FULL(313,320) + JVS(3080) = 0 IF (DO_JVS(3081)) & -! JVS(3081) = Jac_FULL(269,46) - JVS(3081) = B(586)+B(1443) +! JVS(3081) = Jac_FULL(313,323) + JVS(3081) = 0 IF (DO_JVS(3082)) & -! JVS(3082) = Jac_FULL(269,60) - JVS(3082) = B(1439) +! JVS(3082) = Jac_FULL(313,324) + JVS(3082) = -B(354) IF (DO_JVS(3083)) & -! JVS(3083) = Jac_FULL(269,69) - JVS(3083) = B(576) +! JVS(3083) = Jac_FULL(313,328) + JVS(3083) = -B(262) IF (DO_JVS(3084)) & -! JVS(3084) = Jac_FULL(269,73) - JVS(3084) = B(1449) +! JVS(3084) = Jac_FULL(313,335) + JVS(3084) = 0 IF (DO_JVS(3085)) & -! JVS(3085) = Jac_FULL(269,92) - JVS(3085) = B(1438) +! JVS(3085) = Jac_FULL(313,337) + JVS(3085) = -B(227) IF (DO_JVS(3086)) & -! JVS(3086) = Jac_FULL(269,99) - JVS(3086) = B(1450) +! JVS(3086) = Jac_FULL(313,340) + JVS(3086) = B(634) IF (DO_JVS(3087)) & -! JVS(3087) = Jac_FULL(269,143) - JVS(3087) = B(551)+B(574)+2*B(1435) +! JVS(3087) = Jac_FULL(313,341) + JVS(3087) = 0 IF (DO_JVS(3088)) & -! JVS(3088) = Jac_FULL(269,203) - JVS(3088) = B(549)+B(1440) +! JVS(3088) = Jac_FULL(313,342) + JVS(3088) = B(418) IF (DO_JVS(3089)) & -! JVS(3089) = Jac_FULL(269,227) - JVS(3089) = 0.2*B(560)+0.809*B(568)+B(582)+0.4*B(584)+B(1437) +! JVS(3089) = Jac_FULL(313,345) + JVS(3089) = 0.7*B(62)+B(213) IF (DO_JVS(3090)) & -! JVS(3090) = Jac_FULL(269,268) - JVS(3090) = B(1436) +! JVS(3090) = Jac_FULL(313,346) + JVS(3090) = -B(184) IF (DO_JVS(3091)) & -! JVS(3091) = Jac_FULL(269,269) - JVS(3091) = -B(544)-B(547)-B(556)-B(558)-B(570)-B(572) +! JVS(3091) = Jac_FULL(313,351) + JVS(3091) = 0 IF (DO_JVS(3092)) & -! JVS(3092) = Jac_FULL(269,270) - JVS(3092) = -B(557)+B(1441) +! JVS(3092) = Jac_FULL(314,82) + JVS(3092) = 0.04*B(1383) IF (DO_JVS(3093)) & -! JVS(3093) = Jac_FULL(269,274) - JVS(3093) = -B(559)+0.2*B(561) +! JVS(3093) = Jac_FULL(314,101) + JVS(3093) = 0.04*B(1385) IF (DO_JVS(3094)) & -! JVS(3094) = Jac_FULL(269,277) - JVS(3094) = 0 +! JVS(3094) = Jac_FULL(314,133) + JVS(3094) = B(1085)+B(1087) IF (DO_JVS(3095)) & -! JVS(3095) = Jac_FULL(269,278) - JVS(3095) = 0 +! JVS(3095) = Jac_FULL(314,150) + JVS(3095) = 0.23*B(1005)+B(1781) IF (DO_JVS(3096)) & -! JVS(3096) = Jac_FULL(269,279) - JVS(3096) = -B(545)+B(583) +! JVS(3096) = Jac_FULL(314,175) + JVS(3096) = B(1784) IF (DO_JVS(3097)) & -! JVS(3097) = Jac_FULL(269,280) - JVS(3097) = 0 +! JVS(3097) = Jac_FULL(314,187) + JVS(3097) = 0.125*B(1023)+B(1775) IF (DO_JVS(3098)) & -! JVS(3098) = Jac_FULL(269,281) - JVS(3098) = B(552) +! JVS(3098) = Jac_FULL(314,209) + JVS(3098) = 0 IF (DO_JVS(3099)) & -! JVS(3099) = Jac_FULL(269,282) - JVS(3099) = -B(571) +! JVS(3099) = Jac_FULL(314,219) + JVS(3099) = 0.15*B(729) IF (DO_JVS(3100)) & -! JVS(3100) = Jac_FULL(269,283) - JVS(3100) = 0 +! JVS(3100) = Jac_FULL(314,222) + JVS(3100) = 0.903*B(1787) IF (DO_JVS(3101)) & -! JVS(3101) = Jac_FULL(269,284) - JVS(3101) = -B(573) +! JVS(3101) = Jac_FULL(314,229) + JVS(3101) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1816) IF (DO_JVS(3102)) & -! JVS(3102) = Jac_FULL(269,285) - JVS(3102) = 0.809*B(569) +! JVS(3102) = Jac_FULL(314,230) + JVS(3102) = 0.035*B(1001) IF (DO_JVS(3103)) & -! JVS(3103) = Jac_FULL(269,286) - JVS(3103) = B(575)+B(577)+B(587) +! JVS(3103) = Jac_FULL(314,262) + JVS(3103) = 0.5*B(871)+0.5*B(873)+0.25*B(875) IF (DO_JVS(3104)) & -! JVS(3104) = Jac_FULL(269,287) - JVS(3104) = 0 +! JVS(3104) = Jac_FULL(314,276) + JVS(3104) = 0.177*B(947) IF (DO_JVS(3105)) & -! JVS(3105) = Jac_FULL(269,291) - JVS(3105) = -B(548) +! JVS(3105) = Jac_FULL(314,291) + JVS(3105) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891) IF (DO_JVS(3106)) & -! JVS(3106) = Jac_FULL(270,143) - JVS(3106) = B(551) +! JVS(3106) = Jac_FULL(314,299) + JVS(3106) = 0.05*B(1791) IF (DO_JVS(3107)) & -! JVS(3107) = Jac_FULL(270,203) +! JVS(3107) = Jac_FULL(314,303) JVS(3107) = 0 IF (DO_JVS(3108)) & -! JVS(3108) = Jac_FULL(270,227) - JVS(3108) = B(553) +! JVS(3108) = Jac_FULL(314,304) + JVS(3108) = B(971) IF (DO_JVS(3109)) & -! JVS(3109) = Jac_FULL(270,268) - JVS(3109) = 0 +! JVS(3109) = Jac_FULL(314,305) + JVS(3109) = 0.063*B(957)+B(965)+2*B(969)+B(972)+B(977)+B(987) IF (DO_JVS(3110)) & -! JVS(3110) = Jac_FULL(270,269) - JVS(3110) = -B(556) +! 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) IF (DO_JVS(3111)) & -! JVS(3111) = Jac_FULL(270,270) - JVS(3111) = -B(555)-B(557)-B(1305)-B(1306)-B(1307)-B(1317)-B(1319)-B(1321)-B(1323)-B(1441) +! JVS(3111) = Jac_FULL(314,311) + JVS(3111) = 0.544*B(1155) IF (DO_JVS(3112)) & -! JVS(3112) = Jac_FULL(270,274) - JVS(3112) = 0 +! JVS(3112) = Jac_FULL(314,314) + JVS(3112) = -B(1224)-B(1226)-B(1671)-B(1672)-B(1673) IF (DO_JVS(3113)) & -! JVS(3113) = Jac_FULL(270,277) - JVS(3113) = -B(1320) +! JVS(3113) = Jac_FULL(314,324) + JVS(3113) = 0.45*B(892)+0.903*B(1162) IF (DO_JVS(3114)) & -! JVS(3114) = Jac_FULL(270,278) - JVS(3114) = -B(1308) +! JVS(3114) = Jac_FULL(314,328) + JVS(3114) = 0.45*B(890)+B(978)+0.583*B(1160) IF (DO_JVS(3115)) & -! JVS(3115) = Jac_FULL(270,279) - JVS(3115) = 0 +! JVS(3115) = Jac_FULL(314,337) + JVS(3115) = 0.063*B(958)+B(1088)+0.479*B(1150) IF (DO_JVS(3116)) & -! JVS(3116) = Jac_FULL(270,280) - JVS(3116) = -B(1322) +! JVS(3116) = Jac_FULL(314,340) + JVS(3116) = 0 IF (DO_JVS(3117)) & -! JVS(3117) = Jac_FULL(270,281) - JVS(3117) = B(552) +! 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) IF (DO_JVS(3118)) & -! JVS(3118) = Jac_FULL(270,282) - JVS(3118) = 0 +! 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) IF (DO_JVS(3119)) & -! JVS(3119) = Jac_FULL(270,283) - JVS(3119) = -B(1318) +! JVS(3119) = Jac_FULL(314,346) + JVS(3119) = 0.45*B(856)+B(988)+B(1086)+0.904*B(1170) IF (DO_JVS(3120)) & -! JVS(3120) = Jac_FULL(270,284) - JVS(3120) = 0 +! JVS(3120) = Jac_FULL(314,351) + JVS(3120) = 0.45*B(858)+0.15*B(864)+0.25*B(876)+0.903*B(1166) IF (DO_JVS(3121)) & -! JVS(3121) = Jac_FULL(270,285) - JVS(3121) = 0 +! JVS(3121) = Jac_FULL(315,118) + JVS(3121) = 0.36*B(326) IF (DO_JVS(3122)) & -! JVS(3122) = Jac_FULL(270,286) - JVS(3122) = 0 +! JVS(3122) = Jac_FULL(315,251) + JVS(3122) = 0.34*B(1685) IF (DO_JVS(3123)) & -! JVS(3123) = Jac_FULL(270,287) - JVS(3123) = -B(1324) +! JVS(3123) = Jac_FULL(315,279) + JVS(3123) = 0.34*B(1688) IF (DO_JVS(3124)) & -! JVS(3124) = Jac_FULL(270,291) - JVS(3124) = B(554) +! JVS(3124) = Jac_FULL(315,292) + JVS(3124) = 0.415*B(1665) IF (DO_JVS(3125)) & -! JVS(3125) = Jac_FULL(271,75) - JVS(3125) = B(438) +! JVS(3125) = Jac_FULL(315,296) + JVS(3125) = 0 IF (DO_JVS(3126)) & -! JVS(3126) = Jac_FULL(271,111) - JVS(3126) = B(436) +! JVS(3126) = Jac_FULL(315,298) + JVS(3126) = 0.49*B(1662) IF (DO_JVS(3127)) & -! JVS(3127) = Jac_FULL(271,197) - JVS(3127) = B(428) +! JVS(3127) = Jac_FULL(315,300) + JVS(3127) = 0.34*B(171)+0.16*B(257)+0.29*B(351) IF (DO_JVS(3128)) & -! JVS(3128) = Jac_FULL(271,227) +! JVS(3128) = Jac_FULL(315,314) JVS(3128) = 0 IF (DO_JVS(3129)) & -! JVS(3129) = Jac_FULL(271,235) - JVS(3129) = B(444) +! JVS(3129) = Jac_FULL(315,315) + JVS(3129) = -B(112)-B(249)-2*B(274)-B(277)-B(367)-B(621) IF (DO_JVS(3130)) & -! JVS(3130) = Jac_FULL(271,262) - JVS(3130) = B(446)+B(1231) +! JVS(3130) = Jac_FULL(315,318) + JVS(3130) = 0 IF (DO_JVS(3131)) & -! JVS(3131) = Jac_FULL(271,266) - JVS(3131) = 0 +! JVS(3131) = Jac_FULL(315,319) + JVS(3131) = 0.34*B(177)+0.16*B(253)+0.29*B(349) IF (DO_JVS(3132)) & -! JVS(3132) = Jac_FULL(271,267) +! JVS(3132) = Jac_FULL(315,320) JVS(3132) = 0 IF (DO_JVS(3133)) & -! JVS(3133) = Jac_FULL(271,268) +! JVS(3133) = Jac_FULL(315,321) JVS(3133) = 0 IF (DO_JVS(3134)) & -! JVS(3134) = Jac_FULL(271,269) - JVS(3134) = 0 +! JVS(3134) = Jac_FULL(315,322) + JVS(3134) = 0.49*B(208)+0.22*B(283)+0.49*B(373)+0.49*B(375) IF (DO_JVS(3135)) & -! JVS(3135) = Jac_FULL(271,270) +! JVS(3135) = Jac_FULL(315,323) JVS(3135) = 0 IF (DO_JVS(3136)) & -! JVS(3136) = Jac_FULL(271,271) - JVS(3136) = -B(442)-B(1257)-B(1259)-B(1261)-B(1263)-B(1265)-B(1419) +! JVS(3136) = Jac_FULL(315,324) + JVS(3136) = 0.29*B(350)+0.29*B(352)-B(368)+0.49*B(374) IF (DO_JVS(3137)) & -! JVS(3137) = Jac_FULL(271,272) - JVS(3137) = 0 +! JVS(3137) = Jac_FULL(315,328) + JVS(3137) = -B(250)+0.16*B(254)+0.16*B(258)+0.49*B(376) IF (DO_JVS(3138)) & -! JVS(3138) = Jac_FULL(271,273) +! JVS(3138) = Jac_FULL(315,335) JVS(3138) = 0 IF (DO_JVS(3139)) & -! JVS(3139) = Jac_FULL(271,274) - JVS(3139) = 0 +! JVS(3139) = Jac_FULL(315,337) + JVS(3139) = -B(278)+0.22*B(284) IF (DO_JVS(3140)) & -! JVS(3140) = Jac_FULL(271,275) - JVS(3140) = -B(1258) +! JVS(3140) = Jac_FULL(315,340) + JVS(3140) = -B(622) IF (DO_JVS(3141)) & -! JVS(3141) = Jac_FULL(271,276) - JVS(3141) = -B(1266) +! JVS(3141) = Jac_FULL(315,341) + JVS(3141) = 0 IF (DO_JVS(3142)) & -! JVS(3142) = Jac_FULL(271,277) +! JVS(3142) = Jac_FULL(315,342) JVS(3142) = 0 IF (DO_JVS(3143)) & -! JVS(3143) = Jac_FULL(271,278) - JVS(3143) = B(1232) +! JVS(3143) = Jac_FULL(315,345) + JVS(3143) = 0.36*B(327) IF (DO_JVS(3144)) & -! JVS(3144) = Jac_FULL(271,279) - JVS(3144) = 0 +! JVS(3144) = Jac_FULL(315,346) + JVS(3144) = -B(113)+0.34*B(172)+0.34*B(178)+0.49*B(209) IF (DO_JVS(3145)) & -! JVS(3145) = Jac_FULL(271,280) - JVS(3145) = -B(1262) +! JVS(3145) = Jac_FULL(315,351) + JVS(3145) = 0 IF (DO_JVS(3146)) & -! JVS(3146) = Jac_FULL(271,281) - JVS(3146) = 0 +! JVS(3146) = Jac_FULL(316,148) + JVS(3146) = B(403) IF (DO_JVS(3147)) & -! JVS(3147) = Jac_FULL(271,282) - JVS(3147) = 0 +! JVS(3147) = Jac_FULL(316,218) + JVS(3147) = B(1509) IF (DO_JVS(3148)) & -! JVS(3148) = Jac_FULL(271,283) - JVS(3148) = 0 +! 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) IF (DO_JVS(3149)) & -! JVS(3149) = Jac_FULL(271,284) - JVS(3149) = B(480) +! JVS(3149) = Jac_FULL(316,335) + JVS(3149) = 0 IF (DO_JVS(3150)) & -! JVS(3150) = Jac_FULL(271,285) - JVS(3150) = B(481) +! JVS(3150) = Jac_FULL(316,336) + JVS(3150) = B(1510) IF (DO_JVS(3151)) & -! JVS(3151) = Jac_FULL(271,286) - JVS(3151) = B(429)+B(437)+B(439)-B(443)+B(445)+B(447) +! JVS(3151) = Jac_FULL(316,337) + JVS(3151) = B(391) IF (DO_JVS(3152)) & -! JVS(3152) = Jac_FULL(271,287) - JVS(3152) = -B(1264) +! JVS(3152) = Jac_FULL(316,339) + JVS(3152) = -B(1552) IF (DO_JVS(3153)) & -! JVS(3153) = Jac_FULL(271,288) - JVS(3153) = 0 +! JVS(3153) = Jac_FULL(316,341) + JVS(3153) = B(1563)+B(1565)+B(1567) IF (DO_JVS(3154)) & -! JVS(3154) = Jac_FULL(271,289) - JVS(3154) = -B(1260) +! JVS(3154) = Jac_FULL(316,342) + JVS(3154) = 0 IF (DO_JVS(3155)) & -! JVS(3155) = Jac_FULL(271,290) - JVS(3155) = 0 +! JVS(3155) = Jac_FULL(316,343) + JVS(3155) = -B(406) IF (DO_JVS(3156)) & -! JVS(3156) = Jac_FULL(271,291) - JVS(3156) = 0 +! JVS(3156) = Jac_FULL(316,344) + JVS(3156) = -B(1556) IF (DO_JVS(3157)) & -! JVS(3157) = Jac_FULL(272,47) - JVS(3157) = -B(412) +! JVS(3157) = Jac_FULL(316,345) + JVS(3157) = B(404) IF (DO_JVS(3158)) & -! JVS(3158) = Jac_FULL(272,48) - JVS(3158) = -B(426) +! JVS(3158) = Jac_FULL(316,347) + JVS(3158) = B(392) IF (DO_JVS(3159)) & -! JVS(3159) = Jac_FULL(272,52) - JVS(3159) = -B(394) +! JVS(3159) = Jac_FULL(316,348) + JVS(3159) = -B(1562) IF (DO_JVS(3160)) & -! JVS(3160) = Jac_FULL(272,53) - JVS(3160) = -B(406) +! JVS(3160) = Jac_FULL(316,349) + JVS(3160) = -B(1558)+B(1566) IF (DO_JVS(3161)) & -! JVS(3161) = Jac_FULL(272,54) - JVS(3161) = -B(408) +! JVS(3161) = Jac_FULL(316,350) + JVS(3161) = -B(1560)+B(1568) IF (DO_JVS(3162)) & -! JVS(3162) = Jac_FULL(272,55) - JVS(3162) = -B(420) +! JVS(3162) = Jac_FULL(316,352) + JVS(3162) = -B(1550)+B(1564) IF (DO_JVS(3163)) & -! JVS(3163) = Jac_FULL(272,56) - JVS(3163) = -B(422) +! JVS(3163) = Jac_FULL(316,353) + JVS(3163) = -B(1554) IF (DO_JVS(3164)) & -! JVS(3164) = Jac_FULL(272,57) - JVS(3164) = -B(424) +! 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) IF (DO_JVS(3165)) & -! JVS(3165) = Jac_FULL(272,59) - JVS(3165) = -B(410) +! JVS(3165) = Jac_FULL(317,335) + JVS(3165) = B(583) IF (DO_JVS(3166)) & -! JVS(3166) = Jac_FULL(272,61) - JVS(3166) = -B(342)+B(1454) +! JVS(3166) = Jac_FULL(317,336) + JVS(3166) = -B(1514) IF (DO_JVS(3167)) & -! JVS(3167) = Jac_FULL(272,65) - JVS(3167) = 0 +! JVS(3167) = Jac_FULL(317,338) + JVS(3167) = B(584) IF (DO_JVS(3168)) & -! JVS(3168) = Jac_FULL(272,71) - JVS(3168) = -B(400) +! JVS(3168) = Jac_FULL(317,339) + JVS(3168) = -B(1516) IF (DO_JVS(3169)) & -! JVS(3169) = Jac_FULL(272,77) - JVS(3169) = -B(402) +! JVS(3169) = Jac_FULL(317,340) + JVS(3169) = -B(604) IF (DO_JVS(3170)) & -! JVS(3170) = Jac_FULL(272,81) - JVS(3170) = -B(418) +! JVS(3170) = Jac_FULL(317,343) + JVS(3170) = -B(602) IF (DO_JVS(3171)) & -! JVS(3171) = Jac_FULL(272,82) - JVS(3171) = -B(414) +! JVS(3171) = Jac_FULL(317,344) + JVS(3171) = -B(1526) IF (DO_JVS(3172)) & -! JVS(3172) = Jac_FULL(272,83) - JVS(3172) = -B(416) +! JVS(3172) = Jac_FULL(317,345) + JVS(3172) = -B(546) IF (DO_JVS(3173)) & -! JVS(3173) = Jac_FULL(272,84) - JVS(3173) = -B(404) +! JVS(3173) = Jac_FULL(317,349) + JVS(3173) = -B(1520) IF (DO_JVS(3174)) & -! JVS(3174) = Jac_FULL(272,100) - JVS(3174) = -B(398) +! JVS(3174) = Jac_FULL(317,350) + JVS(3174) = -B(1522) IF (DO_JVS(3175)) & -! JVS(3175) = Jac_FULL(272,149) - JVS(3175) = -B(396) +! JVS(3175) = Jac_FULL(317,352) + JVS(3175) = -B(1518) IF (DO_JVS(3176)) & -! JVS(3176) = Jac_FULL(272,190) - JVS(3176) = -B(344) +! JVS(3176) = Jac_FULL(317,353) + JVS(3176) = -B(1524) IF (DO_JVS(3177)) & -! JVS(3177) = Jac_FULL(272,197) - JVS(3177) = -B(392) +! JVS(3177) = Jac_FULL(318,251) + JVS(3177) = B(195) IF (DO_JVS(3178)) & -! JVS(3178) = Jac_FULL(272,235) - JVS(3178) = 0 +! JVS(3178) = Jac_FULL(318,269) + JVS(3178) = 0.5*B(1457)+0.5*B(1459) IF (DO_JVS(3179)) & -! JVS(3179) = Jac_FULL(272,253) - JVS(3179) = 0 +! JVS(3179) = Jac_FULL(318,318) + JVS(3179) = -B(181)-B(220)-B(255)-B(359) IF (DO_JVS(3180)) & -! JVS(3180) = Jac_FULL(272,261) +! JVS(3180) = Jac_FULL(318,319) JVS(3180) = 0 IF (DO_JVS(3181)) & -! JVS(3181) = Jac_FULL(272,262) +! JVS(3181) = Jac_FULL(318,320) JVS(3181) = 0 IF (DO_JVS(3182)) & -! JVS(3182) = Jac_FULL(272,264) - JVS(3182) = 0 +! JVS(3182) = Jac_FULL(318,324) + JVS(3182) = -B(360) IF (DO_JVS(3183)) & -! JVS(3183) = Jac_FULL(272,266) - JVS(3183) = 0 +! JVS(3183) = Jac_FULL(318,328) + JVS(3183) = -B(256) IF (DO_JVS(3184)) & -! JVS(3184) = Jac_FULL(272,267) +! JVS(3184) = Jac_FULL(318,335) JVS(3184) = 0 IF (DO_JVS(3185)) & -! JVS(3185) = Jac_FULL(272,271) - JVS(3185) = 0 +! JVS(3185) = Jac_FULL(318,337) + JVS(3185) = -B(221) IF (DO_JVS(3186)) & -! JVS(3186) = Jac_FULL(272,272) - JVS(3186) = -B(334)-B(336)-B(338)-B(340)-B(343)-B(345)-B(356)-B(388)-B(390)-B(393)-B(395)-B(397)-B(399)-B(401)-B(403)& - &-B(405)-B(407)-B(409)-B(411)-B(413)-B(415)-B(417)-B(419)-B(421)-B(423)-B(425)-B(427) +! JVS(3186) = Jac_FULL(318,341) + JVS(3186) = 0 IF (DO_JVS(3187)) & -! JVS(3187) = Jac_FULL(272,273) - JVS(3187) = 0 +! JVS(3187) = Jac_FULL(318,345) + JVS(3187) = B(196)+0.5*B(1458) IF (DO_JVS(3188)) & -! JVS(3188) = Jac_FULL(272,274) - JVS(3188) = 0 +! JVS(3188) = Jac_FULL(318,346) + JVS(3188) = -B(182) IF (DO_JVS(3189)) & -! JVS(3189) = Jac_FULL(272,275) - JVS(3189) = -B(389) +! JVS(3189) = Jac_FULL(318,351) + JVS(3189) = 0.5*B(1460) IF (DO_JVS(3190)) & -! JVS(3190) = Jac_FULL(272,276) - JVS(3190) = 0 +! JVS(3190) = Jac_FULL(319,97) + JVS(3190) = 0.21*B(332) IF (DO_JVS(3191)) & -! JVS(3191) = Jac_FULL(272,277) - JVS(3191) = 0 +! JVS(3191) = Jac_FULL(319,130) + JVS(3191) = 0.8*B(849)+0.8*B(1815) IF (DO_JVS(3192)) & -! JVS(3192) = Jac_FULL(272,278) - JVS(3192) = -B(335) +! JVS(3192) = Jac_FULL(319,142) + JVS(3192) = B(169) IF (DO_JVS(3193)) & -! JVS(3193) = Jac_FULL(272,279) - JVS(3193) = 0 +! JVS(3193) = Jac_FULL(319,161) + JVS(3193) = 0.6*B(1813) IF (DO_JVS(3194)) & -! JVS(3194) = Jac_FULL(272,280) - JVS(3194) = 0 +! JVS(3194) = Jac_FULL(319,162) + JVS(3194) = 0.3*B(798) IF (DO_JVS(3195)) & -! JVS(3195) = Jac_FULL(272,281) - JVS(3195) = 0 +! JVS(3195) = Jac_FULL(319,169) + JVS(3195) = 0.8*B(1814) IF (DO_JVS(3196)) & -! JVS(3196) = Jac_FULL(272,282) - JVS(3196) = -B(357)+B(1360) +! JVS(3196) = Jac_FULL(319,178) + JVS(3196) = 0.25*B(128) IF (DO_JVS(3197)) & -! JVS(3197) = Jac_FULL(272,283) - JVS(3197) = 0 +! JVS(3197) = Jac_FULL(319,249) + JVS(3197) = 0.15*B(259)+0.27*B(361) IF (DO_JVS(3198)) & -! JVS(3198) = Jac_FULL(272,284) +! JVS(3198) = Jac_FULL(319,272) JVS(3198) = 0 IF (DO_JVS(3199)) & -! JVS(3199) = Jac_FULL(272,285) - JVS(3199) = 0 +! JVS(3199) = Jac_FULL(319,273) + JVS(3199) = 0.6*B(790)+0.4*B(792)+0.6*B(794) IF (DO_JVS(3200)) & -! JVS(3200) = Jac_FULL(272,286) - JVS(3200) = 0 +! 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) IF (DO_JVS(3201)) & -! JVS(3201) = Jac_FULL(272,287) +! JVS(3201) = Jac_FULL(319,275) JVS(3201) = 0 IF (DO_JVS(3202)) & -! JVS(3202) = Jac_FULL(272,288) +! JVS(3202) = Jac_FULL(319,279) JVS(3202) = 0 IF (DO_JVS(3203)) & -! JVS(3203) = Jac_FULL(272,289) - JVS(3203) = -B(391) +! JVS(3203) = Jac_FULL(319,281) + JVS(3203) = 0 IF (DO_JVS(3204)) & -! JVS(3204) = Jac_FULL(272,290) +! JVS(3204) = Jac_FULL(319,300) JVS(3204) = 0 IF (DO_JVS(3205)) & -! JVS(3205) = Jac_FULL(272,291) - JVS(3205) = 0 +! JVS(3205) = Jac_FULL(319,318) + JVS(3205) = 0.15*B(255)+0.27*B(359) IF (DO_JVS(3206)) & -! JVS(3206) = Jac_FULL(273,2) - JVS(3206) = B(1446) +! JVS(3206) = Jac_FULL(319,319) + JVS(3206) = -B(177)-B(179)-B(218)-B(253)-B(349) IF (DO_JVS(3207)) & -! JVS(3207) = Jac_FULL(273,47) - JVS(3207) = B(1431) +! JVS(3207) = Jac_FULL(319,320) + JVS(3207) = 0 IF (DO_JVS(3208)) & -! JVS(3208) = Jac_FULL(273,48) - JVS(3208) = 0.75*B(426)+2*B(1433) +! JVS(3208) = Jac_FULL(319,324) + JVS(3208) = -B(350)+0.27*B(360)+0.27*B(362)+0.8*B(900) IF (DO_JVS(3209)) & -! JVS(3209) = Jac_FULL(273,51) - JVS(3209) = B(1405) +! 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) IF (DO_JVS(3210)) & -! JVS(3210) = Jac_FULL(273,59) - JVS(3210) = 0.34*B(410)+B(1432) +! JVS(3210) = Jac_FULL(319,335) + JVS(3210) = 0 IF (DO_JVS(3211)) & -! JVS(3211) = Jac_FULL(273,71) - JVS(3211) = 2*B(330)+0.95*B(400)+2*B(1407) +! JVS(3211) = Jac_FULL(319,337) + JVS(3211) = -B(219)+0.352*B(839) IF (DO_JVS(3212)) & -! JVS(3212) = Jac_FULL(273,73) - JVS(3212) = B(1449) +! JVS(3212) = Jac_FULL(319,340) + JVS(3212) = 0 IF (DO_JVS(3213)) & -! JVS(3213) = Jac_FULL(273,77) - JVS(3213) = 3*B(328)+1.4*B(402)+3*B(1406) +! JVS(3213) = Jac_FULL(319,341) + JVS(3213) = 0 IF (DO_JVS(3214)) & -! JVS(3214) = Jac_FULL(273,100) - JVS(3214) = B(332)+0.56*B(398)+B(1408) +! JVS(3214) = Jac_FULL(319,345) + JVS(3214) = B(170)+0.21*B(333)+0.3*B(799)+0.8*B(850) IF (DO_JVS(3215)) & -! JVS(3215) = Jac_FULL(273,124) - JVS(3215) = -B(322) +! JVS(3215) = Jac_FULL(319,346) + JVS(3215) = 0.25*B(129)-B(178)-B(180)+0.6*B(791)+0.8*B(841) IF (DO_JVS(3216)) & -! JVS(3216) = Jac_FULL(273,128) - JVS(3216) = B(304)+2*B(1400) +! JVS(3216) = Jac_FULL(319,351) + JVS(3216) = 0.6*B(795)+0.8*B(846) IF (DO_JVS(3217)) & -! JVS(3217) = Jac_FULL(273,135) - JVS(3217) = B(1411) +! JVS(3217) = Jac_FULL(320,219) + JVS(3217) = 0.3*B(729) IF (DO_JVS(3218)) & -! JVS(3218) = Jac_FULL(273,161) - JVS(3218) = -B(320) +! JVS(3218) = Jac_FULL(320,292) + JVS(3218) = B(234)+B(251) IF (DO_JVS(3219)) & -! JVS(3219) = Jac_FULL(273,176) - JVS(3219) = -B(302)+B(1403) +! JVS(3219) = Jac_FULL(320,300) + JVS(3219) = 0 IF (DO_JVS(3220)) & -! JVS(3220) = Jac_FULL(273,203) +! JVS(3220) = Jac_FULL(320,318) JVS(3220) = 0 IF (DO_JVS(3221)) & -! JVS(3221) = Jac_FULL(273,221) - JVS(3221) = -B(318) +! JVS(3221) = Jac_FULL(320,319) + JVS(3221) = 0 IF (DO_JVS(3222)) & -! JVS(3222) = Jac_FULL(273,227) - JVS(3222) = B(560) +! JVS(3222) = Jac_FULL(320,320) + JVS(3222) = -B(185)-B(228)-B(236)-B(263)-B(355) IF (DO_JVS(3223)) & -! JVS(3223) = Jac_FULL(273,235) - JVS(3223) = 0 +! JVS(3223) = Jac_FULL(320,324) + JVS(3223) = -B(356) IF (DO_JVS(3224)) & -! JVS(3224) = Jac_FULL(273,238) - JVS(3224) = 0 +! JVS(3224) = Jac_FULL(320,328) + JVS(3224) = -B(264) IF (DO_JVS(3225)) & -! JVS(3225) = Jac_FULL(273,253) - JVS(3225) = -B(542) +! JVS(3225) = Jac_FULL(320,335) + JVS(3225) = 0 IF (DO_JVS(3226)) & -! JVS(3226) = Jac_FULL(273,254) - JVS(3226) = 0 +! JVS(3226) = Jac_FULL(320,337) + JVS(3226) = -B(229) IF (DO_JVS(3227)) & -! JVS(3227) = Jac_FULL(273,256) +! JVS(3227) = Jac_FULL(320,340) JVS(3227) = 0 IF (DO_JVS(3228)) & -! JVS(3228) = Jac_FULL(273,257) - JVS(3228) = 0 +! JVS(3228) = Jac_FULL(320,341) + JVS(3228) = 0.3*B(730) IF (DO_JVS(3229)) & -! JVS(3229) = Jac_FULL(273,258) - JVS(3229) = 0 +! JVS(3229) = Jac_FULL(320,345) + JVS(3229) = B(235) IF (DO_JVS(3230)) & -! JVS(3230) = Jac_FULL(273,259) - JVS(3230) = 0 +! JVS(3230) = Jac_FULL(320,346) + JVS(3230) = -B(186)-B(237) IF (DO_JVS(3231)) & -! JVS(3231) = Jac_FULL(273,260) - JVS(3231) = B(1402) +! JVS(3231) = Jac_FULL(320,351) + JVS(3231) = B(252) IF (DO_JVS(3232)) & -! JVS(3232) = Jac_FULL(273,261) - JVS(3232) = 0 +! JVS(3232) = Jac_FULL(321,99) + JVS(3232) = 0.36*B(328) IF (DO_JVS(3233)) & -! JVS(3233) = Jac_FULL(273,262) - JVS(3233) = 0 +! JVS(3233) = Jac_FULL(321,141) + JVS(3233) = B(116)+B(421)+B(631) IF (DO_JVS(3234)) & -! JVS(3234) = Jac_FULL(273,263) - JVS(3234) = -B(314) +! JVS(3234) = Jac_FULL(321,251) + JVS(3234) = 0.05*B(1685) IF (DO_JVS(3235)) & -! JVS(3235) = Jac_FULL(273,264) - JVS(3235) = -B(316) +! JVS(3235) = Jac_FULL(321,279) + JVS(3235) = 0.05*B(1688) IF (DO_JVS(3236)) & -! JVS(3236) = Jac_FULL(273,266) - JVS(3236) = 0 +! JVS(3236) = Jac_FULL(321,292) + JVS(3236) = 0.06*B(1665) IF (DO_JVS(3237)) & -! JVS(3237) = Jac_FULL(273,267) - JVS(3237) = 0 +! JVS(3237) = Jac_FULL(321,298) + JVS(3237) = 0.07*B(1662) IF (DO_JVS(3238)) & -! JVS(3238) = Jac_FULL(273,268) - JVS(3238) = 0 +! JVS(3238) = Jac_FULL(321,300) + JVS(3238) = 0.05*B(171)+0.03*B(257)+0.045*B(351) IF (DO_JVS(3239)) & -! JVS(3239) = Jac_FULL(273,269) - JVS(3239) = B(558) +! JVS(3239) = Jac_FULL(321,314) + JVS(3239) = 0 IF (DO_JVS(3240)) & -! JVS(3240) = Jac_FULL(273,270) +! JVS(3240) = Jac_FULL(321,318) JVS(3240) = 0 IF (DO_JVS(3241)) & -! JVS(3241) = Jac_FULL(273,271) - JVS(3241) = 0 +! JVS(3241) = Jac_FULL(321,319) + JVS(3241) = 0.05*B(177)+0.03*B(253)+0.045*B(349) IF (DO_JVS(3242)) & -! JVS(3242) = Jac_FULL(273,272) - JVS(3242) = 0.6*B(390)+0.56*B(399)+0.95*B(401)+1.4*B(403)+0.34*B(411)+0.75*B(427) +! JVS(3242) = Jac_FULL(321,320) + JVS(3242) = 0 IF (DO_JVS(3243)) & -! JVS(3243) = Jac_FULL(273,273) - JVS(3243) = -B(290)-B(294)-B(303)-B(312)-B(315)-B(317)-B(319)-B(321)-B(323)-B(324)-B(543) +! JVS(3243) = Jac_FULL(321,321) + JVS(3243) = -B(118)-B(120)-B(214)-B(279)-B(371) IF (DO_JVS(3244)) & -! JVS(3244) = Jac_FULL(273,274) - JVS(3244) = 2*B(298)+B(300)+B(310)+B(384)+B(496)+B(498)+B(559)+B(561)+B(1401) +! JVS(3244) = Jac_FULL(321,322) + JVS(3244) = 0.07*B(208)+0.03*B(283)+0.07*B(373)+0.07*B(375) IF (DO_JVS(3245)) & -! JVS(3245) = Jac_FULL(273,275) +! JVS(3245) = Jac_FULL(321,323) JVS(3245) = 0 IF (DO_JVS(3246)) & -! JVS(3246) = Jac_FULL(273,276) - JVS(3246) = 0 +! JVS(3246) = Jac_FULL(321,324) + JVS(3246) = 0.045*B(350)+0.045*B(352)-B(372)+0.07*B(374) IF (DO_JVS(3247)) & -! JVS(3247) = Jac_FULL(273,277) - JVS(3247) = 0 +! JVS(3247) = Jac_FULL(321,328) + JVS(3247) = -B(215)+0.03*B(254)+0.03*B(258)+0.07*B(376) IF (DO_JVS(3248)) & -! JVS(3248) = Jac_FULL(273,278) +! JVS(3248) = Jac_FULL(321,335) JVS(3248) = 0 IF (DO_JVS(3249)) & -! JVS(3249) = Jac_FULL(273,279) - JVS(3249) = B(301) +! JVS(3249) = Jac_FULL(321,337) + JVS(3249) = -B(280)+0.03*B(284) IF (DO_JVS(3250)) & -! JVS(3250) = Jac_FULL(273,280) - JVS(3250) = 0 +! JVS(3250) = Jac_FULL(321,340) + JVS(3250) = B(632) IF (DO_JVS(3251)) & -! JVS(3251) = Jac_FULL(273,281) - JVS(3251) = -B(313) +! JVS(3251) = Jac_FULL(321,341) + JVS(3251) = 0 IF (DO_JVS(3252)) & -! JVS(3252) = Jac_FULL(273,282) - JVS(3252) = -B(291) +! JVS(3252) = Jac_FULL(321,342) + JVS(3252) = B(422) IF (DO_JVS(3253)) & -! JVS(3253) = Jac_FULL(273,283) - JVS(3253) = 0 +! JVS(3253) = Jac_FULL(321,345) + JVS(3253) = B(117)+0.36*B(329) IF (DO_JVS(3254)) & -! JVS(3254) = Jac_FULL(273,284) - JVS(3254) = -B(295) +! JVS(3254) = Jac_FULL(321,346) + JVS(3254) = -B(119)-B(121)+0.05*B(172)+0.05*B(178)+0.07*B(209) IF (DO_JVS(3255)) & -! JVS(3255) = Jac_FULL(273,285) - JVS(3255) = B(497)+B(499) +! JVS(3255) = Jac_FULL(321,351) + JVS(3255) = 0 IF (DO_JVS(3256)) & -! JVS(3256) = Jac_FULL(273,286) - JVS(3256) = B(296)+B(305)+B(311)+3*B(329)+2*B(331)+B(333) +! JVS(3256) = Jac_FULL(322,124) + JVS(3256) = B(205)+0.7*B(1806) IF (DO_JVS(3257)) & -! JVS(3257) = Jac_FULL(273,287) - JVS(3257) = 0 +! JVS(3257) = Jac_FULL(322,155) + JVS(3257) = B(336) IF (DO_JVS(3258)) & -! JVS(3258) = Jac_FULL(273,288) - JVS(3258) = B(308)+B(385) +! JVS(3258) = Jac_FULL(322,160) + JVS(3258) = 0.5*B(770)+B(1811) IF (DO_JVS(3259)) & -! JVS(3259) = Jac_FULL(273,289) - JVS(3259) = B(297)+B(309)+0.6*B(391) +! JVS(3259) = Jac_FULL(322,176) + JVS(3259) = 0.4*B(772) IF (DO_JVS(3260)) & -! JVS(3260) = Jac_FULL(273,290) - JVS(3260) = 0 +! JVS(3260) = Jac_FULL(322,196) + JVS(3260) = 0.326*B(1686) IF (DO_JVS(3261)) & -! JVS(3261) = Jac_FULL(273,291) - JVS(3261) = -B(325) +! JVS(3261) = Jac_FULL(322,201) + JVS(3261) = 0.33*B(1470) IF (DO_JVS(3262)) & -! JVS(3262) = Jac_FULL(274,47) - JVS(3262) = 0.45*B(412) +! JVS(3262) = Jac_FULL(322,221) + JVS(3262) = 0.33*B(1465) IF (DO_JVS(3263)) & -! JVS(3263) = Jac_FULL(274,48) - JVS(3263) = 0.75*B(426) +! JVS(3263) = Jac_FULL(322,240) + JVS(3263) = B(1405)+0.44*B(1407) IF (DO_JVS(3264)) & -! JVS(3264) = Jac_FULL(274,59) - JVS(3264) = 0.31*B(410) +! JVS(3264) = Jac_FULL(322,246) + JVS(3264) = 0 IF (DO_JVS(3265)) & -! JVS(3265) = Jac_FULL(274,71) - JVS(3265) = 0.95*B(400) +! JVS(3265) = Jac_FULL(322,269) + JVS(3265) = 0 IF (DO_JVS(3266)) & -! JVS(3266) = Jac_FULL(274,77) - JVS(3266) = 0.7*B(402) +! JVS(3266) = Jac_FULL(322,277) + JVS(3266) = 0 IF (DO_JVS(3267)) & -! JVS(3267) = Jac_FULL(274,100) - JVS(3267) = 0.44*B(398) +! JVS(3267) = Jac_FULL(322,278) + JVS(3267) = 0.84*B(764)+B(766)+0.75*B(768) IF (DO_JVS(3268)) & -! JVS(3268) = Jac_FULL(274,176) - JVS(3268) = B(1404) +! JVS(3268) = Jac_FULL(322,292) + JVS(3268) = 0.15*B(1665) IF (DO_JVS(3269)) & -! JVS(3269) = Jac_FULL(274,227) - JVS(3269) = -B(560) +! JVS(3269) = Jac_FULL(322,298) + JVS(3269) = B(201)+B(210) IF (DO_JVS(3270)) & -! JVS(3270) = Jac_FULL(274,260) - JVS(3270) = B(306) +! JVS(3270) = Jac_FULL(322,300) + JVS(3270) = 0 IF (DO_JVS(3271)) & -! JVS(3271) = Jac_FULL(274,268) - JVS(3271) = 0 +! JVS(3271) = Jac_FULL(322,314) + JVS(3271) = B(1673) IF (DO_JVS(3272)) & -! JVS(3272) = Jac_FULL(274,269) - JVS(3272) = -B(558) +! JVS(3272) = Jac_FULL(322,318) + JVS(3272) = 0 IF (DO_JVS(3273)) & -! JVS(3273) = Jac_FULL(274,270) +! JVS(3273) = Jac_FULL(322,319) JVS(3273) = 0 IF (DO_JVS(3274)) & -! JVS(3274) = Jac_FULL(274,272) - JVS(3274) = 0.2*B(390)+0.44*B(399)+0.95*B(401)+0.7*B(403)+0.31*B(411)+0.45*B(413)+0.75*B(427) +! JVS(3274) = Jac_FULL(322,320) + JVS(3274) = 0 IF (DO_JVS(3275)) & -! JVS(3275) = Jac_FULL(274,273) - JVS(3275) = B(290)+B(312) +! JVS(3275) = Jac_FULL(322,321) + JVS(3275) = 0 IF (DO_JVS(3276)) & -! JVS(3276) = Jac_FULL(274,274) - JVS(3276) = -B(292)-2*B(298)-2*B(299)-B(300)-B(310)-B(326)-B(384)-B(496)-B(498)-B(500)-B(559)-B(561)-B(1401) +! JVS(3276) = Jac_FULL(322,322) + JVS(3276) = -B(203)-B(208)-B(283)-B(373)-B(375) IF (DO_JVS(3277)) & -! JVS(3277) = Jac_FULL(274,275) +! JVS(3277) = Jac_FULL(322,323) JVS(3277) = 0 IF (DO_JVS(3278)) & -! JVS(3278) = Jac_FULL(274,276) - JVS(3278) = 0 +! JVS(3278) = Jac_FULL(322,324) + JVS(3278) = -B(374) IF (DO_JVS(3279)) & -! JVS(3279) = Jac_FULL(274,277) - JVS(3279) = 0 +! JVS(3279) = Jac_FULL(322,328) + JVS(3279) = -B(376)+0.75*B(769) IF (DO_JVS(3280)) & -! JVS(3280) = Jac_FULL(274,278) - JVS(3280) = 0 +! JVS(3280) = Jac_FULL(322,335) + JVS(3280) = -B(204) IF (DO_JVS(3281)) & -! JVS(3281) = Jac_FULL(274,279) - JVS(3281) = -B(301) +! JVS(3281) = Jac_FULL(322,337) + JVS(3281) = -B(284)+0.44*B(1408) IF (DO_JVS(3282)) & -! JVS(3282) = Jac_FULL(274,280) +! JVS(3282) = Jac_FULL(322,340) JVS(3282) = 0 IF (DO_JVS(3283)) & -! JVS(3283) = Jac_FULL(274,281) - JVS(3283) = B(313) +! JVS(3283) = Jac_FULL(322,341) + JVS(3283) = 0 IF (DO_JVS(3284)) & -! JVS(3284) = Jac_FULL(274,282) - JVS(3284) = B(291) +! JVS(3284) = Jac_FULL(322,342) + JVS(3284) = 0 IF (DO_JVS(3285)) & -! JVS(3285) = Jac_FULL(274,283) - JVS(3285) = 0 +! 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) IF (DO_JVS(3286)) & -! JVS(3286) = Jac_FULL(274,284) - JVS(3286) = -B(293) +! JVS(3286) = Jac_FULL(322,346) + JVS(3286) = -B(209)+0.84*B(765)+B(1406) IF (DO_JVS(3287)) & -! JVS(3287) = Jac_FULL(274,285) - JVS(3287) = -B(497)-B(499)-B(501) +! JVS(3287) = Jac_FULL(322,351) + JVS(3287) = B(211)+B(767) IF (DO_JVS(3288)) & -! JVS(3288) = Jac_FULL(274,286) - JVS(3288) = -B(311) +! JVS(3288) = Jac_FULL(323,100) + JVS(3288) = 0.209*B(330) IF (DO_JVS(3289)) & -! JVS(3289) = Jac_FULL(274,287) - JVS(3289) = 0 +! JVS(3289) = Jac_FULL(323,141) + JVS(3289) = B(114)+B(629) IF (DO_JVS(3290)) & -! JVS(3290) = Jac_FULL(274,288) - JVS(3290) = B(307)-B(385) +! JVS(3290) = Jac_FULL(323,251) + JVS(3290) = 0.19*B(1685) IF (DO_JVS(3291)) & -! JVS(3291) = Jac_FULL(274,289) - JVS(3291) = 0.2*B(391) +! JVS(3291) = Jac_FULL(323,279) + JVS(3291) = 0.19*B(1688) IF (DO_JVS(3292)) & -! JVS(3292) = Jac_FULL(274,290) - JVS(3292) = 0 +! JVS(3292) = Jac_FULL(323,292) + JVS(3292) = 0.23*B(1665) IF (DO_JVS(3293)) & -! JVS(3293) = Jac_FULL(274,291) - JVS(3293) = -B(327) +! JVS(3293) = Jac_FULL(323,298) + JVS(3293) = 0.27*B(1662) IF (DO_JVS(3294)) & -! JVS(3294) = Jac_FULL(275,72) - JVS(3294) = B(508) +! JVS(3294) = Jac_FULL(323,300) + JVS(3294) = 0.19*B(171)+0.09*B(257)+0.162*B(351) IF (DO_JVS(3295)) & -! JVS(3295) = Jac_FULL(275,78) - JVS(3295) = B(510) +! JVS(3295) = Jac_FULL(323,314) + JVS(3295) = 0 IF (DO_JVS(3296)) & -! JVS(3296) = Jac_FULL(275,114) - JVS(3296) = B(538) +! JVS(3296) = Jac_FULL(323,318) + JVS(3296) = 0 IF (DO_JVS(3297)) & -! JVS(3297) = Jac_FULL(275,124) - JVS(3297) = B(530)+B(532) +! JVS(3297) = Jac_FULL(323,319) + JVS(3297) = 0.19*B(177)+0.09*B(253)+0.162*B(349) IF (DO_JVS(3298)) & -! JVS(3298) = Jac_FULL(275,133) - JVS(3298) = B(526) +! JVS(3298) = Jac_FULL(323,320) + JVS(3298) = 0 IF (DO_JVS(3299)) & -! JVS(3299) = Jac_FULL(275,137) - JVS(3299) = B(516) +! JVS(3299) = Jac_FULL(323,321) + JVS(3299) = 0 IF (DO_JVS(3300)) & -! JVS(3300) = Jac_FULL(275,138) - JVS(3300) = -B(11) +! JVS(3300) = Jac_FULL(323,322) + JVS(3300) = 0.27*B(208)+0.12*B(283)+0.27*B(373)+0.27*B(375) IF (DO_JVS(3301)) & -! JVS(3301) = Jac_FULL(275,147) - JVS(3301) = -B(4) +! JVS(3301) = Jac_FULL(323,323) + JVS(3301) = -B(187)-B(189)-B(230)-B(265)-B(357) IF (DO_JVS(3302)) & -! JVS(3302) = Jac_FULL(275,149) - JVS(3302) = 2*B(506) +! JVS(3302) = Jac_FULL(323,324) + JVS(3302) = 0.162*B(350)+0.162*B(352)-B(358)+0.27*B(374) IF (DO_JVS(3303)) & -! JVS(3303) = Jac_FULL(275,161) - JVS(3303) = B(518) +! JVS(3303) = Jac_FULL(323,328) + JVS(3303) = 0.09*B(254)+0.09*B(258)-B(266)+0.27*B(376) IF (DO_JVS(3304)) & -! JVS(3304) = Jac_FULL(275,173) - JVS(3304) = -B(1216) +! JVS(3304) = Jac_FULL(323,335) + JVS(3304) = 0 IF (DO_JVS(3305)) & -! JVS(3305) = Jac_FULL(275,176) - JVS(3305) = -B(1229) +! JVS(3305) = Jac_FULL(323,337) + JVS(3305) = -B(231)+0.12*B(284) IF (DO_JVS(3306)) & -! JVS(3306) = Jac_FULL(275,190) - JVS(3306) = B(464) +! JVS(3306) = Jac_FULL(323,340) + JVS(3306) = B(630) IF (DO_JVS(3307)) & -! JVS(3307) = Jac_FULL(275,211) - JVS(3307) = B(512) +! JVS(3307) = Jac_FULL(323,341) + JVS(3307) = 0 IF (DO_JVS(3308)) & -! JVS(3308) = Jac_FULL(275,212) - JVS(3308) = B(472) +! JVS(3308) = Jac_FULL(323,342) + JVS(3308) = 0 IF (DO_JVS(3309)) & -! JVS(3309) = Jac_FULL(275,217) - JVS(3309) = 0 +! JVS(3309) = Jac_FULL(323,345) + JVS(3309) = B(115)+0.209*B(331) IF (DO_JVS(3310)) & -! JVS(3310) = Jac_FULL(275,218) - JVS(3310) = B(524) +! JVS(3310) = Jac_FULL(323,346) + JVS(3310) = 0.19*B(172)+0.19*B(178)-B(188)-B(190)+0.27*B(209) IF (DO_JVS(3311)) & -! JVS(3311) = Jac_FULL(275,219) - JVS(3311) = B(528) +! JVS(3311) = Jac_FULL(323,351) + JVS(3311) = 0 IF (DO_JVS(3312)) & -! JVS(3312) = Jac_FULL(275,221) - JVS(3312) = B(534) +! JVS(3312) = Jac_FULL(324,92) + JVS(3312) = 0.78*B(342) IF (DO_JVS(3313)) & -! JVS(3313) = Jac_FULL(275,224) - JVS(3313) = B(536) +! JVS(3313) = Jac_FULL(324,107) + JVS(3313) = 0.3*B(1304) IF (DO_JVS(3314)) & -! JVS(3314) = Jac_FULL(275,225) - JVS(3314) = 0 +! JVS(3314) = Jac_FULL(324,115) + JVS(3314) = B(1320)+B(1763) IF (DO_JVS(3315)) & -! JVS(3315) = Jac_FULL(275,234) - JVS(3315) = 0 +! JVS(3315) = Jac_FULL(324,122) + JVS(3315) = B(1412) IF (DO_JVS(3316)) & -! JVS(3316) = Jac_FULL(275,235) - JVS(3316) = -B(1249) +! JVS(3316) = Jac_FULL(324,130) + JVS(3316) = B(849)+B(1815) IF (DO_JVS(3317)) & -! JVS(3317) = Jac_FULL(275,236) - JVS(3317) = 0 +! JVS(3317) = Jac_FULL(324,139) + JVS(3317) = B(101)+0.7*B(1658) IF (DO_JVS(3318)) & -! JVS(3318) = Jac_FULL(275,237) - JVS(3318) = 0 +! JVS(3318) = Jac_FULL(324,146) + JVS(3318) = B(1661) IF (DO_JVS(3319)) & -! JVS(3319) = Jac_FULL(275,238) - JVS(3319) = 0 +! JVS(3319) = Jac_FULL(324,159) + JVS(3319) = 0.087*B(1280)+0.262*B(1771) IF (DO_JVS(3320)) & -! JVS(3320) = Jac_FULL(275,239) - JVS(3320) = 0 +! JVS(3320) = Jac_FULL(324,169) + JVS(3320) = B(1814) IF (DO_JVS(3321)) & -! JVS(3321) = Jac_FULL(275,240) +! JVS(3321) = Jac_FULL(324,184) JVS(3321) = 0 IF (DO_JVS(3322)) & -! JVS(3322) = Jac_FULL(275,241) - JVS(3322) = 0 +! JVS(3322) = Jac_FULL(324,185) + JVS(3322) = 0.429*B(1768) IF (DO_JVS(3323)) & -! JVS(3323) = Jac_FULL(275,242) - JVS(3323) = 0 +! JVS(3323) = Jac_FULL(324,194) + JVS(3323) = 0.097*B(1258)+0.125*B(1769) IF (DO_JVS(3324)) & -! JVS(3324) = Jac_FULL(275,243) - JVS(3324) = 0 +! JVS(3324) = Jac_FULL(324,196) + JVS(3324) = 0.326*B(1686) IF (DO_JVS(3325)) & -! JVS(3325) = Jac_FULL(275,244) +! JVS(3325) = Jac_FULL(324,200) JVS(3325) = 0 IF (DO_JVS(3326)) & -! JVS(3326) = Jac_FULL(275,245) - JVS(3326) = 0 +! JVS(3326) = Jac_FULL(324,208) + JVS(3326) = B(1266)+B(1765) IF (DO_JVS(3327)) & -! JVS(3327) = Jac_FULL(275,246) - JVS(3327) = 0 +! JVS(3327) = Jac_FULL(324,209) + JVS(3327) = 0.018*B(1027) IF (DO_JVS(3328)) & -! JVS(3328) = Jac_FULL(275,247) - JVS(3328) = 0 +! JVS(3328) = Jac_FULL(324,227) + JVS(3328) = 0.5*B(1766) IF (DO_JVS(3329)) & -! JVS(3329) = Jac_FULL(275,248) +! JVS(3329) = Jac_FULL(324,230) JVS(3329) = 0 IF (DO_JVS(3330)) & -! JVS(3330) = Jac_FULL(275,249) +! JVS(3330) = Jac_FULL(324,231) JVS(3330) = 0 IF (DO_JVS(3331)) & -! JVS(3331) = Jac_FULL(275,250) +! JVS(3331) = Jac_FULL(324,240) JVS(3331) = 0 IF (DO_JVS(3332)) & -! JVS(3332) = Jac_FULL(275,251) +! JVS(3332) = Jac_FULL(324,243) JVS(3332) = 0 IF (DO_JVS(3333)) & -! JVS(3333) = Jac_FULL(275,252) - JVS(3333) = 0 +! JVS(3333) = Jac_FULL(324,244) + JVS(3333) = B(1743) IF (DO_JVS(3334)) & -! JVS(3334) = Jac_FULL(275,253) - JVS(3334) = B(540) +! JVS(3334) = Jac_FULL(324,247) + JVS(3334) = B(1764) IF (DO_JVS(3335)) & -! JVS(3335) = Jac_FULL(275,254) - JVS(3335) = 0 +! JVS(3335) = Jac_FULL(324,249) + JVS(3335) = -B(361) IF (DO_JVS(3336)) & -! JVS(3336) = Jac_FULL(275,255) - JVS(3336) = 0 +! JVS(3336) = Jac_FULL(324,250) + JVS(3336) = -B(363) IF (DO_JVS(3337)) & -! JVS(3337) = Jac_FULL(275,256) - JVS(3337) = 0 +! JVS(3337) = Jac_FULL(324,254) + JVS(3337) = 0.36*B(1270)+0.758*B(1272) IF (DO_JVS(3338)) & -! JVS(3338) = Jac_FULL(275,257) - JVS(3338) = 0 +! JVS(3338) = Jac_FULL(324,257) + JVS(3338) = -B(895) IF (DO_JVS(3339)) & -! JVS(3339) = Jac_FULL(275,258) +! JVS(3339) = Jac_FULL(324,258) JVS(3339) = 0 IF (DO_JVS(3340)) & -! JVS(3340) = Jac_FULL(275,259) - JVS(3340) = 0 +! JVS(3340) = Jac_FULL(324,259) + JVS(3340) = 0.175*B(1278)+0.35*B(1287) IF (DO_JVS(3341)) & -! JVS(3341) = Jac_FULL(275,260) - JVS(3341) = -B(1269) +! JVS(3341) = Jac_FULL(324,260) + JVS(3341) = -B(369) IF (DO_JVS(3342)) & -! JVS(3342) = Jac_FULL(275,261) - JVS(3342) = 0 +! JVS(3342) = Jac_FULL(324,261) + JVS(3342) = B(1318) IF (DO_JVS(3343)) & -! JVS(3343) = Jac_FULL(275,262) - JVS(3343) = -B(1233) +! JVS(3343) = Jac_FULL(324,263) + JVS(3343) = -B(1395) IF (DO_JVS(3344)) & -! JVS(3344) = Jac_FULL(275,263) - JVS(3344) = B(466) +! JVS(3344) = Jac_FULL(324,267) + JVS(3344) = 0 IF (DO_JVS(3345)) & -! JVS(3345) = Jac_FULL(275,264) +! JVS(3345) = Jac_FULL(324,268) JVS(3345) = 0 IF (DO_JVS(3346)) & -! JVS(3346) = Jac_FULL(275,265) +! JVS(3346) = Jac_FULL(324,271) JVS(3346) = 0 IF (DO_JVS(3347)) & -! JVS(3347) = Jac_FULL(275,266) +! JVS(3347) = Jac_FULL(324,272) JVS(3347) = 0 IF (DO_JVS(3348)) & -! JVS(3348) = Jac_FULL(275,267) - JVS(3348) = 0 +! JVS(3348) = Jac_FULL(324,274) + JVS(3348) = 0.44*B(838)+B(840)+B(845)+0.75*B(897) IF (DO_JVS(3349)) & -! JVS(3349) = Jac_FULL(275,270) - JVS(3349) = 0 +! JVS(3349) = Jac_FULL(324,275) + JVS(3349) = -B(883) IF (DO_JVS(3350)) & -! JVS(3350) = Jac_FULL(275,271) - JVS(3350) = -B(1257)+B(1265) +! JVS(3350) = Jac_FULL(324,276) + JVS(3350) = 0.3*B(953) IF (DO_JVS(3351)) & -! JVS(3351) = Jac_FULL(275,272) - JVS(3351) = -0.88*B(388) +! JVS(3351) = Jac_FULL(324,277) + JVS(3351) = -B(879) IF (DO_JVS(3352)) & -! JVS(3352) = Jac_FULL(275,273) +! JVS(3352) = Jac_FULL(324,278) JVS(3352) = 0 IF (DO_JVS(3353)) & -! JVS(3353) = Jac_FULL(275,274) +! JVS(3353) = Jac_FULL(324,279) JVS(3353) = 0 IF (DO_JVS(3354)) & -! JVS(3354) = Jac_FULL(275,275) - JVS(3354) = -B(5)-B(12)-0.88*B(389)-B(440)-B(1217)-B(1230)-B(1234)-B(1250)-B(1258)-B(1270) +! JVS(3354) = Jac_FULL(324,280) + JVS(3354) = -B(913) IF (DO_JVS(3355)) & -! JVS(3355) = Jac_FULL(275,276) - JVS(3355) = B(1266) +! JVS(3355) = Jac_FULL(324,281) + JVS(3355) = -B(887) IF (DO_JVS(3356)) & -! JVS(3356) = Jac_FULL(275,277) +! JVS(3356) = Jac_FULL(324,285) JVS(3356) = 0 IF (DO_JVS(3357)) & -! JVS(3357) = Jac_FULL(275,278) +! JVS(3357) = Jac_FULL(324,286) JVS(3357) = 0 IF (DO_JVS(3358)) & -! JVS(3358) = Jac_FULL(275,279) +! JVS(3358) = Jac_FULL(324,287) JVS(3358) = 0 IF (DO_JVS(3359)) & -! JVS(3359) = Jac_FULL(275,280) - JVS(3359) = 0 +! JVS(3359) = Jac_FULL(324,288) + JVS(3359) = 0.53*B(1767) IF (DO_JVS(3360)) & -! JVS(3360) = Jac_FULL(275,281) - JVS(3360) = 0 +! JVS(3360) = Jac_FULL(324,289) + JVS(3360) = -B(915) IF (DO_JVS(3361)) & -! JVS(3361) = Jac_FULL(275,282) +! JVS(3361) = Jac_FULL(324,290) JVS(3361) = 0 IF (DO_JVS(3362)) & -! JVS(3362) = Jac_FULL(275,283) - JVS(3362) = 0 +! JVS(3362) = Jac_FULL(324,291) + JVS(3362) = -B(891) IF (DO_JVS(3363)) & -! JVS(3363) = Jac_FULL(275,284) - JVS(3363) = B(474) +! JVS(3363) = Jac_FULL(324,292) + JVS(3363) = 0.85*B(1665) IF (DO_JVS(3364)) & -! JVS(3364) = Jac_FULL(275,285) - JVS(3364) = B(434) +! JVS(3364) = Jac_FULL(324,293) + JVS(3364) = 0 IF (DO_JVS(3365)) & -! JVS(3365) = Jac_FULL(275,286) - JVS(3365) = B(435)-B(441) +! JVS(3365) = Jac_FULL(324,294) + JVS(3365) = B(314)+B(318)+B(1670) IF (DO_JVS(3366)) & -! JVS(3366) = Jac_FULL(275,287) - JVS(3366) = 0 +! JVS(3366) = Jac_FULL(324,295) + JVS(3366) = B(1663) IF (DO_JVS(3367)) & -! JVS(3367) = Jac_FULL(275,288) - JVS(3367) = 0 +! JVS(3367) = Jac_FULL(324,296) + JVS(3367) = -B(365) IF (DO_JVS(3368)) & -! JVS(3368) = Jac_FULL(275,289) +! JVS(3368) = Jac_FULL(324,299) JVS(3368) = 0 IF (DO_JVS(3369)) & -! JVS(3369) = Jac_FULL(275,290) - JVS(3369) = B(465)+B(467)+B(470)+B(473)+B(475)+2*B(507)+B(509)+B(511)+B(513)+B(517)+B(519)+B(525)+B(527)+B(529)+B(531)& - &+B(533)+B(535)+B(537)+B(539)+B(541) +! JVS(3369) = Jac_FULL(324,300) + JVS(3369) = -B(351) IF (DO_JVS(3370)) & -! JVS(3370) = Jac_FULL(275,291) +! JVS(3370) = Jac_FULL(324,301) JVS(3370) = 0 IF (DO_JVS(3371)) & -! JVS(3371) = Jac_FULL(276,66) - JVS(3371) = B(358)+B(360)+B(1455) +! JVS(3371) = Jac_FULL(324,302) + JVS(3371) = 0.04*B(1236)+1.01*B(1772) IF (DO_JVS(3372)) & -! JVS(3372) = Jac_FULL(276,86) - JVS(3372) = B(22)-B(23) +! JVS(3372) = Jac_FULL(324,303) + JVS(3372) = 0 IF (DO_JVS(3373)) & -! JVS(3373) = Jac_FULL(276,90) - JVS(3373) = B(282)+0.75*B(284)+B(286) +! JVS(3373) = Jac_FULL(324,304) + JVS(3373) = 0 IF (DO_JVS(3374)) & -! JVS(3374) = Jac_FULL(276,122) - JVS(3374) = B(1456) +! JVS(3374) = Jac_FULL(324,305) + JVS(3374) = 0.3*B(966) IF (DO_JVS(3375)) & -! JVS(3375) = Jac_FULL(276,138) - JVS(3375) = -B(8) +! JVS(3375) = Jac_FULL(324,307) + JVS(3375) = B(1675) IF (DO_JVS(3376)) & -! JVS(3376) = Jac_FULL(276,147) - JVS(3376) = -B(1) +! JVS(3376) = Jac_FULL(324,308) + JVS(3376) = 0 IF (DO_JVS(3377)) & -! JVS(3377) = Jac_FULL(276,195) - JVS(3377) = -B(612) +! JVS(3377) = Jac_FULL(324,309) + JVS(3377) = 0.12*B(1232)+B(1674) IF (DO_JVS(3378)) & -! JVS(3378) = Jac_FULL(276,212) - JVS(3378) = -B(15) +! JVS(3378) = Jac_FULL(324,310) + JVS(3378) = -B(1161) IF (DO_JVS(3379)) & -! JVS(3379) = Jac_FULL(276,224) - JVS(3379) = 0 +! JVS(3379) = Jac_FULL(324,311) + JVS(3379) = -B(1163) IF (DO_JVS(3380)) & -! JVS(3380) = Jac_FULL(276,234) - JVS(3380) = -B(604) +! JVS(3380) = Jac_FULL(324,313) + JVS(3380) = B(183)+0.15*B(226)+0.3*B(261)-0.1*B(353) IF (DO_JVS(3381)) & -! JVS(3381) = Jac_FULL(276,248) - JVS(3381) = 0 +! JVS(3381) = Jac_FULL(324,314) + JVS(3381) = 0.38*B(1226)+B(1672) IF (DO_JVS(3382)) & -! JVS(3382) = Jac_FULL(276,251) - JVS(3382) = 0 +! JVS(3382) = Jac_FULL(324,315) + JVS(3382) = -B(367) IF (DO_JVS(3383)) & -! JVS(3383) = Jac_FULL(276,253) - JVS(3383) = 0 +! JVS(3383) = Jac_FULL(324,318) + JVS(3383) = -B(359) IF (DO_JVS(3384)) & -! JVS(3384) = Jac_FULL(276,260) - JVS(3384) = -B(1279) +! JVS(3384) = Jac_FULL(324,319) + JVS(3384) = -B(349) IF (DO_JVS(3385)) & -! JVS(3385) = Jac_FULL(276,261) - JVS(3385) = 0 +! 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) IF (DO_JVS(3386)) & -! JVS(3386) = Jac_FULL(276,263) - JVS(3386) = -B(20) +! JVS(3386) = Jac_FULL(324,321) + JVS(3386) = -B(371) IF (DO_JVS(3387)) & -! JVS(3387) = Jac_FULL(276,264) - JVS(3387) = 0 +! JVS(3387) = Jac_FULL(324,322) + JVS(3387) = -B(373) IF (DO_JVS(3388)) & -! JVS(3388) = Jac_FULL(276,265) - JVS(3388) = 0 +! JVS(3388) = Jac_FULL(324,323) + JVS(3388) = -B(357) IF (DO_JVS(3389)) & -! JVS(3389) = Jac_FULL(276,266) - JVS(3389) = 0 +! 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) IF (DO_JVS(3390)) & -! JVS(3390) = Jac_FULL(276,267) - JVS(3390) = 0 +! JVS(3390) = Jac_FULL(324,326) + JVS(3390) = 0.95*B(95)+B(97)+B(415)+0.12*B(1656) IF (DO_JVS(3391)) & -! JVS(3391) = Jac_FULL(276,270) - JVS(3391) = 0 +! JVS(3391) = Jac_FULL(324,328) + JVS(3391) = 0.3*B(262)+0.5*B(264)-B(348)+0.75*B(898) IF (DO_JVS(3392)) & -! JVS(3392) = Jac_FULL(276,271) - JVS(3392) = -B(1265) +! JVS(3392) = Jac_FULL(324,335) + JVS(3392) = -B(100) IF (DO_JVS(3393)) & -! JVS(3393) = Jac_FULL(276,272) - JVS(3393) = 0 +! 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) IF (DO_JVS(3394)) & -! JVS(3394) = Jac_FULL(276,273) +! JVS(3394) = Jac_FULL(324,340) JVS(3394) = 0 IF (DO_JVS(3395)) & -! JVS(3395) = Jac_FULL(276,274) - JVS(3395) = 0 +! JVS(3395) = Jac_FULL(324,341) + JVS(3395) = 0.38*B(1227)+0.12*B(1233) IF (DO_JVS(3396)) & -! JVS(3396) = Jac_FULL(276,275) - JVS(3396) = 0 +! JVS(3396) = Jac_FULL(324,342) + JVS(3396) = B(416) IF (DO_JVS(3397)) & -! JVS(3397) = Jac_FULL(276,276) - JVS(3397) = -B(2)-B(9)-B(16)-B(17)-B(19)-B(21)-B(24)-B(288)-B(605)-B(613)-B(1266)-B(1280) +! 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) IF (DO_JVS(3398)) & -! JVS(3398) = Jac_FULL(276,277) - JVS(3398) = 0 +! 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) IF (DO_JVS(3399)) & -! JVS(3399) = Jac_FULL(276,278) - JVS(3399) = 0 +! JVS(3399) = Jac_FULL(324,351) + JVS(3399) = B(98)+B(319)+B(846)+B(1319) IF (DO_JVS(3400)) & -! JVS(3400) = Jac_FULL(276,279) - JVS(3400) = 0 +! JVS(3400) = Jac_FULL(325,72) + JVS(3400) = B(308) IF (DO_JVS(3401)) & -! JVS(3401) = Jac_FULL(276,280) - JVS(3401) = 0 +! JVS(3401) = Jac_FULL(325,80) + JVS(3401) = B(1741) IF (DO_JVS(3402)) & -! JVS(3402) = Jac_FULL(276,281) - JVS(3402) = B(287) +! JVS(3402) = Jac_FULL(325,88) + JVS(3402) = 0.5*B(1322)+B(1761) IF (DO_JVS(3403)) & -! JVS(3403) = Jac_FULL(276,282) - JVS(3403) = -B(3)-B(10)-B(18) +! JVS(3403) = Jac_FULL(325,89) + JVS(3403) = B(22)+B(23) IF (DO_JVS(3404)) & -! JVS(3404) = Jac_FULL(276,283) - JVS(3404) = 0 +! JVS(3404) = Jac_FULL(325,92) + JVS(3404) = 0.22*B(342) IF (DO_JVS(3405)) & -! JVS(3405) = Jac_FULL(276,284) - JVS(3405) = 0 +! JVS(3405) = Jac_FULL(325,93) + JVS(3405) = B(939)+B(1757) IF (DO_JVS(3406)) & -! JVS(3406) = Jac_FULL(276,285) - JVS(3406) = 0 +! JVS(3406) = Jac_FULL(325,94) + JVS(3406) = B(381)+B(385) IF (DO_JVS(3407)) & -! JVS(3407) = Jac_FULL(276,286) - JVS(3407) = -B(25)+B(283)+0.75*B(285)-B(289)+B(361) +! JVS(3407) = Jac_FULL(325,106) + JVS(3407) = 2*B(1372) IF (DO_JVS(3408)) & -! JVS(3408) = Jac_FULL(276,287) - JVS(3408) = 0 +! JVS(3408) = Jac_FULL(325,109) + JVS(3408) = B(1358) IF (DO_JVS(3409)) & -! JVS(3409) = Jac_FULL(276,288) - JVS(3409) = B(359) +! JVS(3409) = Jac_FULL(325,112) + JVS(3409) = B(1812) IF (DO_JVS(3410)) & -! JVS(3410) = Jac_FULL(276,289) - JVS(3410) = 0 +! JVS(3410) = Jac_FULL(325,114) + JVS(3410) = B(306) IF (DO_JVS(3411)) & -! JVS(3411) = Jac_FULL(276,290) - JVS(3411) = 0 +! JVS(3411) = Jac_FULL(325,122) + JVS(3411) = B(1412) IF (DO_JVS(3412)) & -! JVS(3412) = Jac_FULL(276,291) - JVS(3412) = 0 +! JVS(3412) = Jac_FULL(325,123) + JVS(3412) = B(1683) IF (DO_JVS(3413)) & -! JVS(3413) = Jac_FULL(277,203) - JVS(3413) = -B(1311) +! JVS(3413) = Jac_FULL(325,127) + JVS(3413) = B(152) IF (DO_JVS(3414)) & -! JVS(3414) = Jac_FULL(277,235) - JVS(3414) = -B(1253) +! JVS(3414) = Jac_FULL(325,130) + JVS(3414) = 0.4*B(849)+0.4*B(1815) IF (DO_JVS(3415)) & -! JVS(3415) = Jac_FULL(277,260) - JVS(3415) = -B(1277) +! JVS(3415) = Jac_FULL(325,136) + JVS(3415) = 0 IF (DO_JVS(3416)) & -! JVS(3416) = Jac_FULL(277,262) - JVS(3416) = -B(1239) +! JVS(3416) = Jac_FULL(325,137) + JVS(3416) = 0.5*B(743) IF (DO_JVS(3417)) & -! JVS(3417) = Jac_FULL(277,268) - JVS(3417) = -B(1327) +! JVS(3417) = Jac_FULL(325,138) + JVS(3417) = B(780) IF (DO_JVS(3418)) & -! JVS(3418) = Jac_FULL(277,269) - JVS(3418) = 0 +! JVS(3418) = Jac_FULL(325,139) + JVS(3418) = B(102) IF (DO_JVS(3419)) & -! JVS(3419) = Jac_FULL(277,270) - JVS(3419) = -B(1319) +! JVS(3419) = Jac_FULL(325,140) + JVS(3419) = B(144)+B(146) IF (DO_JVS(3420)) & -! JVS(3420) = Jac_FULL(277,273) - JVS(3420) = 0 +! JVS(3420) = Jac_FULL(325,146) + JVS(3420) = B(1661) IF (DO_JVS(3421)) & -! JVS(3421) = Jac_FULL(277,274) - JVS(3421) = 0 +! JVS(3421) = Jac_FULL(325,149) + JVS(3421) = 0.25*B(1344)+B(1346) IF (DO_JVS(3422)) & -! JVS(3422) = Jac_FULL(277,275) - JVS(3422) = 0 +! JVS(3422) = Jac_FULL(325,159) + JVS(3422) = 0.25*B(1280)+0.75*B(1771) IF (DO_JVS(3423)) & -! JVS(3423) = Jac_FULL(277,276) - JVS(3423) = 0 +! JVS(3423) = Jac_FULL(325,160) + JVS(3423) = 0.5*B(770)+B(1811) IF (DO_JVS(3424)) & -! JVS(3424) = Jac_FULL(277,277) - JVS(3424) = -B(1240)-B(1254)-B(1278)-B(1285)-B(1312)-B(1320)-B(1328) +! JVS(3424) = Jac_FULL(325,164) + JVS(3424) = 0.3*B(59)+B(1646) IF (DO_JVS(3425)) & -! JVS(3425) = Jac_FULL(277,278) - JVS(3425) = 0 +! JVS(3425) = Jac_FULL(325,165) + JVS(3425) = 0.98*B(138) IF (DO_JVS(3426)) & -! JVS(3426) = Jac_FULL(277,279) - JVS(3426) = 0 +! JVS(3426) = Jac_FULL(325,168) + JVS(3426) = B(1785) IF (DO_JVS(3427)) & -! JVS(3427) = Jac_FULL(277,280) - JVS(3427) = 0 +! JVS(3427) = Jac_FULL(325,169) + JVS(3427) = 0.4*B(1814) IF (DO_JVS(3428)) & -! JVS(3428) = Jac_FULL(277,281) - JVS(3428) = 0 +! JVS(3428) = Jac_FULL(325,175) + JVS(3428) = B(1784) IF (DO_JVS(3429)) & -! JVS(3429) = Jac_FULL(277,282) - JVS(3429) = -B(1286) +! JVS(3429) = Jac_FULL(325,176) + JVS(3429) = 0.4*B(772) IF (DO_JVS(3430)) & -! JVS(3430) = Jac_FULL(277,283) - JVS(3430) = 0 +! JVS(3430) = Jac_FULL(325,187) + JVS(3430) = B(1775) IF (DO_JVS(3431)) & -! JVS(3431) = Jac_FULL(277,284) - JVS(3431) = 0 +! JVS(3431) = Jac_FULL(325,190) + JVS(3431) = 0.599*B(1121)+B(1123) IF (DO_JVS(3432)) & -! JVS(3432) = Jac_FULL(277,285) - JVS(3432) = 0 +! JVS(3432) = Jac_FULL(325,191) + JVS(3432) = 0.1*B(733) IF (DO_JVS(3433)) & -! JVS(3433) = Jac_FULL(277,286) - JVS(3433) = 0 +! JVS(3433) = Jac_FULL(325,192) + JVS(3433) = B(1776) IF (DO_JVS(3434)) & -! JVS(3434) = Jac_FULL(277,287) +! JVS(3434) = Jac_FULL(325,196) JVS(3434) = 0 IF (DO_JVS(3435)) & -! JVS(3435) = Jac_FULL(277,288) - JVS(3435) = 0 +! JVS(3435) = Jac_FULL(325,197) + JVS(3435) = B(160)+B(162) IF (DO_JVS(3436)) & -! JVS(3436) = Jac_FULL(277,289) - JVS(3436) = B(1288) +! JVS(3436) = Jac_FULL(325,199) + JVS(3436) = 0.018*B(1029) IF (DO_JVS(3437)) & -! JVS(3437) = Jac_FULL(277,290) - JVS(3437) = 0 +! JVS(3437) = Jac_FULL(325,200) + JVS(3437) = 0.12*B(1348) IF (DO_JVS(3438)) & -! JVS(3438) = Jac_FULL(277,291) - JVS(3438) = 0 +! JVS(3438) = Jac_FULL(325,205) + JVS(3438) = 0.059*B(1114)+0.272*B(1116) IF (DO_JVS(3439)) & -! JVS(3439) = Jac_FULL(278,43) - JVS(3439) = B(454) +! JVS(3439) = Jac_FULL(325,206) + JVS(3439) = 0.031*B(1129)+0.065*B(1131) IF (DO_JVS(3440)) & -! JVS(3440) = Jac_FULL(278,46) - JVS(3440) = B(586) +! JVS(3440) = Jac_FULL(325,207) + JVS(3440) = 0.065*B(1135)+0.142*B(1137) IF (DO_JVS(3441)) & -! JVS(3441) = Jac_FULL(278,69) - JVS(3441) = B(576) +! JVS(3441) = Jac_FULL(325,208) + JVS(3441) = B(1765) IF (DO_JVS(3442)) & -! JVS(3442) = Jac_FULL(278,81) - JVS(3442) = B(462) +! JVS(3442) = Jac_FULL(325,209) + JVS(3442) = 0.018*B(1027) IF (DO_JVS(3443)) & -! JVS(3443) = Jac_FULL(278,82) - JVS(3443) = B(458) +! JVS(3443) = Jac_FULL(325,210) + JVS(3443) = B(1326)+B(1762) IF (DO_JVS(3444)) & -! JVS(3444) = Jac_FULL(278,83) - JVS(3444) = B(460) +! JVS(3444) = Jac_FULL(325,211) + JVS(3444) = B(820) IF (DO_JVS(3445)) & -! JVS(3445) = Jac_FULL(278,84) - JVS(3445) = B(456) +! JVS(3445) = Jac_FULL(325,212) + JVS(3445) = 0.603*B(148) IF (DO_JVS(3446)) & -! JVS(3446) = Jac_FULL(278,100) - JVS(3446) = B(332) +! JVS(3446) = Jac_FULL(325,213) + JVS(3446) = B(300)+0.44*B(302)+B(304) IF (DO_JVS(3447)) & -! JVS(3447) = Jac_FULL(278,102) - JVS(3447) = B(76) +! JVS(3447) = Jac_FULL(325,215) + JVS(3447) = 0.5*B(1011) IF (DO_JVS(3448)) & -! JVS(3448) = Jac_FULL(278,137) - JVS(3448) = B(59) +! JVS(3448) = Jac_FULL(325,219) + JVS(3448) = 0.1*B(729) IF (DO_JVS(3449)) & -! JVS(3449) = Jac_FULL(278,149) - JVS(3449) = B(448) +! JVS(3449) = Jac_FULL(325,220) + JVS(3449) = B(1338)+B(1340)+0.5*B(1342) IF (DO_JVS(3450)) & -! JVS(3450) = Jac_FULL(278,161) - JVS(3450) = B(104) +! JVS(3450) = Jac_FULL(325,222) + JVS(3450) = B(1787) IF (DO_JVS(3451)) & -! JVS(3451) = Jac_FULL(278,173) - JVS(3451) = -B(1214) +! JVS(3451) = Jac_FULL(325,223) + JVS(3451) = 0.716*B(1032)+0.14*B(1036) IF (DO_JVS(3452)) & -! JVS(3452) = Jac_FULL(278,176) - JVS(3452) = -B(1227) +! JVS(3452) = Jac_FULL(325,224) + JVS(3452) = 0.706*B(1039)+0.14*B(1043) IF (DO_JVS(3453)) & -! JVS(3453) = Jac_FULL(278,177) - JVS(3453) = 0.02*B(376) +! JVS(3453) = Jac_FULL(325,226) + JVS(3453) = 0.088*B(1200)+0.34*B(1206) IF (DO_JVS(3454)) & -! JVS(3454) = Jac_FULL(278,190) - JVS(3454) = B(47) +! JVS(3454) = Jac_FULL(325,228) + JVS(3454) = 0.25*B(443) IF (DO_JVS(3455)) & -! JVS(3455) = Jac_FULL(278,193) - JVS(3455) = B(71) +! JVS(3455) = Jac_FULL(325,229) + JVS(3455) = 0.1*B(859)+0.1*B(861)+0.05*B(863)+0.1*B(1816) IF (DO_JVS(3456)) & -! JVS(3456) = Jac_FULL(278,195) - JVS(3456) = -B(614)-B(616) +! JVS(3456) = Jac_FULL(325,230) + JVS(3456) = 0.085*B(1001) IF (DO_JVS(3457)) & -! JVS(3457) = Jac_FULL(278,196) - JVS(3457) = B(61) +! JVS(3457) = Jac_FULL(325,231) + JVS(3457) = 0.165*B(1003) IF (DO_JVS(3458)) & -! JVS(3458) = Jac_FULL(278,202) - JVS(3458) = B(142) +! JVS(3458) = Jac_FULL(325,233) + JVS(3458) = 0.065*B(154)+0.3*B(1660) IF (DO_JVS(3459)) & -! JVS(3459) = Jac_FULL(278,203) - JVS(3459) = 0 +! JVS(3459) = Jac_FULL(325,234) + JVS(3459) = 0.8*B(1370) IF (DO_JVS(3460)) & -! JVS(3460) = Jac_FULL(278,210) - JVS(3460) = 0 +! JVS(3460) = Jac_FULL(325,235) + JVS(3460) = B(1463) IF (DO_JVS(3461)) & -! JVS(3461) = Jac_FULL(278,211) - JVS(3461) = B(87)+B(512) +! JVS(3461) = Jac_FULL(325,236) + JVS(3461) = B(1461) IF (DO_JVS(3462)) & -! JVS(3462) = Jac_FULL(278,212) - JVS(3462) = B(40) +! JVS(3462) = Jac_FULL(325,240) + JVS(3462) = 0 IF (DO_JVS(3463)) & -! JVS(3463) = Jac_FULL(278,219) - JVS(3463) = B(144) +! JVS(3463) = Jac_FULL(325,243) + JVS(3463) = 0.65*B(1078)+B(1082) IF (DO_JVS(3464)) & -! JVS(3464) = Jac_FULL(278,221) - JVS(3464) = B(155) +! JVS(3464) = Jac_FULL(325,244) + JVS(3464) = B(1743) IF (DO_JVS(3465)) & -! JVS(3465) = Jac_FULL(278,222) +! JVS(3465) = Jac_FULL(325,246) JVS(3465) = 0 IF (DO_JVS(3466)) & -! JVS(3466) = Jac_FULL(278,224) - JVS(3466) = 0 +! JVS(3466) = Jac_FULL(325,247) + JVS(3466) = B(1764) IF (DO_JVS(3467)) & -! JVS(3467) = Jac_FULL(278,226) - JVS(3467) = B(173) +! JVS(3467) = Jac_FULL(325,249) + JVS(3467) = 0.64*B(175)+0.95*B(259)+0.351*B(361) IF (DO_JVS(3468)) & -! JVS(3468) = Jac_FULL(278,231) - JVS(3468) = 0 +! JVS(3468) = Jac_FULL(325,250) + JVS(3468) = B(191)+1.25*B(267)+0.9*B(363) IF (DO_JVS(3469)) & -! JVS(3469) = Jac_FULL(278,234) - JVS(3469) = -B(598)-2*B(600) +! JVS(3469) = Jac_FULL(325,253) + JVS(3469) = 0.083*B(1276)+0.14*B(1283) IF (DO_JVS(3470)) & -! JVS(3470) = Jac_FULL(278,235) - JVS(3470) = 0 +! JVS(3470) = Jac_FULL(325,254) + JVS(3470) = 0.05*B(1270)+0.242*B(1272) IF (DO_JVS(3471)) & -! JVS(3471) = Jac_FULL(278,236) - JVS(3471) = 0 +! JVS(3471) = Jac_FULL(325,255) + JVS(3471) = 0.67*B(808) IF (DO_JVS(3472)) & -! JVS(3472) = Jac_FULL(278,237) - JVS(3472) = 0 +! JVS(3472) = Jac_FULL(325,257) + JVS(3472) = B(893) IF (DO_JVS(3473)) & -! JVS(3473) = Jac_FULL(278,238) - JVS(3473) = 0 +! JVS(3473) = Jac_FULL(325,258) + JVS(3473) = 0.133*B(1793) IF (DO_JVS(3474)) & -! JVS(3474) = Jac_FULL(278,239) - JVS(3474) = 0 +! JVS(3474) = Jac_FULL(325,259) + JVS(3474) = 0.5*B(1278)+B(1287) IF (DO_JVS(3475)) & -! JVS(3475) = Jac_FULL(278,240) - JVS(3475) = 0 +! JVS(3475) = Jac_FULL(325,260) + JVS(3475) = B(122)+1.25*B(216)+0.9*B(369) IF (DO_JVS(3476)) & -! JVS(3476) = Jac_FULL(278,241) - JVS(3476) = 0 +! JVS(3476) = Jac_FULL(325,261) + JVS(3476) = B(687)+B(1749) IF (DO_JVS(3477)) & -! JVS(3477) = Jac_FULL(278,242) - JVS(3477) = 0 +! JVS(3477) = Jac_FULL(325,262) + JVS(3477) = 1.5*B(871)+1.5*B(873)+0.75*B(875) IF (DO_JVS(3478)) & -! JVS(3478) = Jac_FULL(278,243) - JVS(3478) = 0 +! JVS(3478) = Jac_FULL(325,263) + JVS(3478) = B(1393) IF (DO_JVS(3479)) & -! JVS(3479) = Jac_FULL(278,244) +! JVS(3479) = Jac_FULL(325,267) JVS(3479) = 0 IF (DO_JVS(3480)) & -! JVS(3480) = Jac_FULL(278,245) +! JVS(3480) = Jac_FULL(325,268) JVS(3480) = 0 IF (DO_JVS(3481)) & -! JVS(3481) = Jac_FULL(278,246) - JVS(3481) = 0 +! JVS(3481) = Jac_FULL(325,270) + JVS(3481) = B(1669) IF (DO_JVS(3482)) & -! JVS(3482) = Jac_FULL(278,247) - JVS(3482) = 0 +! JVS(3482) = Jac_FULL(325,271) + JVS(3482) = 0.126*B(1198)+0.249*B(1202) IF (DO_JVS(3483)) & -! JVS(3483) = Jac_FULL(278,248) - JVS(3483) = 0 +! JVS(3483) = Jac_FULL(325,272) + JVS(3483) = 0.75*B(830) IF (DO_JVS(3484)) & -! JVS(3484) = Jac_FULL(278,249) - JVS(3484) = 0 +! JVS(3484) = Jac_FULL(325,273) + JVS(3484) = 0.75*B(792) IF (DO_JVS(3485)) & -! JVS(3485) = Jac_FULL(278,250) - JVS(3485) = 0 +! 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) IF (DO_JVS(3486)) & -! JVS(3486) = Jac_FULL(278,251) - JVS(3486) = 0 +! JVS(3486) = Jac_FULL(325,275) + JVS(3486) = 0.75*B(776)+B(778)+1.75*B(881)+B(883) IF (DO_JVS(3487)) & -! JVS(3487) = Jac_FULL(278,252) - JVS(3487) = 0 +! JVS(3487) = Jac_FULL(325,276) + JVS(3487) = 0.827*B(947)+0.3*B(953)+0.3*B(955) IF (DO_JVS(3488)) & -! JVS(3488) = Jac_FULL(278,253) - JVS(3488) = 0 +! JVS(3488) = Jac_FULL(325,277) + JVS(3488) = 0.75*B(877) IF (DO_JVS(3489)) & -! JVS(3489) = Jac_FULL(278,254) - JVS(3489) = 0 +! JVS(3489) = Jac_FULL(325,278) + JVS(3489) = 0.84*B(764)+B(766)+1.5*B(768) IF (DO_JVS(3490)) & -! JVS(3490) = Jac_FULL(278,255) +! JVS(3490) = Jac_FULL(325,279) JVS(3490) = 0 IF (DO_JVS(3491)) & -! JVS(3491) = Jac_FULL(278,256) - JVS(3491) = 0 +! JVS(3491) = Jac_FULL(325,280) + JVS(3491) = B(909)+0.202*B(922) IF (DO_JVS(3492)) & -! JVS(3492) = Jac_FULL(278,257) - JVS(3492) = 0 +! JVS(3492) = Jac_FULL(325,281) + JVS(3492) = 0.75*B(885) IF (DO_JVS(3493)) & -! JVS(3493) = Jac_FULL(278,258) - JVS(3493) = 0 +! JVS(3493) = Jac_FULL(325,282) + JVS(3493) = B(89)+B(623) IF (DO_JVS(3494)) & -! JVS(3494) = Jac_FULL(278,259) - JVS(3494) = B(146) +! JVS(3494) = Jac_FULL(325,285) + JVS(3494) = 0 IF (DO_JVS(3495)) & -! JVS(3495) = Jac_FULL(278,260) - JVS(3495) = B(1267)+B(1269)+B(1271)+B(1273) +! JVS(3495) = Jac_FULL(325,286) + JVS(3495) = 0 IF (DO_JVS(3496)) & -! JVS(3496) = Jac_FULL(278,261) - JVS(3496) = 0 +! JVS(3496) = Jac_FULL(325,287) + JVS(3496) = 0.23*B(1770) IF (DO_JVS(3497)) & -! JVS(3497) = Jac_FULL(278,262) - JVS(3497) = -B(1231) +! JVS(3497) = Jac_FULL(325,288) + JVS(3497) = 0.47*B(1767) IF (DO_JVS(3498)) & -! JVS(3498) = Jac_FULL(278,263) - JVS(3498) = B(63) +! 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) IF (DO_JVS(3499)) & -! JVS(3499) = Jac_FULL(278,264) - JVS(3499) = B(95) +! JVS(3499) = Jac_FULL(325,290) + JVS(3499) = 0.5*B(287) IF (DO_JVS(3500)) & -! JVS(3500) = Jac_FULL(278,265) - JVS(3500) = B(67) +! JVS(3500) = Jac_FULL(325,291) + JVS(3500) = 0.1*B(855)+0.1*B(857)+0.85*B(889)+0.1*B(891) IF (DO_JVS(3501)) & -! JVS(3501) = Jac_FULL(278,266) - JVS(3501) = 0 +! JVS(3501) = Jac_FULL(325,293) + JVS(3501) = 0.104*B(1141)+0.383*B(1143) IF (DO_JVS(3502)) & -! JVS(3502) = Jac_FULL(278,267) - JVS(3502) = 0 +! JVS(3502) = Jac_FULL(325,296) + JVS(3502) = 0.75*B(247) IF (DO_JVS(3503)) & -! JVS(3503) = Jac_FULL(278,268) - JVS(3503) = B(578) +! JVS(3503) = Jac_FULL(325,299) + JVS(3503) = 0.055*B(1791) IF (DO_JVS(3504)) & -! JVS(3504) = Jac_FULL(278,269) - JVS(3504) = 0 +! JVS(3504) = Jac_FULL(325,300) + JVS(3504) = 0.75*B(257) IF (DO_JVS(3505)) & -! JVS(3505) = Jac_FULL(278,270) - JVS(3505) = -B(1307) +! JVS(3505) = Jac_FULL(325,301) + JVS(3505) = 0 IF (DO_JVS(3506)) & -! JVS(3506) = Jac_FULL(278,271) - JVS(3506) = B(442)+B(1257)+B(1259)+B(1261)+B(1263) +! JVS(3506) = Jac_FULL(325,302) + JVS(3506) = 0.241*B(1236) IF (DO_JVS(3507)) & -! JVS(3507) = Jac_FULL(278,272) - JVS(3507) = -B(334) +! JVS(3507) = Jac_FULL(325,303) + JVS(3507) = 0.022*B(1316)+0.55*B(1797)+0.15*B(1798) IF (DO_JVS(3508)) & -! JVS(3508) = Jac_FULL(278,273) - JVS(3508) = 0 +! 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) IF (DO_JVS(3509)) & -! JVS(3509) = Jac_FULL(278,274) - JVS(3509) = 0 +! 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) IF (DO_JVS(3510)) & -! JVS(3510) = Jac_FULL(278,275) - JVS(3510) = B(440)+B(1258)+B(1270) +! JVS(3510) = Jac_FULL(325,306) + JVS(3510) = 0.732*B(289)+0.9*B(1666) IF (DO_JVS(3511)) & -! JVS(3511) = Jac_FULL(278,276) - JVS(3511) = 0 +! JVS(3511) = Jac_FULL(325,307) + JVS(3511) = B(1675) IF (DO_JVS(3512)) & -! JVS(3512) = Jac_FULL(278,277) - JVS(3512) = 0 +! JVS(3512) = Jac_FULL(325,308) + JVS(3512) = B(1299) IF (DO_JVS(3513)) & -! JVS(3513) = Jac_FULL(278,278) - JVS(3513) = -B(335)-B(599)-2*B(601)-B(615)-B(617)-B(1215)-B(1228)-B(1232)-B(1308) +! JVS(3513) = Jac_FULL(325,309) + JVS(3513) = 0.12*B(1232)+B(1674) IF (DO_JVS(3514)) & -! JVS(3514) = Jac_FULL(278,279) - JVS(3514) = 0 +! 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) IF (DO_JVS(3515)) & -! JVS(3515) = Jac_FULL(278,280) - JVS(3515) = B(1262)+B(1272) +! JVS(3515) = Jac_FULL(325,311) + JVS(3515) = 0.563*B(1155)+0.645*B(1157) IF (DO_JVS(3516)) & -! JVS(3516) = Jac_FULL(278,281) - JVS(3516) = 0 +! 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) IF (DO_JVS(3517)) & -! JVS(3517) = Jac_FULL(278,282) - JVS(3517) = 0 +! JVS(3517) = Jac_FULL(325,313) + JVS(3517) = B(183)+0.15*B(226)+0.5*B(261)+0.9*B(353) IF (DO_JVS(3518)) & -! JVS(3518) = Jac_FULL(278,283) - JVS(3518) = 0 +! JVS(3518) = Jac_FULL(325,314) + JVS(3518) = 0.6*B(1226)+B(1672) IF (DO_JVS(3519)) & -! JVS(3519) = Jac_FULL(278,284) - JVS(3519) = B(38)+0.02*B(377)+B(1209) +! JVS(3519) = Jac_FULL(325,315) + JVS(3519) = 0.75*B(249) IF (DO_JVS(3520)) & -! JVS(3520) = Jac_FULL(278,285) - JVS(3520) = 0 +! JVS(3520) = Jac_FULL(325,318) + JVS(3520) = 0.64*B(181)+0.95*B(255)+0.351*B(359) IF (DO_JVS(3521)) & -! JVS(3521) = Jac_FULL(278,286) - JVS(3521) = 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(105)+B(143)+B(145)+B(147)+B(156)& - &+B(174)+B(296)+B(333)+B(350)+B(441)+B(443)+B(449)+B(455)+B(457)+B(459)+B(461)+B(463)+B(577)+B(579)+B(587) +! JVS(3521) = Jac_FULL(325,319) + JVS(3521) = 0.75*B(253) IF (DO_JVS(3522)) & -! JVS(3522) = Jac_FULL(278,287) - JVS(3522) = B(1264)+B(1274) +! JVS(3522) = Jac_FULL(325,320) + JVS(3522) = 0.31*B(236)+0.75*B(263) IF (DO_JVS(3523)) & -! JVS(3523) = Jac_FULL(278,288) - JVS(3523) = 0 +! JVS(3523) = Jac_FULL(325,321) + JVS(3523) = 0.75*B(214) IF (DO_JVS(3524)) & -! JVS(3524) = Jac_FULL(278,289) - JVS(3524) = B(297)+B(1260)+B(1268) +! JVS(3524) = Jac_FULL(325,322) + JVS(3524) = B(375) IF (DO_JVS(3525)) & -! JVS(3525) = Jac_FULL(278,290) - JVS(3525) = B(513) +! JVS(3525) = Jac_FULL(325,323) + JVS(3525) = 0.75*B(265) IF (DO_JVS(3526)) & -! JVS(3526) = Jac_FULL(278,291) - JVS(3526) = 0 +! 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) IF (DO_JVS(3527)) & -! JVS(3527) = Jac_FULL(279,60) - JVS(3527) = 2*B(546)+B(1439) +! JVS(3527) = Jac_FULL(325,325) + JVS(3527) = -B(20)-B(63)-B(93)-B(413)-B(485)-B(565)-B(1647)-B(1648) IF (DO_JVS(3528)) & -! JVS(3528) = Jac_FULL(279,61) - JVS(3528) = 1.22*B(342) +! JVS(3528) = Jac_FULL(325,326) + JVS(3528) = 0.05*B(95) IF (DO_JVS(3529)) & -! JVS(3529) = Jac_FULL(279,65) - JVS(3529) = B(378)-B(380) +! 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) IF (DO_JVS(3530)) & -! JVS(3530) = Jac_FULL(279,92) - JVS(3530) = -B(566) +! JVS(3530) = Jac_FULL(325,329) + JVS(3530) = B(692) IF (DO_JVS(3531)) & -! JVS(3531) = Jac_FULL(279,121) - JVS(3531) = -B(842) +! JVS(3531) = Jac_FULL(325,334) + JVS(3531) = 0.25*B(444) IF (DO_JVS(3532)) & -! JVS(3532) = Jac_FULL(279,123) - JVS(3532) = -B(846) +! JVS(3532) = Jac_FULL(325,335) + JVS(3532) = B(696) IF (DO_JVS(3533)) & -! JVS(3533) = Jac_FULL(279,144) - JVS(3533) = -B(1003) +! JVS(3533) = Jac_FULL(325,336) + JVS(3533) = 0.06*B(698)+0.06*B(700) IF (DO_JVS(3534)) & -! JVS(3534) = Jac_FULL(279,145) - JVS(3534) = -B(1009) +! 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) IF (DO_JVS(3535)) & -! JVS(3535) = Jac_FULL(279,146) - JVS(3535) = -B(977) +! JVS(3535) = Jac_FULL(325,338) + JVS(3535) = B(530) IF (DO_JVS(3536)) & -! JVS(3536) = Jac_FULL(279,150) - JVS(3536) = -B(971) +! JVS(3536) = Jac_FULL(325,340) + JVS(3536) = -B(566)+B(614)+B(624) IF (DO_JVS(3537)) & -! JVS(3537) = Jac_FULL(279,152) - JVS(3537) = -B(880)-B(882) +! 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) IF (DO_JVS(3538)) & -! JVS(3538) = Jac_FULL(279,166) - JVS(3538) = -B(888)-B(890) +! JVS(3538) = Jac_FULL(325,342) + JVS(3538) = -B(414) IF (DO_JVS(3539)) & -! JVS(3539) = Jac_FULL(279,167) - JVS(3539) = -B(873)-B(875) +! JVS(3539) = Jac_FULL(325,343) + JVS(3539) = -B(486) IF (DO_JVS(3540)) & -! JVS(3540) = Jac_FULL(279,168) - JVS(3540) = -B(894)-B(896) +! 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) IF (DO_JVS(3541)) & -! JVS(3541) = Jac_FULL(279,179) - JVS(3541) = -B(1101) +! 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) IF (DO_JVS(3542)) & -! JVS(3542) = Jac_FULL(279,180) - JVS(3542) = -B(1152) +! JVS(3542) = Jac_FULL(325,348) + JVS(3542) = -B(21)+B(25)+B(704) IF (DO_JVS(3543)) & -! JVS(3543) = Jac_FULL(279,182) - JVS(3543) = -B(789)-B(791) +! 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) IF (DO_JVS(3544)) & -! JVS(3544) = Jac_FULL(279,183) - JVS(3544) = -B(796)-B(798) +! JVS(3544) = Jac_FULL(326,83) + JVS(3544) = B(941)+B(1758) IF (DO_JVS(3545)) & -! JVS(3545) = Jac_FULL(279,184) - JVS(3545) = -B(1124) +! JVS(3545) = Jac_FULL(326,118) + JVS(3545) = 0.64*B(326)+B(1677) IF (DO_JVS(3546)) & -! JVS(3546) = Jac_FULL(279,186) - JVS(3546) = 0 +! JVS(3546) = Jac_FULL(326,123) + JVS(3546) = B(1683) IF (DO_JVS(3547)) & -! JVS(3547) = Jac_FULL(279,187) - JVS(3547) = -B(803)-B(805) +! JVS(3547) = Jac_FULL(326,124) + JVS(3547) = B(206) IF (DO_JVS(3548)) & -! JVS(3548) = Jac_FULL(279,188) - JVS(3548) = 0 +! JVS(3548) = Jac_FULL(326,149) + JVS(3548) = 0.4*B(1344) IF (DO_JVS(3549)) & -! JVS(3549) = Jac_FULL(279,189) - JVS(3549) = -B(963)-B(965) +! JVS(3549) = Jac_FULL(326,155) + JVS(3549) = B(1684) IF (DO_JVS(3550)) & -! JVS(3550) = Jac_FULL(279,191) - JVS(3550) = -B(1163) +! JVS(3550) = Jac_FULL(326,156) + JVS(3550) = B(269)+B(625) IF (DO_JVS(3551)) & -! JVS(3551) = Jac_FULL(279,193) - JVS(3551) = B(1368) +! JVS(3551) = Jac_FULL(326,165) + JVS(3551) = 0.65*B(138) IF (DO_JVS(3552)) & -! JVS(3552) = Jac_FULL(279,194) - JVS(3552) = -B(837)-B(839) +! JVS(3552) = Jac_FULL(326,196) + JVS(3552) = 0.348*B(1686) IF (DO_JVS(3553)) & -! JVS(3553) = Jac_FULL(279,195) - JVS(3553) = -B(608) +! JVS(3553) = Jac_FULL(326,240) + JVS(3553) = 0 IF (DO_JVS(3554)) & -! JVS(3554) = Jac_FULL(279,201) - JVS(3554) = -B(138) +! JVS(3554) = Jac_FULL(326,241) + JVS(3554) = B(705)+B(707)+B(709)+B(711)+B(713) IF (DO_JVS(3555)) & -! JVS(3555) = Jac_FULL(279,203) +! JVS(3555) = Jac_FULL(326,246) JVS(3555) = 0 IF (DO_JVS(3556)) & -! JVS(3556) = Jac_FULL(279,204) - JVS(3556) = -B(1029)-B(1031) +! JVS(3556) = Jac_FULL(326,249) + JVS(3556) = 0.97*B(175)+0.38*B(259)+0.675*B(361) IF (DO_JVS(3557)) & -! JVS(3557) = Jac_FULL(279,205) - JVS(3557) = -B(1040)-B(1042) +! JVS(3557) = Jac_FULL(326,250) + JVS(3557) = B(191)+0.5*B(267)+0.9*B(363) IF (DO_JVS(3558)) & -! JVS(3558) = Jac_FULL(279,207) - JVS(3558) = -B(1044) +! JVS(3558) = Jac_FULL(326,251) + JVS(3558) = 0.34*B(1685) IF (DO_JVS(3559)) & -! JVS(3559) = Jac_FULL(279,209) - JVS(3559) = -B(120) +! JVS(3559) = Jac_FULL(326,260) + JVS(3559) = B(122)+0.5*B(216)+0.9*B(369) IF (DO_JVS(3560)) & -! JVS(3560) = Jac_FULL(279,210) - JVS(3560) = 0 +! JVS(3560) = Jac_FULL(326,279) + JVS(3560) = 0.34*B(1688) IF (DO_JVS(3561)) & -! JVS(3561) = Jac_FULL(279,214) - JVS(3561) = 0 +! JVS(3561) = Jac_FULL(326,290) + JVS(3561) = 0.5*B(287) IF (DO_JVS(3562)) & -! JVS(3562) = Jac_FULL(279,215) - JVS(3562) = -B(658) +! JVS(3562) = Jac_FULL(326,296) + JVS(3562) = B(108)+0.75*B(247)+1.6*B(273)+B(365)+B(619) IF (DO_JVS(3563)) & -! JVS(3563) = Jac_FULL(279,216) - JVS(3563) = -B(660) +! JVS(3563) = Jac_FULL(326,300) + JVS(3563) = 0.34*B(171)+0.16*B(257)+0.29*B(351) IF (DO_JVS(3564)) & -! JVS(3564) = Jac_FULL(279,217) - JVS(3564) = -B(106)-B(108) +! JVS(3564) = Jac_FULL(326,314) + JVS(3564) = 0 IF (DO_JVS(3565)) & -! JVS(3565) = Jac_FULL(279,220) - JVS(3565) = 0 +! JVS(3565) = Jac_FULL(326,315) + JVS(3565) = B(112)+0.75*B(249)+1.6*B(274)+B(367)+B(621) IF (DO_JVS(3566)) & -! JVS(3566) = Jac_FULL(279,222) - JVS(3566) = -B(959)-B(961) +! JVS(3566) = Jac_FULL(326,318) + JVS(3566) = 0.97*B(181)+0.38*B(255)+0.675*B(359) IF (DO_JVS(3567)) & -! JVS(3567) = Jac_FULL(279,224) - JVS(3567) = 0 +! JVS(3567) = Jac_FULL(326,319) + JVS(3567) = 0.34*B(177)+0.16*B(253)+0.29*B(349) IF (DO_JVS(3568)) & -! JVS(3568) = Jac_FULL(279,225) - JVS(3568) = -B(646) +! 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) IF (DO_JVS(3569)) & -! JVS(3569) = Jac_FULL(279,227) - JVS(3569) = -B(582) +! JVS(3569) = Jac_FULL(326,321) + JVS(3569) = 0 IF (DO_JVS(3570)) & -! JVS(3570) = Jac_FULL(279,228) - JVS(3570) = -B(823)-B(825) +! JVS(3570) = Jac_FULL(326,322) + JVS(3570) = 0 IF (DO_JVS(3571)) & -! JVS(3571) = Jac_FULL(279,229) - JVS(3571) = -B(829)-B(831) +! JVS(3571) = Jac_FULL(326,323) + JVS(3571) = 0 IF (DO_JVS(3572)) & -! JVS(3572) = Jac_FULL(279,232) - JVS(3572) = -B(900)-B(902) +! 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) IF (DO_JVS(3573)) & -! JVS(3573) = Jac_FULL(279,234) - JVS(3573) = -B(594) +! JVS(3573) = Jac_FULL(326,326) + JVS(3573) = -B(95)-B(97)-B(415)-B(1656)-B(1657) IF (DO_JVS(3574)) & -! JVS(3574) = Jac_FULL(279,235) - JVS(3574) = 0 +! 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) IF (DO_JVS(3575)) & -! JVS(3575) = Jac_FULL(279,237) - JVS(3575) = -B(116)-B(118) +! JVS(3575) = Jac_FULL(326,329) + JVS(3575) = B(706) IF (DO_JVS(3576)) & -! JVS(3576) = Jac_FULL(279,238) - JVS(3576) = -B(622) +! JVS(3576) = Jac_FULL(326,335) + JVS(3576) = B(710) IF (DO_JVS(3577)) & -! JVS(3577) = Jac_FULL(279,239) - JVS(3577) = -B(110) +! JVS(3577) = Jac_FULL(326,336) + JVS(3577) = B(714) IF (DO_JVS(3578)) & -! JVS(3578) = Jac_FULL(279,240) - JVS(3578) = 0 +! JVS(3578) = Jac_FULL(326,337) + JVS(3578) = 0.15*B(229) IF (DO_JVS(3579)) & -! JVS(3579) = Jac_FULL(279,242) - JVS(3579) = 0 +! JVS(3579) = Jac_FULL(326,340) + JVS(3579) = B(620)+B(622)+B(626) IF (DO_JVS(3580)) & -! JVS(3580) = Jac_FULL(279,243) - JVS(3580) = 0 +! JVS(3580) = Jac_FULL(326,341) + JVS(3580) = 0.5*B(288) IF (DO_JVS(3581)) & -! JVS(3581) = Jac_FULL(279,244) - JVS(3581) = -B(750)-B(752)-B(754)-B(756) +! JVS(3581) = Jac_FULL(326,342) + JVS(3581) = -B(416) IF (DO_JVS(3582)) & -! JVS(3582) = Jac_FULL(279,245) - JVS(3582) = -B(742)-B(744)-B(746)-B(748) +! JVS(3582) = Jac_FULL(326,345) + JVS(3582) = -B(96)+B(207)+B(270)+0.64*B(327)+B(942)+0.4*B(1345) IF (DO_JVS(3583)) & -! JVS(3583) = Jac_FULL(279,246) - JVS(3583) = -B(930)-B(932) +! 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) IF (DO_JVS(3584)) & -! JVS(3584) = Jac_FULL(279,247) - JVS(3584) = -B(926)-B(928) +! JVS(3584) = Jac_FULL(326,348) + JVS(3584) = B(712) IF (DO_JVS(3585)) & -! JVS(3585) = Jac_FULL(279,248) - JVS(3585) = 0 +! JVS(3585) = Jac_FULL(326,351) + JVS(3585) = -B(98) IF (DO_JVS(3586)) & -! JVS(3586) = Jac_FULL(279,249) - JVS(3586) = -B(1050) +! JVS(3586) = Jac_FULL(327,45) + JVS(3586) = B(936) IF (DO_JVS(3587)) & -! JVS(3587) = Jac_FULL(279,251) - JVS(3587) = 0 +! JVS(3587) = Jac_FULL(327,69) + JVS(3587) = B(126) IF (DO_JVS(3588)) & -! JVS(3588) = Jac_FULL(279,252) - JVS(3588) = -B(130) +! JVS(3588) = Jac_FULL(327,94) + JVS(3588) = B(385) IF (DO_JVS(3589)) & -! JVS(3589) = Jac_FULL(279,253) - JVS(3589) = 0 +! JVS(3589) = Jac_FULL(327,103) + JVS(3589) = B(935) IF (DO_JVS(3590)) & -! JVS(3590) = Jac_FULL(279,254) - JVS(3590) = -B(132) +! JVS(3590) = Jac_FULL(327,142) + JVS(3590) = B(193) IF (DO_JVS(3591)) & -! JVS(3591) = Jac_FULL(279,255) - JVS(3591) = -B(151) +! JVS(3591) = Jac_FULL(327,149) + JVS(3591) = B(1346) IF (DO_JVS(3592)) & -! JVS(3592) = Jac_FULL(279,256) - JVS(3592) = -B(124)-B(126) +! JVS(3592) = Jac_FULL(327,154) + JVS(3592) = 0 IF (DO_JVS(3593)) & -! JVS(3593) = Jac_FULL(279,257) - JVS(3593) = -B(128) +! JVS(3593) = Jac_FULL(327,158) + JVS(3593) = 0.5*B(1420) IF (DO_JVS(3594)) & -! JVS(3594) = Jac_FULL(279,258) - JVS(3594) = -B(134)-B(136) +! JVS(3594) = Jac_FULL(327,166) + JVS(3594) = -B(13) IF (DO_JVS(3595)) & -! JVS(3595) = Jac_FULL(279,259) +! JVS(3595) = Jac_FULL(327,168) JVS(3595) = 0 IF (DO_JVS(3596)) & -! JVS(3596) = Jac_FULL(279,261) - JVS(3596) = -B(102) +! JVS(3596) = Jac_FULL(327,175) + JVS(3596) = 0 IF (DO_JVS(3597)) & -! JVS(3597) = Jac_FULL(279,264) - JVS(3597) = 0 +! JVS(3597) = Jac_FULL(327,179) + JVS(3597) = -B(6) IF (DO_JVS(3598)) & -! JVS(3598) = Jac_FULL(279,265) - JVS(3598) = 0 +! JVS(3598) = Jac_FULL(327,183) + JVS(3598) = B(344) IF (DO_JVS(3599)) & -! JVS(3599) = Jac_FULL(279,266) - JVS(3599) = -B(49)-B(51) +! JVS(3599) = Jac_FULL(327,186) + JVS(3599) = 0 IF (DO_JVS(3600)) & -! JVS(3600) = Jac_FULL(279,267) - JVS(3600) = 0 +! JVS(3600) = Jac_FULL(327,195) + JVS(3600) = 0.742*B(1416) IF (DO_JVS(3601)) & -! JVS(3601) = Jac_FULL(279,268) - JVS(3601) = 0 +! JVS(3601) = Jac_FULL(327,200) + JVS(3601) = B(1350) IF (DO_JVS(3602)) & -! JVS(3602) = Jac_FULL(279,269) - JVS(3602) = -B(544) +! JVS(3602) = Jac_FULL(327,202) + JVS(3602) = 0.5*B(1426) IF (DO_JVS(3603)) & -! JVS(3603) = Jac_FULL(279,270) - JVS(3603) = 0 +! JVS(3603) = Jac_FULL(327,204) + JVS(3603) = B(1430) IF (DO_JVS(3604)) & -! JVS(3604) = Jac_FULL(279,272) - JVS(3604) = 1.22*B(343) +! JVS(3604) = Jac_FULL(327,214) + JVS(3604) = 2*B(1496)+B(1498)+2*B(1500)+B(1501)+B(1503) IF (DO_JVS(3605)) & -! JVS(3605) = Jac_FULL(279,273) +! JVS(3605) = Jac_FULL(327,216) JVS(3605) = 0 IF (DO_JVS(3606)) & -! JVS(3606) = Jac_FULL(279,274) - JVS(3606) = -B(300) +! JVS(3606) = Jac_FULL(327,218) + JVS(3606) = B(1509)+B(1511) IF (DO_JVS(3607)) & -! JVS(3607) = Jac_FULL(279,275) +! JVS(3607) = Jac_FULL(327,220) JVS(3607) = 0 IF (DO_JVS(3608)) & -! JVS(3608) = Jac_FULL(279,276) +! JVS(3608) = Jac_FULL(327,222) JVS(3608) = 0 IF (DO_JVS(3609)) & -! JVS(3609) = Jac_FULL(279,277) - JVS(3609) = 0 +! JVS(3609) = Jac_FULL(327,225) + JVS(3609) = B(745) IF (DO_JVS(3610)) & -! JVS(3610) = Jac_FULL(279,278) +! JVS(3610) = Jac_FULL(327,226) JVS(3610) = 0 IF (DO_JVS(3611)) & -! JVS(3611) = Jac_FULL(279,279) - JVS(3611) = -B(26)-B(42)-B(50)-B(52)-B(69)-B(80)-B(103)-B(107)-B(109)-B(111)-B(117)-B(119)-B(121)-B(125)-B(127)-B(129)& - &-B(131)-B(133)-B(135)-B(137)-B(139)-B(152)-B(301)-B(366)-B(381)-B(482)-B(545)-B(567)-B(583)-B(595)-B(609)& - &-B(623)-B(647)-B(659)-B(661)-B(743)-B(745)-B(747)-B(749)-B(751)-B(753)-B(755)-B(757)-B(790)-B(792)-B(797)& - &-B(799)-B(804)-B(806)-B(824)-B(826)-B(830)-B(832)-B(838)-B(840)-B(843)-B(847)-B(874)-B(876)-B(881)-B(883)& - &-B(889)-B(891)-B(895)-B(897)-B(901)-B(903)-B(927)-B(929)-B(931)-B(933)-B(960)-B(962)-B(964)-B(966)-B(972)& - &-B(978)-B(1004)-B(1010)-B(1030)-B(1032)-B(1041)-B(1043)-B(1045)-B(1051)-B(1102)-B(1125)-B(1153)-B(1164)& - &-B(1457) +! JVS(3611) = Jac_FULL(327,242) + JVS(3611) = 0 IF (DO_JVS(3612)) & -! JVS(3612) = Jac_FULL(279,280) +! JVS(3612) = Jac_FULL(327,248) JVS(3612) = 0 IF (DO_JVS(3613)) & -! JVS(3613) = Jac_FULL(279,281) - JVS(3613) = -B(81)+B(91)+B(1372) +! JVS(3613) = Jac_FULL(327,251) + JVS(3613) = 0 IF (DO_JVS(3614)) & -! JVS(3614) = Jac_FULL(279,282) - JVS(3614) = -B(27) +! JVS(3614) = Jac_FULL(327,253) + JVS(3614) = 0 IF (DO_JVS(3615)) & -! JVS(3615) = Jac_FULL(279,283) +! JVS(3615) = Jac_FULL(327,256) JVS(3615) = 0 IF (DO_JVS(3616)) & -! JVS(3616) = Jac_FULL(279,284) - JVS(3616) = -B(43) +! JVS(3616) = Jac_FULL(327,261) + JVS(3616) = B(1318) IF (DO_JVS(3617)) & -! JVS(3617) = Jac_FULL(279,285) - JVS(3617) = -B(483) +! JVS(3617) = Jac_FULL(327,266) + JVS(3617) = 0 IF (DO_JVS(3618)) & -! JVS(3618) = Jac_FULL(279,286) - JVS(3618) = -B(70) +! JVS(3618) = Jac_FULL(327,267) + JVS(3618) = 0 IF (DO_JVS(3619)) & -! JVS(3619) = Jac_FULL(279,287) +! JVS(3619) = Jac_FULL(327,268) JVS(3619) = 0 IF (DO_JVS(3620)) & -! JVS(3620) = Jac_FULL(279,288) - JVS(3620) = B(362)-B(367) +! JVS(3620) = Jac_FULL(327,269) + JVS(3620) = 0.5*B(1459) IF (DO_JVS(3621)) & -! JVS(3621) = Jac_FULL(279,289) - JVS(3621) = 0 +! JVS(3621) = Jac_FULL(327,270) + JVS(3621) = B(316) IF (DO_JVS(3622)) & -! JVS(3622) = Jac_FULL(279,290) +! JVS(3622) = Jac_FULL(327,271) JVS(3622) = 0 IF (DO_JVS(3623)) & -! JVS(3623) = Jac_FULL(279,291) - JVS(3623) = B(92)+B(363)+B(1362) +! JVS(3623) = Jac_FULL(327,272) + JVS(3623) = 0 IF (DO_JVS(3624)) & -! JVS(3624) = Jac_FULL(280,147) - JVS(3624) = B(4) +! JVS(3624) = Jac_FULL(327,273) + JVS(3624) = 0 IF (DO_JVS(3625)) & -! JVS(3625) = Jac_FULL(280,173) - JVS(3625) = -B(1219) +! JVS(3625) = Jac_FULL(327,275) + JVS(3625) = 0 IF (DO_JVS(3626)) & -! JVS(3626) = Jac_FULL(280,203) - JVS(3626) = -B(1313) +! JVS(3626) = Jac_FULL(327,276) + JVS(3626) = 0 IF (DO_JVS(3627)) & -! JVS(3627) = Jac_FULL(280,235) - JVS(3627) = -B(1245) +! JVS(3627) = Jac_FULL(327,277) + JVS(3627) = 0 IF (DO_JVS(3628)) & -! JVS(3628) = Jac_FULL(280,260) - JVS(3628) = -B(1271) +! JVS(3628) = Jac_FULL(327,278) + JVS(3628) = 0 IF (DO_JVS(3629)) & -! JVS(3629) = Jac_FULL(280,262) - JVS(3629) = -B(1241) +! JVS(3629) = Jac_FULL(327,280) + JVS(3629) = 0 IF (DO_JVS(3630)) & -! JVS(3630) = Jac_FULL(280,265) +! JVS(3630) = Jac_FULL(327,281) JVS(3630) = 0 IF (DO_JVS(3631)) & -! JVS(3631) = Jac_FULL(280,266) +! JVS(3631) = Jac_FULL(327,285) JVS(3631) = 0 IF (DO_JVS(3632)) & -! JVS(3632) = Jac_FULL(280,267) +! JVS(3632) = Jac_FULL(327,286) JVS(3632) = 0 IF (DO_JVS(3633)) & -! JVS(3633) = Jac_FULL(280,268) - JVS(3633) = -B(1329) +! JVS(3633) = Jac_FULL(327,288) + JVS(3633) = 0 IF (DO_JVS(3634)) & -! JVS(3634) = Jac_FULL(280,269) +! JVS(3634) = Jac_FULL(327,289) JVS(3634) = 0 IF (DO_JVS(3635)) & -! JVS(3635) = Jac_FULL(280,270) - JVS(3635) = -B(1321) +! JVS(3635) = Jac_FULL(327,291) + JVS(3635) = 0 IF (DO_JVS(3636)) & -! JVS(3636) = Jac_FULL(280,271) - JVS(3636) = -B(1261) +! JVS(3636) = Jac_FULL(327,292) + JVS(3636) = B(251) IF (DO_JVS(3637)) & -! JVS(3637) = Jac_FULL(280,272) +! JVS(3637) = Jac_FULL(327,293) JVS(3637) = 0 IF (DO_JVS(3638)) & -! JVS(3638) = Jac_FULL(280,273) - JVS(3638) = 0 +! JVS(3638) = Jac_FULL(327,294) + JVS(3638) = B(318) IF (DO_JVS(3639)) & -! JVS(3639) = Jac_FULL(280,274) - JVS(3639) = 0 +! JVS(3639) = Jac_FULL(327,298) + JVS(3639) = B(210) IF (DO_JVS(3640)) & -! JVS(3640) = Jac_FULL(280,275) - JVS(3640) = B(5) +! JVS(3640) = Jac_FULL(327,299) + JVS(3640) = 0 IF (DO_JVS(3641)) & -! JVS(3641) = Jac_FULL(280,276) +! JVS(3641) = Jac_FULL(327,300) JVS(3641) = 0 IF (DO_JVS(3642)) & -! JVS(3642) = Jac_FULL(280,277) +! JVS(3642) = Jac_FULL(327,301) JVS(3642) = 0 IF (DO_JVS(3643)) & -! JVS(3643) = Jac_FULL(280,278) +! JVS(3643) = Jac_FULL(327,302) JVS(3643) = 0 IF (DO_JVS(3644)) & -! JVS(3644) = Jac_FULL(280,279) +! JVS(3644) = Jac_FULL(327,303) JVS(3644) = 0 IF (DO_JVS(3645)) & -! JVS(3645) = Jac_FULL(280,280) - JVS(3645) = -B(1220)-B(1223)-B(1242)-B(1246)-B(1262)-B(1272)-B(1314)-B(1322)-B(1330) +! JVS(3645) = Jac_FULL(327,304) + JVS(3645) = 0 IF (DO_JVS(3646)) & -! JVS(3646) = Jac_FULL(280,281) +! JVS(3646) = Jac_FULL(327,305) JVS(3646) = 0 IF (DO_JVS(3647)) & -! JVS(3647) = Jac_FULL(280,282) - JVS(3647) = 0 +! JVS(3647) = Jac_FULL(327,306) + JVS(3647) = B(295) IF (DO_JVS(3648)) & -! JVS(3648) = Jac_FULL(280,283) +! JVS(3648) = Jac_FULL(327,307) JVS(3648) = 0 IF (DO_JVS(3649)) & -! JVS(3649) = Jac_FULL(280,284) +! JVS(3649) = Jac_FULL(327,308) JVS(3649) = 0 IF (DO_JVS(3650)) & -! JVS(3650) = Jac_FULL(280,285) - JVS(3650) = 0 +! JVS(3650) = Jac_FULL(327,309) + JVS(3650) = 0.32*B(1234) IF (DO_JVS(3651)) & -! JVS(3651) = Jac_FULL(280,286) - JVS(3651) = -B(1224) +! JVS(3651) = Jac_FULL(327,310) + JVS(3651) = 0 IF (DO_JVS(3652)) & -! JVS(3652) = Jac_FULL(280,287) +! JVS(3652) = Jac_FULL(327,311) JVS(3652) = 0 IF (DO_JVS(3653)) & -! JVS(3653) = Jac_FULL(280,288) +! JVS(3653) = Jac_FULL(327,313) JVS(3653) = 0 IF (DO_JVS(3654)) & -! JVS(3654) = Jac_FULL(280,289) +! JVS(3654) = Jac_FULL(327,314) JVS(3654) = 0 IF (DO_JVS(3655)) & -! JVS(3655) = Jac_FULL(280,290) - JVS(3655) = 0 +! JVS(3655) = Jac_FULL(327,317) + JVS(3655) = B(1513)+B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525) IF (DO_JVS(3656)) & -! JVS(3656) = Jac_FULL(280,291) +! JVS(3656) = Jac_FULL(327,318) JVS(3656) = 0 IF (DO_JVS(3657)) & -! JVS(3657) = Jac_FULL(281,67) - JVS(3657) = 0.3*B(1376) +! JVS(3657) = Jac_FULL(327,319) + JVS(3657) = 0 IF (DO_JVS(3658)) & -! JVS(3658) = Jac_FULL(281,74) - JVS(3658) = B(1451) +! JVS(3658) = Jac_FULL(327,320) + JVS(3658) = 0 IF (DO_JVS(3659)) & -! JVS(3659) = Jac_FULL(281,90) - JVS(3659) = -B(286) +! JVS(3659) = Jac_FULL(327,321) + JVS(3659) = 0 IF (DO_JVS(3660)) & -! JVS(3660) = Jac_FULL(281,101) - JVS(3660) = -B(1148) +! JVS(3660) = Jac_FULL(327,322) + JVS(3660) = 0 IF (DO_JVS(3661)) & -! JVS(3661) = Jac_FULL(281,102) - JVS(3661) = B(1369) +! JVS(3661) = Jac_FULL(327,323) + JVS(3661) = 0 IF (DO_JVS(3662)) & -! JVS(3662) = Jac_FULL(281,114) - JVS(3662) = -B(140) +! JVS(3662) = Jac_FULL(327,324) + JVS(3662) = 0 IF (DO_JVS(3663)) & -! JVS(3663) = Jac_FULL(281,115) - JVS(3663) = -B(1138) +! JVS(3663) = Jac_FULL(327,325) + JVS(3663) = B(93) IF (DO_JVS(3664)) & -! JVS(3664) = Jac_FULL(281,118) - JVS(3664) = -B(1134) +! JVS(3664) = Jac_FULL(327,326) + JVS(3664) = B(97) IF (DO_JVS(3665)) & -! JVS(3665) = Jac_FULL(281,134) - JVS(3665) = B(694) +! JVS(3665) = Jac_FULL(327,327) + JVS(3665) = -B(7)-B(14)-B(67)-B(1649) IF (DO_JVS(3666)) & -! JVS(3666) = Jac_FULL(281,142) - JVS(3666) = -B(1144) +! JVS(3666) = Jac_FULL(327,328) + JVS(3666) = 0 IF (DO_JVS(3667)) & -! JVS(3667) = Jac_FULL(281,143) - JVS(3667) = -B(551) +! JVS(3667) = Jac_FULL(327,329) + JVS(3667) = 0 IF (DO_JVS(3668)) & -! JVS(3668) = Jac_FULL(281,153) - JVS(3668) = B(1059) +! JVS(3668) = Jac_FULL(327,332) + JVS(3668) = B(1587)+B(1588)+B(1589)+B(1599)+B(1601)+B(1603)+B(1605) IF (DO_JVS(3669)) & -! JVS(3669) = Jac_FULL(281,154) - JVS(3669) = -B(636) +! JVS(3669) = Jac_FULL(327,334) + JVS(3669) = 0 IF (DO_JVS(3670)) & -! JVS(3670) = Jac_FULL(281,155) - JVS(3670) = -B(638) +! JVS(3670) = Jac_FULL(327,335) + JVS(3670) = B(65)+0.5*B(1492) IF (DO_JVS(3671)) & -! JVS(3671) = Jac_FULL(281,161) - JVS(3671) = -B(249) +! JVS(3671) = Jac_FULL(327,336) + JVS(3671) = 2*B(1497)+B(1510)+B(1514)+B(1590) IF (DO_JVS(3672)) & -! JVS(3672) = Jac_FULL(281,170) - JVS(3672) = -B(644) +! JVS(3672) = Jac_FULL(327,337) + JVS(3672) = 0 IF (DO_JVS(3673)) & -! JVS(3673) = Jac_FULL(281,173) - JVS(3673) = B(86)+B(1373) +! JVS(3673) = Jac_FULL(327,338) + JVS(3673) = 0 IF (DO_JVS(3674)) & -! JVS(3674) = Jac_FULL(281,176) - JVS(3674) = B(302)+B(1403) +! JVS(3674) = Jac_FULL(327,339) + JVS(3674) = B(1499)+B(1512)+B(1516) IF (DO_JVS(3675)) & -! JVS(3675) = Jac_FULL(281,178) - JVS(3675) = -B(690) +! JVS(3675) = Jac_FULL(327,340) + JVS(3675) = 0 IF (DO_JVS(3676)) & -! JVS(3676) = Jac_FULL(281,179) - JVS(3676) = -B(1103) +! JVS(3676) = Jac_FULL(327,341) + JVS(3676) = 0 IF (DO_JVS(3677)) & -! JVS(3677) = Jac_FULL(281,184) - JVS(3677) = -B(1126) +! JVS(3677) = Jac_FULL(327,342) + JVS(3677) = 0 IF (DO_JVS(3678)) & -! JVS(3678) = Jac_FULL(281,191) - JVS(3678) = B(1161)-B(1165) +! JVS(3678) = Jac_FULL(327,343) + JVS(3678) = 0 IF (DO_JVS(3679)) & -! JVS(3679) = Jac_FULL(281,195) - JVS(3679) = B(610) +! JVS(3679) = Jac_FULL(327,344) + JVS(3679) = B(1504)+B(1526)+B(1606) IF (DO_JVS(3680)) & -! JVS(3680) = Jac_FULL(281,199) - JVS(3680) = -B(688) +! JVS(3680) = Jac_FULL(327,345) + JVS(3680) = B(66)-B(68) IF (DO_JVS(3681)) & -! JVS(3681) = Jac_FULL(281,203) +! JVS(3681) = Jac_FULL(327,346) JVS(3681) = 0 IF (DO_JVS(3682)) & -! JVS(3682) = Jac_FULL(281,207) +! JVS(3682) = Jac_FULL(327,347) JVS(3682) = 0 IF (DO_JVS(3683)) & -! JVS(3683) = Jac_FULL(281,208) - JVS(3683) = -B(1075) +! JVS(3683) = Jac_FULL(327,348) + JVS(3683) = 0 IF (DO_JVS(3684)) & -! JVS(3684) = Jac_FULL(281,210) - JVS(3684) = -B(1177) +! JVS(3684) = Jac_FULL(327,349) + JVS(3684) = B(1520)+B(1600) IF (DO_JVS(3685)) & -! JVS(3685) = Jac_FULL(281,214) - JVS(3685) = 0 +! JVS(3685) = Jac_FULL(327,350) + JVS(3685) = B(1522)+B(1602) IF (DO_JVS(3686)) & -! JVS(3686) = Jac_FULL(281,215) - JVS(3686) = -B(674) +! 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) IF (DO_JVS(3687)) & -! JVS(3687) = Jac_FULL(281,216) - JVS(3687) = -B(676) +! JVS(3687) = Jac_FULL(327,352) + JVS(3687) = B(1518) IF (DO_JVS(3688)) & -! JVS(3688) = Jac_FULL(281,222) - JVS(3688) = 0 +! JVS(3688) = Jac_FULL(327,353) + JVS(3688) = B(1502)+B(1524)+B(1604) IF (DO_JVS(3689)) & -! JVS(3689) = Jac_FULL(281,223) - JVS(3689) = -B(223) +! JVS(3689) = Jac_FULL(328,52) + JVS(3689) = B(685) IF (DO_JVS(3690)) & -! JVS(3690) = Jac_FULL(281,224) - JVS(3690) = -B(904) +! JVS(3690) = Jac_FULL(328,80) + JVS(3690) = B(380)+B(1742) IF (DO_JVS(3691)) & -! JVS(3691) = Jac_FULL(281,225) - JVS(3691) = -B(654) +! JVS(3691) = Jac_FULL(328,92) + JVS(3691) = B(1689) IF (DO_JVS(3692)) & -! JVS(3692) = Jac_FULL(281,226) - JVS(3692) = -B(179) +! JVS(3692) = Jac_FULL(328,94) + JVS(3692) = B(381)+B(383)+B(385) IF (DO_JVS(3693)) & -! JVS(3693) = Jac_FULL(281,228) - JVS(3693) = 0 +! JVS(3693) = Jac_FULL(328,105) + JVS(3693) = B(497)+B(1698) IF (DO_JVS(3694)) & -! JVS(3694) = Jac_FULL(281,229) - JVS(3694) = 0 +! JVS(3694) = Jac_FULL(328,139) + JVS(3694) = 0.3*B(1658) IF (DO_JVS(3695)) & -! JVS(3695) = Jac_FULL(281,230) - JVS(3695) = 0 +! JVS(3695) = Jac_FULL(328,155) + JVS(3695) = B(1684) IF (DO_JVS(3696)) & -! JVS(3696) = Jac_FULL(281,232) - JVS(3696) = 0 +! JVS(3696) = Jac_FULL(328,159) + JVS(3696) = 0.162*B(1280)+0.488*B(1771) IF (DO_JVS(3697)) & -! JVS(3697) = Jac_FULL(281,233) - JVS(3697) = -B(225) +! JVS(3697) = Jac_FULL(328,164) + JVS(3697) = 0.7*B(59)+B(615) IF (DO_JVS(3698)) & -! JVS(3698) = Jac_FULL(281,234) - JVS(3698) = B(596) +! JVS(3698) = Jac_FULL(328,181) + JVS(3698) = 0.9*B(495)+B(1699) IF (DO_JVS(3699)) & -! JVS(3699) = Jac_FULL(281,236) - JVS(3699) = 0 +! JVS(3699) = Jac_FULL(328,228) + JVS(3699) = B(47)+0.75*B(443)+B(563) IF (DO_JVS(3700)) & -! JVS(3700) = Jac_FULL(281,238) - JVS(3700) = -B(630) +! JVS(3700) = Jac_FULL(328,234) + JVS(3700) = -B(1370) IF (DO_JVS(3701)) & -! JVS(3701) = Jac_FULL(281,240) - JVS(3701) = 0 +! JVS(3701) = Jac_FULL(328,235) + JVS(3701) = -B(1463) IF (DO_JVS(3702)) & -! JVS(3702) = Jac_FULL(281,241) - JVS(3702) = 0.69*B(993) +! JVS(3702) = Jac_FULL(328,236) + JVS(3702) = -B(1461) IF (DO_JVS(3703)) & -! JVS(3703) = Jac_FULL(281,242) +! JVS(3703) = Jac_FULL(328,240) JVS(3703) = 0 IF (DO_JVS(3704)) & -! JVS(3704) = Jac_FULL(281,243) +! JVS(3704) = Jac_FULL(328,246) JVS(3704) = 0 IF (DO_JVS(3705)) & -! JVS(3705) = Jac_FULL(281,244) - JVS(3705) = 0 +! JVS(3705) = Jac_FULL(328,249) + JVS(3705) = -B(259)+0.9*B(361) IF (DO_JVS(3706)) & -! JVS(3706) = Jac_FULL(281,245) - JVS(3706) = 0 +! JVS(3706) = Jac_FULL(328,250) + JVS(3706) = -B(267)+0.9*B(363) IF (DO_JVS(3707)) & -! JVS(3707) = Jac_FULL(281,246) - JVS(3707) = -B(924) +! JVS(3707) = Jac_FULL(328,251) + JVS(3707) = 0.19*B(1685) IF (DO_JVS(3708)) & -! JVS(3708) = Jac_FULL(281,247) - JVS(3708) = -B(922) +! JVS(3708) = Jac_FULL(328,257) + JVS(3708) = -B(893)+B(895) IF (DO_JVS(3709)) & -! JVS(3709) = Jac_FULL(281,248) - JVS(3709) = 0 +! JVS(3709) = Jac_FULL(328,259) + JVS(3709) = 0.325*B(1278)+0.65*B(1287) IF (DO_JVS(3710)) & -! JVS(3710) = Jac_FULL(281,249) - JVS(3710) = -B(1054) +! JVS(3710) = Jac_FULL(328,260) + JVS(3710) = -B(216)+0.9*B(369) IF (DO_JVS(3711)) & -! JVS(3711) = Jac_FULL(281,250) - JVS(3711) = 0 +! JVS(3711) = Jac_FULL(328,263) + JVS(3711) = -B(1393)+B(1395) IF (DO_JVS(3712)) & -! JVS(3712) = Jac_FULL(281,251) - JVS(3712) = -B(991) +! JVS(3712) = Jac_FULL(328,272) + JVS(3712) = -B(830) IF (DO_JVS(3713)) & -! JVS(3713) = Jac_FULL(281,252) - JVS(3713) = 0 +! JVS(3713) = Jac_FULL(328,273) + JVS(3713) = -B(792) IF (DO_JVS(3714)) & -! JVS(3714) = Jac_FULL(281,253) - JVS(3714) = -B(217) +! JVS(3714) = Jac_FULL(328,274) + JVS(3714) = -B(897)+B(899) IF (DO_JVS(3715)) & -! JVS(3715) = Jac_FULL(281,254) - JVS(3715) = 0 +! JVS(3715) = Jac_FULL(328,275) + JVS(3715) = -B(881)+0.9*B(883) IF (DO_JVS(3716)) & -! JVS(3716) = Jac_FULL(281,256) - JVS(3716) = 0 +! JVS(3716) = Jac_FULL(328,276) + JVS(3716) = 0.407*B(947) IF (DO_JVS(3717)) & -! JVS(3717) = Jac_FULL(281,257) - JVS(3717) = 0 +! JVS(3717) = Jac_FULL(328,277) + JVS(3717) = -B(877)+0.9*B(879) IF (DO_JVS(3718)) & -! JVS(3718) = Jac_FULL(281,258) - JVS(3718) = 0 +! JVS(3718) = Jac_FULL(328,278) + JVS(3718) = -B(768) IF (DO_JVS(3719)) & -! JVS(3719) = Jac_FULL(281,259) - JVS(3719) = -B(153) +! JVS(3719) = Jac_FULL(328,279) + JVS(3719) = 0.19*B(1688) IF (DO_JVS(3720)) & -! JVS(3720) = Jac_FULL(281,261) - JVS(3720) = 0 +! JVS(3720) = Jac_FULL(328,280) + JVS(3720) = -B(909)+B(913) IF (DO_JVS(3721)) & -! JVS(3721) = Jac_FULL(281,262) - JVS(3721) = B(446)+B(502)+B(504)+B(1417) +! JVS(3721) = Jac_FULL(328,281) + JVS(3721) = -B(885)+0.9*B(887) IF (DO_JVS(3722)) & -! JVS(3722) = Jac_FULL(281,263) - JVS(3722) = -B(93) +! JVS(3722) = Jac_FULL(328,283) + JVS(3722) = B(199)+B(627) IF (DO_JVS(3723)) & -! JVS(3723) = Jac_FULL(281,264) - JVS(3723) = -B(97) +! JVS(3723) = Jac_FULL(328,289) + JVS(3723) = -B(911)+0.5*B(915) IF (DO_JVS(3724)) & -! JVS(3724) = Jac_FULL(281,265) - JVS(3724) = B(67) +! JVS(3724) = Jac_FULL(328,290) + JVS(3724) = 0.28*B(287) IF (DO_JVS(3725)) & -! JVS(3725) = Jac_FULL(281,266) - JVS(3725) = -B(1205) +! JVS(3725) = Jac_FULL(328,291) + JVS(3725) = -B(889)+0.9*B(891) IF (DO_JVS(3726)) & -! JVS(3726) = Jac_FULL(281,267) - JVS(3726) = 0 +! JVS(3726) = Jac_FULL(328,292) + JVS(3726) = 0.15*B(1665) IF (DO_JVS(3727)) & -! JVS(3727) = Jac_FULL(281,269) - JVS(3727) = B(556) +! JVS(3727) = Jac_FULL(328,295) + JVS(3727) = B(1663)+2*B(1664) IF (DO_JVS(3728)) & -! JVS(3728) = Jac_FULL(281,270) - JVS(3728) = B(557)+B(1441) +! JVS(3728) = Jac_FULL(328,296) + JVS(3728) = -B(247)+0.9*B(365) IF (DO_JVS(3729)) & -! JVS(3729) = Jac_FULL(281,272) - JVS(3729) = 0 +! JVS(3729) = Jac_FULL(328,300) + JVS(3729) = 0.19*B(171)-0.91*B(257)+0.9*B(351) IF (DO_JVS(3730)) & -! JVS(3730) = Jac_FULL(281,273) - JVS(3730) = B(303)-B(312) +! JVS(3730) = Jac_FULL(328,304) + JVS(3730) = -B(981)-B(983) IF (DO_JVS(3731)) & -! JVS(3731) = Jac_FULL(281,274) - JVS(3731) = 0 +! JVS(3731) = Jac_FULL(328,305) + JVS(3731) = -B(977)-B(979) IF (DO_JVS(3732)) & -! JVS(3732) = Jac_FULL(281,275) - JVS(3732) = 0 +! JVS(3732) = Jac_FULL(328,307) + JVS(3732) = 0.5*B(322) IF (DO_JVS(3733)) & -! JVS(3733) = Jac_FULL(281,276) - JVS(3733) = 0 +! JVS(3733) = Jac_FULL(328,308) + JVS(3733) = -B(1299) IF (DO_JVS(3734)) & -! JVS(3734) = Jac_FULL(281,277) +! JVS(3734) = Jac_FULL(328,309) JVS(3734) = 0 IF (DO_JVS(3735)) & -! JVS(3735) = Jac_FULL(281,278) - JVS(3735) = 0 +! JVS(3735) = Jac_FULL(328,310) + JVS(3735) = -B(1159)+B(1161) IF (DO_JVS(3736)) & -! JVS(3736) = Jac_FULL(281,279) - JVS(3736) = -B(80) +! JVS(3736) = Jac_FULL(328,311) + JVS(3736) = -B(1157)+B(1163) IF (DO_JVS(3737)) & -! JVS(3737) = Jac_FULL(281,280) - JVS(3737) = 0 +! JVS(3737) = Jac_FULL(328,313) + JVS(3737) = -B(261)+0.9*B(353) IF (DO_JVS(3738)) & -! JVS(3738) = Jac_FULL(281,281) - JVS(3738) = -B(78)-B(81)-B(82)-B(84)-B(91)-B(94)-B(98)-B(141)-B(154)-B(180)-B(218)-B(224)-B(226)-B(250)-2*B(278)& - &-B(287)-B(313)-B(364)-B(552)-B(631)-B(637)-B(639)-B(645)-B(655)-B(675)-B(677)-B(689)-B(691)-B(905)-B(923)& - &-B(925)-B(992)-B(1055)-B(1076)-B(1104)-B(1127)-B(1135)-B(1139)-B(1145)-B(1149)-B(1166)-B(1178)-B(1206)& - &-B(1211)-B(1212)-B(1213)-B(1371)-B(1372) +! JVS(3738) = Jac_FULL(328,314) + JVS(3738) = B(1673) IF (DO_JVS(3739)) & -! JVS(3739) = Jac_FULL(281,282) - JVS(3739) = B(32) +! JVS(3739) = Jac_FULL(328,315) + JVS(3739) = -B(249)+0.9*B(367) IF (DO_JVS(3740)) & -! JVS(3740) = Jac_FULL(281,283) - JVS(3740) = 0 +! JVS(3740) = Jac_FULL(328,318) + JVS(3740) = -B(255)+0.9*B(359) IF (DO_JVS(3741)) & -! JVS(3741) = Jac_FULL(281,284) - JVS(3741) = -B(79) +! JVS(3741) = Jac_FULL(328,319) + JVS(3741) = 0.19*B(177)-0.91*B(253)+0.9*B(349) IF (DO_JVS(3742)) & -! JVS(3742) = Jac_FULL(281,285) - JVS(3742) = 0 +! JVS(3742) = Jac_FULL(328,320) + JVS(3742) = 0.85*B(228)-0.75*B(263)+0.9*B(355) IF (DO_JVS(3743)) & -! JVS(3743) = Jac_FULL(281,286) - JVS(3743) = B(68)-B(83)+B(447)+B(695)+0.69*B(994)+B(1060) +! JVS(3743) = Jac_FULL(328,321) + JVS(3743) = -B(214)+0.9*B(371) IF (DO_JVS(3744)) & -! JVS(3744) = Jac_FULL(281,287) - JVS(3744) = 0 +! JVS(3744) = Jac_FULL(328,322) + JVS(3744) = B(373)-B(375) IF (DO_JVS(3745)) & -! JVS(3745) = Jac_FULL(281,288) - JVS(3745) = -B(365)+B(368)+B(503) +! JVS(3745) = Jac_FULL(328,323) + JVS(3745) = -B(265)+0.9*B(357) IF (DO_JVS(3746)) & -! JVS(3746) = Jac_FULL(281,289) - JVS(3746) = 0 +! 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) IF (DO_JVS(3747)) & -! JVS(3747) = Jac_FULL(281,290) - JVS(3747) = B(505) +! JVS(3747) = Jac_FULL(328,326) + JVS(3747) = 0.88*B(1656) IF (DO_JVS(3748)) & -! JVS(3748) = Jac_FULL(281,291) - JVS(3748) = B(33)-B(85)-B(92)+B(369)+B(597)+B(611)+B(1162) +! 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) IF (DO_JVS(3749)) & -! JVS(3749) = Jac_FULL(282,76) - JVS(3749) = -B(1093) +! JVS(3749) = Jac_FULL(328,329) + JVS(3749) = 0 IF (DO_JVS(3750)) & -! JVS(3750) = Jac_FULL(282,138) - JVS(3750) = -B(8) +! JVS(3750) = Jac_FULL(328,334) + JVS(3750) = 0.75*B(444)+0.9*B(496)+B(498) IF (DO_JVS(3751)) & -! JVS(3751) = Jac_FULL(282,142) - JVS(3751) = -B(1142) +! JVS(3751) = Jac_FULL(328,335) + JVS(3751) = -B(379) IF (DO_JVS(3752)) & -! JVS(3752) = Jac_FULL(282,147) - JVS(3752) = -B(1) +! JVS(3752) = Jac_FULL(328,336) + JVS(3752) = 0 IF (DO_JVS(3753)) & -! JVS(3753) = Jac_FULL(282,148) - JVS(3753) = -B(1190) +! JVS(3753) = Jac_FULL(328,337) + JVS(3753) = -B(54)+0.85*B(229)+0.325*B(1279)+0.5*B(1325) IF (DO_JVS(3754)) & -! JVS(3754) = Jac_FULL(282,154) - JVS(3754) = -B(632) +! JVS(3754) = Jac_FULL(328,338) + JVS(3754) = -B(530) IF (DO_JVS(3755)) & -! JVS(3755) = Jac_FULL(282,155) - JVS(3755) = -B(634) +! JVS(3755) = Jac_FULL(328,340) + JVS(3755) = B(564)-B(614)+B(616)+B(628) IF (DO_JVS(3756)) & -! JVS(3756) = Jac_FULL(282,159) - JVS(3756) = -B(1185) +! JVS(3756) = Jac_FULL(328,341) + JVS(3756) = -B(35)+0.28*B(288)+0.407*B(948) IF (DO_JVS(3757)) & -! JVS(3757) = Jac_FULL(282,160) - JVS(3757) = -B(1171) +! JVS(3757) = Jac_FULL(328,342) + JVS(3757) = 0 IF (DO_JVS(3758)) & -! JVS(3758) = Jac_FULL(282,170) - JVS(3758) = -B(642) +! 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) IF (DO_JVS(3759)) & -! JVS(3759) = Jac_FULL(282,177) - JVS(3759) = -B(374) +! 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) IF (DO_JVS(3760)) & -! JVS(3760) = Jac_FULL(282,180) - JVS(3760) = 0.15*B(1150) +! JVS(3760) = Jac_FULL(328,348) + JVS(3760) = 0 IF (DO_JVS(3761)) & -! JVS(3761) = Jac_FULL(282,190) - JVS(3761) = 0 +! JVS(3761) = Jac_FULL(328,351) + JVS(3761) = B(386)-B(1488) IF (DO_JVS(3762)) & -! JVS(3762) = Jac_FULL(282,191) - JVS(3762) = 0 +! JVS(3762) = Jac_FULL(329,60) + JVS(3762) = 0.364*B(1362) IF (DO_JVS(3763)) & -! JVS(3763) = Jac_FULL(282,199) - JVS(3763) = -B(686) +! JVS(3763) = Jac_FULL(329,68) + JVS(3763) = B(457)+B(1745) IF (DO_JVS(3764)) & -! JVS(3764) = Jac_FULL(282,207) - JVS(3764) = 0.13*B(1035) +! JVS(3764) = Jac_FULL(329,75) + JVS(3764) = B(609) IF (DO_JVS(3765)) & -! JVS(3765) = Jac_FULL(282,210) - JVS(3765) = 0 +! JVS(3765) = Jac_FULL(329,79) + JVS(3765) = B(607) IF (DO_JVS(3766)) & -! JVS(3766) = Jac_FULL(282,215) - JVS(3766) = 0 +! JVS(3766) = Jac_FULL(329,82) + JVS(3766) = 0.27*B(1383) IF (DO_JVS(3767)) & -! JVS(3767) = Jac_FULL(282,216) - JVS(3767) = 0 +! JVS(3767) = Jac_FULL(329,101) + JVS(3767) = 0.3*B(1385) IF (DO_JVS(3768)) & -! JVS(3768) = Jac_FULL(282,224) - JVS(3768) = -B(704) +! JVS(3768) = Jac_FULL(329,107) + JVS(3768) = B(1304) IF (DO_JVS(3769)) & -! JVS(3769) = Jac_FULL(282,225) - JVS(3769) = 0 +! JVS(3769) = Jac_FULL(329,113) + JVS(3769) = B(241) IF (DO_JVS(3770)) & -! JVS(3770) = Jac_FULL(282,234) - JVS(3770) = -B(602) +! JVS(3770) = Jac_FULL(329,114) + JVS(3770) = B(306) IF (DO_JVS(3771)) & -! JVS(3771) = Jac_FULL(282,238) - JVS(3771) = 0 +! JVS(3771) = Jac_FULL(329,119) + JVS(3771) = B(1013) IF (DO_JVS(3772)) & -! JVS(3772) = Jac_FULL(282,248) - JVS(3772) = -B(983) +! JVS(3772) = Jac_FULL(329,122) + JVS(3772) = 2*B(1412) IF (DO_JVS(3773)) & -! JVS(3773) = Jac_FULL(282,249) - JVS(3773) = 0.13*B(1048) +! JVS(3773) = Jac_FULL(329,124) + JVS(3773) = B(206) IF (DO_JVS(3774)) & -! JVS(3774) = Jac_FULL(282,251) - JVS(3774) = -B(989) +! JVS(3774) = Jac_FULL(329,126) + JVS(3774) = B(167) IF (DO_JVS(3775)) & -! JVS(3775) = Jac_FULL(282,253) - JVS(3775) = -B(211) +! JVS(3775) = Jac_FULL(329,127) + JVS(3775) = B(152) IF (DO_JVS(3776)) & -! JVS(3776) = Jac_FULL(282,255) - JVS(3776) = 0.15*B(207) +! JVS(3776) = Jac_FULL(329,132) + JVS(3776) = B(156)+B(158) IF (DO_JVS(3777)) & -! JVS(3777) = Jac_FULL(282,256) - JVS(3777) = 0 +! JVS(3777) = Jac_FULL(329,139) + JVS(3777) = B(102) IF (DO_JVS(3778)) & -! JVS(3778) = Jac_FULL(282,257) - JVS(3778) = 0 +! JVS(3778) = Jac_FULL(329,143) + JVS(3778) = 0.2*B(1381) IF (DO_JVS(3779)) & -! JVS(3779) = Jac_FULL(282,259) - JVS(3779) = 0 +! JVS(3779) = Jac_FULL(329,144) + JVS(3779) = 0.23*B(1007)+B(1782) IF (DO_JVS(3780)) & -! JVS(3780) = Jac_FULL(282,261) - JVS(3780) = 0.13*B(1081) +! JVS(3780) = Jac_FULL(329,146) + JVS(3780) = B(1661) IF (DO_JVS(3781)) & -! JVS(3781) = Jac_FULL(282,263) - JVS(3781) = 0 +! JVS(3781) = Jac_FULL(329,147) + JVS(3781) = 0.888*B(1308)+B(1796) IF (DO_JVS(3782)) & -! JVS(3782) = Jac_FULL(282,264) - JVS(3782) = 0 +! JVS(3782) = Jac_FULL(329,150) + JVS(3782) = 0.42*B(1005)+B(1781) IF (DO_JVS(3783)) & -! JVS(3783) = Jac_FULL(282,265) - JVS(3783) = 0 +! JVS(3783) = Jac_FULL(329,153) + JVS(3783) = 0.84*B(1268) IF (DO_JVS(3784)) & -! JVS(3784) = Jac_FULL(282,266) - JVS(3784) = -B(34) +! JVS(3784) = Jac_FULL(329,159) + JVS(3784) = 0.488*B(1280) IF (DO_JVS(3785)) & -! JVS(3785) = Jac_FULL(282,267) - JVS(3785) = 0 +! JVS(3785) = Jac_FULL(329,167) + JVS(3785) = 0.15*B(725) IF (DO_JVS(3786)) & -! JVS(3786) = Jac_FULL(282,269) - JVS(3786) = -B(570) +! JVS(3786) = Jac_FULL(329,181) + JVS(3786) = B(605) IF (DO_JVS(3787)) & -! JVS(3787) = Jac_FULL(282,270) - JVS(3787) = 0 +! JVS(3787) = Jac_FULL(329,182) + JVS(3787) = 0.33*B(1214)+0.33*B(1216) IF (DO_JVS(3788)) & -! JVS(3788) = Jac_FULL(282,272) - JVS(3788) = -B(356) +! JVS(3788) = Jac_FULL(329,184) + JVS(3788) = 0.25*B(1302) IF (DO_JVS(3789)) & -! JVS(3789) = Jac_FULL(282,273) - JVS(3789) = -B(290) +! JVS(3789) = Jac_FULL(329,185) + JVS(3789) = B(1260)+0.571*B(1768) IF (DO_JVS(3790)) & -! JVS(3790) = Jac_FULL(282,274) - JVS(3790) = 0 +! JVS(3790) = Jac_FULL(329,187) + JVS(3790) = 0.25*B(1023) IF (DO_JVS(3791)) & -! JVS(3791) = Jac_FULL(282,275) - JVS(3791) = 0 +! JVS(3791) = Jac_FULL(329,191) + JVS(3791) = 0.1*B(733) IF (DO_JVS(3792)) & -! JVS(3792) = Jac_FULL(282,276) - JVS(3792) = -B(2)-B(9)-B(17) +! JVS(3792) = Jac_FULL(329,192) + JVS(3792) = 0.33*B(1025) IF (DO_JVS(3793)) & -! JVS(3793) = Jac_FULL(282,277) - JVS(3793) = -B(1285) +! JVS(3793) = Jac_FULL(329,194) + JVS(3793) = 0.75*B(1258)+0.875*B(1769) IF (DO_JVS(3794)) & -! JVS(3794) = Jac_FULL(282,278) - JVS(3794) = 0 +! JVS(3794) = Jac_FULL(329,197) + JVS(3794) = B(160)+B(162) IF (DO_JVS(3795)) & -! JVS(3795) = Jac_FULL(282,279) - JVS(3795) = -B(26) +! JVS(3795) = Jac_FULL(329,199) + JVS(3795) = 0.054*B(1029) IF (DO_JVS(3796)) & -! JVS(3796) = Jac_FULL(282,280) - JVS(3796) = 0 +! JVS(3796) = Jac_FULL(329,200) + JVS(3796) = 0.12*B(1348) IF (DO_JVS(3797)) & -! JVS(3797) = Jac_FULL(282,281) - JVS(3797) = 0 +! JVS(3797) = Jac_FULL(329,201) + JVS(3797) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474) IF (DO_JVS(3798)) & -! JVS(3798) = Jac_FULL(282,282) - JVS(3798) = -B(3)-B(10)-B(18)-B(27)-B(28)-B(30)-B(32)-B(35)-B(212)-B(291)-B(348)-B(357)-B(375)-B(468)-B(571)-B(603)& - &-B(633)-B(635)-B(643)-B(687)-B(705)-B(984)-B(990)-B(1094)-B(1143)-B(1172)-B(1186)-B(1191)-B(1281)-B(1283)& - &-B(1286)-B(1359)-B(1360) +! JVS(3798) = Jac_FULL(329,204) + JVS(3798) = B(1802) IF (DO_JVS(3799)) & -! JVS(3799) = Jac_FULL(282,283) - JVS(3799) = -B(1284) +! JVS(3799) = Jac_FULL(329,208) + JVS(3799) = 2*B(1266)+B(1765) IF (DO_JVS(3800)) & -! JVS(3800) = Jac_FULL(282,284) - JVS(3800) = -B(31)+0.15*B(208)+0.13*B(1036)+0.13*B(1049)+0.13*B(1082)+0.15*B(1151) +! JVS(3800) = Jac_FULL(329,209) + JVS(3800) = 0.036*B(1027) IF (DO_JVS(3801)) & -! JVS(3801) = Jac_FULL(282,285) - JVS(3801) = 0 +! JVS(3801) = Jac_FULL(329,210) + JVS(3801) = B(1326)+B(1762) IF (DO_JVS(3802)) & -! JVS(3802) = Jac_FULL(282,286) - JVS(3802) = -B(29) +! JVS(3802) = Jac_FULL(329,212) + JVS(3802) = 0 IF (DO_JVS(3803)) & -! JVS(3803) = Jac_FULL(282,287) +! JVS(3803) = Jac_FULL(329,213) JVS(3803) = 0 IF (DO_JVS(3804)) & -! JVS(3804) = Jac_FULL(282,288) - JVS(3804) = B(346)-B(349) +! JVS(3804) = Jac_FULL(329,215) + JVS(3804) = 1.5*B(1011) IF (DO_JVS(3805)) & -! JVS(3805) = Jac_FULL(282,289) - JVS(3805) = -B(1282) +! JVS(3805) = Jac_FULL(329,216) + JVS(3805) = 0.25*B(1244)+B(1774) IF (DO_JVS(3806)) & -! JVS(3806) = Jac_FULL(282,290) - JVS(3806) = -B(469) +! JVS(3806) = Jac_FULL(329,220) + JVS(3806) = 0.18*B(1342) IF (DO_JVS(3807)) & -! JVS(3807) = Jac_FULL(282,291) - JVS(3807) = -B(33) +! JVS(3807) = Jac_FULL(329,221) + JVS(3807) = 0.26*B(1465)+0.5*B(1467) IF (DO_JVS(3808)) & -! JVS(3808) = Jac_FULL(283,203) - JVS(3808) = -B(1309) +! JVS(3808) = Jac_FULL(329,223) + JVS(3808) = 0 IF (DO_JVS(3809)) & -! JVS(3809) = Jac_FULL(283,235) - JVS(3809) = -B(1251) +! JVS(3809) = Jac_FULL(329,225) + JVS(3809) = B(1808) IF (DO_JVS(3810)) & -! JVS(3810) = Jac_FULL(283,260) - JVS(3810) = -B(1275) +! JVS(3810) = Jac_FULL(329,226) + JVS(3810) = 0 IF (DO_JVS(3811)) & -! JVS(3811) = Jac_FULL(283,262) - JVS(3811) = -B(1237) +! JVS(3811) = Jac_FULL(329,227) + JVS(3811) = B(1264)+0.5*B(1766) IF (DO_JVS(3812)) & -! JVS(3812) = Jac_FULL(283,268) - JVS(3812) = -B(1325) +! JVS(3812) = Jac_FULL(329,230) + JVS(3812) = 0.45*B(1001)+0.888*B(1779) IF (DO_JVS(3813)) & -! JVS(3813) = Jac_FULL(283,269) - JVS(3813) = 0 +! JVS(3813) = Jac_FULL(329,231) + JVS(3813) = 0.37*B(1003)+0.818*B(1780) IF (DO_JVS(3814)) & -! JVS(3814) = Jac_FULL(283,270) - JVS(3814) = -B(1317) +! JVS(3814) = Jac_FULL(329,233) + JVS(3814) = 0.7*B(1660) IF (DO_JVS(3815)) & -! JVS(3815) = Jac_FULL(283,273) - JVS(3815) = 0 +! JVS(3815) = Jac_FULL(329,238) + JVS(3815) = 0.638*B(1009) IF (DO_JVS(3816)) & -! JVS(3816) = Jac_FULL(283,274) +! JVS(3816) = Jac_FULL(329,240) JVS(3816) = 0 IF (DO_JVS(3817)) & -! JVS(3817) = Jac_FULL(283,275) - JVS(3817) = 0 +! JVS(3817) = Jac_FULL(329,241) + JVS(3817) = -B(705) IF (DO_JVS(3818)) & -! JVS(3818) = Jac_FULL(283,276) - JVS(3818) = 0 +! JVS(3818) = Jac_FULL(329,243) + JVS(3818) = 0.52*B(1078)+0.8*B(1082)+2*B(1084) IF (DO_JVS(3819)) & -! JVS(3819) = Jac_FULL(283,277) +! JVS(3819) = Jac_FULL(329,246) JVS(3819) = 0 IF (DO_JVS(3820)) & -! JVS(3820) = Jac_FULL(283,278) - JVS(3820) = 0 +! JVS(3820) = Jac_FULL(329,248) + JVS(3820) = B(1773) IF (DO_JVS(3821)) & -! JVS(3821) = Jac_FULL(283,279) - JVS(3821) = 0 +! JVS(3821) = Jac_FULL(329,253) + JVS(3821) = 0.507*B(1276)+B(1282)+0.86*B(1283) IF (DO_JVS(3822)) & -! JVS(3822) = Jac_FULL(283,280) +! JVS(3822) = Jac_FULL(329,254) JVS(3822) = 0 IF (DO_JVS(3823)) & -! JVS(3823) = Jac_FULL(283,281) - JVS(3823) = 0 +! JVS(3823) = Jac_FULL(329,255) + JVS(3823) = B(1817) IF (DO_JVS(3824)) & -! JVS(3824) = Jac_FULL(283,282) - JVS(3824) = -B(1283) +! JVS(3824) = Jac_FULL(329,258) + JVS(3824) = B(1306)+B(1792)+0.163*B(1793) IF (DO_JVS(3825)) & -! JVS(3825) = Jac_FULL(283,283) - JVS(3825) = -B(1238)-B(1252)-B(1276)-B(1284)-B(1310)-B(1318)-B(1326) +! JVS(3825) = Jac_FULL(329,259) + JVS(3825) = 0.325*B(1278)+0.65*B(1287) IF (DO_JVS(3826)) & -! JVS(3826) = Jac_FULL(283,284) - JVS(3826) = 0 +! JVS(3826) = Jac_FULL(329,261) + JVS(3826) = B(1749) IF (DO_JVS(3827)) & -! JVS(3827) = Jac_FULL(283,285) - JVS(3827) = 0 +! JVS(3827) = Jac_FULL(329,266) + JVS(3827) = B(1314)+B(1800) IF (DO_JVS(3828)) & -! JVS(3828) = Jac_FULL(283,286) - JVS(3828) = 0 +! JVS(3828) = Jac_FULL(329,267) + JVS(3828) = 0.6*B(1111)+0.55*B(1786) IF (DO_JVS(3829)) & -! JVS(3829) = Jac_FULL(283,287) - JVS(3829) = 0 +! JVS(3829) = Jac_FULL(329,268) + JVS(3829) = 0.6*B(1109)+0.55*B(1783) IF (DO_JVS(3830)) & -! JVS(3830) = Jac_FULL(283,288) - JVS(3830) = 0 +! JVS(3830) = Jac_FULL(329,269) + JVS(3830) = 0.15*B(1457)+0.15*B(1459)+B(1805) IF (DO_JVS(3831)) & -! JVS(3831) = Jac_FULL(283,289) - JVS(3831) = B(1287) +! JVS(3831) = Jac_FULL(329,270) + JVS(3831) = 2*B(312)+2*B(316)+2*B(1667)+2*B(1668)+B(1669) IF (DO_JVS(3832)) & -! JVS(3832) = Jac_FULL(283,290) +! JVS(3832) = Jac_FULL(329,271) JVS(3832) = 0 IF (DO_JVS(3833)) & -! JVS(3833) = Jac_FULL(283,291) - JVS(3833) = 0 +! JVS(3833) = Jac_FULL(329,276) + JVS(3833) = 0.407*B(947)+0.6*B(953)+0.9*B(955) IF (DO_JVS(3834)) & -! JVS(3834) = Jac_FULL(284,58) - JVS(3834) = 0.364*B(1097) +! JVS(3834) = Jac_FULL(329,277) + JVS(3834) = 0 IF (DO_JVS(3835)) & -! JVS(3835) = Jac_FULL(284,64) - JVS(3835) = 0.54*B(1116) +! JVS(3835) = Jac_FULL(329,281) + JVS(3835) = 0 IF (DO_JVS(3836)) & -! JVS(3836) = Jac_FULL(284,72) - JVS(3836) = B(450)+B(508) +! JVS(3836) = Jac_FULL(329,285) + JVS(3836) = B(1071)+0.2*B(1072)+0.13*B(1076) IF (DO_JVS(3837)) & -! JVS(3837) = Jac_FULL(284,74) - JVS(3837) = B(1451) +! JVS(3837) = Jac_FULL(329,286) + JVS(3837) = B(1063)+0.13*B(1064)+0.2*B(1066) IF (DO_JVS(3838)) & -! JVS(3838) = Jac_FULL(284,78) - JVS(3838) = B(452)+B(510) +! JVS(3838) = Jac_FULL(329,287) + JVS(3838) = 0.77*B(1240)+0.77*B(1770) IF (DO_JVS(3839)) & -! JVS(3839) = Jac_FULL(284,79) - JVS(3839) = 0.19*B(1118) +! JVS(3839) = Jac_FULL(329,288) + JVS(3839) = 0 IF (DO_JVS(3840)) & -! JVS(3840) = Jac_FULL(284,80) - JVS(3840) = 0.15*B(1120) +! JVS(3840) = Jac_FULL(329,290) + JVS(3840) = 0.56*B(287) IF (DO_JVS(3841)) & -! JVS(3841) = Jac_FULL(284,85) - JVS(3841) = 0.5*B(1079) +! JVS(3841) = Jac_FULL(329,293) + JVS(3841) = 0 IF (DO_JVS(3842)) & -! JVS(3842) = Jac_FULL(284,87) - JVS(3842) = B(1469) +! JVS(3842) = Jac_FULL(329,294) + JVS(3842) = B(314)+B(318)+B(1670) IF (DO_JVS(3843)) & -! JVS(3843) = Jac_FULL(284,89) - JVS(3843) = B(1467) +! JVS(3843) = Jac_FULL(329,295) + JVS(3843) = B(1664) IF (DO_JVS(3844)) & -! JVS(3844) = Jac_FULL(284,91) - JVS(3844) = B(1470) +! JVS(3844) = Jac_FULL(329,298) + JVS(3844) = B(1662) IF (DO_JVS(3845)) & -! JVS(3845) = Jac_FULL(284,93) - JVS(3845) = B(1395) +! JVS(3845) = Jac_FULL(329,299) + JVS(3845) = 0 IF (DO_JVS(3846)) & -! JVS(3846) = Jac_FULL(284,94) - JVS(3846) = B(1393) +! JVS(3846) = Jac_FULL(329,300) + JVS(3846) = 0 IF (DO_JVS(3847)) & -! JVS(3847) = Jac_FULL(284,95) - JVS(3847) = B(1394) +! JVS(3847) = Jac_FULL(329,301) + JVS(3847) = 0.539*B(1212)+0.839*B(1790) IF (DO_JVS(3848)) & -! JVS(3848) = Jac_FULL(284,96) - JVS(3848) = B(1468) +! JVS(3848) = Jac_FULL(329,302) + JVS(3848) = 0 IF (DO_JVS(3849)) & -! JVS(3849) = Jac_FULL(284,100) - JVS(3849) = B(332) +! JVS(3849) = Jac_FULL(329,303) + JVS(3849) = 0 IF (DO_JVS(3850)) & -! JVS(3850) = Jac_FULL(284,101) - JVS(3850) = B(1512) +! JVS(3850) = Jac_FULL(329,304) + JVS(3850) = 0.9*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999) IF (DO_JVS(3851)) & -! JVS(3851) = Jac_FULL(284,102) - JVS(3851) = B(75)+B(1370) +! JVS(3851) = Jac_FULL(329,305) + JVS(3851) = 0.6*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991) IF (DO_JVS(3852)) & -! JVS(3852) = Jac_FULL(284,104) - JVS(3852) = B(1473) +! JVS(3852) = Jac_FULL(329,306) + JVS(3852) = 0.505*B(289)+B(291)+B(1666) IF (DO_JVS(3853)) & -! JVS(3853) = Jac_FULL(284,106) - JVS(3853) = B(1397) +! JVS(3853) = Jac_FULL(329,307) + JVS(3853) = 0.5*B(322) IF (DO_JVS(3854)) & -! JVS(3854) = Jac_FULL(284,108) - JVS(3854) = B(1107)+B(1108) +! JVS(3854) = Jac_FULL(329,308) + JVS(3854) = 0 IF (DO_JVS(3855)) & -! JVS(3855) = Jac_FULL(284,109) - JVS(3855) = B(770) +! JVS(3855) = Jac_FULL(329,309) + JVS(3855) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1674) IF (DO_JVS(3856)) & -! JVS(3856) = Jac_FULL(284,110) - JVS(3856) = B(1392) +! JVS(3856) = Jac_FULL(329,310) + JVS(3856) = 0 IF (DO_JVS(3857)) & -! JVS(3857) = Jac_FULL(284,112) - JVS(3857) = B(1396) +! JVS(3857) = Jac_FULL(329,311) + JVS(3857) = 0 IF (DO_JVS(3858)) & -! JVS(3858) = Jac_FULL(284,113) - JVS(3858) = B(1391) +! JVS(3858) = Jac_FULL(329,312) + JVS(3858) = -B(691) IF (DO_JVS(3859)) & -! JVS(3859) = Jac_FULL(284,115) - JVS(3859) = 0.727*B(1136) +! JVS(3859) = Jac_FULL(329,313) + JVS(3859) = 0 IF (DO_JVS(3860)) & -! JVS(3860) = Jac_FULL(284,116) - JVS(3860) = 0.75*B(809) +! JVS(3860) = Jac_FULL(329,314) + JVS(3860) = 0.28*B(1226)+B(1671)+B(1672) IF (DO_JVS(3861)) & -! JVS(3861) = Jac_FULL(284,117) - JVS(3861) = B(1019) +! JVS(3861) = Jac_FULL(329,318) + JVS(3861) = 0 IF (DO_JVS(3862)) & -! JVS(3862) = Jac_FULL(284,118) - JVS(3862) = 0.8*B(1132) +! JVS(3862) = Jac_FULL(329,319) + JVS(3862) = 0 IF (DO_JVS(3863)) & -! JVS(3863) = Jac_FULL(284,119) - JVS(3863) = B(1458) +! JVS(3863) = Jac_FULL(329,320) + JVS(3863) = 0 IF (DO_JVS(3864)) & -! JVS(3864) = Jac_FULL(284,120) +! JVS(3864) = Jac_FULL(329,321) JVS(3864) = 0 IF (DO_JVS(3865)) & -! JVS(3865) = Jac_FULL(284,121) - JVS(3865) = -B(844) +! JVS(3865) = Jac_FULL(329,322) + JVS(3865) = 0 IF (DO_JVS(3866)) & -! JVS(3866) = Jac_FULL(284,123) - JVS(3866) = -B(848) +! JVS(3866) = Jac_FULL(329,323) + JVS(3866) = 0 IF (DO_JVS(3867)) & -! JVS(3867) = Jac_FULL(284,125) - JVS(3867) = 0.444*B(1065)+1.454*B(1506) +! JVS(3867) = Jac_FULL(329,324) + JVS(3867) = 0 IF (DO_JVS(3868)) & -! JVS(3868) = Jac_FULL(284,126) - JVS(3868) = B(934) +! JVS(3868) = Jac_FULL(329,325) + JVS(3868) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)+B(1648) IF (DO_JVS(3869)) & -! JVS(3869) = Jac_FULL(284,127) - JVS(3869) = B(1492) +! JVS(3869) = Jac_FULL(329,326) + JVS(3869) = 0.05*B(95)+0.88*B(1656)+B(1657) IF (DO_JVS(3870)) & -! JVS(3870) = Jac_FULL(284,129) - JVS(3870) = B(1491) +! JVS(3870) = Jac_FULL(329,328) + JVS(3870) = 0.5*B(980)+0.5*B(984) IF (DO_JVS(3871)) & -! JVS(3871) = Jac_FULL(284,130) - JVS(3871) = B(811) +! JVS(3871) = Jac_FULL(329,329) + JVS(3871) = -B(45)-B(692)-B(706) IF (DO_JVS(3872)) & -! JVS(3872) = Jac_FULL(284,131) - JVS(3872) = B(815) +! JVS(3872) = Jac_FULL(329,334) + JVS(3872) = 0 IF (DO_JVS(3873)) & -! JVS(3873) = Jac_FULL(284,132) - JVS(3873) = B(1025) +! JVS(3873) = Jac_FULL(329,335) + JVS(3873) = 0 IF (DO_JVS(3874)) & -! JVS(3874) = Jac_FULL(284,133) - JVS(3874) = B(193) +! JVS(3874) = Jac_FULL(329,336) + JVS(3874) = 0 IF (DO_JVS(3875)) & -! JVS(3875) = Jac_FULL(284,137) - JVS(3875) = B(1364) +! 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) IF (DO_JVS(3876)) & -! JVS(3876) = Jac_FULL(284,139) - JVS(3876) = B(1494) +! JVS(3876) = Jac_FULL(329,338) + JVS(3876) = 0 IF (DO_JVS(3877)) & -! JVS(3877) = Jac_FULL(284,140) - JVS(3877) = B(1495) +! JVS(3877) = Jac_FULL(329,340) + JVS(3877) = B(566)+B(606)+B(608)+B(610) IF (DO_JVS(3878)) & -! JVS(3878) = Jac_FULL(284,141) - JVS(3878) = 0.75*B(1504) +! 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) IF (DO_JVS(3879)) & -! JVS(3879) = Jac_FULL(284,142) - JVS(3879) = B(1142) +! JVS(3879) = Jac_FULL(329,342) + JVS(3879) = B(414) IF (DO_JVS(3880)) & -! JVS(3880) = Jac_FULL(284,144) - JVS(3880) = -B(1005) +! JVS(3880) = Jac_FULL(329,343) + JVS(3880) = B(458)+B(486) IF (DO_JVS(3881)) & -! JVS(3881) = Jac_FULL(284,145) - JVS(3881) = -B(1011) +! 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) IF (DO_JVS(3882)) & -! JVS(3882) = Jac_FULL(284,146) - JVS(3882) = 0.89*B(977)-0.27*B(979) +! 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) IF (DO_JVS(3883)) & -! JVS(3883) = Jac_FULL(284,148) - JVS(3883) = 0.33*B(1188)+0.1*B(1190)+0.2*B(1192) +! JVS(3883) = Jac_FULL(329,348) + JVS(3883) = 0 IF (DO_JVS(3884)) & -! JVS(3884) = Jac_FULL(284,149) - JVS(3884) = B(448)+B(506) +! JVS(3884) = Jac_FULL(329,351) + JVS(3884) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460) IF (DO_JVS(3885)) & -! JVS(3885) = Jac_FULL(284,150) - JVS(3885) = 0.33*B(971)-0.67*B(973) +! JVS(3885) = Jac_FULL(330,170) + JVS(3885) = B(673) IF (DO_JVS(3886)) & -! JVS(3886) = Jac_FULL(284,151) - JVS(3886) = 0.159*B(1498) +! JVS(3886) = Jac_FULL(330,252) + JVS(3886) = 0 IF (DO_JVS(3887)) & -! JVS(3887) = Jac_FULL(284,152) - JVS(3887) = B(877)-0.401*B(878)+B(880) +! JVS(3887) = Jac_FULL(330,284) + JVS(3887) = B(679) IF (DO_JVS(3888)) & -! JVS(3888) = Jac_FULL(284,154) - JVS(3888) = 0.1*B(632) +! JVS(3888) = Jac_FULL(330,330) + JVS(3888) = -B(677)-B(1574)-B(1575)-B(1607)-B(1609)-B(1611)-B(1613)-B(1726) IF (DO_JVS(3889)) & -! JVS(3889) = Jac_FULL(284,155) - JVS(3889) = 0.1*B(634) +! JVS(3889) = Jac_FULL(330,331) + JVS(3889) = 0 IF (DO_JVS(3890)) & -! JVS(3890) = Jac_FULL(284,156) - JVS(3890) = 0.571*B(1478) +! JVS(3890) = Jac_FULL(330,332) + JVS(3890) = B(1589) IF (DO_JVS(3891)) & -! JVS(3891) = Jac_FULL(284,157) - JVS(3891) = 0.25*B(780)+B(1485) +! JVS(3891) = Jac_FULL(330,335) + JVS(3891) = 0 IF (DO_JVS(3892)) & -! JVS(3892) = Jac_FULL(284,158) - JVS(3892) = B(195) +! JVS(3892) = Jac_FULL(330,336) + JVS(3892) = B(1590) IF (DO_JVS(3893)) & -! JVS(3893) = Jac_FULL(284,159) - JVS(3893) = 0.33*B(1183)+0.1*B(1185)+0.2*B(1187) +! JVS(3893) = Jac_FULL(330,337) + JVS(3893) = B(680) IF (DO_JVS(3894)) & -! JVS(3894) = Jac_FULL(284,162) - JVS(3894) = 0.33*B(782)+B(1486) +! JVS(3894) = Jac_FULL(330,338) + JVS(3894) = 0 IF (DO_JVS(3895)) & -! JVS(3895) = Jac_FULL(284,163) - JVS(3895) = 0.715*B(1015)+0.125*B(1479) +! JVS(3895) = Jac_FULL(330,341) + JVS(3895) = 0 IF (DO_JVS(3896)) & -! JVS(3896) = Jac_FULL(284,164) - JVS(3896) = B(1505) +! JVS(3896) = Jac_FULL(330,344) + JVS(3896) = -B(1614) IF (DO_JVS(3897)) & -! JVS(3897) = Jac_FULL(284,165) - JVS(3897) = 0.042*B(786)+B(1488) +! JVS(3897) = Jac_FULL(330,345) + JVS(3897) = B(674)-B(678) IF (DO_JVS(3898)) & -! JVS(3898) = Jac_FULL(284,166) - JVS(3898) = B(884)-0.418*B(886)+B(888) +! JVS(3898) = Jac_FULL(330,346) + JVS(3898) = 0 IF (DO_JVS(3899)) & -! JVS(3899) = Jac_FULL(284,167) - JVS(3899) = B(870)-0.941*B(871)+0.272*B(873) +! JVS(3899) = Jac_FULL(330,347) + JVS(3899) = 0 IF (DO_JVS(3900)) & -! JVS(3900) = Jac_FULL(284,168) - JVS(3900) = B(885)-0.494*B(892)+B(894) +! JVS(3900) = Jac_FULL(330,349) + JVS(3900) = -B(1608) IF (DO_JVS(3901)) & -! JVS(3901) = Jac_FULL(284,169) - JVS(3901) = B(1023)+B(1475) +! JVS(3901) = Jac_FULL(330,350) + JVS(3901) = -B(1610) IF (DO_JVS(3902)) & -! JVS(3902) = Jac_FULL(284,170) - JVS(3902) = 0.1*B(642) +! JVS(3902) = Jac_FULL(330,351) + JVS(3902) = 0 IF (DO_JVS(3903)) & -! JVS(3903) = Jac_FULL(284,171) - JVS(3903) = 0.024*B(784)+B(1487) +! JVS(3903) = Jac_FULL(330,353) + JVS(3903) = -B(1612) IF (DO_JVS(3904)) & -! JVS(3904) = Jac_FULL(284,172) - JVS(3904) = B(1472) +! JVS(3904) = Jac_FULL(331,1) + JVS(3904) = 2*B(1734) IF (DO_JVS(3905)) & -! JVS(3905) = Jac_FULL(284,175) - JVS(3905) = B(1484) +! JVS(3905) = Jac_FULL(331,2) + JVS(3905) = B(1736) IF (DO_JVS(3906)) & -! JVS(3906) = Jac_FULL(284,177) - JVS(3906) = B(372)-B(376) +! JVS(3906) = Jac_FULL(331,3) + JVS(3906) = B(1735) IF (DO_JVS(3907)) & -! JVS(3907) = Jac_FULL(284,179) - JVS(3907) = -B(1099)+0.6*B(1105) +! JVS(3907) = Jac_FULL(331,44) + JVS(3907) = 0.996*B(684)+B(1732) IF (DO_JVS(3908)) & -! JVS(3908) = Jac_FULL(284,180) - JVS(3908) = -B(1150)+B(1181) +! JVS(3908) = Jac_FULL(331,52) + JVS(3908) = B(685)+B(1733) IF (DO_JVS(3909)) & -! JVS(3909) = Jac_FULL(284,181) - JVS(3909) = 0.33*B(1497) +! JVS(3909) = Jac_FULL(331,62) + JVS(3909) = B(1729) IF (DO_JVS(3910)) & -! JVS(3910) = Jac_FULL(284,182) - JVS(3910) = B(789)-0.725*B(793) +! JVS(3910) = Jac_FULL(331,73) + JVS(3910) = B(675) IF (DO_JVS(3911)) & -! JVS(3911) = Jac_FULL(284,183) - JVS(3911) = B(796)-0.725*B(800) +! JVS(3911) = Jac_FULL(331,77) + JVS(3911) = B(1739) IF (DO_JVS(3912)) & -! JVS(3912) = Jac_FULL(284,184) - JVS(3912) = B(1124)+B(1126)+2*B(1128)+B(1130) +! JVS(3912) = Jac_FULL(331,96) + JVS(3912) = B(1728) IF (DO_JVS(3913)) & -! JVS(3913) = Jac_FULL(284,185) - JVS(3913) = 1.5*B(1476) +! JVS(3913) = Jac_FULL(331,104) + JVS(3913) = B(1740) IF (DO_JVS(3914)) & -! JVS(3914) = Jac_FULL(284,186) - JVS(3914) = 0.085*B(758)+0.112*B(1489) +! JVS(3914) = Jac_FULL(331,170) + JVS(3914) = B(650)+B(673)+2*B(1725) IF (DO_JVS(3915)) & -! JVS(3915) = Jac_FULL(284,187) - JVS(3915) = -B(807) +! JVS(3915) = Jac_FULL(331,252) + JVS(3915) = B(648)+B(1730) IF (DO_JVS(3916)) & -! JVS(3916) = Jac_FULL(284,188) - JVS(3916) = 0.165*B(760)+0.182*B(1490) +! JVS(3916) = Jac_FULL(331,284) + JVS(3916) = 0.2*B(659)+0.809*B(667)+B(681)+0.4*B(683)+B(1727) IF (DO_JVS(3917)) & -! JVS(3917) = Jac_FULL(284,189) - JVS(3917) = -0.42*B(957)+0.904*B(963) +! JVS(3917) = Jac_FULL(331,330) + JVS(3917) = B(1726) IF (DO_JVS(3918)) & -! JVS(3918) = Jac_FULL(284,190) - JVS(3918) = 0.2*B(344) +! JVS(3918) = Jac_FULL(331,331) + JVS(3918) = -B(643)-B(646)-B(655)-B(657)-B(669)-B(671) IF (DO_JVS(3919)) & -! JVS(3919) = Jac_FULL(284,191) - JVS(3919) = -B(1167)+B(1179) +! JVS(3919) = Jac_FULL(331,332) + JVS(3919) = -B(656)+B(1731) IF (DO_JVS(3920)) & -! JVS(3920) = Jac_FULL(284,192) - JVS(3920) = 0.283*B(766) +! JVS(3920) = Jac_FULL(331,335) + JVS(3920) = -B(647) IF (DO_JVS(3921)) & -! JVS(3921) = Jac_FULL(284,194) - JVS(3921) = -0.35*B(835)+B(839)+B(841) +! JVS(3921) = Jac_FULL(331,336) + JVS(3921) = 0 IF (DO_JVS(3922)) & -! JVS(3922) = Jac_FULL(284,200) - JVS(3922) = B(1483) +! JVS(3922) = Jac_FULL(331,337) + JVS(3922) = -B(672) IF (DO_JVS(3923)) & -! JVS(3923) = Jac_FULL(284,201) - JVS(3923) = -B(171)+0.5*B(191) +! JVS(3923) = Jac_FULL(331,338) + JVS(3923) = 0.809*B(668) IF (DO_JVS(3924)) & -! JVS(3924) = Jac_FULL(284,202) - JVS(3924) = 0.27*B(1398) +! JVS(3924) = Jac_FULL(331,341) + JVS(3924) = -B(670) IF (DO_JVS(3925)) & -! JVS(3925) = Jac_FULL(284,204) - JVS(3925) = -0.695*B(1027)+0.242*B(1029) +! JVS(3925) = Jac_FULL(331,344) + JVS(3925) = 0 IF (DO_JVS(3926)) & -! JVS(3926) = Jac_FULL(284,205) - JVS(3926) = -0.493*B(1033)+0.86*B(1040) +! JVS(3926) = Jac_FULL(331,345) + JVS(3926) = B(674)+B(676)+B(686) IF (DO_JVS(3927)) & -! JVS(3927) = Jac_FULL(284,206) - JVS(3927) = 0.5*B(1063)+1.5*B(1502)+B(1503) +! JVS(3927) = Jac_FULL(331,346) + JVS(3927) = -B(644)+B(682) IF (DO_JVS(3928)) & -! JVS(3928) = Jac_FULL(284,207) - JVS(3928) = -B(1035) +! JVS(3928) = Jac_FULL(331,347) + JVS(3928) = -B(658)+0.2*B(660) IF (DO_JVS(3929)) & -! JVS(3929) = Jac_FULL(284,208) - JVS(3929) = B(1459) +! JVS(3929) = Jac_FULL(331,349) + JVS(3929) = 0 IF (DO_JVS(3930)) & -! JVS(3930) = Jac_FULL(284,209) - JVS(3930) = B(120)+B(159)-B(205)+0.9*B(270) +! JVS(3930) = Jac_FULL(331,350) + JVS(3930) = 0 IF (DO_JVS(3931)) & -! JVS(3931) = Jac_FULL(284,210) - JVS(3931) = B(1515) +! JVS(3931) = Jac_FULL(331,351) + JVS(3931) = B(651) IF (DO_JVS(3932)) & -! JVS(3932) = Jac_FULL(284,211) - JVS(3932) = B(87) +! JVS(3932) = Jac_FULL(331,353) + JVS(3932) = 0 IF (DO_JVS(3933)) & -! JVS(3933) = Jac_FULL(284,212) - JVS(3933) = B(40)+B(370)+B(472) +! JVS(3933) = Jac_FULL(332,170) + JVS(3933) = B(650) IF (DO_JVS(3934)) & -! JVS(3934) = Jac_FULL(284,213) - JVS(3934) = B(1510) +! JVS(3934) = Jac_FULL(332,252) + JVS(3934) = 0 IF (DO_JVS(3935)) & -! JVS(3935) = Jac_FULL(284,214) - JVS(3935) = 0.4*B(868)+0.45*B(1496) +! JVS(3935) = Jac_FULL(332,284) + JVS(3935) = B(652) IF (DO_JVS(3936)) & -! JVS(3936) = Jac_FULL(284,215) - JVS(3936) = B(658)-B(662)+2*B(666)+B(670)+B(674)+B(678)+0.5*B(679) +! JVS(3936) = Jac_FULL(332,330) + JVS(3936) = 0 IF (DO_JVS(3937)) & -! JVS(3937) = Jac_FULL(284,216) - JVS(3937) = -B(664)+0.5*B(668)+0.5*B(680) +! JVS(3937) = Jac_FULL(332,331) + JVS(3937) = -B(655) IF (DO_JVS(3938)) & -! JVS(3938) = Jac_FULL(284,217) - JVS(3938) = B(106)+B(175)+1.2*B(197)-B(199)+0.9*B(266)+B(520) +! 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) IF (DO_JVS(3939)) & -! JVS(3939) = Jac_FULL(284,218) - JVS(3939) = B(89)+B(524) +! JVS(3939) = Jac_FULL(332,335) + JVS(3939) = B(653) IF (DO_JVS(3940)) & -! JVS(3940) = Jac_FULL(284,220) - JVS(3940) = 0.4*B(866)+0.45*B(1493) +! JVS(3940) = Jac_FULL(332,336) + JVS(3940) = -B(1590) IF (DO_JVS(3941)) & -! JVS(3941) = Jac_FULL(284,222) - JVS(3941) = -0.674*B(955)+0.5*B(959) +! JVS(3941) = Jac_FULL(332,337) + JVS(3941) = 0 IF (DO_JVS(3942)) & -! JVS(3942) = Jac_FULL(284,223) - JVS(3942) = B(219)+B(223)+2*B(1382) +! JVS(3942) = Jac_FULL(332,338) + JVS(3942) = 0 IF (DO_JVS(3943)) & -! JVS(3943) = Jac_FULL(284,224) - JVS(3943) = 0.16*B(704)+0.4*B(710)+0.7*B(712) +! JVS(3943) = Jac_FULL(332,341) + JVS(3943) = 0 IF (DO_JVS(3944)) & -! JVS(3944) = Jac_FULL(284,225) - JVS(3944) = 0.686*B(646)-B(648)+B(650)+0.5*B(652)+B(654) +! JVS(3944) = Jac_FULL(332,344) + JVS(3944) = -B(1606) IF (DO_JVS(3945)) & -! JVS(3945) = Jac_FULL(284,227) - JVS(3945) = -B(580) +! JVS(3945) = Jac_FULL(332,345) + JVS(3945) = 0 IF (DO_JVS(3946)) & -! JVS(3946) = Jac_FULL(284,228) - JVS(3946) = B(819)-0.35*B(821)+B(823) +! JVS(3946) = Jac_FULL(332,346) + JVS(3946) = 0 IF (DO_JVS(3947)) & -! JVS(3947) = Jac_FULL(284,229) - JVS(3947) = B(827)+B(829)-0.35*B(833) +! JVS(3947) = Jac_FULL(332,347) + JVS(3947) = 0 IF (DO_JVS(3948)) & -! JVS(3948) = Jac_FULL(284,230) - JVS(3948) = 0.47*B(1477) +! JVS(3948) = Jac_FULL(332,349) + JVS(3948) = -B(1600) IF (DO_JVS(3949)) & -! JVS(3949) = Jac_FULL(284,231) - JVS(3949) = B(1480) +! JVS(3949) = Jac_FULL(332,350) + JVS(3949) = -B(1602) IF (DO_JVS(3950)) & -! JVS(3950) = Jac_FULL(284,232) - JVS(3950) = -0.621*B(898)+B(900) +! JVS(3950) = Jac_FULL(332,351) + JVS(3950) = B(651) IF (DO_JVS(3951)) & -! JVS(3951) = Jac_FULL(284,233) - JVS(3951) = B(1385) +! JVS(3951) = Jac_FULL(332,353) + JVS(3951) = -B(1604) IF (DO_JVS(3952)) & -! JVS(3952) = Jac_FULL(284,234) - JVS(3952) = 0 +! JVS(3952) = Jac_FULL(333,76) + JVS(3952) = B(537) IF (DO_JVS(3953)) & -! JVS(3953) = Jac_FULL(284,236) - JVS(3953) = 0.773*B(213)+1.73*B(1381) +! JVS(3953) = Jac_FULL(333,120) + JVS(3953) = B(535) IF (DO_JVS(3954)) & -! JVS(3954) = Jac_FULL(284,237) - JVS(3954) = B(116)+B(157)-B(203)+0.9*B(272) +! JVS(3954) = Jac_FULL(333,245) + JVS(3954) = B(527) IF (DO_JVS(3955)) & -! JVS(3955) = Jac_FULL(284,238) - JVS(3955) = 0.82*B(622)-B(624)+B(626)+0.5*B(628)+B(630) +! JVS(3955) = Jac_FULL(333,284) + JVS(3955) = 0 IF (DO_JVS(3956)) & -! JVS(3956) = Jac_FULL(284,239) - JVS(3956) = B(110)+B(177)+1.2*B(198)-B(201)+0.9*B(268)+B(522) +! JVS(3956) = Jac_FULL(333,297) + JVS(3956) = B(543) IF (DO_JVS(3957)) & -! JVS(3957) = Jac_FULL(284,240) - JVS(3957) = 0.295*B(969)+0.161*B(1500) +! JVS(3957) = Jac_FULL(333,317) + JVS(3957) = B(545)+B(1513) IF (DO_JVS(3958)) & -! JVS(3958) = Jac_FULL(284,241) - JVS(3958) = 0.29*B(1482) +! JVS(3958) = Jac_FULL(333,328) + JVS(3958) = 0 IF (DO_JVS(3959)) & -! JVS(3959) = Jac_FULL(284,242) - JVS(3959) = 0.62*B(1073)+0.7*B(1507)+0.7*B(1508) +! JVS(3959) = Jac_FULL(333,329) + JVS(3959) = 0 IF (DO_JVS(3960)) & -! JVS(3960) = Jac_FULL(284,243) - JVS(3960) = 0.228*B(1501) +! JVS(3960) = Jac_FULL(333,330) + JVS(3960) = 0 IF (DO_JVS(3961)) & -! JVS(3961) = Jac_FULL(284,244) - JVS(3961) = -0.937*B(718)-B(720)+0.7*B(725)+2*B(727)+2*B(728)+B(731)+B(732)+2*B(738)+1.5*B(740)+B(752)+0.45*B(756) +! JVS(3961) = Jac_FULL(333,331) + JVS(3961) = 0 IF (DO_JVS(3962)) & -! JVS(3962) = Jac_FULL(284,245) - JVS(3962) = -0.937*B(714)-B(716)+0.4*B(723)+2*B(726)+2*B(729)+B(730)+B(733)+2*B(734)+1.5*B(736)+B(744)+0.45*B(748) +! JVS(3962) = Jac_FULL(333,332) + JVS(3962) = 0 IF (DO_JVS(3963)) & -! JVS(3963) = Jac_FULL(284,246) - JVS(3963) = -B(908)+0.089*B(911)+0.064*B(913)+0.336*B(914)+0.159*B(920)+0.159*B(924)+0.159*B(930) +! JVS(3963) = Jac_FULL(333,333) + JVS(3963) = -B(541)-B(1539)-B(1541)-B(1543)-B(1545)-B(1547)-B(1709) IF (DO_JVS(3964)) & -! JVS(3964) = Jac_FULL(284,247) - JVS(3964) = -B(906)+0.089*B(912)+0.611*B(916) +! JVS(3964) = Jac_FULL(333,334) + JVS(3964) = 0 IF (DO_JVS(3965)) & -! JVS(3965) = Jac_FULL(284,248) - JVS(3965) = 0.1*B(983)+B(1387) +! JVS(3965) = Jac_FULL(333,335) + JVS(3965) = 0 IF (DO_JVS(3966)) & -! JVS(3966) = Jac_FULL(284,249) - JVS(3966) = -B(1048)+0.7*B(1056) +! JVS(3966) = Jac_FULL(333,336) + JVS(3966) = B(1514) IF (DO_JVS(3967)) & -! JVS(3967) = Jac_FULL(284,250) - JVS(3967) = B(227)+B(1390) +! JVS(3967) = Jac_FULL(333,337) + JVS(3967) = B(579) IF (DO_JVS(3968)) & -! JVS(3968) = Jac_FULL(284,251) - JVS(3968) = 0.036*B(985)+B(1389) +! JVS(3968) = Jac_FULL(333,338) + JVS(3968) = B(580) IF (DO_JVS(3969)) & -! JVS(3969) = Jac_FULL(284,252) - JVS(3969) = -B(165)+0.3*B(185) +! JVS(3969) = Jac_FULL(333,339) + JVS(3969) = -B(1540) IF (DO_JVS(3970)) & -! JVS(3970) = Jac_FULL(284,253) - JVS(3970) = 0.28*B(211) +! JVS(3970) = Jac_FULL(333,340) + JVS(3970) = 0 IF (DO_JVS(3971)) & -! JVS(3971) = Jac_FULL(284,254) - JVS(3971) = -B(167)+0.5*B(187) +! JVS(3971) = Jac_FULL(333,341) + JVS(3971) = 0 IF (DO_JVS(3972)) & -! JVS(3972) = Jac_FULL(284,255) - JVS(3972) = -B(207)+B(276) +! JVS(3972) = Jac_FULL(333,342) + JVS(3972) = 0 IF (DO_JVS(3973)) & -! JVS(3973) = Jac_FULL(284,256) - JVS(3973) = 0.27*B(124)-B(161)+0.64*B(181)+0.243*B(254) +! JVS(3973) = Jac_FULL(333,343) + JVS(3973) = 0 IF (DO_JVS(3974)) & -! JVS(3974) = Jac_FULL(284,257) - JVS(3974) = -B(163)+0.5*B(183) +! JVS(3974) = Jac_FULL(333,344) + JVS(3974) = -B(1546) IF (DO_JVS(3975)) & -! JVS(3975) = Jac_FULL(284,258) - JVS(3975) = B(134)-B(169)+B(189)+0.9*B(260) +! JVS(3975) = Jac_FULL(333,345) + JVS(3975) = B(528)+B(536)+B(538)-B(542)+B(544)+B(546) IF (DO_JVS(3976)) & -! JVS(3976) = Jac_FULL(284,259) - JVS(3976) = B(1377) +! JVS(3976) = Jac_FULL(333,346) + JVS(3976) = 0 IF (DO_JVS(3977)) & -! JVS(3977) = Jac_FULL(284,261) - JVS(3977) = 0.9*B(252)+0.243*B(255)+0.9*B(261)+0.9*B(267)+0.9*B(269)+0.9*B(271)+0.9*B(273)+0.5*B(629)+0.5*B(653)& - &+B(671)+0.159*B(921)-B(1081)+B(1131) +! JVS(3977) = Jac_FULL(333,347) + JVS(3977) = 0 IF (DO_JVS(3978)) & -! JVS(3978) = Jac_FULL(284,263) - JVS(3978) = B(63)+B(93)+B(314)+B(386)+B(466)+B(1365) +! JVS(3978) = Jac_FULL(333,348) + JVS(3978) = -B(1548) IF (DO_JVS(3979)) & -! JVS(3979) = Jac_FULL(284,264) - JVS(3979) = 0.05*B(95)+B(1374) +! JVS(3979) = Jac_FULL(333,349) + JVS(3979) = 0 IF (DO_JVS(3980)) & -! JVS(3980) = Jac_FULL(284,266) - JVS(3980) = B(34)+B(49)-B(53)+2*B(56)+1.74*B(57)+B(158)+B(160)+B(176)+B(178)+0.64*B(182)+0.5*B(184)+0.3*B(186)+0.5& - &*B(188)+B(190)+0.5*B(192)+0.9*B(253)+B(277)+B(430)+B(514)+B(627)+B(651)+2*B(667)+0.5*B(669)+2*B(735)+1.5& - &*B(737)+2*B(739)+1.5*B(741)+0.336*B(915)+0.611*B(917)+0.7*B(1057)+0.6*B(1106)+2*B(1129)+B(1180)+B(1182)& - &+B(1205) +! JVS(3980) = Jac_FULL(333,350) + JVS(3980) = 0 IF (DO_JVS(3981)) & -! JVS(3981) = Jac_FULL(284,267) - JVS(3981) = B(45) +! JVS(3981) = Jac_FULL(333,351) + JVS(3981) = 0 IF (DO_JVS(3982)) & -! JVS(3982) = Jac_FULL(284,268) - JVS(3982) = 0 +! JVS(3982) = Jac_FULL(333,352) + JVS(3982) = -B(1542) IF (DO_JVS(3983)) & -! JVS(3983) = Jac_FULL(284,269) - JVS(3983) = -B(572) +! JVS(3983) = Jac_FULL(333,353) + JVS(3983) = -B(1544) IF (DO_JVS(3984)) & -! JVS(3984) = Jac_FULL(284,270) - JVS(3984) = 0 +! JVS(3984) = Jac_FULL(334,46) + JVS(3984) = -B(493) IF (DO_JVS(3985)) & -! JVS(3985) = Jac_FULL(284,272) - JVS(3985) = 0.2*B(345) +! JVS(3985) = Jac_FULL(334,47) + JVS(3985) = -B(505) IF (DO_JVS(3986)) & -! JVS(3986) = Jac_FULL(284,273) - JVS(3986) = -B(294)+B(315) +! JVS(3986) = Jac_FULL(334,48) + JVS(3986) = -B(507) IF (DO_JVS(3987)) & -! JVS(3987) = Jac_FULL(284,274) - JVS(3987) = -B(292)+B(310) +! JVS(3987) = Jac_FULL(334,49) + JVS(3987) = -B(519) IF (DO_JVS(3988)) & -! JVS(3988) = Jac_FULL(284,275) - JVS(3988) = 0 +! JVS(3988) = Jac_FULL(334,50) + JVS(3988) = -B(521) IF (DO_JVS(3989)) & -! JVS(3989) = Jac_FULL(284,276) - JVS(3989) = B(288) +! JVS(3989) = Jac_FULL(334,51) + JVS(3989) = -B(523) IF (DO_JVS(3990)) & -! JVS(3990) = Jac_FULL(284,277) - JVS(3990) = 0 +! JVS(3990) = Jac_FULL(334,53) + JVS(3990) = -B(511) IF (DO_JVS(3991)) & -! JVS(3991) = Jac_FULL(284,278) - JVS(3991) = 0 +! JVS(3991) = Jac_FULL(334,54) + JVS(3991) = -B(525) IF (DO_JVS(3992)) & -! JVS(3992) = Jac_FULL(284,279) - JVS(3992) = -B(42)+B(50)+B(107)+B(111)+B(117)+B(121)+0.27*B(125)+B(135)+0.82*B(623)+0.686*B(647)+B(659)+B(745)+0.45& - &*B(749)+B(753)+0.45*B(757)+B(790)+B(797)+B(824)+B(830)+B(840)+0.272*B(874)+B(881)+B(889)+B(895)+B(901)& - &+0.159*B(931)+0.5*B(960)+0.904*B(964)+0.33*B(972)+0.89*B(978)+0.242*B(1030)+0.86*B(1041)+B(1125) +! JVS(3992) = Jac_FULL(334,61) + JVS(3992) = -B(509) IF (DO_JVS(3993)) & -! JVS(3993) = Jac_FULL(284,280) - JVS(3993) = 0 +! JVS(3993) = Jac_FULL(334,63) + JVS(3993) = -B(441)+B(1744) IF (DO_JVS(3994)) & -! JVS(3994) = Jac_FULL(284,281) - JVS(3994) = -B(78)+B(82)+B(94)+B(224)+B(631)+B(655)+B(675)+0.159*B(925)+B(1127)+B(1206) +! JVS(3994) = Jac_FULL(334,67) + JVS(3994) = 0 IF (DO_JVS(3995)) & -! JVS(3995) = Jac_FULL(284,282) - JVS(3995) = B(28)-B(30)+B(35)+0.28*B(212)+0.1*B(633)+0.1*B(635)+0.1*B(643)+0.16*B(705)+0.1*B(984)+B(1143)+0.1*B(1186)& - &+0.1*B(1191) +! JVS(3995) = Jac_FULL(334,78) + JVS(3995) = -B(499) IF (DO_JVS(3996)) & -! JVS(3996) = Jac_FULL(284,283) - JVS(3996) = 0 +! JVS(3996) = Jac_FULL(334,81) + JVS(3996) = -B(501) IF (DO_JVS(3997)) & -! JVS(3997) = Jac_FULL(284,284) - JVS(3997) = -B(31)-B(38)-B(43)-2*B(44)-B(54)-B(73)-B(79)-B(162)-B(164)-B(166)-B(168)-B(170)-B(172)-B(200)-B(202)& - &-B(204)-B(206)-B(208)-B(293)-B(295)-B(354)-B(377)-B(474)-B(476)-B(480)-B(573)-B(581)-B(625)-B(649)-B(663)& - &-B(665)-0.937*B(715)-B(717)-0.937*B(719)-B(721)-0.725*B(794)-0.725*B(801)-B(808)-0.35*B(822)-0.35*B(834)& - &-0.35*B(836)-B(845)-B(849)-0.941*B(872)-0.401*B(879)-0.418*B(887)-0.494*B(893)-0.621*B(899)-B(907)-B(909)& - &-0.674*B(956)-0.42*B(958)-0.67*B(974)-0.27*B(980)-B(1006)-B(1012)-0.695*B(1028)-0.493*B(1034)-B(1036)& - &-B(1049)-B(1082)-B(1100)-B(1151)-B(1168)-B(1209) +! JVS(3997) = Jac_FULL(334,84) + JVS(3997) = -B(517) IF (DO_JVS(3998)) & -! JVS(3998) = Jac_FULL(284,285) - JVS(3998) = B(431)+B(432)-B(481) +! JVS(3998) = Jac_FULL(334,85) + JVS(3998) = -B(513) IF (DO_JVS(3999)) & -! JVS(3999) = Jac_FULL(284,286) - JVS(3999) = B(29)-B(39)+B(41)+B(46)+1.74*B(58)+B(64)+B(83)+B(88)+B(90)+0.05*B(96)+B(194)+B(196)+0.773*B(214)+B(220)& - &+B(228)+B(289)+B(311)+B(333)+B(433)+B(449)+B(451)+B(453)+0.4*B(711)+0.7*B(713)+0.085*B(759)+0.165*B(761)& - &+0.283*B(767)+B(771)+0.25*B(781)+0.33*B(783)+0.024*B(785)+0.042*B(787)+0.75*B(810)+B(812)+B(816)+0.4*B(867)& - &+0.4*B(869)+0.295*B(970)+0.036*B(986)+0.715*B(1016)+B(1020)+B(1024)+B(1026)+0.5*B(1064)+0.444*B(1066)+0.62& - &*B(1074)+0.5*B(1080)+0.364*B(1098)+0.54*B(1117)+0.19*B(1119)+0.15*B(1121)+0.8*B(1133)+0.727*B(1137)+0.33& - &*B(1184)+0.33*B(1189) +! JVS(3999) = Jac_FULL(334,86) + JVS(3999) = -B(515) IF (DO_JVS(4000)) & -! JVS(4000) = Jac_FULL(284,287) - JVS(4000) = 0 +! JVS(4000) = Jac_FULL(334,87) + JVS(4000) = -B(503) IF (DO_JVS(4001)) & -! JVS(4001) = Jac_FULL(284,288) - JVS(4001) = -B(355)+B(371)+B(387) +! JVS(4001) = Jac_FULL(334,105) + JVS(4001) = -B(497) IF (DO_JVS(4002)) & -! JVS(4002) = Jac_FULL(284,289) - JVS(4002) = 0 +! JVS(4002) = Jac_FULL(334,181) + JVS(4002) = -B(495) IF (DO_JVS(4003)) & -! JVS(4003) = Jac_FULL(284,290) - JVS(4003) = B(467)+B(473)-B(475)-B(477)+B(507)+B(509)+B(511)+B(515)+B(521)+B(523)+B(525) +! JVS(4003) = Jac_FULL(334,228) + JVS(4003) = -B(443) IF (DO_JVS(4004)) & -! JVS(4004) = Jac_FULL(284,291) - JVS(4004) = -B(74) +! JVS(4004) = Jac_FULL(334,245) + JVS(4004) = -B(491) IF (DO_JVS(4005)) & -! JVS(4005) = Jac_FULL(285,52) - JVS(4005) = 0.79*B(394) +! JVS(4005) = Jac_FULL(334,290) + JVS(4005) = 0 IF (DO_JVS(4006)) & -! JVS(4006) = Jac_FULL(285,53) - JVS(4006) = 0.9*B(406) +! JVS(4006) = Jac_FULL(334,297) + JVS(4006) = 0 IF (DO_JVS(4007)) & -! JVS(4007) = Jac_FULL(285,54) - JVS(4007) = 0.86*B(408) +! JVS(4007) = Jac_FULL(334,314) + JVS(4007) = 0 IF (DO_JVS(4008)) & -! JVS(4008) = Jac_FULL(285,55) - JVS(4008) = 0.8*B(420) +! JVS(4008) = Jac_FULL(334,317) + JVS(4008) = 0 IF (DO_JVS(4009)) & -! JVS(4009) = Jac_FULL(285,56) - JVS(4009) = 0.85*B(422) +! JVS(4009) = Jac_FULL(334,324) + JVS(4009) = 0 IF (DO_JVS(4010)) & -! JVS(4010) = Jac_FULL(285,57) - JVS(4010) = 0.86*B(424) +! JVS(4010) = Jac_FULL(334,326) + JVS(4010) = 0 IF (DO_JVS(4011)) & -! JVS(4011) = Jac_FULL(285,59) - JVS(4011) = 0.34*B(410) +! JVS(4011) = Jac_FULL(334,328) + JVS(4011) = 0 IF (DO_JVS(4012)) & -! JVS(4012) = Jac_FULL(285,75) - JVS(4012) = 2*B(493) +! JVS(4012) = Jac_FULL(334,329) + JVS(4012) = 0 IF (DO_JVS(4013)) & -! JVS(4013) = Jac_FULL(285,81) - JVS(4013) = 0.79*B(418) +! JVS(4013) = Jac_FULL(334,333) + JVS(4013) = 0 IF (DO_JVS(4014)) & -! JVS(4014) = Jac_FULL(285,82) - JVS(4014) = 0.69*B(414) +! 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) IF (DO_JVS(4015)) & -! JVS(4015) = Jac_FULL(285,83) - JVS(4015) = 0.65*B(416) +! JVS(4015) = Jac_FULL(334,335) + JVS(4015) = 0 IF (DO_JVS(4016)) & -! JVS(4016) = Jac_FULL(285,84) - JVS(4016) = 0.56*B(404) +! JVS(4016) = Jac_FULL(334,336) + JVS(4016) = -B(434) IF (DO_JVS(4017)) & -! JVS(4017) = Jac_FULL(285,103) - JVS(4017) = 0.1*B(494) +! JVS(4017) = Jac_FULL(334,337) + JVS(4017) = 0 IF (DO_JVS(4018)) & -! JVS(4018) = Jac_FULL(285,111) - JVS(4018) = B(1414) +! JVS(4018) = Jac_FULL(334,338) + JVS(4018) = 0 IF (DO_JVS(4019)) & -! JVS(4019) = Jac_FULL(285,149) - JVS(4019) = 0.46*B(396) +! JVS(4019) = Jac_FULL(334,339) + JVS(4019) = -B(488) IF (DO_JVS(4020)) & -! JVS(4020) = Jac_FULL(285,197) - JVS(4020) = 0.75*B(392) +! JVS(4020) = Jac_FULL(334,340) + JVS(4020) = 0 IF (DO_JVS(4021)) & -! JVS(4021) = Jac_FULL(285,217) - JVS(4021) = B(520) +! JVS(4021) = Jac_FULL(334,341) + JVS(4021) = -B(456)+B(1642) IF (DO_JVS(4022)) & -! JVS(4022) = Jac_FULL(285,227) - JVS(4022) = -B(568) +! JVS(4022) = Jac_FULL(334,342) + JVS(4022) = 0 IF (DO_JVS(4023)) & -! JVS(4023) = Jac_FULL(285,235) +! JVS(4023) = Jac_FULL(334,343) JVS(4023) = 0 IF (DO_JVS(4024)) & -! JVS(4024) = Jac_FULL(285,239) - JVS(4024) = B(522) +! JVS(4024) = Jac_FULL(334,344) + JVS(4024) = 0 IF (DO_JVS(4025)) & -! JVS(4025) = Jac_FULL(285,254) +! JVS(4025) = Jac_FULL(334,345) JVS(4025) = 0 IF (DO_JVS(4026)) & -! JVS(4026) = Jac_FULL(285,255) +! JVS(4026) = Jac_FULL(334,346) JVS(4026) = 0 IF (DO_JVS(4027)) & -! JVS(4027) = Jac_FULL(285,256) +! JVS(4027) = Jac_FULL(334,347) JVS(4027) = 0 IF (DO_JVS(4028)) & -! JVS(4028) = Jac_FULL(285,257) +! JVS(4028) = Jac_FULL(334,348) JVS(4028) = 0 IF (DO_JVS(4029)) & -! JVS(4029) = Jac_FULL(285,259) +! JVS(4029) = Jac_FULL(334,349) JVS(4029) = 0 IF (DO_JVS(4030)) & -! JVS(4030) = Jac_FULL(285,261) +! JVS(4030) = Jac_FULL(334,350) JVS(4030) = 0 IF (DO_JVS(4031)) & -! JVS(4031) = Jac_FULL(285,262) - JVS(4031) = B(502)+B(1418) +! JVS(4031) = Jac_FULL(334,351) + JVS(4031) = 0 IF (DO_JVS(4032)) & -! JVS(4032) = Jac_FULL(285,264) - JVS(4032) = 0 +! JVS(4032) = Jac_FULL(334,352) + JVS(4032) = -B(490) IF (DO_JVS(4033)) & -! JVS(4033) = Jac_FULL(285,266) - JVS(4033) = -B(430)+B(514) +! JVS(4033) = Jac_FULL(334,353) + JVS(4033) = 0 IF (DO_JVS(4034)) & -! JVS(4034) = Jac_FULL(285,267) - JVS(4034) = 0 +! JVS(4034) = Jac_FULL(335,56) + JVS(4034) = B(755) IF (DO_JVS(4035)) & -! JVS(4035) = Jac_FULL(285,268) - JVS(4035) = 0 +! JVS(4035) = Jac_FULL(335,57) + JVS(4035) = B(844) IF (DO_JVS(4036)) & -! JVS(4036) = Jac_FULL(285,269) - JVS(4036) = 0 +! JVS(4036) = Jac_FULL(335,59) + JVS(4036) = B(1695) IF (DO_JVS(4037)) & -! JVS(4037) = Jac_FULL(285,270) - JVS(4037) = 0 +! JVS(4037) = Jac_FULL(335,64) + JVS(4037) = B(1756) IF (DO_JVS(4038)) & -! JVS(4038) = Jac_FULL(285,271) - JVS(4038) = B(442) +! JVS(4038) = Jac_FULL(335,65) + JVS(4038) = B(1754) IF (DO_JVS(4039)) & -! JVS(4039) = Jac_FULL(285,272) - JVS(4039) = 0.22*B(388)+0.75*B(393)+0.79*B(395)+0.46*B(397)+0.56*B(405)+0.9*B(407)+0.86*B(409)+0.34*B(411)+0.69*B(415)& - &+0.65*B(417)+0.79*B(419)+0.8*B(421)+0.85*B(423)+0.86*B(425) +! JVS(4039) = Jac_FULL(335,67) + JVS(4039) = -B(481) IF (DO_JVS(4040)) & -! JVS(4040) = Jac_FULL(285,273) - JVS(4040) = 0 +! JVS(4040) = Jac_FULL(335,70) + JVS(4040) = B(1375) IF (DO_JVS(4041)) & -! JVS(4041) = Jac_FULL(285,274) - JVS(4041) = -B(496)-B(498)-B(500) +! JVS(4041) = Jac_FULL(335,80) + JVS(4041) = B(380)+B(1742) IF (DO_JVS(4042)) & -! JVS(4042) = Jac_FULL(285,275) - JVS(4042) = 0.22*B(389) +! JVS(4042) = Jac_FULL(335,83) + JVS(4042) = B(941)+B(1758) IF (DO_JVS(4043)) & -! JVS(4043) = Jac_FULL(285,276) - JVS(4043) = 0 +! JVS(4043) = Jac_FULL(335,90) + JVS(4043) = B(1440)+B(1441) IF (DO_JVS(4044)) & -! JVS(4044) = Jac_FULL(285,277) - JVS(4044) = 0 +! JVS(4044) = Jac_FULL(335,91) + JVS(4044) = B(943)+B(1759) IF (DO_JVS(4045)) & -! JVS(4045) = Jac_FULL(285,278) - JVS(4045) = 0 +! JVS(4045) = Jac_FULL(335,93) + JVS(4045) = B(939)+B(1757) IF (DO_JVS(4046)) & -! JVS(4046) = Jac_FULL(285,279) - JVS(4046) = -B(482) +! JVS(4046) = Jac_FULL(335,95) + JVS(4046) = B(945)+B(1760) IF (DO_JVS(4047)) & -! JVS(4047) = Jac_FULL(285,280) - JVS(4047) = 0 +! JVS(4047) = Jac_FULL(335,96) + JVS(4047) = B(665) IF (DO_JVS(4048)) & -! JVS(4048) = Jac_FULL(285,281) - JVS(4048) = 0 +! JVS(4048) = Jac_FULL(335,108) + JVS(4048) = B(75)+B(76)+B(1652) IF (DO_JVS(4049)) & -! JVS(4049) = Jac_FULL(285,282) - JVS(4049) = B(468) +! JVS(4049) = Jac_FULL(335,113) + JVS(4049) = B(240)+B(241) IF (DO_JVS(4050)) & -! JVS(4050) = Jac_FULL(285,283) - JVS(4050) = 0 +! JVS(4050) = Jac_FULL(335,114) + JVS(4050) = B(299)+B(306) IF (DO_JVS(4051)) & -! JVS(4051) = Jac_FULL(285,284) - JVS(4051) = B(476)-B(480) +! JVS(4051) = Jac_FULL(335,116) + JVS(4051) = B(1356)+B(1687) IF (DO_JVS(4052)) & -! JVS(4052) = Jac_FULL(285,285) - JVS(4052) = -B(431)-B(432)-B(434)-B(478)-B(481)-B(483)-B(484)-2*B(486)-2*B(487)-2*B(488)-2*B(492)-B(497)-B(499)-B(501)& - &-B(569)-B(1413) +! JVS(4052) = Jac_FULL(335,121) + JVS(4052) = B(1399) IF (DO_JVS(4053)) & -! JVS(4053) = Jac_FULL(285,286) - JVS(4053) = -B(433)-B(435)+B(443) +! JVS(4053) = Jac_FULL(335,122) + JVS(4053) = B(1411)+B(1412) IF (DO_JVS(4054)) & -! JVS(4054) = Jac_FULL(285,287) - JVS(4054) = 0 +! JVS(4054) = Jac_FULL(335,124) + JVS(4054) = B(205)+B(206)+0.7*B(1806) IF (DO_JVS(4055)) & -! JVS(4055) = Jac_FULL(285,288) - JVS(4055) = -B(479)+B(503) +! JVS(4055) = Jac_FULL(335,125) + JVS(4055) = B(1676) IF (DO_JVS(4056)) & -! JVS(4056) = Jac_FULL(285,289) - JVS(4056) = 0 +! JVS(4056) = Jac_FULL(335,126) + JVS(4056) = B(166)+B(1659) IF (DO_JVS(4057)) & -! JVS(4057) = Jac_FULL(285,290) - JVS(4057) = B(469)+B(477)+0.1*B(495)+B(515)+B(521)+B(523) +! JVS(4057) = Jac_FULL(335,127) + JVS(4057) = B(152) IF (DO_JVS(4058)) & -! JVS(4058) = Jac_FULL(285,291) - JVS(4058) = -B(485) +! JVS(4058) = Jac_FULL(335,132) + JVS(4058) = B(156) IF (DO_JVS(4059)) & -! JVS(4059) = Jac_FULL(286,41) - JVS(4059) = -B(1207) +! JVS(4059) = Jac_FULL(335,133) + JVS(4059) = B(1085) IF (DO_JVS(4060)) & -! JVS(4060) = Jac_FULL(286,43) - JVS(4060) = -B(454) +! JVS(4060) = Jac_FULL(335,135) + JVS(4060) = B(1089) IF (DO_JVS(4061)) & -! JVS(4061) = Jac_FULL(286,46) - JVS(4061) = -B(586) +! JVS(4061) = Jac_FULL(335,137) + JVS(4061) = 0.5*B(743) IF (DO_JVS(4062)) & -! JVS(4062) = Jac_FULL(286,58) - JVS(4062) = -0.364*B(1097) +! JVS(4062) = Jac_FULL(335,138) + JVS(4062) = 0.5*B(780) IF (DO_JVS(4063)) & -! JVS(4063) = Jac_FULL(286,64) - JVS(4063) = -B(1116) +! JVS(4063) = Jac_FULL(335,139) + JVS(4063) = B(101)+B(102)+0.7*B(1658) IF (DO_JVS(4064)) & -! JVS(4064) = Jac_FULL(286,66) - JVS(4064) = -B(360) +! JVS(4064) = Jac_FULL(335,140) + JVS(4064) = B(144) IF (DO_JVS(4065)) & -! JVS(4065) = Jac_FULL(286,68) - JVS(4065) = -B(1110) +! JVS(4065) = Jac_FULL(335,154) + JVS(4065) = B(1752) IF (DO_JVS(4066)) & -! JVS(4066) = Jac_FULL(286,69) - JVS(4066) = -B(576) +! JVS(4066) = Jac_FULL(335,162) + JVS(4066) = 0.5*B(798) IF (DO_JVS(4067)) & -! JVS(4067) = Jac_FULL(286,70) - JVS(4067) = -B(1156)+B(1513) +! JVS(4067) = Jac_FULL(335,163) + JVS(4067) = B(834) IF (DO_JVS(4068)) & -! JVS(4068) = Jac_FULL(286,71) - JVS(4068) = -B(330) +! JVS(4068) = Jac_FULL(335,165) + JVS(4068) = 2*B(138) IF (DO_JVS(4069)) & -! JVS(4069) = Jac_FULL(286,72) - JVS(4069) = -B(450) +! JVS(4069) = Jac_FULL(335,166) + JVS(4069) = 0 IF (DO_JVS(4070)) & -! JVS(4070) = Jac_FULL(286,75) - JVS(4070) = -B(438) +! JVS(4070) = Jac_FULL(335,168) + JVS(4070) = B(1099)+B(1785) IF (DO_JVS(4071)) & -! JVS(4071) = Jac_FULL(286,76) - JVS(4071) = -B(1095) +! JVS(4071) = Jac_FULL(335,171) + JVS(4071) = B(1246)-B(1250) IF (DO_JVS(4072)) & -! JVS(4072) = Jac_FULL(286,77) - JVS(4072) = -B(328) +! JVS(4072) = Jac_FULL(335,172) + JVS(4072) = B(1252)-B(1256) IF (DO_JVS(4073)) & -! JVS(4073) = Jac_FULL(286,78) - JVS(4073) = -B(452) +! JVS(4073) = Jac_FULL(335,175) + JVS(4073) = B(1095)+B(1784) IF (DO_JVS(4074)) & -! JVS(4074) = Jac_FULL(286,79) - JVS(4074) = -B(1118) +! JVS(4074) = Jac_FULL(335,176) + JVS(4074) = 0.5*B(772) IF (DO_JVS(4075)) & -! JVS(4075) = Jac_FULL(286,80) - JVS(4075) = -B(1120) +! JVS(4075) = Jac_FULL(335,177) + JVS(4075) = 0.5*B(836) IF (DO_JVS(4076)) & -! JVS(4076) = Jac_FULL(286,81) - JVS(4076) = -B(462) +! JVS(4076) = Jac_FULL(335,178) + JVS(4076) = B(128) IF (DO_JVS(4077)) & -! JVS(4077) = Jac_FULL(286,82) - JVS(4077) = -B(458) +! JVS(4077) = Jac_FULL(335,179) + JVS(4077) = 0 IF (DO_JVS(4078)) & -! JVS(4078) = Jac_FULL(286,83) - JVS(4078) = -B(460) +! JVS(4078) = Jac_FULL(335,180) + JVS(4078) = 1.11*B(1220)+0.09*B(1222) IF (DO_JVS(4079)) & -! JVS(4079) = Jac_FULL(286,84) - JVS(4079) = 0.05*B(404)-B(456) +! JVS(4079) = Jac_FULL(335,182) + JVS(4079) = B(1214) IF (DO_JVS(4080)) & -! JVS(4080) = Jac_FULL(286,85) - JVS(4080) = -0.5*B(1079)+2*B(1471) +! JVS(4080) = Jac_FULL(335,184) + JVS(4080) = B(1301) IF (DO_JVS(4081)) & -! JVS(4081) = Jac_FULL(286,86) - JVS(4081) = -B(23) +! JVS(4081) = Jac_FULL(335,186) + JVS(4081) = B(1188)+B(1789) IF (DO_JVS(4082)) & -! JVS(4082) = Jac_FULL(286,87) - JVS(4082) = -B(700) +! JVS(4082) = Jac_FULL(335,189) + JVS(4082) = 0.89*B(1352) IF (DO_JVS(4083)) & -! JVS(4083) = Jac_FULL(286,88) - JVS(4083) = -0.78*B(247)+B(1399) +! JVS(4083) = Jac_FULL(335,190) + JVS(4083) = B(1123) IF (DO_JVS(4084)) & -! JVS(4084) = Jac_FULL(286,89) - JVS(4084) = -B(696) +! JVS(4084) = Jac_FULL(335,193) + JVS(4084) = 0.3*B(865)+0.3*B(867)+1.15*B(869) IF (DO_JVS(4085)) & -! JVS(4085) = Jac_FULL(286,90) - JVS(4085) = -B(282)-B(284) +! JVS(4085) = Jac_FULL(335,196) + JVS(4085) = B(1686) IF (DO_JVS(4086)) & -! JVS(4086) = Jac_FULL(286,91) - JVS(4086) = -B(702) +! JVS(4086) = Jac_FULL(335,197) + JVS(4086) = B(162)-B(164) IF (DO_JVS(4087)) & -! JVS(4087) = Jac_FULL(286,93) - JVS(4087) = -0.21*B(239)+B(1395) +! JVS(4087) = Jac_FULL(335,200) + JVS(4087) = 0 IF (DO_JVS(4088)) & -! JVS(4088) = Jac_FULL(286,94) - JVS(4088) = -0.36*B(235)+B(1393) +! JVS(4088) = Jac_FULL(335,203) + JVS(4088) = -B(1455) IF (DO_JVS(4089)) & -! JVS(4089) = Jac_FULL(286,95) - JVS(4089) = -0.209*B(237)+B(1394) +! JVS(4089) = Jac_FULL(335,205) + JVS(4089) = 0.459*B(1114)+1.728*B(1116) IF (DO_JVS(4090)) & -! JVS(4090) = Jac_FULL(286,96) - JVS(4090) = -B(698) +! JVS(4090) = Jac_FULL(335,206) + JVS(4090) = B(1131) IF (DO_JVS(4091)) & -! JVS(4091) = Jac_FULL(286,97) - JVS(4091) = -B(1159) +! JVS(4091) = Jac_FULL(335,207) + JVS(4091) = B(1137) IF (DO_JVS(4092)) & -! JVS(4092) = Jac_FULL(286,100) - JVS(4092) = -B(332) +! JVS(4092) = Jac_FULL(335,211) + JVS(4092) = 0.5*B(818)+0.5*B(820)+B(822) IF (DO_JVS(4093)) & -! JVS(4093) = Jac_FULL(286,101) - JVS(4093) = -B(1146) +! JVS(4093) = Jac_FULL(335,212) + JVS(4093) = 0.942*B(148) IF (DO_JVS(4094)) & -! JVS(4094) = Jac_FULL(286,102) - JVS(4094) = -B(76)+B(1369) +! JVS(4094) = Jac_FULL(335,213) + JVS(4094) = -B(297)+B(300)+B(304) IF (DO_JVS(4095)) & -! JVS(4095) = Jac_FULL(286,104) - JVS(4095) = -B(1077) +! JVS(4095) = Jac_FULL(335,214) + JVS(4095) = B(86)+B(1655) IF (DO_JVS(4096)) & -! JVS(4096) = Jac_FULL(286,105) - JVS(4096) = -0.3*B(1061) +! JVS(4096) = Jac_FULL(335,218) + JVS(4096) = B(1694) IF (DO_JVS(4097)) & -! JVS(4097) = Jac_FULL(286,106) - JVS(4097) = -B(241)+B(1397) +! JVS(4097) = Jac_FULL(335,220) + JVS(4097) = B(1340) IF (DO_JVS(4098)) & -! JVS(4098) = Jac_FULL(286,107) - JVS(4098) = -B(1169) +! JVS(4098) = Jac_FULL(335,222) + JVS(4098) = B(1787) IF (DO_JVS(4099)) & -! JVS(4099) = Jac_FULL(286,109) - JVS(4099) = -B(770) +! JVS(4099) = Jac_FULL(335,223) + JVS(4099) = B(1032) IF (DO_JVS(4100)) & -! JVS(4100) = Jac_FULL(286,110) - JVS(4100) = -0.36*B(233)+B(1392) +! JVS(4100) = Jac_FULL(335,224) + JVS(4100) = B(1039) IF (DO_JVS(4101)) & -! JVS(4101) = Jac_FULL(286,111) - JVS(4101) = -B(436) +! JVS(4101) = Jac_FULL(335,226) + JVS(4101) = B(1206) IF (DO_JVS(4102)) & -! JVS(4102) = Jac_FULL(286,112) - JVS(4102) = -0.209*B(243)+B(1396) +! JVS(4102) = Jac_FULL(335,229) + JVS(4102) = 0.5*B(863) IF (DO_JVS(4103)) & -! JVS(4103) = Jac_FULL(286,113) - JVS(4103) = -0.209*B(231)+B(1391) +! JVS(4103) = Jac_FULL(335,230) + JVS(4103) = 0 IF (DO_JVS(4104)) & -! JVS(4104) = Jac_FULL(286,114) - JVS(4104) = -B(122) +! JVS(4104) = Jac_FULL(335,231) + JVS(4104) = 0 IF (DO_JVS(4105)) & -! JVS(4105) = Jac_FULL(286,115) - JVS(4105) = -B(1136) +! JVS(4105) = Jac_FULL(335,232) + JVS(4105) = B(1046) IF (DO_JVS(4106)) & -! JVS(4106) = Jac_FULL(286,116) - JVS(4106) = -B(809) +! JVS(4106) = Jac_FULL(335,233) + JVS(4106) = 0 IF (DO_JVS(4107)) & -! JVS(4107) = Jac_FULL(286,117) - JVS(4107) = -B(1019) +! JVS(4107) = Jac_FULL(335,234) + JVS(4107) = 0.995*B(1366)+B(1368) IF (DO_JVS(4108)) & -! JVS(4108) = Jac_FULL(286,118) - JVS(4108) = -B(1132) +! JVS(4108) = Jac_FULL(335,235) + JVS(4108) = B(1434)-B(1436) IF (DO_JVS(4109)) & -! JVS(4109) = Jac_FULL(286,119) - JVS(4109) = -0.51*B(656)+B(1458) +! JVS(4109) = Jac_FULL(335,236) + JVS(4109) = -B(1443)+B(1445)+B(1447) IF (DO_JVS(4110)) & -! JVS(4110) = Jac_FULL(286,120) - JVS(4110) = -B(1112)+B(1511) +! JVS(4110) = Jac_FULL(335,237) + JVS(4110) = 0 IF (DO_JVS(4111)) & -! JVS(4111) = Jac_FULL(286,121) - JVS(4111) = B(842)+2*B(844) +! JVS(4111) = Jac_FULL(335,239) + JVS(4111) = B(71) IF (DO_JVS(4112)) & -! JVS(4112) = Jac_FULL(286,122) - JVS(4112) = 2*B(1456) +! JVS(4112) = Jac_FULL(335,240) + JVS(4112) = B(1405)-B(1409) IF (DO_JVS(4113)) & -! JVS(4113) = Jac_FULL(286,123) - JVS(4113) = B(846)+2*B(848) +! JVS(4113) = Jac_FULL(335,241) + JVS(4113) = B(707)-B(709) IF (DO_JVS(4114)) & -! JVS(4114) = Jac_FULL(286,124) - JVS(4114) = -B(112)-B(114) +! JVS(4114) = Jac_FULL(335,242) + JVS(4114) = B(1751) IF (DO_JVS(4115)) & -! JVS(4115) = Jac_FULL(286,125) - JVS(4115) = -0.556*B(1065)+0.546*B(1506) +! JVS(4115) = Jac_FULL(335,243) + JVS(4115) = B(1082) IF (DO_JVS(4116)) & -! JVS(4116) = Jac_FULL(286,127) - JVS(4116) = B(1492) +! JVS(4116) = Jac_FULL(335,246) + JVS(4116) = -B(238)+B(243) IF (DO_JVS(4117)) & -! JVS(4117) = Jac_FULL(286,128) - JVS(4117) = -B(304) +! JVS(4117) = Jac_FULL(335,247) + JVS(4117) = B(689)+B(1764) IF (DO_JVS(4118)) & -! JVS(4118) = Jac_FULL(286,129) - JVS(4118) = B(1491) +! JVS(4118) = Jac_FULL(335,248) + JVS(4118) = B(1773) IF (DO_JVS(4119)) & -! JVS(4119) = Jac_FULL(286,130) - JVS(4119) = -B(811)-B(813) +! JVS(4119) = Jac_FULL(335,249) + JVS(4119) = 2*B(175)+B(259)+B(361) IF (DO_JVS(4120)) & -! JVS(4120) = Jac_FULL(286,131) - JVS(4120) = -B(815)-B(817) +! JVS(4120) = Jac_FULL(335,250) + JVS(4120) = 2*B(191)+B(267)+B(363) IF (DO_JVS(4121)) & -! JVS(4121) = Jac_FULL(286,132) - JVS(4121) = -B(1025) +! JVS(4121) = Jac_FULL(335,251) + JVS(4121) = B(1685) IF (DO_JVS(4122)) & -! JVS(4122) = Jac_FULL(286,133) - JVS(4122) = -B(193) +! JVS(4122) = Jac_FULL(335,252) + JVS(4122) = B(648)+2*B(649)+B(1730) IF (DO_JVS(4123)) & -! JVS(4123) = Jac_FULL(286,134) - JVS(4123) = -B(694) +! JVS(4123) = Jac_FULL(335,253) + JVS(4123) = B(1283) IF (DO_JVS(4124)) & -! JVS(4124) = Jac_FULL(286,136) - JVS(4124) = -0.415*B(1037)+0.75*B(1481) +! JVS(4124) = Jac_FULL(335,254) + JVS(4124) = B(1272) IF (DO_JVS(4125)) & -! JVS(4125) = Jac_FULL(286,137) - JVS(4125) = -0.7*B(59)+B(1364) +! JVS(4125) = Jac_FULL(335,255) + JVS(4125) = 0 IF (DO_JVS(4126)) & -! JVS(4126) = Jac_FULL(286,139) - JVS(4126) = -B(850)-B(852) +! JVS(4126) = Jac_FULL(335,256) + JVS(4126) = B(1750) IF (DO_JVS(4127)) & -! JVS(4127) = Jac_FULL(286,140) - JVS(4127) = -B(854)-B(856) +! JVS(4127) = Jac_FULL(335,257) + JVS(4127) = B(751)-B(753)+B(756) IF (DO_JVS(4128)) & -! JVS(4128) = Jac_FULL(286,141) - JVS(4128) = 1.25*B(1504) +! JVS(4128) = Jac_FULL(335,259) + JVS(4128) = B(1287)-B(1289) IF (DO_JVS(4129)) & -! JVS(4129) = Jac_FULL(286,142) - JVS(4129) = -B(1140)+B(1142) +! JVS(4129) = Jac_FULL(335,260) + JVS(4129) = B(122) IF (DO_JVS(4130)) & -! JVS(4130) = Jac_FULL(286,143) - JVS(4130) = -B(574) +! JVS(4130) = Jac_FULL(335,261) + JVS(4130) = B(687)+B(1318)+B(1749) IF (DO_JVS(4131)) & -! JVS(4131) = Jac_FULL(286,144) - JVS(4131) = B(1005) +! JVS(4131) = Jac_FULL(335,262) + JVS(4131) = 0.5*B(875) IF (DO_JVS(4132)) & -! JVS(4132) = Jac_FULL(286,145) - JVS(4132) = B(1011) +! JVS(4132) = Jac_FULL(335,263) + JVS(4132) = B(1389)+B(1391) IF (DO_JVS(4133)) & -! JVS(4133) = Jac_FULL(286,146) - JVS(4133) = 0.82*B(979) +! JVS(4133) = Jac_FULL(335,266) + JVS(4133) = B(1314)+B(1799)+B(1800) IF (DO_JVS(4134)) & -! JVS(4134) = Jac_FULL(286,147) - JVS(4134) = 0 +! JVS(4134) = Jac_FULL(335,267) + JVS(4134) = B(1105)+B(1786) IF (DO_JVS(4135)) & -! JVS(4135) = Jac_FULL(286,148) - JVS(4135) = -0.75*B(1188)+0.1*B(1190) +! JVS(4135) = Jac_FULL(335,268) + JVS(4135) = B(1101)+B(1783) IF (DO_JVS(4136)) & -! JVS(4136) = Jac_FULL(286,149) - JVS(4136) = -B(448) +! JVS(4136) = Jac_FULL(335,269) + JVS(4136) = 0.5*B(1457)+B(1459) IF (DO_JVS(4137)) & -! JVS(4137) = Jac_FULL(286,150) - JVS(4137) = B(973) +! JVS(4137) = Jac_FULL(335,271) + JVS(4137) = 0.058*B(1198)+1.065*B(1202) IF (DO_JVS(4138)) & -! JVS(4138) = Jac_FULL(286,151) - JVS(4138) = -B(939)-B(945)-B(949)+B(1498) +! JVS(4138) = Jac_FULL(335,272) + JVS(4138) = 0.84*B(824)+B(828) IF (DO_JVS(4139)) & -! JVS(4139) = Jac_FULL(286,152) - JVS(4139) = 0.599*B(878) +! JVS(4139) = Jac_FULL(335,273) + JVS(4139) = B(790)+B(794) IF (DO_JVS(4140)) & -! JVS(4140) = Jac_FULL(286,153) - JVS(4140) = -B(1059) +! JVS(4140) = Jac_FULL(335,274) + JVS(4140) = B(840)-B(842)+B(845) IF (DO_JVS(4141)) & -! JVS(4141) = Jac_FULL(286,154) - JVS(4141) = -B(618)+0.85*B(632) +! JVS(4141) = Jac_FULL(335,275) + JVS(4141) = 0.75*B(776)+B(778) IF (DO_JVS(4142)) & -! JVS(4142) = Jac_FULL(286,155) - JVS(4142) = -B(620)+0.85*B(634) +! JVS(4142) = Jac_FULL(335,276) + JVS(4142) = 0 IF (DO_JVS(4143)) & -! JVS(4143) = Jac_FULL(286,156) - JVS(4143) = B(1478) +! JVS(4143) = Jac_FULL(335,277) + JVS(4143) = 0.75*B(737)+B(739) IF (DO_JVS(4144)) & -! JVS(4144) = Jac_FULL(286,157) - JVS(4144) = -B(772)-B(780)+B(1485) +! JVS(4144) = Jac_FULL(335,278) + JVS(4144) = 0.84*B(764)+B(766) IF (DO_JVS(4145)) & -! JVS(4145) = Jac_FULL(286,158) - JVS(4145) = -B(195) +! JVS(4145) = Jac_FULL(335,279) + JVS(4145) = B(1688) IF (DO_JVS(4146)) & -! JVS(4146) = Jac_FULL(286,159) - JVS(4146) = -0.75*B(1183)+0.1*B(1185) +! JVS(4146) = Jac_FULL(335,280) + JVS(4146) = B(901)+B(917)+0.5*B(922) IF (DO_JVS(4147)) & -! JVS(4147) = Jac_FULL(286,161) - JVS(4147) = -B(104) +! JVS(4147) = Jac_FULL(335,281) + JVS(4147) = 0.75*B(802)+B(804) IF (DO_JVS(4148)) & -! JVS(4148) = Jac_FULL(286,162) - JVS(4148) = -B(776)-B(782)+B(1486) +! JVS(4148) = Jac_FULL(335,284) + JVS(4148) = -B(652)+B(681) IF (DO_JVS(4149)) & -! JVS(4149) = Jac_FULL(286,163) - JVS(4149) = -0.715*B(1015)+1.75*B(1479) +! JVS(4149) = Jac_FULL(335,285) + JVS(4149) = B(1072) IF (DO_JVS(4150)) & -! JVS(4150) = Jac_FULL(286,164) - JVS(4150) = B(1505) +! JVS(4150) = Jac_FULL(335,286) + JVS(4150) = B(1066) IF (DO_JVS(4151)) & -! JVS(4151) = Jac_FULL(286,165) - JVS(4151) = -0.255*B(786)+B(1488) +! 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) IF (DO_JVS(4152)) & -! JVS(4152) = Jac_FULL(286,166) - JVS(4152) = 0.582*B(886) +! JVS(4152) = Jac_FULL(335,290) + JVS(4152) = 0 IF (DO_JVS(4153)) & -! JVS(4153) = Jac_FULL(286,167) - JVS(4153) = 0.518*B(871) +! JVS(4153) = Jac_FULL(335,291) + JVS(4153) = B(855)+B(857) IF (DO_JVS(4154)) & -! JVS(4154) = Jac_FULL(286,168) - JVS(4154) = 0.506*B(892) +! JVS(4154) = Jac_FULL(335,293) + JVS(4154) = B(1143) IF (DO_JVS(4155)) & -! JVS(4155) = Jac_FULL(286,169) - JVS(4155) = -B(1023) +! JVS(4155) = Jac_FULL(335,296) + JVS(4155) = B(108) IF (DO_JVS(4156)) & -! JVS(4156) = Jac_FULL(286,170) - JVS(4156) = -B(640)+0.85*B(642) +! JVS(4156) = Jac_FULL(335,297) + JVS(4156) = B(543)+B(1706) IF (DO_JVS(4157)) & -! JVS(4157) = Jac_FULL(286,171) - JVS(4157) = -0.595*B(784)+B(1487) +! JVS(4157) = Jac_FULL(335,299) + JVS(4157) = 0.565*B(1218)+1.555*B(1791) IF (DO_JVS(4158)) & -! JVS(4158) = Jac_FULL(286,172) - JVS(4158) = B(1472) +! JVS(4158) = Jac_FULL(335,300) + JVS(4158) = B(171) IF (DO_JVS(4159)) & -! JVS(4159) = Jac_FULL(286,175) - JVS(4159) = B(1484) +! JVS(4159) = Jac_FULL(335,301) + JVS(4159) = B(1210)+B(1790) IF (DO_JVS(4160)) & -! JVS(4160) = Jac_FULL(286,176) - JVS(4160) = 0 +! JVS(4160) = Jac_FULL(335,302) + JVS(4160) = 0.31*B(1236)+0.7*B(1772) IF (DO_JVS(4161)) & -! JVS(4161) = Jac_FULL(286,177) - JVS(4161) = B(374)+1.788*B(376) +! JVS(4161) = Jac_FULL(335,303) + JVS(4161) = 0.022*B(1316)+0.3*B(1797)+B(1798) IF (DO_JVS(4162)) & -! JVS(4162) = Jac_FULL(286,178) - JVS(4162) = -B(682) +! JVS(4162) = Jac_FULL(335,304) + JVS(4162) = B(995)+B(999) IF (DO_JVS(4163)) & -! JVS(4163) = Jac_FULL(286,179) - JVS(4163) = 0 +! JVS(4163) = Jac_FULL(335,305) + JVS(4163) = B(987)+B(991) IF (DO_JVS(4164)) & -! JVS(4164) = Jac_FULL(286,180) - JVS(4164) = 0.2*B(1150) +! JVS(4164) = Jac_FULL(335,306) + JVS(4164) = 0 IF (DO_JVS(4165)) & -! JVS(4165) = Jac_FULL(286,181) - JVS(4165) = -B(937)-B(947)+0.67*B(1497) +! JVS(4165) = Jac_FULL(335,308) + JVS(4165) = 0.5*B(1291)+2*B(1293)+2*B(1297)+0.7*B(1299) IF (DO_JVS(4166)) & -! JVS(4166) = Jac_FULL(286,182) - JVS(4166) = B(788)+0.275*B(793) +! JVS(4166) = Jac_FULL(335,309) + JVS(4166) = 0 IF (DO_JVS(4167)) & -! JVS(4167) = Jac_FULL(286,183) - JVS(4167) = B(795)+0.275*B(800) +! 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) IF (DO_JVS(4168)) & -! JVS(4168) = Jac_FULL(286,184) - JVS(4168) = B(1122) +! JVS(4168) = Jac_FULL(335,311) + JVS(4168) = 0.563*B(1155)+B(1167)+B(1173) IF (DO_JVS(4169)) & -! JVS(4169) = Jac_FULL(286,186) - JVS(4169) = 0.085*B(758)+1.662*B(1489) +! JVS(4169) = Jac_FULL(335,312) + JVS(4169) = B(693)-B(695) IF (DO_JVS(4170)) & -! JVS(4170) = Jac_FULL(286,187) - JVS(4170) = B(803)+1.3*B(807) +! JVS(4170) = Jac_FULL(335,313) + JVS(4170) = B(183) IF (DO_JVS(4171)) & -! JVS(4171) = Jac_FULL(286,188) - JVS(4171) = 0.165*B(760)+1.637*B(1490) +! JVS(4171) = Jac_FULL(335,314) + JVS(4171) = 0 IF (DO_JVS(4172)) & -! JVS(4172) = Jac_FULL(286,189) - JVS(4172) = B(953)+0.646*B(957)+0.096*B(963) +! JVS(4172) = Jac_FULL(335,315) + JVS(4172) = B(112) IF (DO_JVS(4173)) & -! JVS(4173) = Jac_FULL(286,190) - JVS(4173) = -B(47)+0.75*B(344) +! JVS(4173) = Jac_FULL(335,317) + JVS(4173) = B(1708) IF (DO_JVS(4174)) & -! JVS(4174) = Jac_FULL(286,191) - JVS(4174) = 0 +! JVS(4174) = Jac_FULL(335,318) + JVS(4174) = 2*B(181)+B(255)+B(359) IF (DO_JVS(4175)) & -! JVS(4175) = Jac_FULL(286,192) - JVS(4175) = 0.065*B(766) +! JVS(4175) = Jac_FULL(335,319) + JVS(4175) = B(177) IF (DO_JVS(4176)) & -! JVS(4176) = Jac_FULL(286,193) - JVS(4176) = -B(71)+B(1368) +! JVS(4176) = Jac_FULL(335,320) + JVS(4176) = 0.928*B(185)+0.93*B(236) IF (DO_JVS(4177)) & -! JVS(4177) = Jac_FULL(286,194) - JVS(4177) = 0.65*B(835)+B(841) +! JVS(4177) = Jac_FULL(335,321) + JVS(4177) = B(118) IF (DO_JVS(4178)) & -! JVS(4178) = Jac_FULL(286,195) - JVS(4178) = 0 +! JVS(4178) = Jac_FULL(335,322) + JVS(4178) = -B(203)+B(208) IF (DO_JVS(4179)) & -! JVS(4179) = Jac_FULL(286,196) - JVS(4179) = -0.7*B(61)+B(1453) +! JVS(4179) = Jac_FULL(335,323) + JVS(4179) = B(187) IF (DO_JVS(4180)) & -! JVS(4180) = Jac_FULL(286,197) - JVS(4180) = -B(428) +! JVS(4180) = Jac_FULL(335,324) + JVS(4180) = -B(99)+B(104)+B(360)+B(362)+B(364)+B(916)+B(1162) IF (DO_JVS(4181)) & -! JVS(4181) = Jac_FULL(286,198) - JVS(4181) = -B(590) +! JVS(4181) = Jac_FULL(335,326) + JVS(4181) = 0 IF (DO_JVS(4182)) & -! JVS(4182) = Jac_FULL(286,199) - JVS(4182) = -B(684) +! JVS(4182) = Jac_FULL(335,327) + JVS(4182) = B(1649) IF (DO_JVS(4183)) & -! JVS(4183) = Jac_FULL(286,200) - JVS(4183) = -B(999) +! 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) IF (DO_JVS(4184)) & -! JVS(4184) = Jac_FULL(286,201) +! JVS(4184) = Jac_FULL(335,329) JVS(4184) = 0 IF (DO_JVS(4185)) & -! JVS(4185) = Jac_FULL(286,202) - JVS(4185) = -B(142) +! JVS(4185) = Jac_FULL(335,330) + JVS(4185) = 0 IF (DO_JVS(4186)) & -! JVS(4186) = Jac_FULL(286,203) - JVS(4186) = 0 +! JVS(4186) = Jac_FULL(335,331) + JVS(4186) = -B(646) IF (DO_JVS(4187)) & -! JVS(4187) = Jac_FULL(286,204) - JVS(4187) = 0.665*B(1027) +! JVS(4187) = Jac_FULL(335,332) + JVS(4187) = B(654) IF (DO_JVS(4188)) & -! JVS(4188) = Jac_FULL(286,205) - JVS(4188) = 0.59*B(1033)+B(1039) +! JVS(4188) = Jac_FULL(335,334) + JVS(4188) = 0 IF (DO_JVS(4189)) & -! JVS(4189) = Jac_FULL(286,206) - JVS(4189) = -0.5*B(1063)+0.5*B(1502)+B(1503) +! 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) IF (DO_JVS(4190)) & -! JVS(4190) = Jac_FULL(286,207) - JVS(4190) = 0.5*B(1035) +! JVS(4190) = Jac_FULL(335,336) + JVS(4190) = 0 IF (DO_JVS(4191)) & -! JVS(4191) = Jac_FULL(286,208) - JVS(4191) = -B(588) +! 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) IF (DO_JVS(4192)) & -! JVS(4192) = Jac_FULL(286,209) - JVS(4192) = 0 +! JVS(4192) = Jac_FULL(335,338) + JVS(4192) = B(581)-B(584) IF (DO_JVS(4193)) & -! JVS(4193) = Jac_FULL(286,210) - JVS(4193) = -B(1175) +! JVS(4193) = Jac_FULL(335,339) + JVS(4193) = 0 IF (DO_JVS(4194)) & -! JVS(4194) = Jac_FULL(286,211) - JVS(4194) = -B(87) +! JVS(4194) = Jac_FULL(335,340) + JVS(4194) = 0 IF (DO_JVS(4195)) & -! JVS(4195) = Jac_FULL(286,212) - JVS(4195) = -B(40)+B(370)+2*B(1363) +! JVS(4195) = Jac_FULL(335,341) + JVS(4195) = B(26)-B(33)+0.5*B(821)+0.3*B(868) IF (DO_JVS(4196)) & -! JVS(4196) = Jac_FULL(286,213) - JVS(4196) = -B(1071)+B(1509) +! JVS(4196) = Jac_FULL(335,342) + JVS(4196) = B(411)-B(424) IF (DO_JVS(4197)) & -! JVS(4197) = Jac_FULL(286,214) - JVS(4197) = -B(862)-B(864)-0.4*B(868)+0.55*B(1496) +! JVS(4197) = Jac_FULL(335,343) + JVS(4197) = -B(462)+B(463)+B(465)-B(468) IF (DO_JVS(4198)) & -! JVS(4198) = Jac_FULL(286,215) +! JVS(4198) = Jac_FULL(335,344) JVS(4198) = 0 IF (DO_JVS(4199)) & -! JVS(4199) = Jac_FULL(286,216) - JVS(4199) = 0 +! 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) IF (DO_JVS(4200)) & -! JVS(4200) = Jac_FULL(286,217) - JVS(4200) = 0 +! 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) IF (DO_JVS(4201)) & -! JVS(4201) = Jac_FULL(286,218) - JVS(4201) = -B(89) +! JVS(4201) = Jac_FULL(335,347) + JVS(4201) = B(400)-B(426) IF (DO_JVS(4202)) & -! JVS(4202) = Jac_FULL(286,219) - JVS(4202) = -B(144) +! JVS(4202) = Jac_FULL(335,348) + JVS(4202) = 0 IF (DO_JVS(4203)) & -! JVS(4203) = Jac_FULL(286,220) - JVS(4203) = -B(858)-B(860)-0.4*B(866)+0.55*B(1493) +! JVS(4203) = Jac_FULL(335,349) + JVS(4203) = 0 IF (DO_JVS(4204)) & -! JVS(4204) = Jac_FULL(286,221) - JVS(4204) = -B(155) +! JVS(4204) = Jac_FULL(335,350) + JVS(4204) = 0 IF (DO_JVS(4205)) & -! JVS(4205) = Jac_FULL(286,222) - JVS(4205) = B(954)+1.147*B(955)+0.435*B(959) +! 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) IF (DO_JVS(4206)) & -! JVS(4206) = Jac_FULL(286,223) - JVS(4206) = -B(219) +! JVS(4206) = Jac_FULL(335,352) + JVS(4206) = 0 IF (DO_JVS(4207)) & -! JVS(4207) = Jac_FULL(286,224) - JVS(4207) = 0.28*B(704)-B(706)-B(708)+0.5*B(710)+0.5*B(712) +! JVS(4207) = Jac_FULL(335,353) + JVS(4207) = 0 IF (DO_JVS(4208)) & -! JVS(4208) = Jac_FULL(286,225) - JVS(4208) = 0 +! JVS(4208) = Jac_FULL(336,43) + JVS(4208) = B(553) IF (DO_JVS(4209)) & -! JVS(4209) = Jac_FULL(286,226) - JVS(4209) = -B(173) +! JVS(4209) = Jac_FULL(336,52) + JVS(4209) = B(685) IF (DO_JVS(4210)) & -! JVS(4210) = Jac_FULL(286,227) - JVS(4210) = 0 +! JVS(4210) = Jac_FULL(336,73) + JVS(4210) = B(675) IF (DO_JVS(4211)) & -! JVS(4211) = Jac_FULL(286,228) - JVS(4211) = B(820)+0.65*B(821) +! JVS(4211) = Jac_FULL(336,84) + JVS(4211) = B(561) IF (DO_JVS(4212)) & -! JVS(4212) = Jac_FULL(286,229) - JVS(4212) = B(828)+0.65*B(833) +! JVS(4212) = Jac_FULL(336,85) + JVS(4212) = B(557) IF (DO_JVS(4213)) & -! JVS(4213) = Jac_FULL(286,230) - JVS(4213) = B(1477) +! JVS(4213) = Jac_FULL(336,86) + JVS(4213) = B(559) IF (DO_JVS(4214)) & -! JVS(4214) = Jac_FULL(286,231) - JVS(4214) = B(1480) +! JVS(4214) = Jac_FULL(336,87) + JVS(4214) = B(555) IF (DO_JVS(4215)) & -! JVS(4215) = Jac_FULL(286,232) - JVS(4215) = 0.379*B(898) +! JVS(4215) = Jac_FULL(336,105) + JVS(4215) = B(431) IF (DO_JVS(4216)) & -! JVS(4216) = Jac_FULL(286,233) - JVS(4216) = -B(221) +! JVS(4216) = Jac_FULL(336,108) + JVS(4216) = B(76) IF (DO_JVS(4217)) & -! JVS(4217) = Jac_FULL(286,234) - JVS(4217) = 0 +! JVS(4217) = Jac_FULL(336,116) + JVS(4217) = B(1687) IF (DO_JVS(4218)) & -! JVS(4218) = Jac_FULL(286,235) - JVS(4218) = -B(444) +! JVS(4218) = Jac_FULL(336,164) + JVS(4218) = B(59) IF (DO_JVS(4219)) & -! JVS(4219) = Jac_FULL(286,236) - JVS(4219) = -0.773*B(213)+0.07*B(1381) +! JVS(4219) = Jac_FULL(336,173) + JVS(4219) = B(1336) IF (DO_JVS(4220)) & -! JVS(4220) = Jac_FULL(286,237) - JVS(4220) = 0 +! JVS(4220) = Jac_FULL(336,181) + JVS(4220) = B(547) IF (DO_JVS(4221)) & -! JVS(4221) = Jac_FULL(286,238) - JVS(4221) = 0 +! JVS(4221) = Jac_FULL(336,183) + JVS(4221) = B(106) IF (DO_JVS(4222)) & -! JVS(4222) = Jac_FULL(286,239) +! JVS(4222) = Jac_FULL(336,189) JVS(4222) = 0 IF (DO_JVS(4223)) & -! JVS(4223) = Jac_FULL(286,240) - JVS(4223) = -B(967)-0.756*B(969)+0.645*B(1500) +! JVS(4223) = Jac_FULL(336,196) + JVS(4223) = B(136) IF (DO_JVS(4224)) & -! JVS(4224) = Jac_FULL(286,241) - JVS(4224) = -0.98*B(993)+0.01*B(1482) +! JVS(4224) = Jac_FULL(336,200) + JVS(4224) = 0 IF (DO_JVS(4225)) & -! JVS(4225) = Jac_FULL(286,242) - JVS(4225) = -0.7*B(1073)+B(1507)+0.3*B(1508) +! JVS(4225) = Jac_FULL(336,201) + JVS(4225) = 0 IF (DO_JVS(4226)) & -! JVS(4226) = Jac_FULL(286,243) - JVS(4226) = -B(975) +! JVS(4226) = Jac_FULL(336,214) + JVS(4226) = -B(1496) IF (DO_JVS(4227)) & -! JVS(4227) = Jac_FULL(286,244) - JVS(4227) = 0.063*B(718)+B(724)+1.5*B(725)+B(731)+B(732)+0.5*B(740)+0.55*B(756) +! JVS(4227) = Jac_FULL(336,217) + JVS(4227) = 0.02*B(475) IF (DO_JVS(4228)) & -! JVS(4228) = Jac_FULL(286,245) - JVS(4228) = 0.063*B(714)+B(722)+1.5*B(723)+B(730)+B(733)+0.5*B(736)+0.55*B(748) +! JVS(4228) = Jac_FULL(336,218) + JVS(4228) = -B(1509) IF (DO_JVS(4229)) & -! JVS(4229) = Jac_FULL(286,246) +! JVS(4229) = Jac_FULL(336,220) JVS(4229) = 0 IF (DO_JVS(4230)) & -! JVS(4230) = Jac_FULL(286,247) - JVS(4230) = 0.527*B(906) +! JVS(4230) = Jac_FULL(336,221) + JVS(4230) = 0 IF (DO_JVS(4231)) & -! JVS(4231) = Jac_FULL(286,248) - JVS(4231) = -B(981)+0.08*B(983) +! JVS(4231) = Jac_FULL(336,228) + JVS(4231) = B(47) IF (DO_JVS(4232)) & -! JVS(4232) = Jac_FULL(286,249) - JVS(4232) = 0.5*B(1048) +! JVS(4232) = Jac_FULL(336,239) + JVS(4232) = B(71) IF (DO_JVS(4233)) & -! JVS(4233) = Jac_FULL(286,250) - JVS(4233) = -B(227) +! JVS(4233) = Jac_FULL(336,240) + JVS(4233) = 0 IF (DO_JVS(4234)) & -! JVS(4234) = Jac_FULL(286,251) - JVS(4234) = -B(985)-B(987)+0.12*B(989)+0.68*B(991) +! JVS(4234) = Jac_FULL(336,241) + JVS(4234) = -B(713)-B(715) IF (DO_JVS(4235)) & -! JVS(4235) = Jac_FULL(286,252) - JVS(4235) = 0.15*B(165) +! JVS(4235) = Jac_FULL(336,244) + JVS(4235) = B(61) IF (DO_JVS(4236)) & -! JVS(4236) = Jac_FULL(286,253) - JVS(4236) = -B(209)+0.36*B(211) +! JVS(4236) = Jac_FULL(336,246) + JVS(4236) = 0 IF (DO_JVS(4237)) & -! JVS(4237) = Jac_FULL(286,254) - JVS(4237) = 0.15*B(167) +! JVS(4237) = Jac_FULL(336,251) + JVS(4237) = B(195) IF (DO_JVS(4238)) & -! JVS(4238) = Jac_FULL(286,255) - JVS(4238) = 0.44*B(207) +! JVS(4238) = Jac_FULL(336,252) + JVS(4238) = 0 IF (DO_JVS(4239)) & -! JVS(4239) = Jac_FULL(286,256) - JVS(4239) = 0 +! JVS(4239) = Jac_FULL(336,264) + JVS(4239) = B(40) IF (DO_JVS(4240)) & -! JVS(4240) = Jac_FULL(286,257) - JVS(4240) = 0 +! JVS(4240) = Jac_FULL(336,265) + JVS(4240) = B(87)+B(611) IF (DO_JVS(4241)) & -! JVS(4241) = Jac_FULL(286,258) +! JVS(4241) = Jac_FULL(336,269) JVS(4241) = 0 IF (DO_JVS(4242)) & -! JVS(4242) = Jac_FULL(286,259) - JVS(4242) = -B(146) +! JVS(4242) = Jac_FULL(336,271) + JVS(4242) = 0 IF (DO_JVS(4243)) & -! JVS(4243) = Jac_FULL(286,260) - JVS(4243) = B(306)+B(1402) +! JVS(4243) = Jac_FULL(336,276) + JVS(4243) = 0 IF (DO_JVS(4244)) & -! JVS(4244) = Jac_FULL(286,261) - JVS(4244) = 0.5*B(1081) +! JVS(4244) = Jac_FULL(336,279) + JVS(4244) = B(197) IF (DO_JVS(4245)) & -! JVS(4245) = Jac_FULL(286,262) - JVS(4245) = -B(446) +! JVS(4245) = Jac_FULL(336,283) + JVS(4245) = B(199) IF (DO_JVS(4246)) & -! JVS(4246) = Jac_FULL(286,263) - JVS(4246) = -B(63)+B(386) +! JVS(4246) = Jac_FULL(336,287) + JVS(4246) = 0 IF (DO_JVS(4247)) & -! JVS(4247) = Jac_FULL(286,264) - JVS(4247) = -B(95) +! JVS(4247) = Jac_FULL(336,289) + JVS(4247) = 0 IF (DO_JVS(4248)) & -! JVS(4248) = Jac_FULL(286,265) - JVS(4248) = -B(67)+B(1367) +! JVS(4248) = Jac_FULL(336,290) + JVS(4248) = 0 IF (DO_JVS(4249)) & -! JVS(4249) = Jac_FULL(286,266) - JVS(4249) = -B(57)+0.5*B(737)+0.5*B(741) +! JVS(4249) = Jac_FULL(336,291) + JVS(4249) = 0 IF (DO_JVS(4250)) & -! JVS(4250) = Jac_FULL(286,267) - JVS(4250) = -B(45) +! JVS(4250) = Jac_FULL(336,292) + JVS(4250) = B(234) IF (DO_JVS(4251)) & -! JVS(4251) = Jac_FULL(286,268) - JVS(4251) = -B(578)+B(1436) +! JVS(4251) = Jac_FULL(336,295) + JVS(4251) = B(212) IF (DO_JVS(4252)) & -! JVS(4252) = Jac_FULL(286,269) +! JVS(4252) = Jac_FULL(336,296) JVS(4252) = 0 IF (DO_JVS(4253)) & -! JVS(4253) = Jac_FULL(286,270) +! JVS(4253) = Jac_FULL(336,297) JVS(4253) = 0 IF (DO_JVS(4254)) & -! JVS(4254) = Jac_FULL(286,271) - JVS(4254) = -B(442)+B(1419) +! JVS(4254) = Jac_FULL(336,298) + JVS(4254) = B(201) IF (DO_JVS(4255)) & -! JVS(4255) = Jac_FULL(286,272) - JVS(4255) = 2*B(334)+B(340)+0.75*B(345)+0.66*B(388)+0.6*B(390)+0.05*B(405) +! JVS(4255) = Jac_FULL(336,300) + JVS(4255) = 0 IF (DO_JVS(4256)) & -! JVS(4256) = Jac_FULL(286,273) +! JVS(4256) = Jac_FULL(336,301) JVS(4256) = 0 IF (DO_JVS(4257)) & -! JVS(4257) = Jac_FULL(286,274) - JVS(4257) = -B(310) +! JVS(4257) = Jac_FULL(336,302) + JVS(4257) = 0 IF (DO_JVS(4258)) & -! JVS(4258) = Jac_FULL(286,275) - JVS(4258) = 0.66*B(389)-B(440) +! JVS(4258) = Jac_FULL(336,303) + JVS(4258) = 0 IF (DO_JVS(4259)) & -! JVS(4259) = Jac_FULL(286,276) - JVS(4259) = -B(24)-B(288) +! JVS(4259) = Jac_FULL(336,304) + JVS(4259) = 0 IF (DO_JVS(4260)) & -! JVS(4260) = Jac_FULL(286,277) +! JVS(4260) = Jac_FULL(336,305) JVS(4260) = 0 IF (DO_JVS(4261)) & -! JVS(4261) = Jac_FULL(286,278) - JVS(4261) = 2*B(335) +! JVS(4261) = Jac_FULL(336,306) + JVS(4261) = 0 IF (DO_JVS(4262)) & -! JVS(4262) = Jac_FULL(286,279) - JVS(4262) = B(42)-B(69)+0.55*B(749)+0.55*B(757)+B(804)+B(843)+B(847)+0.435*B(960)+0.096*B(964) +! JVS(4262) = Jac_FULL(336,307) + JVS(4262) = 0 IF (DO_JVS(4263)) & -! JVS(4263) = Jac_FULL(286,280) - JVS(4263) = -B(1223) +! JVS(4263) = Jac_FULL(336,308) + JVS(4263) = 0 IF (DO_JVS(4264)) & -! JVS(4264) = Jac_FULL(286,281) - JVS(4264) = B(78)-B(82)+0.68*B(992) +! JVS(4264) = Jac_FULL(336,309) + JVS(4264) = 0 IF (DO_JVS(4265)) & -! JVS(4265) = Jac_FULL(286,282) - JVS(4265) = -B(28)+B(30)+0.36*B(212)+B(375)+0.85*B(633)+0.85*B(635)+0.85*B(643)+0.28*B(705)+0.08*B(984)+0.12*B(990)& - &+B(1143)+0.1*B(1186)+0.1*B(1191) +! JVS(4265) = Jac_FULL(336,310) + JVS(4265) = 0 IF (DO_JVS(4266)) & -! JVS(4266) = Jac_FULL(286,283) +! JVS(4266) = Jac_FULL(336,311) JVS(4266) = 0 IF (DO_JVS(4267)) & -! JVS(4267) = Jac_FULL(286,284) - JVS(4267) = B(31)-B(38)+B(43)+B(79)+0.15*B(166)+0.15*B(168)+0.44*B(208)+B(354)+1.788*B(377)+B(476)+0.063*B(715)+0.063& - &*B(719)+0.275*B(794)+0.275*B(801)+1.3*B(808)+0.65*B(822)+0.65*B(834)+0.65*B(836)+2*B(845)+2*B(849)+0.518& - &*B(872)+0.599*B(879)+0.582*B(887)+0.506*B(893)+0.379*B(899)+0.527*B(907)+1.147*B(956)+0.646*B(958)+B(974)& - &+0.82*B(980)+B(1006)+B(1012)+0.665*B(1028)+0.59*B(1034)+0.5*B(1036)+0.5*B(1049)+0.5*B(1082)+B(1123)+0.2& - &*B(1151) +! JVS(4267) = Jac_FULL(336,312) + JVS(4267) = -B(697)-2*B(699) IF (DO_JVS(4268)) & -! JVS(4268) = Jac_FULL(286,285) - JVS(4268) = -B(432)-B(434) +! JVS(4268) = Jac_FULL(336,313) + JVS(4268) = 0 IF (DO_JVS(4269)) & -! JVS(4269) = Jac_FULL(286,286) - JVS(4269) = -B(25)-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(65)-B(68)-B(70)& - &-B(72)-B(77)-B(83)-B(88)-B(90)-B(96)-B(105)-B(113)-B(115)-B(123)-B(143)-B(145)-B(147)-B(156)-B(174)-B(194)& - &-B(196)-B(210)-0.773*B(214)-B(220)-B(222)-B(228)-0.209*B(232)-0.36*B(234)-0.36*B(236)-0.209*B(238)-0.21& - &*B(240)-B(242)-0.209*B(244)-0.78*B(248)-B(283)-B(285)-B(289)-B(296)-B(305)-B(311)-B(329)-B(331)-B(333)& - &-B(350)-B(352)-B(361)-B(429)-B(433)-B(435)-B(437)-B(439)-B(441)-B(443)-B(445)-B(447)-B(449)-B(451)-B(453)& - &-B(455)-B(457)-B(459)-B(461)-B(463)-B(575)-B(577)-B(579)-B(587)-B(589)-B(591)-B(619)-B(621)-B(641)-0.51& - &*B(657)-B(683)-B(685)-B(695)-B(697)-B(699)-B(701)-B(703)-B(707)-B(709)+0.5*B(711)+0.5*B(713)+0.085*B(759)& - &+0.165*B(761)+0.065*B(767)-B(771)-B(773)-B(777)-B(781)-B(783)-0.595*B(785)-0.255*B(787)-B(810)-B(812)& - &-B(814)-B(816)-B(818)-B(851)-B(853)-B(855)-B(857)-B(859)-B(861)-B(863)-B(865)-0.4*B(867)-0.4*B(869)-B(938)& - &-B(940)-B(946)-B(948)-B(950)-B(968)-0.756*B(970)-B(976)-B(982)-B(986)-B(988)-0.98*B(994)-B(1000)-0.715& - &*B(1016)-B(1020)-B(1024)-B(1026)-0.415*B(1038)-B(1060)-0.3*B(1062)-0.5*B(1064)-0.556*B(1066)-B(1072)-0.7& - &*B(1074)-B(1078)-0.5*B(1080)-B(1096)-0.364*B(1098)-B(1111)-B(1113)-B(1117)-B(1119)-B(1121)-B(1133)-B(1137)& - &-B(1141)-B(1147)-B(1157)-B(1160)-B(1170)-B(1176)-0.75*B(1184)-0.75*B(1189)-B(1208)-B(1224)-B(1225) +! JVS(4269) = Jac_FULL(336,314) + JVS(4269) = 0 IF (DO_JVS(4270)) & -! JVS(4270) = Jac_FULL(286,287) - JVS(4270) = -B(1226) +! JVS(4270) = Jac_FULL(336,315) + JVS(4270) = 0 IF (DO_JVS(4271)) & -! JVS(4271) = Jac_FULL(286,288) - JVS(4271) = B(307)+B(308)-B(353)+B(355)+B(371)+B(387) +! JVS(4271) = Jac_FULL(336,316) + JVS(4271) = B(1549)+B(1551)+B(1553)+B(1555) IF (DO_JVS(4272)) & -! JVS(4272) = Jac_FULL(286,289) - JVS(4272) = -B(297)+B(309)+0.6*B(391) +! JVS(4272) = Jac_FULL(336,317) + JVS(4272) = -B(1513) IF (DO_JVS(4273)) & -! JVS(4273) = Jac_FULL(286,290) - JVS(4273) = B(477) +! JVS(4273) = Jac_FULL(336,318) + JVS(4273) = 0 IF (DO_JVS(4274)) & -! JVS(4274) = Jac_FULL(286,291) - JVS(4274) = -B(66) +! JVS(4274) = Jac_FULL(336,319) + JVS(4274) = 0 IF (DO_JVS(4275)) & -! JVS(4275) = Jac_FULL(287,138) - JVS(4275) = B(11) +! JVS(4275) = Jac_FULL(336,320) + JVS(4275) = 0 IF (DO_JVS(4276)) & -! JVS(4276) = Jac_FULL(287,173) - JVS(4276) = -B(1221) +! JVS(4276) = Jac_FULL(336,321) + JVS(4276) = 0 IF (DO_JVS(4277)) & -! JVS(4277) = Jac_FULL(287,203) - JVS(4277) = -B(1315) +! JVS(4277) = Jac_FULL(336,322) + JVS(4277) = 0 IF (DO_JVS(4278)) & -! JVS(4278) = Jac_FULL(287,235) - JVS(4278) = -B(1247) +! JVS(4278) = Jac_FULL(336,323) + JVS(4278) = 0 IF (DO_JVS(4279)) & -! JVS(4279) = Jac_FULL(287,260) - JVS(4279) = -B(1273) +! JVS(4279) = Jac_FULL(336,324) + JVS(4279) = 0 IF (DO_JVS(4280)) & -! JVS(4280) = Jac_FULL(287,262) - JVS(4280) = -B(1243) +! JVS(4280) = Jac_FULL(336,325) + JVS(4280) = B(63) IF (DO_JVS(4281)) & -! JVS(4281) = Jac_FULL(287,265) - JVS(4281) = 0 +! JVS(4281) = Jac_FULL(336,326) + JVS(4281) = B(95) IF (DO_JVS(4282)) & -! JVS(4282) = Jac_FULL(287,266) - JVS(4282) = 0 +! JVS(4282) = Jac_FULL(336,327) + JVS(4282) = B(67) IF (DO_JVS(4283)) & -! JVS(4283) = Jac_FULL(287,267) +! JVS(4283) = Jac_FULL(336,328) JVS(4283) = 0 IF (DO_JVS(4284)) & -! JVS(4284) = Jac_FULL(287,268) - JVS(4284) = -B(1331) +! JVS(4284) = Jac_FULL(336,329) + JVS(4284) = 0 IF (DO_JVS(4285)) & -! JVS(4285) = Jac_FULL(287,269) - JVS(4285) = 0 +! JVS(4285) = Jac_FULL(336,330) + JVS(4285) = B(677) IF (DO_JVS(4286)) & -! JVS(4286) = Jac_FULL(287,270) - JVS(4286) = -B(1323) +! JVS(4286) = Jac_FULL(336,331) + JVS(4286) = 0 IF (DO_JVS(4287)) & -! JVS(4287) = Jac_FULL(287,271) - JVS(4287) = -B(1263) +! JVS(4287) = Jac_FULL(336,332) + JVS(4287) = -B(1589) IF (DO_JVS(4288)) & -! JVS(4288) = Jac_FULL(287,272) - JVS(4288) = 0 +! JVS(4288) = Jac_FULL(336,333) + JVS(4288) = B(541)+B(1539)+B(1541)+B(1543)+B(1545) IF (DO_JVS(4289)) & -! JVS(4289) = Jac_FULL(287,273) - JVS(4289) = 0 +! JVS(4289) = Jac_FULL(336,334) + JVS(4289) = -B(433) IF (DO_JVS(4290)) & -! JVS(4290) = Jac_FULL(287,274) +! JVS(4290) = Jac_FULL(336,335) JVS(4290) = 0 IF (DO_JVS(4291)) & -! JVS(4291) = Jac_FULL(287,275) - JVS(4291) = B(12) +! 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) IF (DO_JVS(4292)) & -! JVS(4292) = Jac_FULL(287,276) - JVS(4292) = 0 +! JVS(4292) = Jac_FULL(336,337) + JVS(4292) = B(38)+0.02*B(476)+B(1491) IF (DO_JVS(4293)) & -! JVS(4293) = Jac_FULL(287,277) +! JVS(4293) = Jac_FULL(336,338) JVS(4293) = 0 IF (DO_JVS(4294)) & -! JVS(4294) = Jac_FULL(287,278) - JVS(4294) = 0 +! JVS(4294) = Jac_FULL(336,339) + JVS(4294) = B(539)+B(1540)+B(1552) IF (DO_JVS(4295)) & -! JVS(4295) = Jac_FULL(287,279) - JVS(4295) = 0 +! JVS(4295) = Jac_FULL(336,340) + JVS(4295) = B(612) IF (DO_JVS(4296)) & -! JVS(4296) = Jac_FULL(287,280) +! JVS(4296) = Jac_FULL(336,341) JVS(4296) = 0 IF (DO_JVS(4297)) & -! JVS(4297) = Jac_FULL(287,281) +! JVS(4297) = Jac_FULL(336,342) JVS(4297) = 0 IF (DO_JVS(4298)) & -! JVS(4298) = Jac_FULL(287,282) +! JVS(4298) = Jac_FULL(336,343) JVS(4298) = 0 IF (DO_JVS(4299)) & -! JVS(4299) = Jac_FULL(287,283) - JVS(4299) = 0 +! JVS(4299) = Jac_FULL(336,344) + JVS(4299) = B(1546)+B(1556) IF (DO_JVS(4300)) & -! JVS(4300) = Jac_FULL(287,284) - JVS(4300) = 0 +! 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) IF (DO_JVS(4301)) & -! JVS(4301) = Jac_FULL(287,285) +! JVS(4301) = Jac_FULL(336,346) JVS(4301) = 0 IF (DO_JVS(4302)) & -! JVS(4302) = Jac_FULL(287,286) - JVS(4302) = -B(1225) +! JVS(4302) = Jac_FULL(336,347) + JVS(4302) = 0 IF (DO_JVS(4303)) & -! JVS(4303) = Jac_FULL(287,287) - JVS(4303) = -B(1222)-B(1226)-B(1244)-B(1248)-B(1264)-B(1274)-B(1316)-B(1324)-B(1332) +! JVS(4303) = Jac_FULL(336,348) + JVS(4303) = 0 IF (DO_JVS(4304)) & -! JVS(4304) = Jac_FULL(287,288) +! JVS(4304) = Jac_FULL(336,349) JVS(4304) = 0 IF (DO_JVS(4305)) & -! JVS(4305) = Jac_FULL(287,289) +! JVS(4305) = Jac_FULL(336,350) JVS(4305) = 0 IF (DO_JVS(4306)) & -! JVS(4306) = Jac_FULL(287,290) +! JVS(4306) = Jac_FULL(336,351) JVS(4306) = 0 IF (DO_JVS(4307)) & -! JVS(4307) = Jac_FULL(287,291) - JVS(4307) = 0 +! JVS(4307) = Jac_FULL(336,352) + JVS(4307) = B(396)+B(1542)+B(1550) IF (DO_JVS(4308)) & -! JVS(4308) = Jac_FULL(288,47) - JVS(4308) = 0.55*B(412) +! JVS(4308) = Jac_FULL(336,353) + JVS(4308) = B(1544)+B(1554) IF (DO_JVS(4309)) & -! JVS(4309) = Jac_FULL(288,48) - JVS(4309) = 0.25*B(426) +! JVS(4309) = Jac_FULL(337,60) + JVS(4309) = 0.364*B(1362) IF (DO_JVS(4310)) & -! JVS(4310) = Jac_FULL(288,52) - JVS(4310) = 0.21*B(394) +! JVS(4310) = Jac_FULL(337,72) + JVS(4310) = B(308) IF (DO_JVS(4311)) & -! JVS(4311) = Jac_FULL(288,53) - JVS(4311) = 0.1*B(406) +! JVS(4311) = Jac_FULL(337,75) + JVS(4311) = B(551)+B(609) IF (DO_JVS(4312)) & -! JVS(4312) = Jac_FULL(288,54) - JVS(4312) = 0.14*B(408) +! JVS(4312) = Jac_FULL(337,79) + JVS(4312) = B(549)+B(607) IF (DO_JVS(4313)) & -! JVS(4313) = Jac_FULL(288,55) - JVS(4313) = 0.1*B(420) +! JVS(4313) = Jac_FULL(337,80) + JVS(4313) = B(1741) IF (DO_JVS(4314)) & -! JVS(4314) = Jac_FULL(288,56) - JVS(4314) = 0.1*B(422) +! JVS(4314) = Jac_FULL(337,82) + JVS(4314) = 0.19*B(1383) IF (DO_JVS(4315)) & -! JVS(4315) = Jac_FULL(288,57) - JVS(4315) = 0.14*B(424) +! JVS(4315) = Jac_FULL(337,83) + JVS(4315) = B(1758) IF (DO_JVS(4316)) & -! JVS(4316) = Jac_FULL(288,59) - JVS(4316) = 0.35*B(410) +! JVS(4316) = Jac_FULL(337,88) + JVS(4316) = 0.5*B(1322) IF (DO_JVS(4317)) & -! JVS(4317) = Jac_FULL(288,65) - JVS(4317) = B(378)+B(380)+B(382) +! JVS(4317) = Jac_FULL(337,91) + JVS(4317) = B(1759) IF (DO_JVS(4318)) & -! JVS(4318) = Jac_FULL(288,66) - JVS(4318) = -B(358) +! JVS(4318) = Jac_FULL(337,93) + JVS(4318) = B(1757) IF (DO_JVS(4319)) & -! JVS(4319) = Jac_FULL(288,71) - JVS(4319) = 0.05*B(400) +! JVS(4319) = Jac_FULL(337,95) + JVS(4319) = B(1760) IF (DO_JVS(4320)) & -! JVS(4320) = Jac_FULL(288,77) - JVS(4320) = 0.3*B(402) +! JVS(4320) = Jac_FULL(337,97) + JVS(4320) = B(1680) IF (DO_JVS(4321)) & -! JVS(4321) = Jac_FULL(288,81) - JVS(4321) = 0.21*B(418) +! JVS(4321) = Jac_FULL(337,98) + JVS(4321) = B(1681) IF (DO_JVS(4322)) & -! JVS(4322) = Jac_FULL(288,82) - JVS(4322) = 0.31*B(414) +! JVS(4322) = Jac_FULL(337,99) + JVS(4322) = B(1678) IF (DO_JVS(4323)) & -! JVS(4323) = Jac_FULL(288,83) - JVS(4323) = 0.35*B(416) +! JVS(4323) = Jac_FULL(337,100) + JVS(4323) = B(1679) IF (DO_JVS(4324)) & -! JVS(4324) = Jac_FULL(288,84) - JVS(4324) = 0.25*B(404) +! JVS(4324) = Jac_FULL(337,101) + JVS(4324) = 0.15*B(1385) IF (DO_JVS(4325)) & -! JVS(4325) = Jac_FULL(288,111) - JVS(4325) = B(1414) +! JVS(4325) = Jac_FULL(337,102) + JVS(4325) = B(1682) IF (DO_JVS(4326)) & -! JVS(4326) = Jac_FULL(288,149) - JVS(4326) = 0.1*B(396) +! JVS(4326) = Jac_FULL(337,105) + JVS(4326) = B(431) IF (DO_JVS(4327)) & -! JVS(4327) = Jac_FULL(288,177) - JVS(4327) = 0.02*B(376) +! JVS(4327) = Jac_FULL(337,106) + JVS(4327) = B(1372)+B(1373) IF (DO_JVS(4328)) & -! JVS(4328) = Jac_FULL(288,190) - JVS(4328) = 0 +! JVS(4328) = Jac_FULL(337,108) + JVS(4328) = B(75)+B(1652) IF (DO_JVS(4329)) & -! JVS(4329) = Jac_FULL(288,197) - JVS(4329) = 0.25*B(392) +! JVS(4329) = Jac_FULL(337,111) + JVS(4329) = B(1807) IF (DO_JVS(4330)) & -! JVS(4330) = Jac_FULL(288,212) - JVS(4330) = -B(370) +! JVS(4330) = Jac_FULL(337,112) + JVS(4330) = B(1812) IF (DO_JVS(4331)) & -! JVS(4331) = Jac_FULL(288,224) - JVS(4331) = 0 +! JVS(4331) = Jac_FULL(337,115) + JVS(4331) = B(1763) IF (DO_JVS(4332)) & -! JVS(4332) = Jac_FULL(288,227) - JVS(4332) = B(1437) +! JVS(4332) = Jac_FULL(337,116) + JVS(4332) = B(1356)+B(1687) IF (DO_JVS(4333)) & -! JVS(4333) = Jac_FULL(288,234) - JVS(4333) = 0 +! JVS(4333) = Jac_FULL(337,118) + JVS(4333) = B(1677) IF (DO_JVS(4334)) & -! JVS(4334) = Jac_FULL(288,235) - JVS(4334) = 0 +! JVS(4334) = Jac_FULL(337,119) + JVS(4334) = B(1013) IF (DO_JVS(4335)) & -! JVS(4335) = Jac_FULL(288,248) - JVS(4335) = 0 +! JVS(4335) = Jac_FULL(337,121) + JVS(4335) = B(1399)-B(1401) IF (DO_JVS(4336)) & -! JVS(4336) = Jac_FULL(288,251) - JVS(4336) = 0 +! JVS(4336) = Jac_FULL(337,123) + JVS(4336) = B(1683) IF (DO_JVS(4337)) & -! JVS(4337) = Jac_FULL(288,253) - JVS(4337) = 0 +! JVS(4337) = Jac_FULL(337,125) + JVS(4337) = B(1676) IF (DO_JVS(4338)) & -! JVS(4338) = Jac_FULL(288,260) - JVS(4338) = -B(306) +! JVS(4338) = Jac_FULL(337,127) + JVS(4338) = B(152) IF (DO_JVS(4339)) & -! JVS(4339) = Jac_FULL(288,261) - JVS(4339) = 0 +! JVS(4339) = Jac_FULL(337,128) + JVS(4339) = 0.75*B(1052) IF (DO_JVS(4340)) & -! JVS(4340) = Jac_FULL(288,262) - JVS(4340) = -B(502) +! JVS(4340) = Jac_FULL(337,131) + JVS(4340) = B(1262) IF (DO_JVS(4341)) & -! JVS(4341) = Jac_FULL(288,263) - JVS(4341) = -B(386) +! JVS(4341) = Jac_FULL(337,132) + JVS(4341) = B(156) IF (DO_JVS(4342)) & -! JVS(4342) = Jac_FULL(288,264) - JVS(4342) = 0 +! JVS(4342) = Jac_FULL(337,133) + JVS(4342) = -B(1087) IF (DO_JVS(4343)) & -! JVS(4343) = Jac_FULL(288,266) - JVS(4343) = 0 +! JVS(4343) = Jac_FULL(337,135) + JVS(4343) = -B(1091) IF (DO_JVS(4344)) & -! JVS(4344) = Jac_FULL(288,267) +! JVS(4344) = Jac_FULL(337,136) JVS(4344) = 0 IF (DO_JVS(4345)) & -! JVS(4345) = Jac_FULL(288,268) - JVS(4345) = 0 +! JVS(4345) = Jac_FULL(337,137) + JVS(4345) = 0.5*B(743) IF (DO_JVS(4346)) & -! JVS(4346) = Jac_FULL(288,269) - JVS(4346) = 0 +! JVS(4346) = Jac_FULL(337,138) + JVS(4346) = 0.5*B(780) IF (DO_JVS(4347)) & -! JVS(4347) = Jac_FULL(288,270) - JVS(4347) = 0 +! JVS(4347) = Jac_FULL(337,143) + JVS(4347) = 0.54*B(1381) IF (DO_JVS(4348)) & -! JVS(4348) = Jac_FULL(288,271) - JVS(4348) = 0 +! JVS(4348) = Jac_FULL(337,144) + JVS(4348) = B(1782) IF (DO_JVS(4349)) & -! JVS(4349) = Jac_FULL(288,272) - JVS(4349) = B(336)+B(338)+B(356)+0.12*B(388)+0.2*B(390)+0.25*B(393)+0.21*B(395)+0.1*B(397)+0.05*B(401)+0.3*B(403)+0.25& - &*B(405)+0.1*B(407)+0.14*B(409)+0.35*B(411)+0.55*B(413)+0.31*B(415)+0.35*B(417)+0.21*B(419)+0.1*B(421)+0.1& - &*B(423)+0.14*B(425)+0.25*B(427) +! JVS(4349) = Jac_FULL(337,145) + JVS(4349) = B(1177) IF (DO_JVS(4350)) & -! JVS(4350) = Jac_FULL(288,273) - JVS(4350) = 0 +! JVS(4350) = Jac_FULL(337,146) + JVS(4350) = B(1661) IF (DO_JVS(4351)) & -! JVS(4351) = Jac_FULL(288,274) - JVS(4351) = -B(384)+B(1401) +! JVS(4351) = Jac_FULL(337,147) + JVS(4351) = 0.444*B(1308)+1.454*B(1796) IF (DO_JVS(4352)) & -! JVS(4352) = Jac_FULL(288,275) - JVS(4352) = 0.12*B(389) +! JVS(4352) = Jac_FULL(337,149) + JVS(4352) = 0.18*B(1344) IF (DO_JVS(4353)) & -! JVS(4353) = Jac_FULL(288,276) - JVS(4353) = 0 +! JVS(4353) = Jac_FULL(337,150) + JVS(4353) = B(1781) IF (DO_JVS(4354)) & -! JVS(4354) = Jac_FULL(288,277) - JVS(4354) = 0 +! JVS(4354) = Jac_FULL(337,151) + JVS(4354) = B(1054) IF (DO_JVS(4355)) & -! JVS(4355) = Jac_FULL(288,278) - JVS(4355) = 0 +! JVS(4355) = Jac_FULL(337,152) + JVS(4355) = B(1058) IF (DO_JVS(4356)) & -! JVS(4356) = Jac_FULL(288,279) - JVS(4356) = -B(366)+B(381)+B(1457) +! JVS(4356) = Jac_FULL(337,153) + JVS(4356) = B(1268) IF (DO_JVS(4357)) & -! JVS(4357) = Jac_FULL(288,280) - JVS(4357) = 0 +! JVS(4357) = Jac_FULL(337,155) + JVS(4357) = B(1684) IF (DO_JVS(4358)) & -! JVS(4358) = Jac_FULL(288,281) - JVS(4358) = -B(364)+B(1371) +! JVS(4358) = Jac_FULL(337,156) + JVS(4358) = B(269) IF (DO_JVS(4359)) & -! JVS(4359) = Jac_FULL(288,282) - JVS(4359) = -B(348)+B(357)+B(1359) +! JVS(4359) = Jac_FULL(337,158) + JVS(4359) = 0.727*B(1418) IF (DO_JVS(4360)) & -! JVS(4360) = Jac_FULL(288,283) - JVS(4360) = 0 +! JVS(4360) = Jac_FULL(337,161) + JVS(4360) = B(1813) IF (DO_JVS(4361)) & -! JVS(4361) = Jac_FULL(288,284) - JVS(4361) = -B(354)+0.02*B(377) +! JVS(4361) = Jac_FULL(337,164) + JVS(4361) = B(1646) IF (DO_JVS(4362)) & -! JVS(4362) = Jac_FULL(288,285) - JVS(4362) = -B(478)+B(1413) +! JVS(4362) = Jac_FULL(337,165) + JVS(4362) = -B(140) IF (DO_JVS(4363)) & -! JVS(4363) = Jac_FULL(288,286) - JVS(4363) = B(36)-B(352) +! JVS(4363) = Jac_FULL(337,168) + JVS(4363) = B(1785) IF (DO_JVS(4364)) & -! JVS(4364) = Jac_FULL(288,287) - JVS(4364) = 0 +! JVS(4364) = Jac_FULL(337,171) + JVS(4364) = -B(1248) IF (DO_JVS(4365)) & -! JVS(4365) = Jac_FULL(288,288) - JVS(4365) = -B(307)-B(308)-B(346)-B(349)-B(353)-B(355)-B(359)-B(362)-B(365)-B(367)-B(368)-B(371)-B(385)-B(387)-B(479)& - &-B(503) +! JVS(4365) = Jac_FULL(337,172) + JVS(4365) = -B(1254) IF (DO_JVS(4366)) & -! JVS(4366) = Jac_FULL(288,289) - JVS(4366) = -B(309)+0.2*B(391) +! JVS(4366) = Jac_FULL(337,174) + JVS(4366) = 0.75*B(1794) IF (DO_JVS(4367)) & -! JVS(4367) = Jac_FULL(288,290) - JVS(4367) = 0 +! JVS(4367) = Jac_FULL(337,175) + JVS(4367) = B(1784) IF (DO_JVS(4368)) & -! JVS(4368) = Jac_FULL(288,291) - JVS(4368) = -B(363)-B(369)+B(383)+B(1362) +! JVS(4368) = Jac_FULL(337,178) + JVS(4368) = 0.75*B(128)-B(132) IF (DO_JVS(4369)) & -! JVS(4369) = Jac_FULL(289,124) - JVS(4369) = B(322) +! JVS(4369) = Jac_FULL(337,180) + JVS(4369) = 0.89*B(1220)-0.27*B(1222) IF (DO_JVS(4370)) & -! JVS(4370) = Jac_FULL(289,161) - JVS(4370) = B(320) +! JVS(4370) = Jac_FULL(337,181) + JVS(4370) = B(547)+B(605) IF (DO_JVS(4371)) & -! JVS(4371) = Jac_FULL(289,221) - JVS(4371) = B(318) +! JVS(4371) = Jac_FULL(337,182) + JVS(4371) = 0.33*B(1214)-0.67*B(1216) IF (DO_JVS(4372)) & -! JVS(4372) = Jac_FULL(289,235) - JVS(4372) = -B(1255) +! JVS(4372) = Jac_FULL(337,185) + JVS(4372) = 0.571*B(1768) IF (DO_JVS(4373)) & -! JVS(4373) = Jac_FULL(289,238) - JVS(4373) = 0 +! JVS(4373) = Jac_FULL(337,186) + JVS(4373) = 0.159*B(1788) IF (DO_JVS(4374)) & -! JVS(4374) = Jac_FULL(289,253) - JVS(4374) = B(542) +! JVS(4374) = Jac_FULL(337,187) + JVS(4374) = 0.25*B(1023)+B(1775) IF (DO_JVS(4375)) & -! JVS(4375) = Jac_FULL(289,254) - JVS(4375) = 0 +! JVS(4375) = Jac_FULL(337,188) + JVS(4375) = B(271) IF (DO_JVS(4376)) & -! JVS(4376) = Jac_FULL(289,256) - JVS(4376) = 0 +! JVS(4376) = Jac_FULL(337,189) + JVS(4376) = B(1352)-B(1354) IF (DO_JVS(4377)) & -! JVS(4377) = Jac_FULL(289,257) - JVS(4377) = 0 +! JVS(4377) = Jac_FULL(337,190) + JVS(4377) = B(1120)-0.401*B(1121)+B(1123) IF (DO_JVS(4378)) & -! JVS(4378) = Jac_FULL(289,258) - JVS(4378) = 0 +! JVS(4378) = Jac_FULL(337,192) + JVS(4378) = 0.33*B(1025)+B(1776) IF (DO_JVS(4379)) & -! JVS(4379) = Jac_FULL(289,259) - JVS(4379) = 0 +! JVS(4379) = Jac_FULL(337,194) + JVS(4379) = 0.715*B(1258)+0.125*B(1769) IF (DO_JVS(4380)) & -! JVS(4380) = Jac_FULL(289,260) - JVS(4380) = -B(1267)+B(1279) +! JVS(4380) = Jac_FULL(337,195) + JVS(4380) = 0.8*B(1414) IF (DO_JVS(4381)) & -! JVS(4381) = Jac_FULL(289,261) - JVS(4381) = 0 +! JVS(4381) = Jac_FULL(337,196) + JVS(4381) = 0.326*B(1686) IF (DO_JVS(4382)) & -! JVS(4382) = Jac_FULL(289,262) - JVS(4382) = -B(1235) +! JVS(4382) = Jac_FULL(337,197) + JVS(4382) = -0.75*B(160)+B(162) IF (DO_JVS(4383)) & -! JVS(4383) = Jac_FULL(289,263) - JVS(4383) = B(314) +! JVS(4383) = Jac_FULL(337,198) + JVS(4383) = B(1795) IF (DO_JVS(4384)) & -! JVS(4384) = Jac_FULL(289,264) - JVS(4384) = B(316) +! JVS(4384) = Jac_FULL(337,199) + JVS(4384) = 0.042*B(1029)+B(1778) IF (DO_JVS(4385)) & -! JVS(4385) = Jac_FULL(289,266) - JVS(4385) = 0 +! JVS(4385) = Jac_FULL(337,200) + JVS(4385) = 0.03*B(1348) IF (DO_JVS(4386)) & -! JVS(4386) = Jac_FULL(289,267) - JVS(4386) = 0 +! JVS(4386) = Jac_FULL(337,201) + JVS(4386) = 0.33*B(1470)+0.1*B(1472)+0.2*B(1474) IF (DO_JVS(4387)) & -! JVS(4387) = Jac_FULL(289,271) - JVS(4387) = -B(1259) +! JVS(4387) = Jac_FULL(337,202) + JVS(4387) = B(1424) IF (DO_JVS(4388)) & -! JVS(4388) = Jac_FULL(289,272) - JVS(4388) = -0.8*B(390) +! JVS(4388) = Jac_FULL(337,204) + JVS(4388) = B(1802) IF (DO_JVS(4389)) & -! JVS(4389) = Jac_FULL(289,273) - JVS(4389) = B(294)+B(315)+B(317)+B(319)+B(321)+B(323)+B(543) +! JVS(4389) = Jac_FULL(337,205) + JVS(4389) = B(1113)-0.941*B(1114)+0.272*B(1116) IF (DO_JVS(4390)) & -! JVS(4390) = Jac_FULL(289,274) - JVS(4390) = 0 +! JVS(4390) = Jac_FULL(337,206) + JVS(4390) = B(1127)-0.418*B(1129)+B(1131) IF (DO_JVS(4391)) & -! JVS(4391) = Jac_FULL(289,275) - JVS(4391) = 0 +! JVS(4391) = Jac_FULL(337,207) + JVS(4391) = B(1128)-0.494*B(1135)+B(1137) IF (DO_JVS(4392)) & -! JVS(4392) = Jac_FULL(289,276) - JVS(4392) = B(1280) +! JVS(4392) = Jac_FULL(337,208) + JVS(4392) = B(1266)+B(1765) IF (DO_JVS(4393)) & -! JVS(4393) = Jac_FULL(289,277) - JVS(4393) = 0 +! JVS(4393) = Jac_FULL(337,209) + JVS(4393) = 0.024*B(1027)+B(1777) IF (DO_JVS(4394)) & -! JVS(4394) = Jac_FULL(289,278) - JVS(4394) = 0 +! JVS(4394) = Jac_FULL(337,210) + JVS(4394) = B(1762) IF (DO_JVS(4395)) & -! JVS(4395) = Jac_FULL(289,279) - JVS(4395) = 0 +! JVS(4395) = Jac_FULL(337,212) + JVS(4395) = 0.513*B(148)-B(150) IF (DO_JVS(4396)) & -! JVS(4396) = Jac_FULL(289,280) - JVS(4396) = 0 +! JVS(4396) = Jac_FULL(337,213) + JVS(4396) = B(300)-0.56*B(302)+B(304) IF (DO_JVS(4397)) & -! JVS(4397) = Jac_FULL(289,281) - JVS(4397) = 0 +! JVS(4397) = Jac_FULL(337,216) + JVS(4397) = B(1774) IF (DO_JVS(4398)) & -! JVS(4398) = Jac_FULL(289,282) - JVS(4398) = -B(1281) +! JVS(4398) = Jac_FULL(337,217) + JVS(4398) = B(471)-B(475) IF (DO_JVS(4399)) & -! JVS(4399) = Jac_FULL(289,283) - JVS(4399) = 0 +! JVS(4399) = Jac_FULL(337,219) + JVS(4399) = 0.05*B(729) IF (DO_JVS(4400)) & -! JVS(4400) = Jac_FULL(289,284) - JVS(4400) = B(295) +! JVS(4400) = Jac_FULL(337,220) + JVS(4400) = 0.7*B(1338)+0.1*B(1342) IF (DO_JVS(4401)) & -! JVS(4401) = Jac_FULL(289,285) - JVS(4401) = 0 +! JVS(4401) = Jac_FULL(337,221) + JVS(4401) = 0.33*B(1465)+0.1*B(1467)+0.2*B(1469) IF (DO_JVS(4402)) & -! JVS(4402) = Jac_FULL(289,286) - JVS(4402) = -B(296) +! JVS(4402) = Jac_FULL(337,222) + JVS(4402) = 0.33*B(1787) IF (DO_JVS(4403)) & -! JVS(4403) = Jac_FULL(289,287) - JVS(4403) = 0 +! JVS(4403) = Jac_FULL(337,223) + JVS(4403) = B(1032)-0.725*B(1036) IF (DO_JVS(4404)) & -! JVS(4404) = Jac_FULL(289,288) - JVS(4404) = -B(308) +! JVS(4404) = Jac_FULL(337,224) + JVS(4404) = B(1039)-0.725*B(1043) IF (DO_JVS(4405)) & -! JVS(4405) = Jac_FULL(289,289) - JVS(4405) = -B(297)-B(309)-0.8*B(391)-B(1236)-B(1256)-B(1260)-B(1268)-B(1282)-B(1287)-B(1288) +! JVS(4405) = Jac_FULL(337,225) + JVS(4405) = B(1808) IF (DO_JVS(4406)) & -! JVS(4406) = Jac_FULL(289,290) - JVS(4406) = 0 +! JVS(4406) = Jac_FULL(337,226) + JVS(4406) = -0.42*B(1200)+0.904*B(1206) IF (DO_JVS(4407)) & -! JVS(4407) = Jac_FULL(289,291) - JVS(4407) = 0 +! JVS(4407) = Jac_FULL(337,227) + JVS(4407) = 1.5*B(1766) IF (DO_JVS(4408)) & -! JVS(4408) = Jac_FULL(290,3) - JVS(4408) = B(1445) +! JVS(4408) = Jac_FULL(337,228) + JVS(4408) = 0.2*B(443) IF (DO_JVS(4409)) & -! JVS(4409) = Jac_FULL(290,43) - JVS(4409) = 3*B(454)+3*B(1420) +! JVS(4409) = Jac_FULL(337,229) + JVS(4409) = B(1748)+B(1816) IF (DO_JVS(4410)) & -! JVS(4410) = Jac_FULL(290,52) - JVS(4410) = 2.37*B(394)+4*B(1421) +! JVS(4410) = Jac_FULL(337,230) + JVS(4410) = 0.085*B(1001)+0.112*B(1779) IF (DO_JVS(4411)) & -! JVS(4411) = Jac_FULL(290,53) - JVS(4411) = 1.8*B(406)+3*B(1422) +! JVS(4411) = Jac_FULL(337,231) + JVS(4411) = 0.165*B(1003)+0.182*B(1780) IF (DO_JVS(4412)) & -! JVS(4412) = Jac_FULL(290,54) - JVS(4412) = 0.86*B(408)+2*B(1423) +! JVS(4412) = Jac_FULL(337,232) + JVS(4412) = -B(1050) IF (DO_JVS(4413)) & -! JVS(4413) = Jac_FULL(290,55) - JVS(4413) = 1.9*B(420)+3*B(1424) +! JVS(4413) = Jac_FULL(337,233) + JVS(4413) = 0.425*B(154)+0.3*B(1660) IF (DO_JVS(4414)) & -! JVS(4414) = Jac_FULL(290,56) - JVS(4414) = 0.95*B(422)+2*B(1425) +! JVS(4414) = Jac_FULL(337,234) + JVS(4414) = -B(1364)+0.6*B(1370) IF (DO_JVS(4415)) & -! JVS(4415) = Jac_FULL(290,57) - JVS(4415) = B(1426) +! JVS(4415) = Jac_FULL(337,235) + JVS(4415) = -B(1432)+B(1463) IF (DO_JVS(4416)) & -! JVS(4416) = Jac_FULL(290,59) - JVS(4416) = 0.31*B(410)+B(1432) +! JVS(4416) = Jac_FULL(337,236) + JVS(4416) = -B(1449)+B(1461) IF (DO_JVS(4417)) & -! JVS(4417) = Jac_FULL(290,72) - JVS(4417) = 2*B(450)+B(508)+2*B(1410) +! JVS(4417) = Jac_FULL(337,238) + JVS(4417) = 0.283*B(1009) IF (DO_JVS(4418)) & -! JVS(4418) = Jac_FULL(290,75) - JVS(4418) = B(1415) +! JVS(4418) = Jac_FULL(337,240) + JVS(4418) = -B(1407) IF (DO_JVS(4419)) & -! JVS(4419) = Jac_FULL(290,78) - JVS(4419) = 3*B(452)+2*B(510) +! JVS(4419) = Jac_FULL(337,243) + JVS(4419) = -0.35*B(1078)+B(1082)+B(1084) IF (DO_JVS(4420)) & -! JVS(4420) = Jac_FULL(290,81) - JVS(4420) = 0.79*B(418)+2*B(462)+2*B(1427) +! JVS(4420) = Jac_FULL(337,246) + JVS(4420) = -B(245) IF (DO_JVS(4421)) & -! JVS(4421) = Jac_FULL(290,82) - JVS(4421) = 0.69*B(414)+2*B(458)+2*B(1428) +! JVS(4421) = Jac_FULL(337,248) + JVS(4421) = B(1773) IF (DO_JVS(4422)) & -! JVS(4422) = Jac_FULL(290,83) - JVS(4422) = B(460)+B(1429) +! JVS(4422) = Jac_FULL(337,249) + JVS(4422) = -B(224)+0.5*B(259) IF (DO_JVS(4423)) & -! JVS(4423) = Jac_FULL(290,84) - JVS(4423) = 0.19*B(404)+B(456)+B(1430) +! JVS(4423) = Jac_FULL(337,250) + JVS(4423) = -B(232)+0.5*B(267) IF (DO_JVS(4424)) & -! JVS(4424) = Jac_FULL(290,99) - JVS(4424) = B(1450) +! JVS(4424) = Jac_FULL(337,251) + JVS(4424) = 0.27*B(1685) IF (DO_JVS(4425)) & -! JVS(4425) = Jac_FULL(290,103) - JVS(4425) = B(491)-B(494)+B(1434) +! JVS(4425) = Jac_FULL(337,253) + JVS(4425) = -0.493*B(1276)+0.86*B(1283) IF (DO_JVS(4426)) & -! JVS(4426) = Jac_FULL(290,114) - JVS(4426) = -B(538) +! JVS(4426) = Jac_FULL(337,254) + JVS(4426) = -0.695*B(1270)+0.242*B(1272) IF (DO_JVS(4427)) & -! JVS(4427) = Jac_FULL(290,124) - JVS(4427) = -B(530)-B(532) +! JVS(4427) = Jac_FULL(337,255) + JVS(4427) = B(1817) IF (DO_JVS(4428)) & -! JVS(4428) = Jac_FULL(290,133) - JVS(4428) = -B(526) +! JVS(4428) = Jac_FULL(337,257) + JVS(4428) = -B(749)+0.75*B(893) IF (DO_JVS(4429)) & -! JVS(4429) = Jac_FULL(290,135) - JVS(4429) = B(1411) +! JVS(4429) = Jac_FULL(337,258) + JVS(4429) = 0.5*B(1306)+1.5*B(1792)+B(1793) IF (DO_JVS(4430)) & -! JVS(4430) = Jac_FULL(290,137) - JVS(4430) = -B(516) +! JVS(4430) = Jac_FULL(337,259) + JVS(4430) = -B(1278) IF (DO_JVS(4431)) & -! JVS(4431) = Jac_FULL(290,149) - JVS(4431) = 0.35*B(396)+B(448)-B(506)+B(1409) +! JVS(4431) = Jac_FULL(337,260) + JVS(4431) = B(122)+B(216)-B(281)+0.9*B(369) IF (DO_JVS(4432)) & -! JVS(4432) = Jac_FULL(290,161) - JVS(4432) = -B(518) +! JVS(4432) = Jac_FULL(337,261) + JVS(4432) = B(1749) IF (DO_JVS(4433)) & -! JVS(4433) = Jac_FULL(290,176) - JVS(4433) = 0 +! JVS(4433) = Jac_FULL(337,262) + JVS(4433) = B(871)+0.5*B(875) IF (DO_JVS(4434)) & -! JVS(4434) = Jac_FULL(290,190) - JVS(4434) = -B(464) +! JVS(4434) = Jac_FULL(337,263) + JVS(4434) = B(1389)+B(1391)+2*B(1393)+B(1395) IF (DO_JVS(4435)) & -! JVS(4435) = Jac_FULL(290,197) - JVS(4435) = 0.75*B(392)+B(428)+2*B(1412) +! JVS(4435) = Jac_FULL(337,264) + JVS(4435) = B(40)+B(469)+B(571) IF (DO_JVS(4436)) & -! JVS(4436) = Jac_FULL(290,203) - JVS(4436) = 0 +! JVS(4436) = Jac_FULL(337,265) + JVS(4436) = B(87) IF (DO_JVS(4437)) & -! JVS(4437) = Jac_FULL(290,211) - JVS(4437) = -B(512) +! JVS(4437) = Jac_FULL(337,266) + JVS(4437) = B(1800) IF (DO_JVS(4438)) & -! JVS(4438) = Jac_FULL(290,212) - JVS(4438) = -B(472) +! JVS(4438) = Jac_FULL(337,267) + JVS(4438) = 0.4*B(1111)+0.45*B(1786) IF (DO_JVS(4439)) & -! JVS(4439) = Jac_FULL(290,217) - JVS(4439) = -B(520) +! JVS(4439) = Jac_FULL(337,268) + JVS(4439) = 0.4*B(1109)+0.45*B(1783) IF (DO_JVS(4440)) & -! JVS(4440) = Jac_FULL(290,218) - JVS(4440) = -B(524) +! JVS(4440) = Jac_FULL(337,269) + JVS(4440) = B(1805) IF (DO_JVS(4441)) & -! JVS(4441) = Jac_FULL(290,219) - JVS(4441) = -B(528) +! JVS(4441) = Jac_FULL(337,270) + JVS(4441) = B(312)+B(316)+2*B(1667) IF (DO_JVS(4442)) & -! JVS(4442) = Jac_FULL(290,221) - JVS(4442) = -B(534) +! JVS(4442) = Jac_FULL(337,271) + JVS(4442) = -0.674*B(1198)+0.5*B(1202) IF (DO_JVS(4443)) & -! JVS(4443) = Jac_FULL(290,224) - JVS(4443) = -B(536) +! JVS(4443) = Jac_FULL(337,272) + JVS(4443) = 0.84*B(824)-B(826)+B(828)+B(830) IF (DO_JVS(4444)) & -! JVS(4444) = Jac_FULL(290,225) - JVS(4444) = 0 +! JVS(4444) = Jac_FULL(337,273) + JVS(4444) = -B(786)+B(790)+B(792)+B(794) IF (DO_JVS(4445)) & -! JVS(4445) = Jac_FULL(290,227) - JVS(4445) = 0.249*B(568) +! JVS(4445) = Jac_FULL(337,274) + JVS(4445) = -B(838)+0.75*B(897) IF (DO_JVS(4446)) & -! JVS(4446) = Jac_FULL(290,234) - JVS(4446) = 0 +! JVS(4446) = Jac_FULL(337,275) + JVS(4446) = -B(774)+0.75*B(776)+B(778)+1.75*B(881)+B(883) IF (DO_JVS(4447)) & -! JVS(4447) = Jac_FULL(290,235) - JVS(4447) = B(1416) +! JVS(4447) = Jac_FULL(337,276) + JVS(4447) = 0.16*B(947)+0.4*B(953)+0.7*B(955) IF (DO_JVS(4448)) & -! JVS(4448) = Jac_FULL(290,236) - JVS(4448) = 0 +! JVS(4448) = Jac_FULL(337,277) + JVS(4448) = -B(735)+0.75*B(737)+B(739)+1.75*B(877)+B(879) IF (DO_JVS(4449)) & -! JVS(4449) = Jac_FULL(290,237) - JVS(4449) = 0 +! JVS(4449) = Jac_FULL(337,278) + JVS(4449) = -B(762)+B(768) IF (DO_JVS(4450)) & -! JVS(4450) = Jac_FULL(290,238) - JVS(4450) = 0 +! JVS(4450) = Jac_FULL(337,279) + JVS(4450) = 0.27*B(1688) IF (DO_JVS(4451)) & -! JVS(4451) = Jac_FULL(290,239) - JVS(4451) = -B(522) +! 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) IF (DO_JVS(4452)) & -! JVS(4452) = Jac_FULL(290,240) - JVS(4452) = 0 +! JVS(4452) = Jac_FULL(337,281) + JVS(4452) = -B(800)+0.75*B(802)+B(804)+1.75*B(885)+B(887) IF (DO_JVS(4453)) & -! JVS(4453) = Jac_FULL(290,241) - JVS(4453) = 0 +! JVS(4453) = Jac_FULL(337,282) + JVS(4453) = B(89)+B(623) IF (DO_JVS(4454)) & -! JVS(4454) = Jac_FULL(290,242) - JVS(4454) = 0 +! JVS(4454) = Jac_FULL(337,284) + JVS(4454) = -B(679) IF (DO_JVS(4455)) & -! JVS(4455) = Jac_FULL(290,243) - JVS(4455) = 0 +! JVS(4455) = Jac_FULL(337,285) + JVS(4455) = B(1070)+B(1072)-0.35*B(1076) IF (DO_JVS(4456)) & -! JVS(4456) = Jac_FULL(290,244) - JVS(4456) = 0 +! JVS(4456) = Jac_FULL(337,286) + JVS(4456) = B(1062)-0.35*B(1064)+B(1066) IF (DO_JVS(4457)) & -! JVS(4457) = Jac_FULL(290,245) - JVS(4457) = 0 +! JVS(4457) = Jac_FULL(337,287) + JVS(4457) = B(1770) IF (DO_JVS(4458)) & -! JVS(4458) = Jac_FULL(290,246) - JVS(4458) = 0 +! JVS(4458) = Jac_FULL(337,288) + JVS(4458) = 0.47*B(1767) IF (DO_JVS(4459)) & -! JVS(4459) = Jac_FULL(290,247) - JVS(4459) = 0 +! JVS(4459) = Jac_FULL(337,289) + JVS(4459) = -B(907)+0.5*B(911)+0.5*B(923) IF (DO_JVS(4460)) & -! JVS(4460) = Jac_FULL(290,248) - JVS(4460) = 0 +! JVS(4460) = Jac_FULL(337,290) + JVS(4460) = 0.28*B(287) IF (DO_JVS(4461)) & -! JVS(4461) = Jac_FULL(290,249) - JVS(4461) = 0 +! JVS(4461) = Jac_FULL(337,291) + JVS(4461) = -B(851)+B(855)+B(857)+1.75*B(889)+B(891) IF (DO_JVS(4462)) & -! JVS(4462) = Jac_FULL(290,250) - JVS(4462) = 0 +! JVS(4462) = Jac_FULL(337,293) + JVS(4462) = -0.621*B(1141)+B(1143) IF (DO_JVS(4463)) & -! JVS(4463) = Jac_FULL(290,251) - JVS(4463) = 0 +! JVS(4463) = Jac_FULL(337,294) + JVS(4463) = B(1670) IF (DO_JVS(4464)) & -! JVS(4464) = Jac_FULL(290,252) - JVS(4464) = 0 +! JVS(4464) = Jac_FULL(337,296) + JVS(4464) = B(108)+B(247)+1.2*B(273)-B(275)+0.9*B(365)+B(619) IF (DO_JVS(4465)) & -! JVS(4465) = Jac_FULL(290,253) - JVS(4465) = -B(540) +! JVS(4465) = Jac_FULL(337,298) + JVS(4465) = B(1662) IF (DO_JVS(4466)) & -! JVS(4466) = Jac_FULL(290,254) - JVS(4466) = 0 +! JVS(4466) = Jac_FULL(337,299) + JVS(4466) = 0.228*B(1791) IF (DO_JVS(4467)) & -! JVS(4467) = Jac_FULL(290,255) - JVS(4467) = 0 +! JVS(4467) = Jac_FULL(337,300) + JVS(4467) = 0.27*B(171)-B(222)+0.64*B(257)+0.243*B(351) IF (DO_JVS(4468)) & -! JVS(4468) = Jac_FULL(290,256) - JVS(4468) = 0 +! JVS(4468) = Jac_FULL(337,301) + JVS(4468) = 0.295*B(1212)+0.161*B(1790) IF (DO_JVS(4469)) & -! JVS(4469) = Jac_FULL(290,257) - JVS(4469) = 0 +! JVS(4469) = Jac_FULL(337,302) + JVS(4469) = 0.29*B(1772) IF (DO_JVS(4470)) & -! JVS(4470) = Jac_FULL(290,258) - JVS(4470) = 0 +! JVS(4470) = Jac_FULL(337,303) + JVS(4470) = 0.62*B(1316)+0.7*B(1797)+0.7*B(1798) IF (DO_JVS(4471)) & -! JVS(4471) = Jac_FULL(290,259) - JVS(4471) = 0 +! 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) IF (DO_JVS(4472)) & -! JVS(4472) = Jac_FULL(290,260) - JVS(4472) = 0 +! 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) IF (DO_JVS(4473)) & -! JVS(4473) = Jac_FULL(290,261) - JVS(4473) = 0 +! JVS(4473) = Jac_FULL(337,306) + JVS(4473) = 0.773*B(289)+0.2*B(293)+1.73*B(1666) IF (DO_JVS(4474)) & -! JVS(4474) = Jac_FULL(290,262) - JVS(4474) = -B(504)+B(1417) +! JVS(4474) = Jac_FULL(337,307) + JVS(4474) = B(320)+B(1675) IF (DO_JVS(4475)) & -! JVS(4475) = Jac_FULL(290,263) - JVS(4475) = -B(466) +! JVS(4475) = Jac_FULL(337,308) + JVS(4475) = -B(1291)+0.7*B(1299) IF (DO_JVS(4476)) & -! JVS(4476) = Jac_FULL(290,264) - JVS(4476) = 0 +! JVS(4476) = Jac_FULL(337,309) + JVS(4476) = 0.036*B(1228)+B(1674) IF (DO_JVS(4477)) & -! JVS(4477) = Jac_FULL(290,266) - JVS(4477) = -B(514) +! JVS(4477) = Jac_FULL(337,310) + JVS(4477) = -B(1149)+0.089*B(1154)+0.611*B(1159) IF (DO_JVS(4478)) & -! JVS(4478) = Jac_FULL(290,267) - JVS(4478) = 0 +! 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) IF (DO_JVS(4479)) & -! JVS(4479) = Jac_FULL(290,268) +! JVS(4479) = Jac_FULL(337,312) JVS(4479) = 0 IF (DO_JVS(4480)) & -! JVS(4480) = Jac_FULL(290,269) - JVS(4480) = 0 +! JVS(4480) = Jac_FULL(337,313) + JVS(4480) = -B(226)+0.3*B(261) IF (DO_JVS(4481)) & -! JVS(4481) = Jac_FULL(290,270) - JVS(4481) = 0 +! JVS(4481) = Jac_FULL(337,314) + JVS(4481) = 0.1*B(1226)+B(1672) IF (DO_JVS(4482)) & -! JVS(4482) = Jac_FULL(290,271) - JVS(4482) = B(1419) +! JVS(4482) = Jac_FULL(337,315) + JVS(4482) = B(112)+B(249)+1.2*B(274)-B(277)+0.9*B(367)+B(621) IF (DO_JVS(4483)) & -! JVS(4483) = Jac_FULL(290,272) - JVS(4483) = 0.66*B(388)+0.75*B(393)+2.37*B(395)+0.35*B(397)+0.19*B(405)+1.8*B(407)+0.86*B(409)+0.31*B(411)+0.69*B(415)& - &+0.79*B(419)+1.9*B(421)+0.95*B(423) +! JVS(4483) = Jac_FULL(337,318) + JVS(4483) = -B(220)+0.5*B(255) IF (DO_JVS(4484)) & -! JVS(4484) = Jac_FULL(290,273) - JVS(4484) = 0 +! JVS(4484) = Jac_FULL(337,319) + JVS(4484) = 0.27*B(177)-B(218)+0.64*B(253)+0.243*B(349) IF (DO_JVS(4485)) & -! JVS(4485) = Jac_FULL(290,274) - JVS(4485) = 0 +! JVS(4485) = Jac_FULL(337,320) + JVS(4485) = -B(228)+0.5*B(263) IF (DO_JVS(4486)) & -! JVS(4486) = Jac_FULL(290,275) - JVS(4486) = 0.66*B(389)+B(440) +! JVS(4486) = Jac_FULL(337,321) + JVS(4486) = B(118)+B(214)-B(279)+0.9*B(371) IF (DO_JVS(4487)) & -! JVS(4487) = Jac_FULL(290,276) - JVS(4487) = 0 +! JVS(4487) = Jac_FULL(337,322) + JVS(4487) = -B(283)+B(375) IF (DO_JVS(4488)) & -! JVS(4488) = Jac_FULL(290,277) - JVS(4488) = 0 +! JVS(4488) = Jac_FULL(337,323) + JVS(4488) = B(187)-B(230)+B(265)+0.9*B(357) IF (DO_JVS(4489)) & -! JVS(4489) = Jac_FULL(290,278) - JVS(4489) = 0 +! 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) IF (DO_JVS(4490)) & -! JVS(4490) = Jac_FULL(290,279) - JVS(4490) = B(482) +! JVS(4490) = Jac_FULL(337,325) + JVS(4490) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647) IF (DO_JVS(4491)) & -! JVS(4491) = Jac_FULL(290,280) - JVS(4491) = 0 +! JVS(4491) = Jac_FULL(337,326) + JVS(4491) = 0.05*B(95)+B(1656) IF (DO_JVS(4492)) & -! JVS(4492) = Jac_FULL(290,281) - JVS(4492) = 0 +! 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) IF (DO_JVS(4493)) & -! JVS(4493) = Jac_FULL(290,282) - JVS(4493) = -B(468) +! JVS(4493) = Jac_FULL(337,329) + JVS(4493) = B(45) IF (DO_JVS(4494)) & -! JVS(4494) = Jac_FULL(290,283) +! JVS(4494) = Jac_FULL(337,330) JVS(4494) = 0 IF (DO_JVS(4495)) & -! JVS(4495) = Jac_FULL(290,284) - JVS(4495) = -B(474)-B(476) +! JVS(4495) = Jac_FULL(337,331) + JVS(4495) = -B(671) IF (DO_JVS(4496)) & -! JVS(4496) = Jac_FULL(290,285) - JVS(4496) = B(432)+B(478)+B(483)+B(487)+B(488)+0.249*B(569)+B(1413) +! JVS(4496) = Jac_FULL(337,332) + JVS(4496) = 0 IF (DO_JVS(4497)) & -! JVS(4497) = Jac_FULL(290,286) - JVS(4497) = B(429)+B(433)+B(441)+B(449)+2*B(451)+3*B(453)+3*B(455)+B(457)+2*B(459)+B(461)+2*B(463) +! JVS(4497) = Jac_FULL(337,334) + JVS(4497) = 0.2*B(444) IF (DO_JVS(4498)) & -! JVS(4498) = Jac_FULL(290,287) - JVS(4498) = 0 +! JVS(4498) = Jac_FULL(337,335) + JVS(4498) = -B(73) IF (DO_JVS(4499)) & -! JVS(4499) = Jac_FULL(290,288) - JVS(4499) = B(479) +! JVS(4499) = Jac_FULL(337,336) + JVS(4499) = 0 IF (DO_JVS(4500)) & -! JVS(4500) = Jac_FULL(290,289) - JVS(4500) = 0 +! 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) IF (DO_JVS(4501)) & -! JVS(4501) = Jac_FULL(290,290) - JVS(4501) = -B(465)-B(467)-B(469)-B(470)-B(473)-B(475)-B(477)-B(489)-B(495)-B(505)-B(507)+B(509)+2*B(511)-B(513)& - &-B(515)-B(517)-B(519)-B(521)-B(523)-B(525)-B(527)-B(529)-B(531)-B(533)-B(535)-B(537)-B(539)-B(541) +! JVS(4501) = Jac_FULL(337,338) + JVS(4501) = B(530)+B(531)-B(580) IF (DO_JVS(4502)) & -! JVS(4502) = Jac_FULL(290,291) +! JVS(4502) = Jac_FULL(337,339) JVS(4502) = 0 IF (DO_JVS(4503)) & -! JVS(4503) = Jac_FULL(291,50) - JVS(4503) = B(150) +! 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) IF (DO_JVS(4504)) & -! JVS(4504) = Jac_FULL(291,51) - JVS(4504) = B(1405) +! 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) IF (DO_JVS(4505)) & -! JVS(4505) = Jac_FULL(291,62) - JVS(4505) = B(1466) +! JVS(4505) = Jac_FULL(337,342) + JVS(4505) = -B(394)+B(414) IF (DO_JVS(4506)) & -! JVS(4506) = Jac_FULL(291,63) - JVS(4506) = B(1464) +! JVS(4506) = Jac_FULL(337,343) + JVS(4506) = -B(454)+B(470)+B(486) IF (DO_JVS(4507)) & -! JVS(4507) = Jac_FULL(291,65) - JVS(4507) = -B(382) +! JVS(4507) = Jac_FULL(337,344) + JVS(4507) = 0 IF (DO_JVS(4508)) & -! JVS(4508) = Jac_FULL(291,67) - JVS(4508) = B(101)+0.7*B(1376) +! 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) IF (DO_JVS(4509)) & -! JVS(4509) = Jac_FULL(291,68) - JVS(4509) = B(1110) +! 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) IF (DO_JVS(4510)) & -! JVS(4510) = Jac_FULL(291,74) - JVS(4510) = B(281)+B(1452) +! JVS(4510) = Jac_FULL(337,347) + JVS(4510) = -B(392)+B(410) IF (DO_JVS(4511)) & -! JVS(4511) = Jac_FULL(291,87) - JVS(4511) = B(700)+B(1469) +! JVS(4511) = Jac_FULL(337,348) + JVS(4511) = B(388) IF (DO_JVS(4512)) & -! JVS(4512) = Jac_FULL(291,89) - JVS(4512) = B(696)+B(1467) +! JVS(4512) = Jac_FULL(337,349) + JVS(4512) = 0 IF (DO_JVS(4513)) & -! JVS(4513) = Jac_FULL(291,91) - JVS(4513) = B(702)+B(1470) +! JVS(4513) = Jac_FULL(337,350) + JVS(4513) = 0 IF (DO_JVS(4514)) & -! JVS(4514) = Jac_FULL(291,92) - JVS(4514) = B(566) +! 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) IF (DO_JVS(4515)) & -! JVS(4515) = Jac_FULL(291,96) - JVS(4515) = B(698)+B(1468) +! JVS(4515) = Jac_FULL(337,352) + JVS(4515) = 0 IF (DO_JVS(4516)) & -! JVS(4516) = Jac_FULL(291,97) - JVS(4516) = B(1158)+B(1159) +! JVS(4516) = Jac_FULL(337,353) + JVS(4516) = 0 IF (DO_JVS(4517)) & -! JVS(4517) = Jac_FULL(291,102) - JVS(4517) = B(75)+B(76)+B(1370) +! JVS(4517) = Jac_FULL(338,46) + JVS(4517) = 0.79*B(493) IF (DO_JVS(4518)) & -! JVS(4518) = Jac_FULL(291,113) - JVS(4518) = B(1391) +! JVS(4518) = Jac_FULL(338,47) + JVS(4518) = 0.9*B(505) IF (DO_JVS(4519)) & -! JVS(4519) = Jac_FULL(291,121) - JVS(4519) = B(842) +! JVS(4519) = Jac_FULL(338,48) + JVS(4519) = 0.86*B(507) IF (DO_JVS(4520)) & -! JVS(4520) = Jac_FULL(291,123) - JVS(4520) = B(846) +! JVS(4520) = Jac_FULL(338,49) + JVS(4520) = 0.8*B(519) IF (DO_JVS(4521)) & -! JVS(4521) = Jac_FULL(291,134) - JVS(4521) = B(1462) +! JVS(4521) = Jac_FULL(338,50) + JVS(4521) = 0.85*B(521) IF (DO_JVS(4522)) & -! JVS(4522) = Jac_FULL(291,138) - JVS(4522) = 0 +! JVS(4522) = Jac_FULL(338,51) + JVS(4522) = 0.86*B(523) IF (DO_JVS(4523)) & -! JVS(4523) = Jac_FULL(291,139) - JVS(4523) = B(852)+B(1494) +! JVS(4523) = Jac_FULL(338,61) + JVS(4523) = 0.34*B(509) IF (DO_JVS(4524)) & -! JVS(4524) = Jac_FULL(291,140) - JVS(4524) = B(856)+B(1495) +! JVS(4524) = Jac_FULL(338,76) + JVS(4524) = 2*B(592) IF (DO_JVS(4525)) & -! JVS(4525) = Jac_FULL(291,144) - JVS(4525) = B(1003)-B(1007) +! JVS(4525) = Jac_FULL(338,84) + JVS(4525) = 0.79*B(517) IF (DO_JVS(4526)) & -! JVS(4526) = Jac_FULL(291,145) - JVS(4526) = B(1009)-B(1013) +! JVS(4526) = Jac_FULL(338,85) + JVS(4526) = 0.69*B(513) IF (DO_JVS(4527)) & -! JVS(4527) = Jac_FULL(291,146) - JVS(4527) = 1.11*B(977)+0.09*B(979) +! JVS(4527) = Jac_FULL(338,86) + JVS(4527) = 0.65*B(515) IF (DO_JVS(4528)) & -! JVS(4528) = Jac_FULL(291,147) - JVS(4528) = 0 +! JVS(4528) = Jac_FULL(338,87) + JVS(4528) = 0.56*B(503) IF (DO_JVS(4529)) & -! JVS(4529) = Jac_FULL(291,150) - JVS(4529) = B(971) +! JVS(4529) = Jac_FULL(338,110) + JVS(4529) = 0.1*B(593) IF (DO_JVS(4530)) & -! JVS(4530) = Jac_FULL(291,151) - JVS(4530) = B(945)+B(1499) +! JVS(4530) = Jac_FULL(338,120) + JVS(4530) = B(1704) IF (DO_JVS(4531)) & -! JVS(4531) = Jac_FULL(291,152) - JVS(4531) = B(880) +! JVS(4531) = Jac_FULL(338,181) + JVS(4531) = 0.46*B(495) IF (DO_JVS(4532)) & -! JVS(4532) = Jac_FULL(291,153) - JVS(4532) = B(1058) +! JVS(4532) = Jac_FULL(338,245) + JVS(4532) = 0.75*B(491) IF (DO_JVS(4533)) & -! JVS(4533) = Jac_FULL(291,160) - JVS(4533) = -B(1173) +! JVS(4533) = Jac_FULL(338,284) + JVS(4533) = -B(667) IF (DO_JVS(4534)) & -! JVS(4534) = Jac_FULL(291,166) - JVS(4534) = B(888) +! JVS(4534) = Jac_FULL(338,296) + JVS(4534) = B(619) IF (DO_JVS(4535)) & -! JVS(4535) = Jac_FULL(291,167) - JVS(4535) = 0.459*B(871)+1.728*B(873) +! JVS(4535) = Jac_FULL(338,297) + JVS(4535) = 0 IF (DO_JVS(4536)) & -! JVS(4536) = Jac_FULL(291,168) - JVS(4536) = B(894) +! JVS(4536) = Jac_FULL(338,315) + JVS(4536) = B(621) IF (DO_JVS(4537)) & -! JVS(4537) = Jac_FULL(291,173) - JVS(4537) = B(86)+B(1373) +! JVS(4537) = Jac_FULL(338,317) + JVS(4537) = B(601)+B(1708) IF (DO_JVS(4538)) & -! JVS(4538) = Jac_FULL(291,176) - JVS(4538) = B(1404) +! JVS(4538) = Jac_FULL(338,318) + JVS(4538) = 0 IF (DO_JVS(4539)) & -! JVS(4539) = Jac_FULL(291,178) - JVS(4539) = B(1460) +! JVS(4539) = Jac_FULL(338,319) + JVS(4539) = 0 IF (DO_JVS(4540)) & -! JVS(4540) = Jac_FULL(291,179) - JVS(4540) = 0.995*B(1101)+B(1103) +! JVS(4540) = Jac_FULL(338,320) + JVS(4540) = 0 IF (DO_JVS(4541)) & -! JVS(4541) = Jac_FULL(291,180) - JVS(4541) = B(1152)-B(1154) +! JVS(4541) = Jac_FULL(338,321) + JVS(4541) = 0 IF (DO_JVS(4542)) & -! JVS(4542) = Jac_FULL(291,181) - JVS(4542) = B(1497) +! JVS(4542) = Jac_FULL(338,322) + JVS(4542) = 0 IF (DO_JVS(4543)) & -! JVS(4543) = Jac_FULL(291,182) - JVS(4543) = B(789) +! JVS(4543) = Jac_FULL(338,323) + JVS(4543) = 0 IF (DO_JVS(4544)) & -! JVS(4544) = Jac_FULL(291,183) - JVS(4544) = B(796) +! JVS(4544) = Jac_FULL(338,324) + JVS(4544) = 0 IF (DO_JVS(4545)) & -! JVS(4545) = Jac_FULL(291,184) - JVS(4545) = B(1124)+B(1126) +! JVS(4545) = Jac_FULL(338,326) + JVS(4545) = 0 IF (DO_JVS(4546)) & -! JVS(4546) = Jac_FULL(291,186) - JVS(4546) = 0 +! JVS(4546) = Jac_FULL(338,328) + JVS(4546) = -B(529)+B(613) IF (DO_JVS(4547)) & -! JVS(4547) = Jac_FULL(291,187) - JVS(4547) = B(803) +! JVS(4547) = Jac_FULL(338,329) + JVS(4547) = 0 IF (DO_JVS(4548)) & -! JVS(4548) = Jac_FULL(291,188) +! JVS(4548) = Jac_FULL(338,330) JVS(4548) = 0 IF (DO_JVS(4549)) & -! JVS(4549) = Jac_FULL(291,189) - JVS(4549) = B(963) +! JVS(4549) = Jac_FULL(338,331) + JVS(4549) = 0 IF (DO_JVS(4550)) & -! JVS(4550) = Jac_FULL(291,191) - JVS(4550) = -B(1161)+B(1163)+B(1165) +! JVS(4550) = Jac_FULL(338,332) + JVS(4550) = 0 IF (DO_JVS(4551)) & -! JVS(4551) = Jac_FULL(291,193) - JVS(4551) = B(71) +! JVS(4551) = Jac_FULL(338,333) + JVS(4551) = B(541) IF (DO_JVS(4552)) & -! JVS(4552) = Jac_FULL(291,194) - JVS(4552) = B(839) +! 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) IF (DO_JVS(4553)) & -! JVS(4553) = Jac_FULL(291,195) - JVS(4553) = B(608)-B(610) +! JVS(4553) = Jac_FULL(338,335) + JVS(4553) = -B(583) IF (DO_JVS(4554)) & -! JVS(4554) = Jac_FULL(291,198) - JVS(4554) = B(590)+B(1474) +! JVS(4554) = Jac_FULL(338,336) + JVS(4554) = 0 IF (DO_JVS(4555)) & -! JVS(4555) = Jac_FULL(291,199) - JVS(4555) = B(1461) +! JVS(4555) = Jac_FULL(338,337) + JVS(4555) = B(575)-B(579) IF (DO_JVS(4556)) & -! JVS(4556) = Jac_FULL(291,200) - JVS(4556) = B(1483) +! 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) IF (DO_JVS(4557)) & -! JVS(4557) = Jac_FULL(291,201) - JVS(4557) = 2*B(138)+B(191)+B(264) +! JVS(4557) = Jac_FULL(338,339) + JVS(4557) = 0.22*B(488) IF (DO_JVS(4558)) & -! JVS(4558) = Jac_FULL(291,202) - JVS(4558) = B(1398) +! JVS(4558) = Jac_FULL(338,340) + JVS(4558) = B(567)+B(576)+0.1*B(594)+B(614)+B(620)+B(622) IF (DO_JVS(4559)) & -! JVS(4559) = Jac_FULL(291,203) - JVS(4559) = B(549)+2*B(550)+B(1440) +! JVS(4559) = Jac_FULL(338,341) + JVS(4559) = B(568) IF (DO_JVS(4560)) & -! JVS(4560) = Jac_FULL(291,204) - JVS(4560) = B(1029) +! JVS(4560) = Jac_FULL(338,342) + JVS(4560) = 0 IF (DO_JVS(4561)) & -! JVS(4561) = Jac_FULL(291,205) - JVS(4561) = B(1040) +! JVS(4561) = Jac_FULL(338,343) + JVS(4561) = -B(578)+B(602) IF (DO_JVS(4562)) & -! JVS(4562) = Jac_FULL(291,207) - JVS(4562) = B(1044)-B(1046) +! JVS(4562) = Jac_FULL(338,344) + JVS(4562) = 0 IF (DO_JVS(4563)) & -! JVS(4563) = Jac_FULL(291,208) - JVS(4563) = B(588)+B(1075)+B(1459) +! JVS(4563) = Jac_FULL(338,345) + JVS(4563) = -B(532)-B(534)+B(542) IF (DO_JVS(4564)) & -! JVS(4564) = Jac_FULL(291,209) - JVS(4564) = B(120) +! JVS(4564) = Jac_FULL(338,346) + JVS(4564) = -B(582) IF (DO_JVS(4565)) & -! JVS(4565) = Jac_FULL(291,210) - JVS(4565) = 0.5*B(1175)+B(1177) +! JVS(4565) = Jac_FULL(338,347) + JVS(4565) = -B(596)-B(598)-B(600) IF (DO_JVS(4566)) & -! JVS(4566) = Jac_FULL(291,213) - JVS(4566) = B(1071)+B(1509)+B(1510) +! JVS(4566) = Jac_FULL(338,348) + JVS(4566) = 0 IF (DO_JVS(4567)) & -! JVS(4567) = Jac_FULL(291,214) - JVS(4567) = B(862)+B(1496) +! JVS(4567) = Jac_FULL(338,349) + JVS(4567) = 0 IF (DO_JVS(4568)) & -! JVS(4568) = Jac_FULL(291,215) - JVS(4568) = B(658)+B(674)+0.5*B(679) +! JVS(4568) = Jac_FULL(338,350) + JVS(4568) = 0 IF (DO_JVS(4569)) & -! JVS(4569) = Jac_FULL(291,216) - JVS(4569) = 2*B(660)+0.5*B(668)+B(672)+2*B(676)+0.5*B(680)+B(681) +! JVS(4569) = Jac_FULL(338,351) + JVS(4569) = 0 IF (DO_JVS(4570)) & -! JVS(4570) = Jac_FULL(291,217) - JVS(4570) = B(106) +! JVS(4570) = Jac_FULL(338,352) + JVS(4570) = 0 IF (DO_JVS(4571)) & -! JVS(4571) = Jac_FULL(291,220) - JVS(4571) = B(858)+B(1493) +! JVS(4571) = Jac_FULL(338,353) + JVS(4571) = 0 IF (DO_JVS(4572)) & -! JVS(4572) = Jac_FULL(291,222) - JVS(4572) = 0.058*B(955)+1.065*B(959) +! JVS(4572) = Jac_FULL(339,75) + JVS(4572) = B(609) IF (DO_JVS(4573)) & -! JVS(4573) = Jac_FULL(291,224) - JVS(4573) = 0 +! JVS(4573) = Jac_FULL(339,79) + JVS(4573) = B(607) IF (DO_JVS(4574)) & -! JVS(4574) = Jac_FULL(291,225) - JVS(4574) = 0.78*B(646)+B(654) +! JVS(4574) = Jac_FULL(339,141) + JVS(4574) = B(629)+B(631) IF (DO_JVS(4575)) & -! JVS(4575) = Jac_FULL(291,227) - JVS(4575) = -B(553)+B(582) +! JVS(4575) = Jac_FULL(339,142) + JVS(4575) = B(637) IF (DO_JVS(4576)) & -! JVS(4576) = Jac_FULL(291,228) - JVS(4576) = B(823) +! JVS(4576) = Jac_FULL(339,156) + JVS(4576) = B(625) IF (DO_JVS(4577)) & -! JVS(4577) = Jac_FULL(291,229) - JVS(4577) = B(829) +! JVS(4577) = Jac_FULL(339,164) + JVS(4577) = B(615) IF (DO_JVS(4578)) & -! JVS(4578) = Jac_FULL(291,232) - JVS(4578) = B(900) +! JVS(4578) = Jac_FULL(339,166) + JVS(4578) = -B(11) IF (DO_JVS(4579)) & -! JVS(4579) = Jac_FULL(291,234) - JVS(4579) = B(594)-B(596) +! JVS(4579) = Jac_FULL(339,179) + JVS(4579) = -B(4) IF (DO_JVS(4580)) & -! JVS(4580) = Jac_FULL(291,235) - JVS(4580) = B(444)+B(1416) +! JVS(4580) = Jac_FULL(339,181) + JVS(4580) = 2*B(605) IF (DO_JVS(4581)) & -! JVS(4581) = Jac_FULL(291,237) - JVS(4581) = B(116) +! JVS(4581) = Jac_FULL(339,183) + JVS(4581) = B(617) IF (DO_JVS(4582)) & -! JVS(4582) = Jac_FULL(291,238) - JVS(4582) = 0.82*B(622)+B(630) +! JVS(4582) = Jac_FULL(339,214) + JVS(4582) = -B(1498) IF (DO_JVS(4583)) & -! JVS(4583) = Jac_FULL(291,239) - JVS(4583) = B(110) +! JVS(4583) = Jac_FULL(339,218) + JVS(4583) = -B(1511) IF (DO_JVS(4584)) & -! JVS(4584) = Jac_FULL(291,240) - JVS(4584) = B(967)+B(1500) +! JVS(4584) = Jac_FULL(339,228) + JVS(4584) = B(563) IF (DO_JVS(4585)) & -! JVS(4585) = Jac_FULL(291,241) - JVS(4585) = 0.31*B(993)+0.7*B(1482) +! JVS(4585) = Jac_FULL(339,264) + JVS(4585) = B(571) IF (DO_JVS(4586)) & -! JVS(4586) = Jac_FULL(291,242) - JVS(4586) = 0.022*B(1073)+0.3*B(1507)+B(1508) +! JVS(4586) = Jac_FULL(339,265) + JVS(4586) = B(611) IF (DO_JVS(4587)) & -! JVS(4587) = Jac_FULL(291,243) - JVS(4587) = 0.565*B(975)+1.555*B(1501) +! JVS(4587) = Jac_FULL(339,269) + JVS(4587) = 0 IF (DO_JVS(4588)) & -! JVS(4588) = Jac_FULL(291,244) - JVS(4588) = B(752)+B(756) +! JVS(4588) = Jac_FULL(339,276) + JVS(4588) = B(635) IF (DO_JVS(4589)) & -! JVS(4589) = Jac_FULL(291,245) - JVS(4589) = B(744)+B(748) +! JVS(4589) = Jac_FULL(339,282) + JVS(4589) = B(623) IF (DO_JVS(4590)) & -! JVS(4590) = Jac_FULL(291,246) - JVS(4590) = 0.563*B(911)+B(924)+B(930) +! JVS(4590) = Jac_FULL(339,283) + JVS(4590) = B(627) IF (DO_JVS(4591)) & -! JVS(4591) = Jac_FULL(291,247) - JVS(4591) = 0.527*B(906)+1.86*B(910)+0.563*B(912)+0.611*B(916)+B(918)+2*B(922)+2*B(926) +! JVS(4591) = Jac_FULL(339,289) + JVS(4591) = 0 IF (DO_JVS(4592)) & -! JVS(4592) = Jac_FULL(291,248) - JVS(4592) = 0 +! JVS(4592) = Jac_FULL(339,290) + JVS(4592) = B(639) IF (DO_JVS(4593)) & -! JVS(4593) = Jac_FULL(291,249) - JVS(4593) = 0.5*B(1048)+2*B(1050)+2*B(1054)+0.7*B(1056) +! JVS(4593) = Jac_FULL(339,291) + JVS(4593) = 0 IF (DO_JVS(4594)) & -! JVS(4594) = Jac_FULL(291,251) - JVS(4594) = 0 +! JVS(4594) = Jac_FULL(339,295) + JVS(4594) = B(633) IF (DO_JVS(4595)) & -! JVS(4595) = Jac_FULL(291,252) - JVS(4595) = B(130) +! JVS(4595) = Jac_FULL(339,296) + JVS(4595) = 0 IF (DO_JVS(4596)) & -! JVS(4596) = Jac_FULL(291,253) - JVS(4596) = 0 +! JVS(4596) = Jac_FULL(339,297) + JVS(4596) = -B(1531) IF (DO_JVS(4597)) & -! JVS(4597) = Jac_FULL(291,254) - JVS(4597) = 0.928*B(132) +! JVS(4597) = Jac_FULL(339,300) + JVS(4597) = 0 IF (DO_JVS(4598)) & -! JVS(4598) = Jac_FULL(291,255) - JVS(4598) = -B(148)+B(151) +! JVS(4598) = Jac_FULL(339,301) + JVS(4598) = 0 IF (DO_JVS(4599)) & -! JVS(4599) = Jac_FULL(291,256) - JVS(4599) = B(124) +! JVS(4599) = Jac_FULL(339,302) + JVS(4599) = 0 IF (DO_JVS(4600)) & -! JVS(4600) = Jac_FULL(291,257) - JVS(4600) = 2*B(128)+B(183)+B(262) +! JVS(4600) = Jac_FULL(339,303) + JVS(4600) = 0 IF (DO_JVS(4601)) & -! JVS(4601) = Jac_FULL(291,258) - JVS(4601) = B(134) +! JVS(4601) = Jac_FULL(339,304) + JVS(4601) = 0 IF (DO_JVS(4602)) & -! JVS(4602) = Jac_FULL(291,259) +! JVS(4602) = Jac_FULL(339,305) JVS(4602) = 0 IF (DO_JVS(4603)) & -! JVS(4603) = Jac_FULL(291,261) - JVS(4603) = -B(99)+B(102)+B(263)+B(265)+B(673)+B(919) +! JVS(4603) = Jac_FULL(339,306) + JVS(4603) = 0 IF (DO_JVS(4604)) & -! JVS(4604) = Jac_FULL(291,262) - JVS(4604) = B(1418) +! JVS(4604) = Jac_FULL(339,307) + JVS(4604) = 0 IF (DO_JVS(4605)) & -! JVS(4605) = Jac_FULL(291,264) +! JVS(4605) = Jac_FULL(339,308) JVS(4605) = 0 IF (DO_JVS(4606)) & -! JVS(4606) = Jac_FULL(291,265) - JVS(4606) = B(1367) +! JVS(4606) = Jac_FULL(339,309) + JVS(4606) = 0 IF (DO_JVS(4607)) & -! JVS(4607) = Jac_FULL(291,266) - JVS(4607) = B(49)+B(184)+B(192)-B(279)+0.5*B(669)+0.611*B(917)+0.7*B(1057)+B(1205) +! JVS(4607) = Jac_FULL(339,310) + JVS(4607) = 0 IF (DO_JVS(4608)) & -! JVS(4608) = Jac_FULL(291,267) +! JVS(4608) = Jac_FULL(339,311) JVS(4608) = 0 IF (DO_JVS(4609)) & -! JVS(4609) = Jac_FULL(291,268) +! JVS(4609) = Jac_FULL(339,312) JVS(4609) = 0 IF (DO_JVS(4610)) & -! JVS(4610) = Jac_FULL(291,269) - JVS(4610) = -B(547) +! JVS(4610) = Jac_FULL(339,313) + JVS(4610) = 0 IF (DO_JVS(4611)) & -! JVS(4611) = Jac_FULL(291,270) - JVS(4611) = B(555) +! JVS(4611) = Jac_FULL(339,314) + JVS(4611) = 0 IF (DO_JVS(4612)) & -! JVS(4612) = Jac_FULL(291,272) +! JVS(4612) = Jac_FULL(339,315) JVS(4612) = 0 IF (DO_JVS(4613)) & -! JVS(4613) = Jac_FULL(291,273) - JVS(4613) = B(312)-B(324) +! JVS(4613) = Jac_FULL(339,316) + JVS(4613) = -B(1551) IF (DO_JVS(4614)) & -! JVS(4614) = Jac_FULL(291,274) - JVS(4614) = B(300)-B(326) +! JVS(4614) = Jac_FULL(339,317) + JVS(4614) = -B(1515) IF (DO_JVS(4615)) & -! JVS(4615) = Jac_FULL(291,275) +! JVS(4615) = Jac_FULL(339,318) JVS(4615) = 0 IF (DO_JVS(4616)) & -! JVS(4616) = Jac_FULL(291,276) +! JVS(4616) = Jac_FULL(339,319) JVS(4616) = 0 IF (DO_JVS(4617)) & -! JVS(4617) = Jac_FULL(291,277) +! JVS(4617) = Jac_FULL(339,320) JVS(4617) = 0 IF (DO_JVS(4618)) & -! JVS(4618) = Jac_FULL(291,278) +! JVS(4618) = Jac_FULL(339,321) JVS(4618) = 0 IF (DO_JVS(4619)) & -! JVS(4619) = Jac_FULL(291,279) - JVS(4619) = B(26)+B(42)+B(50)+2*B(80)+B(103)+B(107)+B(111)+B(117)+B(121)+B(125)+2*B(129)+B(131)+0.928*B(133)+B(135)+2& - &*B(139)+B(152)+B(301)+B(366)+B(482)+B(567)+B(583)+B(595)+B(609)+0.82*B(623)+0.78*B(647)+B(659)+2*B(661)& - &+B(745)+B(749)+B(753)+B(757)+B(790)+B(797)+B(804)+B(824)+B(830)+B(840)+B(843)+B(847)+1.728*B(874)+B(881)& - &+B(889)+B(895)+B(901)+2*B(927)+B(931)+1.065*B(960)+B(964)+B(972)+1.11*B(978)+B(1004)+B(1010)+B(1030)& - &+B(1041)+B(1045)+2*B(1051)+0.995*B(1102)+B(1125)+B(1153)+B(1164) +! JVS(4619) = Jac_FULL(339,322) + JVS(4619) = 0 IF (DO_JVS(4620)) & -! JVS(4620) = Jac_FULL(291,280) +! JVS(4620) = Jac_FULL(339,323) JVS(4620) = 0 IF (DO_JVS(4621)) & -! JVS(4621) = Jac_FULL(291,281) - JVS(4621) = B(78)+2*B(81)+B(82)-B(84)+2*B(278)+B(313)+B(364)+B(631)+B(655)+B(675)+2*B(677)+2*B(923)+B(925)+2*B(1055)& - &+B(1076)+B(1104)+B(1127)+B(1166)+B(1178)+B(1206)+B(1371) +! JVS(4621) = Jac_FULL(339,324) + JVS(4621) = 0 IF (DO_JVS(4622)) & -! JVS(4622) = Jac_FULL(291,282) - JVS(4622) = B(27)-B(32) +! JVS(4622) = Jac_FULL(339,325) + JVS(4622) = B(565) IF (DO_JVS(4623)) & -! JVS(4623) = Jac_FULL(291,283) +! JVS(4623) = Jac_FULL(339,326) JVS(4623) = 0 IF (DO_JVS(4624)) & -! JVS(4624) = Jac_FULL(291,284) - JVS(4624) = B(43)-B(73)+B(79)+0.459*B(872)+0.527*B(907)+0.058*B(956)+0.09*B(980)+0.5*B(1049) +! JVS(4624) = Jac_FULL(339,327) + JVS(4624) = 0 IF (DO_JVS(4625)) & -! JVS(4625) = Jac_FULL(291,285) - JVS(4625) = B(483)-B(484) +! JVS(4625) = Jac_FULL(339,328) + JVS(4625) = 0 IF (DO_JVS(4626)) & -! JVS(4626) = Jac_FULL(291,286) - JVS(4626) = -B(65)+B(72)+B(77)+B(83)+B(445)+B(589)+B(591)+B(697)+B(699)+B(701)+B(703)+B(853)+B(857)+B(859)+B(863)& - &+B(946)+B(968)+0.565*B(976)+0.31*B(994)+B(1072)+0.022*B(1074)+B(1111)+B(1160)+0.5*B(1176) +! JVS(4626) = Jac_FULL(339,329) + JVS(4626) = 0 IF (DO_JVS(4627)) & -! JVS(4627) = Jac_FULL(291,287) +! JVS(4627) = Jac_FULL(339,332) JVS(4627) = 0 IF (DO_JVS(4628)) & -! JVS(4628) = Jac_FULL(291,288) - JVS(4628) = -B(362)+B(365)+B(367)-B(368) +! JVS(4628) = Jac_FULL(339,333) + JVS(4628) = -B(1539)+B(1547) IF (DO_JVS(4629)) & -! JVS(4629) = Jac_FULL(291,289) - JVS(4629) = 0 +! JVS(4629) = Jac_FULL(339,334) + JVS(4629) = -0.88*B(487) IF (DO_JVS(4630)) & -! JVS(4630) = Jac_FULL(291,290) +! JVS(4630) = Jac_FULL(339,335) JVS(4630) = 0 IF (DO_JVS(4631)) & -! JVS(4631) = Jac_FULL(291,291) - JVS(4631) = -B(33)-B(66)-B(74)-B(85)-B(100)-B(149)-B(280)-B(325)-B(327)-B(363)-B(369)-B(383)-B(485)-B(548)-B(554)& - &-B(597)-B(611)-B(1008)-B(1014)-B(1047)-B(1155)-B(1162)-B(1174)-B(1210)-B(1362) +! JVS(4631) = Jac_FULL(339,336) + JVS(4631) = 0 +IF (DO_JVS(4632)) & +! JVS(4632) = Jac_FULL(339,337) + JVS(4632) = B(573) +IF (DO_JVS(4633)) & +! JVS(4633) = Jac_FULL(339,338) + JVS(4633) = B(533) +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) +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) +IF (DO_JVS(4636)) & +! JVS(4636) = Jac_FULL(339,341) + JVS(4636) = 0 +IF (DO_JVS(4637)) & +! JVS(4637) = Jac_FULL(339,342) + JVS(4637) = 0 +IF (DO_JVS(4638)) & +! JVS(4638) = Jac_FULL(339,343) + JVS(4638) = 0 +IF (DO_JVS(4639)) & +! JVS(4639) = Jac_FULL(339,344) + JVS(4639) = 0 +IF (DO_JVS(4640)) & +! JVS(4640) = Jac_FULL(339,345) + JVS(4640) = B(534)-B(540) +IF (DO_JVS(4641)) & +! JVS(4641) = Jac_FULL(339,346) + JVS(4641) = 0 +IF (DO_JVS(4642)) & +! JVS(4642) = Jac_FULL(339,347) + JVS(4642) = 0 +IF (DO_JVS(4643)) & +! JVS(4643) = Jac_FULL(339,348) + JVS(4643) = B(1548) +IF (DO_JVS(4644)) & +! JVS(4644) = Jac_FULL(339,349) + JVS(4644) = 0 +IF (DO_JVS(4645)) & +! JVS(4645) = Jac_FULL(339,350) + JVS(4645) = 0 +IF (DO_JVS(4646)) & +! JVS(4646) = Jac_FULL(339,351) + JVS(4646) = 0 +IF (DO_JVS(4647)) & +! JVS(4647) = Jac_FULL(339,352) + JVS(4647) = 0 +IF (DO_JVS(4648)) & +! JVS(4648) = Jac_FULL(339,353) + JVS(4648) = 0 +IF (DO_JVS(4649)) & +! JVS(4649) = Jac_FULL(340,3) + JVS(4649) = B(1735) +IF (DO_JVS(4650)) & +! JVS(4650) = Jac_FULL(340,43) + JVS(4650) = 3*B(553)+3*B(1710) +IF (DO_JVS(4651)) & +! JVS(4651) = Jac_FULL(340,46) + JVS(4651) = 2.37*B(493)+4*B(1711) +IF (DO_JVS(4652)) & +! JVS(4652) = Jac_FULL(340,47) + JVS(4652) = 1.8*B(505)+3*B(1712) +IF (DO_JVS(4653)) & +! JVS(4653) = Jac_FULL(340,48) + JVS(4653) = 0.86*B(507)+2*B(1713) +IF (DO_JVS(4654)) & +! JVS(4654) = Jac_FULL(340,49) + JVS(4654) = 1.9*B(519)+3*B(1714) +IF (DO_JVS(4655)) & +! JVS(4655) = Jac_FULL(340,50) + JVS(4655) = 0.95*B(521)+2*B(1715) +IF (DO_JVS(4656)) & +! JVS(4656) = Jac_FULL(340,51) + JVS(4656) = B(1716) +IF (DO_JVS(4657)) & +! JVS(4657) = Jac_FULL(340,61) + JVS(4657) = 0.31*B(509)+B(1722) +IF (DO_JVS(4658)) & +! JVS(4658) = Jac_FULL(340,75) + JVS(4658) = 3*B(551)+2*B(609) +IF (DO_JVS(4659)) & +! JVS(4659) = Jac_FULL(340,76) + JVS(4659) = B(1705) +IF (DO_JVS(4660)) & +! JVS(4660) = Jac_FULL(340,79) + JVS(4660) = 2*B(549)+B(607)+2*B(1700) +IF (DO_JVS(4661)) & +! JVS(4661) = Jac_FULL(340,84) + JVS(4661) = 0.79*B(517)+2*B(561)+2*B(1717) +IF (DO_JVS(4662)) & +! JVS(4662) = Jac_FULL(340,85) + JVS(4662) = 0.69*B(513)+2*B(557)+2*B(1718) +IF (DO_JVS(4663)) & +! JVS(4663) = Jac_FULL(340,86) + JVS(4663) = B(559)+B(1719) +IF (DO_JVS(4664)) & +! JVS(4664) = Jac_FULL(340,87) + JVS(4664) = 0.19*B(503)+B(555)+B(1720) +IF (DO_JVS(4665)) & +! JVS(4665) = Jac_FULL(340,104) + JVS(4665) = B(1740) +IF (DO_JVS(4666)) & +! JVS(4666) = Jac_FULL(340,110) + JVS(4666) = B(590)-B(593)+B(1724) +IF (DO_JVS(4667)) & +! JVS(4667) = Jac_FULL(340,141) + JVS(4667) = -B(629)-B(631) +IF (DO_JVS(4668)) & +! JVS(4668) = Jac_FULL(340,142) + JVS(4668) = -B(637) +IF (DO_JVS(4669)) & +! JVS(4669) = Jac_FULL(340,156) + JVS(4669) = -B(625) +IF (DO_JVS(4670)) & +! JVS(4670) = Jac_FULL(340,157) + JVS(4670) = B(1701) +IF (DO_JVS(4671)) & +! JVS(4671) = Jac_FULL(340,164) + JVS(4671) = -B(615) +IF (DO_JVS(4672)) & +! JVS(4672) = Jac_FULL(340,181) + JVS(4672) = 0.35*B(495)+B(547)-B(605)+B(1699) +IF (DO_JVS(4673)) & +! JVS(4673) = Jac_FULL(340,183) + JVS(4673) = -B(617) +IF (DO_JVS(4674)) & +! JVS(4674) = Jac_FULL(340,218) + JVS(4674) = 0 +IF (DO_JVS(4675)) & +! JVS(4675) = Jac_FULL(340,228) + JVS(4675) = -B(563) +IF (DO_JVS(4676)) & +! JVS(4676) = Jac_FULL(340,245) + JVS(4676) = 0.75*B(491)+B(527)+2*B(1702) +IF (DO_JVS(4677)) & +! JVS(4677) = Jac_FULL(340,252) + JVS(4677) = 0 +IF (DO_JVS(4678)) & +! JVS(4678) = Jac_FULL(340,264) + JVS(4678) = -B(571) +IF (DO_JVS(4679)) & +! JVS(4679) = Jac_FULL(340,265) + JVS(4679) = -B(611) +IF (DO_JVS(4680)) & +! JVS(4680) = Jac_FULL(340,269) + JVS(4680) = 0 +IF (DO_JVS(4681)) & +! JVS(4681) = Jac_FULL(340,276) + JVS(4681) = -B(635) +IF (DO_JVS(4682)) & +! JVS(4682) = Jac_FULL(340,282) + JVS(4682) = -B(623) +IF (DO_JVS(4683)) & +! JVS(4683) = Jac_FULL(340,283) + JVS(4683) = -B(627) +IF (DO_JVS(4684)) & +! JVS(4684) = Jac_FULL(340,284) + JVS(4684) = 0.249*B(667) +IF (DO_JVS(4685)) & +! JVS(4685) = Jac_FULL(340,289) + JVS(4685) = 0 +IF (DO_JVS(4686)) & +! JVS(4686) = Jac_FULL(340,290) + JVS(4686) = -B(639) +IF (DO_JVS(4687)) & +! JVS(4687) = Jac_FULL(340,291) + JVS(4687) = 0 +IF (DO_JVS(4688)) & +! JVS(4688) = Jac_FULL(340,295) + JVS(4688) = -B(633) +IF (DO_JVS(4689)) & +! JVS(4689) = Jac_FULL(340,296) + JVS(4689) = -B(619) +IF (DO_JVS(4690)) & +! JVS(4690) = Jac_FULL(340,297) + JVS(4690) = B(1706) +IF (DO_JVS(4691)) & +! JVS(4691) = Jac_FULL(340,300) + JVS(4691) = 0 +IF (DO_JVS(4692)) & +! JVS(4692) = Jac_FULL(340,301) + JVS(4692) = 0 +IF (DO_JVS(4693)) & +! JVS(4693) = Jac_FULL(340,302) + JVS(4693) = 0 +IF (DO_JVS(4694)) & +! JVS(4694) = Jac_FULL(340,303) + JVS(4694) = 0 +IF (DO_JVS(4695)) & +! JVS(4695) = Jac_FULL(340,304) + JVS(4695) = 0 +IF (DO_JVS(4696)) & +! JVS(4696) = Jac_FULL(340,305) + JVS(4696) = 0 +IF (DO_JVS(4697)) & +! JVS(4697) = Jac_FULL(340,306) + JVS(4697) = 0 +IF (DO_JVS(4698)) & +! JVS(4698) = Jac_FULL(340,307) + JVS(4698) = 0 +IF (DO_JVS(4699)) & +! JVS(4699) = Jac_FULL(340,308) + JVS(4699) = 0 +IF (DO_JVS(4700)) & +! JVS(4700) = Jac_FULL(340,309) + JVS(4700) = 0 +IF (DO_JVS(4701)) & +! JVS(4701) = Jac_FULL(340,310) + JVS(4701) = 0 +IF (DO_JVS(4702)) & +! JVS(4702) = Jac_FULL(340,311) + JVS(4702) = 0 +IF (DO_JVS(4703)) & +! JVS(4703) = Jac_FULL(340,312) + JVS(4703) = 0 +IF (DO_JVS(4704)) & +! JVS(4704) = Jac_FULL(340,313) + JVS(4704) = 0 +IF (DO_JVS(4705)) & +! JVS(4705) = Jac_FULL(340,314) + JVS(4705) = 0 +IF (DO_JVS(4706)) & +! JVS(4706) = Jac_FULL(340,315) + JVS(4706) = -B(621) +IF (DO_JVS(4707)) & +! JVS(4707) = Jac_FULL(340,316) + JVS(4707) = 0 +IF (DO_JVS(4708)) & +! JVS(4708) = Jac_FULL(340,317) + JVS(4708) = -B(603)+B(1707) +IF (DO_JVS(4709)) & +! JVS(4709) = Jac_FULL(340,318) + JVS(4709) = 0 +IF (DO_JVS(4710)) & +! JVS(4710) = Jac_FULL(340,319) + JVS(4710) = 0 +IF (DO_JVS(4711)) & +! JVS(4711) = Jac_FULL(340,320) + JVS(4711) = 0 +IF (DO_JVS(4712)) & +! JVS(4712) = Jac_FULL(340,321) + JVS(4712) = 0 +IF (DO_JVS(4713)) & +! JVS(4713) = Jac_FULL(340,322) + JVS(4713) = 0 +IF (DO_JVS(4714)) & +! JVS(4714) = Jac_FULL(340,323) + JVS(4714) = 0 +IF (DO_JVS(4715)) & +! JVS(4715) = Jac_FULL(340,324) + JVS(4715) = 0 +IF (DO_JVS(4716)) & +! JVS(4716) = Jac_FULL(340,325) + JVS(4716) = -B(565) +IF (DO_JVS(4717)) & +! JVS(4717) = Jac_FULL(340,326) + JVS(4717) = 0 +IF (DO_JVS(4718)) & +! JVS(4718) = Jac_FULL(340,328) + JVS(4718) = -B(613) +IF (DO_JVS(4719)) & +! JVS(4719) = Jac_FULL(340,329) + JVS(4719) = 0 +IF (DO_JVS(4720)) & +! JVS(4720) = Jac_FULL(340,330) + JVS(4720) = 0 +IF (DO_JVS(4721)) & +! JVS(4721) = Jac_FULL(340,331) + JVS(4721) = 0 +IF (DO_JVS(4722)) & +! JVS(4722) = Jac_FULL(340,332) + JVS(4722) = 0 +IF (DO_JVS(4723)) & +! JVS(4723) = Jac_FULL(340,333) + JVS(4723) = B(1709) +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) +IF (DO_JVS(4725)) & +! JVS(4725) = Jac_FULL(340,335) + JVS(4725) = 0 +IF (DO_JVS(4726)) & +! JVS(4726) = Jac_FULL(340,336) + JVS(4726) = 0 +IF (DO_JVS(4727)) & +! JVS(4727) = Jac_FULL(340,337) + JVS(4727) = -B(573)-B(575) +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) +IF (DO_JVS(4729)) & +! JVS(4729) = Jac_FULL(340,339) + JVS(4729) = 0.66*B(488)+B(539) +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) +IF (DO_JVS(4731)) & +! JVS(4731) = Jac_FULL(340,341) + JVS(4731) = -B(568) +IF (DO_JVS(4732)) & +! JVS(4732) = Jac_FULL(340,342) + JVS(4732) = 0 +IF (DO_JVS(4733)) & +! JVS(4733) = Jac_FULL(340,343) + JVS(4733) = B(578) +IF (DO_JVS(4734)) & +! JVS(4734) = Jac_FULL(340,344) + 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) +IF (DO_JVS(4736)) & +! JVS(4736) = Jac_FULL(340,346) + JVS(4736) = B(582) +IF (DO_JVS(4737)) & +! JVS(4737) = Jac_FULL(340,347) + JVS(4737) = 0 +IF (DO_JVS(4738)) & +! JVS(4738) = Jac_FULL(340,348) + JVS(4738) = 0 +IF (DO_JVS(4739)) & +! JVS(4739) = Jac_FULL(340,349) + JVS(4739) = 0 +IF (DO_JVS(4740)) & +! JVS(4740) = Jac_FULL(340,350) + JVS(4740) = 0 +IF (DO_JVS(4741)) & +! JVS(4741) = Jac_FULL(340,351) + JVS(4741) = 0 +IF (DO_JVS(4742)) & +! JVS(4742) = Jac_FULL(340,352) + JVS(4742) = 0 +IF (DO_JVS(4743)) & +! JVS(4743) = Jac_FULL(340,353) + JVS(4743) = 0 +IF (DO_JVS(4744)) & +! JVS(4744) = Jac_FULL(341,109) + JVS(4744) = -B(1358) +IF (DO_JVS(4745)) & +! JVS(4745) = Jac_FULL(341,140) + JVS(4745) = -B(146) +IF (DO_JVS(4746)) & +! JVS(4746) = Jac_FULL(341,166) + JVS(4746) = -B(8) +IF (DO_JVS(4747)) & +! JVS(4747) = Jac_FULL(341,167) + JVS(4747) = -B(725) +IF (DO_JVS(4748)) & +! JVS(4748) = Jac_FULL(341,179) + JVS(4748) = -B(1) +IF (DO_JVS(4749)) & +! JVS(4749) = Jac_FULL(341,191) + JVS(4749) = -B(733) +IF (DO_JVS(4750)) & +! JVS(4750) = Jac_FULL(341,193) + JVS(4750) = -B(867) +IF (DO_JVS(4751)) & +! JVS(4751) = Jac_FULL(341,201) + JVS(4751) = -B(1472) +IF (DO_JVS(4752)) & +! JVS(4752) = Jac_FULL(341,202) + JVS(4752) = -B(1424) +IF (DO_JVS(4753)) & +! JVS(4753) = Jac_FULL(341,203) + JVS(4753) = -B(1453) +IF (DO_JVS(4754)) & +! JVS(4754) = Jac_FULL(341,211) + JVS(4754) = -B(820) +IF (DO_JVS(4755)) & +! JVS(4755) = Jac_FULL(341,213) + JVS(4755) = 0.15*B(302) +IF (DO_JVS(4756)) & +! JVS(4756) = Jac_FULL(341,217) + JVS(4756) = -B(473) +IF (DO_JVS(4757)) & +! JVS(4757) = Jac_FULL(341,219) + JVS(4757) = -B(729) +IF (DO_JVS(4758)) & +! JVS(4758) = Jac_FULL(341,220) + JVS(4758) = -B(1342) +IF (DO_JVS(4759)) & +! JVS(4759) = Jac_FULL(341,221) + JVS(4759) = -B(1467) +IF (DO_JVS(4760)) & +! JVS(4760) = Jac_FULL(341,228) + JVS(4760) = 0 +IF (DO_JVS(4761)) & +! JVS(4761) = Jac_FULL(341,229) + JVS(4761) = -B(861) +IF (DO_JVS(4762)) & +! JVS(4762) = Jac_FULL(341,233) + JVS(4762) = 0 +IF (DO_JVS(4763)) & +! JVS(4763) = Jac_FULL(341,235) + JVS(4763) = 0.15*B(1432) +IF (DO_JVS(4764)) & +! JVS(4764) = Jac_FULL(341,236) + JVS(4764) = 0 +IF (DO_JVS(4765)) & +! JVS(4765) = Jac_FULL(341,237) + JVS(4765) = -B(814) +IF (DO_JVS(4766)) & +! JVS(4766) = Jac_FULL(341,240) + JVS(4766) = 0.15*B(1407) +IF (DO_JVS(4767)) & +! JVS(4767) = Jac_FULL(341,242) + JVS(4767) = -B(929) +IF (DO_JVS(4768)) & +! JVS(4768) = Jac_FULL(341,246) + JVS(4768) = 0.15*B(245) +IF (DO_JVS(4769)) & +! JVS(4769) = Jac_FULL(341,255) + JVS(4769) = -B(808) +IF (DO_JVS(4770)) & +! JVS(4770) = Jac_FULL(341,257) + JVS(4770) = 0.15*B(749) +IF (DO_JVS(4771)) & +! JVS(4771) = Jac_FULL(341,259) + JVS(4771) = 0.13*B(1278) +IF (DO_JVS(4772)) & +! JVS(4772) = Jac_FULL(341,262) + JVS(4772) = -B(873) +IF (DO_JVS(4773)) & +! JVS(4773) = Jac_FULL(341,269) + JVS(4773) = 0 +IF (DO_JVS(4774)) & +! JVS(4774) = Jac_FULL(341,274) + JVS(4774) = 0.15*B(838) +IF (DO_JVS(4775)) & +! JVS(4775) = Jac_FULL(341,275) + JVS(4775) = 0 +IF (DO_JVS(4776)) & +! JVS(4776) = Jac_FULL(341,276) + JVS(4776) = -B(947) +IF (DO_JVS(4777)) & +! JVS(4777) = Jac_FULL(341,277) + JVS(4777) = 0 +IF (DO_JVS(4778)) & +! JVS(4778) = Jac_FULL(341,280) + JVS(4778) = 0 +IF (DO_JVS(4779)) & +! JVS(4779) = Jac_FULL(341,281) + JVS(4779) = 0 +IF (DO_JVS(4780)) & +! JVS(4780) = Jac_FULL(341,289) + JVS(4780) = 0 +IF (DO_JVS(4781)) & +! JVS(4781) = Jac_FULL(341,290) + JVS(4781) = -B(287) +IF (DO_JVS(4782)) & +! JVS(4782) = Jac_FULL(341,291) + JVS(4782) = 0 +IF (DO_JVS(4783)) & +! JVS(4783) = Jac_FULL(341,306) + JVS(4783) = 0 +IF (DO_JVS(4784)) & +! JVS(4784) = Jac_FULL(341,308) + JVS(4784) = 0.13*B(1291) +IF (DO_JVS(4785)) & +! JVS(4785) = Jac_FULL(341,309) + JVS(4785) = -B(1232) +IF (DO_JVS(4786)) & +! JVS(4786) = Jac_FULL(341,310) + JVS(4786) = 0 +IF (DO_JVS(4787)) & +! JVS(4787) = Jac_FULL(341,311) + JVS(4787) = 0 +IF (DO_JVS(4788)) & +! JVS(4788) = Jac_FULL(341,312) + JVS(4788) = -B(701) +IF (DO_JVS(4789)) & +! JVS(4789) = Jac_FULL(341,314) + JVS(4789) = -B(1226) +IF (DO_JVS(4790)) & +! JVS(4790) = Jac_FULL(341,320) + JVS(4790) = 0 +IF (DO_JVS(4791)) & +! JVS(4791) = Jac_FULL(341,322) + JVS(4791) = 0.15*B(283) +IF (DO_JVS(4792)) & +! JVS(4792) = Jac_FULL(341,323) + JVS(4792) = 0 +IF (DO_JVS(4793)) & +! JVS(4793) = Jac_FULL(341,324) + JVS(4793) = 0.13*B(1324) +IF (DO_JVS(4794)) & +! JVS(4794) = Jac_FULL(341,325) + JVS(4794) = 0 +IF (DO_JVS(4795)) & +! JVS(4795) = Jac_FULL(341,326) + JVS(4795) = 0 +IF (DO_JVS(4796)) & +! JVS(4796) = Jac_FULL(341,327) + JVS(4796) = 0 +IF (DO_JVS(4797)) & +! JVS(4797) = Jac_FULL(341,328) + JVS(4797) = -B(34) +IF (DO_JVS(4798)) & +! JVS(4798) = Jac_FULL(341,329) + JVS(4798) = 0 +IF (DO_JVS(4799)) & +! JVS(4799) = Jac_FULL(341,331) + JVS(4799) = -B(669) +IF (DO_JVS(4800)) & +! JVS(4800) = Jac_FULL(341,332) + JVS(4800) = 0 +IF (DO_JVS(4801)) & +! JVS(4801) = Jac_FULL(341,334) + JVS(4801) = -B(455) +IF (DO_JVS(4802)) & +! JVS(4802) = Jac_FULL(341,335) + JVS(4802) = -B(32) +IF (DO_JVS(4803)) & +! JVS(4803) = Jac_FULL(341,336) + JVS(4803) = 0 +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) +IF (DO_JVS(4805)) & +! JVS(4805) = Jac_FULL(341,338) + JVS(4805) = 0 +IF (DO_JVS(4806)) & +! JVS(4806) = Jac_FULL(341,339) + JVS(4806) = 0 +IF (DO_JVS(4807)) & +! JVS(4807) = Jac_FULL(341,340) + JVS(4807) = -B(567) +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) +IF (DO_JVS(4809)) & +! JVS(4809) = Jac_FULL(341,342) + JVS(4809) = -B(390) +IF (DO_JVS(4810)) & +! JVS(4810) = Jac_FULL(341,343) + JVS(4810) = B(445)-B(448) +IF (DO_JVS(4811)) & +! JVS(4811) = Jac_FULL(341,344) + JVS(4811) = 0 +IF (DO_JVS(4812)) & +! JVS(4812) = Jac_FULL(341,345) + JVS(4812) = -B(29) +IF (DO_JVS(4813)) & +! JVS(4813) = Jac_FULL(341,346) + JVS(4813) = -B(27) +IF (DO_JVS(4814)) & +! JVS(4814) = Jac_FULL(341,347) + JVS(4814) = 0 +IF (DO_JVS(4815)) & +! JVS(4815) = Jac_FULL(341,348) + JVS(4815) = -B(3)-B(10)-B(18) +IF (DO_JVS(4816)) & +! JVS(4816) = Jac_FULL(341,349) + JVS(4816) = -B(1566) +IF (DO_JVS(4817)) & +! JVS(4817) = Jac_FULL(341,350) + JVS(4817) = -B(1568) +IF (DO_JVS(4818)) & +! JVS(4818) = Jac_FULL(341,351) + JVS(4818) = 0 +IF (DO_JVS(4819)) & +! JVS(4819) = Jac_FULL(341,352) + JVS(4819) = -B(1564) +IF (DO_JVS(4820)) & +! JVS(4820) = Jac_FULL(341,353) + JVS(4820) = 0 +IF (DO_JVS(4821)) & +! JVS(4821) = Jac_FULL(342,2) + JVS(4821) = B(1736) +IF (DO_JVS(4822)) & +! JVS(4822) = Jac_FULL(342,53) + JVS(4822) = B(1721) +IF (DO_JVS(4823)) & +! JVS(4823) = Jac_FULL(342,54) + JVS(4823) = 0.75*B(525)+2*B(1723) +IF (DO_JVS(4824)) & +! JVS(4824) = Jac_FULL(342,59) + JVS(4824) = B(1695) +IF (DO_JVS(4825)) & +! JVS(4825) = Jac_FULL(342,61) + JVS(4825) = 0.34*B(509)+B(1722) +IF (DO_JVS(4826)) & +! JVS(4826) = Jac_FULL(342,77) + JVS(4826) = B(1739) +IF (DO_JVS(4827)) & +! JVS(4827) = Jac_FULL(342,78) + JVS(4827) = 2*B(429)+0.95*B(499)+2*B(1697) +IF (DO_JVS(4828)) & +! JVS(4828) = Jac_FULL(342,81) + JVS(4828) = 3*B(427)+1.4*B(501)+3*B(1696) +IF (DO_JVS(4829)) & +! JVS(4829) = Jac_FULL(342,105) + JVS(4829) = B(431)+0.56*B(497)+B(1698) +IF (DO_JVS(4830)) & +! JVS(4830) = Jac_FULL(342,141) + JVS(4830) = -B(421) +IF (DO_JVS(4831)) & +! JVS(4831) = Jac_FULL(342,148) + JVS(4831) = B(403)+2*B(1690) +IF (DO_JVS(4832)) & +! JVS(4832) = Jac_FULL(342,157) + JVS(4832) = B(1701) +IF (DO_JVS(4833)) & +! JVS(4833) = Jac_FULL(342,183) + JVS(4833) = -B(419) +IF (DO_JVS(4834)) & +! JVS(4834) = Jac_FULL(342,218) + JVS(4834) = -B(401)+B(1693) +IF (DO_JVS(4835)) & +! JVS(4835) = Jac_FULL(342,252) + JVS(4835) = 0 +IF (DO_JVS(4836)) & +! JVS(4836) = Jac_FULL(342,284) + JVS(4836) = B(659) +IF (DO_JVS(4837)) & +! JVS(4837) = Jac_FULL(342,290) + JVS(4837) = -B(641) +IF (DO_JVS(4838)) & +! JVS(4838) = Jac_FULL(342,295) + JVS(4838) = -B(417) +IF (DO_JVS(4839)) & +! JVS(4839) = Jac_FULL(342,297) + JVS(4839) = 0 +IF (DO_JVS(4840)) & +! JVS(4840) = Jac_FULL(342,300) + JVS(4840) = 0 +IF (DO_JVS(4841)) & +! JVS(4841) = Jac_FULL(342,314) + JVS(4841) = 0 +IF (DO_JVS(4842)) & +! JVS(4842) = Jac_FULL(342,316) + JVS(4842) = B(1692) +IF (DO_JVS(4843)) & +! JVS(4843) = Jac_FULL(342,317) + JVS(4843) = 0 +IF (DO_JVS(4844)) & +! JVS(4844) = Jac_FULL(342,318) + JVS(4844) = 0 +IF (DO_JVS(4845)) & +! JVS(4845) = Jac_FULL(342,319) + JVS(4845) = 0 +IF (DO_JVS(4846)) & +! JVS(4846) = Jac_FULL(342,320) + JVS(4846) = 0 +IF (DO_JVS(4847)) & +! JVS(4847) = Jac_FULL(342,323) + JVS(4847) = 0 +IF (DO_JVS(4848)) & +! JVS(4848) = Jac_FULL(342,324) + JVS(4848) = 0 +IF (DO_JVS(4849)) & +! JVS(4849) = Jac_FULL(342,325) + JVS(4849) = -B(413) +IF (DO_JVS(4850)) & +! JVS(4850) = Jac_FULL(342,326) + JVS(4850) = -B(415) +IF (DO_JVS(4851)) & +! JVS(4851) = Jac_FULL(342,328) + JVS(4851) = 0 +IF (DO_JVS(4852)) & +! JVS(4852) = Jac_FULL(342,329) + JVS(4852) = 0 +IF (DO_JVS(4853)) & +! JVS(4853) = Jac_FULL(342,330) + JVS(4853) = 0 +IF (DO_JVS(4854)) & +! JVS(4854) = Jac_FULL(342,331) + JVS(4854) = B(657) +IF (DO_JVS(4855)) & +! JVS(4855) = Jac_FULL(342,332) + JVS(4855) = 0 +IF (DO_JVS(4856)) & +! JVS(4856) = Jac_FULL(342,333) + 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) +IF (DO_JVS(4858)) & +! JVS(4858) = Jac_FULL(342,335) + JVS(4858) = -B(423) +IF (DO_JVS(4859)) & +! JVS(4859) = Jac_FULL(342,336) + JVS(4859) = 0 +IF (DO_JVS(4860)) & +! JVS(4860) = Jac_FULL(342,337) + JVS(4860) = -B(393) +IF (DO_JVS(4861)) & +! JVS(4861) = Jac_FULL(342,338) + JVS(4861) = B(595)+B(597) +IF (DO_JVS(4862)) & +! JVS(4862) = Jac_FULL(342,339) + JVS(4862) = 0 +IF (DO_JVS(4863)) & +! JVS(4863) = Jac_FULL(342,340) + JVS(4863) = 0 +IF (DO_JVS(4864)) & +! JVS(4864) = Jac_FULL(342,341) + JVS(4864) = -B(389) +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) +IF (DO_JVS(4866)) & +! JVS(4866) = Jac_FULL(342,343) + JVS(4866) = B(407)+B(483) +IF (DO_JVS(4867)) & +! JVS(4867) = Jac_FULL(342,344) + JVS(4867) = 0 +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) +IF (DO_JVS(4869)) & +! JVS(4869) = Jac_FULL(342,346) + JVS(4869) = B(399) +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) +IF (DO_JVS(4871)) & +! JVS(4871) = Jac_FULL(342,348) + JVS(4871) = 0 +IF (DO_JVS(4872)) & +! JVS(4872) = Jac_FULL(342,349) + JVS(4872) = 0 +IF (DO_JVS(4873)) & +! JVS(4873) = Jac_FULL(342,350) + JVS(4873) = 0 +IF (DO_JVS(4874)) & +! JVS(4874) = Jac_FULL(342,351) + JVS(4874) = -B(412) +IF (DO_JVS(4875)) & +! JVS(4875) = Jac_FULL(342,352) + JVS(4875) = B(396)+B(408)+0.6*B(490) +IF (DO_JVS(4876)) & +! JVS(4876) = Jac_FULL(342,353) + JVS(4876) = 0 +IF (DO_JVS(4877)) & +! JVS(4877) = Jac_FULL(343,46) + JVS(4877) = 0.21*B(493) +IF (DO_JVS(4878)) & +! JVS(4878) = Jac_FULL(343,47) + JVS(4878) = 0.1*B(505) +IF (DO_JVS(4879)) & +! JVS(4879) = Jac_FULL(343,48) + JVS(4879) = 0.14*B(507) +IF (DO_JVS(4880)) & +! JVS(4880) = Jac_FULL(343,49) + JVS(4880) = 0.1*B(519) +IF (DO_JVS(4881)) & +! JVS(4881) = Jac_FULL(343,50) + JVS(4881) = 0.1*B(521) +IF (DO_JVS(4882)) & +! JVS(4882) = Jac_FULL(343,51) + JVS(4882) = 0.14*B(523) +IF (DO_JVS(4883)) & +! JVS(4883) = Jac_FULL(343,53) + JVS(4883) = 0.55*B(511) +IF (DO_JVS(4884)) & +! JVS(4884) = Jac_FULL(343,54) + JVS(4884) = 0.25*B(525) +IF (DO_JVS(4885)) & +! JVS(4885) = Jac_FULL(343,61) + JVS(4885) = 0.35*B(509) +IF (DO_JVS(4886)) & +! JVS(4886) = Jac_FULL(343,67) + JVS(4886) = B(477)+B(479)+B(481) +IF (DO_JVS(4887)) & +! JVS(4887) = Jac_FULL(343,68) + JVS(4887) = -B(457) +IF (DO_JVS(4888)) & +! JVS(4888) = Jac_FULL(343,78) + JVS(4888) = 0.05*B(499) +IF (DO_JVS(4889)) & +! JVS(4889) = Jac_FULL(343,81) + JVS(4889) = 0.3*B(501) +IF (DO_JVS(4890)) & +! JVS(4890) = Jac_FULL(343,84) + JVS(4890) = 0.21*B(517) +IF (DO_JVS(4891)) & +! JVS(4891) = Jac_FULL(343,85) + JVS(4891) = 0.31*B(513) +IF (DO_JVS(4892)) & +! JVS(4892) = Jac_FULL(343,86) + JVS(4892) = 0.35*B(515) +IF (DO_JVS(4893)) & +! JVS(4893) = Jac_FULL(343,87) + JVS(4893) = 0.25*B(503) +IF (DO_JVS(4894)) & +! JVS(4894) = Jac_FULL(343,120) + JVS(4894) = B(1704) +IF (DO_JVS(4895)) & +! JVS(4895) = Jac_FULL(343,181) + JVS(4895) = 0.1*B(495) +IF (DO_JVS(4896)) & +! JVS(4896) = Jac_FULL(343,217) + JVS(4896) = 0.02*B(475) +IF (DO_JVS(4897)) & +! JVS(4897) = Jac_FULL(343,228) + JVS(4897) = 0 +IF (DO_JVS(4898)) & +! JVS(4898) = Jac_FULL(343,245) + JVS(4898) = 0.25*B(491) +IF (DO_JVS(4899)) & +! JVS(4899) = Jac_FULL(343,264) + JVS(4899) = -B(469) +IF (DO_JVS(4900)) & +! JVS(4900) = Jac_FULL(343,276) + JVS(4900) = 0 +IF (DO_JVS(4901)) & +! JVS(4901) = Jac_FULL(343,284) + JVS(4901) = B(1727) +IF (DO_JVS(4902)) & +! JVS(4902) = Jac_FULL(343,290) + JVS(4902) = 0 +IF (DO_JVS(4903)) & +! JVS(4903) = Jac_FULL(343,297) + JVS(4903) = 0 +IF (DO_JVS(4904)) & +! JVS(4904) = Jac_FULL(343,312) + JVS(4904) = 0 +IF (DO_JVS(4905)) & +! JVS(4905) = Jac_FULL(343,314) + JVS(4905) = 0 +IF (DO_JVS(4906)) & +! JVS(4906) = Jac_FULL(343,316) + JVS(4906) = -B(405) +IF (DO_JVS(4907)) & +! JVS(4907) = Jac_FULL(343,317) + JVS(4907) = -B(601) +IF (DO_JVS(4908)) & +! JVS(4908) = Jac_FULL(343,324) + JVS(4908) = 0 +IF (DO_JVS(4909)) & +! JVS(4909) = Jac_FULL(343,325) + JVS(4909) = -B(485) +IF (DO_JVS(4910)) & +! JVS(4910) = Jac_FULL(343,326) + JVS(4910) = 0 +IF (DO_JVS(4911)) & +! JVS(4911) = Jac_FULL(343,328) + JVS(4911) = 0 +IF (DO_JVS(4912)) & +! JVS(4912) = Jac_FULL(343,329) + JVS(4912) = 0 +IF (DO_JVS(4913)) & +! JVS(4913) = Jac_FULL(343,330) + JVS(4913) = 0 +IF (DO_JVS(4914)) & +! JVS(4914) = Jac_FULL(343,331) + JVS(4914) = 0 +IF (DO_JVS(4915)) & +! JVS(4915) = Jac_FULL(343,332) + JVS(4915) = 0 +IF (DO_JVS(4916)) & +! JVS(4916) = Jac_FULL(343,333) + JVS(4916) = 0 +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) +IF (DO_JVS(4918)) & +! JVS(4918) = Jac_FULL(343,335) + JVS(4918) = -B(461)-B(467)+B(482)+B(1644) +IF (DO_JVS(4919)) & +! JVS(4919) = Jac_FULL(343,336) + JVS(4919) = 0 +IF (DO_JVS(4920)) & +! JVS(4920) = Jac_FULL(343,337) + JVS(4920) = -B(453)+0.02*B(476) +IF (DO_JVS(4921)) & +! JVS(4921) = Jac_FULL(343,338) + JVS(4921) = -B(577)+B(1703) +IF (DO_JVS(4922)) & +! JVS(4922) = Jac_FULL(343,339) + JVS(4922) = 0.12*B(488) +IF (DO_JVS(4923)) & +! JVS(4923) = Jac_FULL(343,340) + JVS(4923) = 0 +IF (DO_JVS(4924)) & +! JVS(4924) = Jac_FULL(343,341) + JVS(4924) = -B(447)+B(456)+B(1641) +IF (DO_JVS(4925)) & +! JVS(4925) = Jac_FULL(343,342) + JVS(4925) = 0 +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) +IF (DO_JVS(4927)) & +! JVS(4927) = Jac_FULL(343,344) + JVS(4927) = 0 +IF (DO_JVS(4928)) & +! JVS(4928) = Jac_FULL(343,345) + JVS(4928) = B(36)-B(452) +IF (DO_JVS(4929)) & +! JVS(4929) = Jac_FULL(343,346) + JVS(4929) = -B(466)+B(480)+B(1747) +IF (DO_JVS(4930)) & +! JVS(4930) = Jac_FULL(343,347) + JVS(4930) = -B(484)+B(1691) +IF (DO_JVS(4931)) & +! JVS(4931) = Jac_FULL(343,348) + JVS(4931) = 0 +IF (DO_JVS(4932)) & +! JVS(4932) = Jac_FULL(343,349) + JVS(4932) = 0 +IF (DO_JVS(4933)) & +! JVS(4933) = Jac_FULL(343,350) + JVS(4933) = 0 +IF (DO_JVS(4934)) & +! JVS(4934) = Jac_FULL(343,351) + JVS(4934) = -B(464)+B(1653) +IF (DO_JVS(4935)) & +! JVS(4935) = Jac_FULL(343,352) + JVS(4935) = -B(408)+0.2*B(490) +IF (DO_JVS(4936)) & +! JVS(4936) = Jac_FULL(343,353) + JVS(4936) = 0 +IF (DO_JVS(4937)) & +! JVS(4937) = Jac_FULL(344,166) + JVS(4937) = B(11) +IF (DO_JVS(4938)) & +! JVS(4938) = Jac_FULL(344,214) + JVS(4938) = -B(1503) +IF (DO_JVS(4939)) & +! JVS(4939) = Jac_FULL(344,252) + JVS(4939) = -B(1597) +IF (DO_JVS(4940)) & +! JVS(4940) = Jac_FULL(344,297) + JVS(4940) = -B(1529) +IF (DO_JVS(4941)) & +! JVS(4941) = Jac_FULL(344,316) + JVS(4941) = -B(1555) +IF (DO_JVS(4942)) & +! JVS(4942) = Jac_FULL(344,317) + JVS(4942) = -B(1525) +IF (DO_JVS(4943)) & +! JVS(4943) = Jac_FULL(344,327) + JVS(4943) = 0 +IF (DO_JVS(4944)) & +! JVS(4944) = Jac_FULL(344,328) + JVS(4944) = 0 +IF (DO_JVS(4945)) & +! JVS(4945) = Jac_FULL(344,329) + JVS(4945) = 0 +IF (DO_JVS(4946)) & +! JVS(4946) = Jac_FULL(344,330) + JVS(4946) = -B(1613) +IF (DO_JVS(4947)) & +! JVS(4947) = Jac_FULL(344,331) + JVS(4947) = 0 +IF (DO_JVS(4948)) & +! JVS(4948) = Jac_FULL(344,332) + JVS(4948) = -B(1605) +IF (DO_JVS(4949)) & +! JVS(4949) = Jac_FULL(344,333) + JVS(4949) = -B(1545) +IF (DO_JVS(4950)) & +! JVS(4950) = Jac_FULL(344,334) + JVS(4950) = 0 +IF (DO_JVS(4951)) & +! JVS(4951) = Jac_FULL(344,335) + JVS(4951) = 0 +IF (DO_JVS(4952)) & +! JVS(4952) = Jac_FULL(344,336) + JVS(4952) = 0 +IF (DO_JVS(4953)) & +! JVS(4953) = Jac_FULL(344,337) + JVS(4953) = 0 +IF (DO_JVS(4954)) & +! JVS(4954) = Jac_FULL(344,338) + JVS(4954) = 0 +IF (DO_JVS(4955)) & +! JVS(4955) = Jac_FULL(344,339) + JVS(4955) = B(12) +IF (DO_JVS(4956)) & +! JVS(4956) = Jac_FULL(344,340) + JVS(4956) = 0 +IF (DO_JVS(4957)) & +! JVS(4957) = Jac_FULL(344,341) + JVS(4957) = 0 +IF (DO_JVS(4958)) & +! JVS(4958) = Jac_FULL(344,342) + JVS(4958) = 0 +IF (DO_JVS(4959)) & +! JVS(4959) = Jac_FULL(344,343) + JVS(4959) = 0 +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) +IF (DO_JVS(4961)) & +! JVS(4961) = Jac_FULL(344,345) + JVS(4961) = -B(1508) +IF (DO_JVS(4962)) & +! JVS(4962) = Jac_FULL(344,346) + JVS(4962) = 0 +IF (DO_JVS(4963)) & +! JVS(4963) = Jac_FULL(344,347) + JVS(4963) = 0 +IF (DO_JVS(4964)) & +! JVS(4964) = Jac_FULL(344,348) + JVS(4964) = 0 +IF (DO_JVS(4965)) & +! JVS(4965) = Jac_FULL(344,349) + JVS(4965) = 0 +IF (DO_JVS(4966)) & +! JVS(4966) = Jac_FULL(344,350) + JVS(4966) = 0 +IF (DO_JVS(4967)) & +! JVS(4967) = Jac_FULL(344,351) + JVS(4967) = 0 +IF (DO_JVS(4968)) & +! JVS(4968) = Jac_FULL(344,352) + JVS(4968) = 0 +IF (DO_JVS(4969)) & +! JVS(4969) = Jac_FULL(344,353) + JVS(4969) = 0 +IF (DO_JVS(4970)) & +! JVS(4970) = Jac_FULL(345,41) + JVS(4970) = -B(1489) +IF (DO_JVS(4971)) & +! JVS(4971) = Jac_FULL(345,43) + JVS(4971) = -B(553) +IF (DO_JVS(4972)) & +! JVS(4972) = Jac_FULL(345,52) + JVS(4972) = -B(685) +IF (DO_JVS(4973)) & +! JVS(4973) = Jac_FULL(345,58) + JVS(4973) = -B(1397) +IF (DO_JVS(4974)) & +! JVS(4974) = Jac_FULL(345,60) + JVS(4974) = -0.364*B(1362) +IF (DO_JVS(4975)) & +! JVS(4975) = Jac_FULL(345,66) + JVS(4975) = -B(760)+B(1810) +IF (DO_JVS(4976)) & +! JVS(4976) = Jac_FULL(345,68) + JVS(4976) = -B(459) +IF (DO_JVS(4977)) & +! JVS(4977) = Jac_FULL(345,69) + JVS(4977) = -B(124) +IF (DO_JVS(4978)) & +! JVS(4978) = Jac_FULL(345,70) + JVS(4978) = -B(1375) +IF (DO_JVS(4979)) & +! JVS(4979) = Jac_FULL(345,71) + JVS(4979) = -B(1438)+B(1803) +IF (DO_JVS(4980)) & +! JVS(4980) = Jac_FULL(345,72) + JVS(4980) = -B(308) +IF (DO_JVS(4981)) & +! JVS(4981) = Jac_FULL(345,73) + JVS(4981) = -B(675) +IF (DO_JVS(4982)) & +! JVS(4982) = Jac_FULL(345,74) + JVS(4982) = -B(758)+B(1809) +IF (DO_JVS(4983)) & +! JVS(4983) = Jac_FULL(345,75) + JVS(4983) = -B(551) +IF (DO_JVS(4984)) & +! JVS(4984) = Jac_FULL(345,76) + JVS(4984) = -B(537) +IF (DO_JVS(4985)) & +! JVS(4985) = Jac_FULL(345,78) + JVS(4985) = -B(429) +IF (DO_JVS(4986)) & +! JVS(4986) = Jac_FULL(345,79) + JVS(4986) = -B(549) +IF (DO_JVS(4987)) & +! JVS(4987) = Jac_FULL(345,81) + JVS(4987) = -B(427) +IF (DO_JVS(4988)) & +! JVS(4988) = Jac_FULL(345,82) + JVS(4988) = -B(1383) +IF (DO_JVS(4989)) & +! JVS(4989) = Jac_FULL(345,83) + JVS(4989) = -B(941) +IF (DO_JVS(4990)) & +! JVS(4990) = Jac_FULL(345,84) + JVS(4990) = -B(561) +IF (DO_JVS(4991)) & +! JVS(4991) = Jac_FULL(345,85) + JVS(4991) = -B(557) +IF (DO_JVS(4992)) & +! JVS(4992) = Jac_FULL(345,86) + JVS(4992) = -B(559) +IF (DO_JVS(4993)) & +! JVS(4993) = Jac_FULL(345,87) + JVS(4993) = 0.05*B(503)-B(555) +IF (DO_JVS(4994)) & +! JVS(4994) = Jac_FULL(345,88) + JVS(4994) = -0.5*B(1322)+2*B(1761) +IF (DO_JVS(4995)) & +! JVS(4995) = Jac_FULL(345,89) + JVS(4995) = -B(23) +IF (DO_JVS(4996)) & +! JVS(4996) = Jac_FULL(345,90) + JVS(4996) = -B(1441) +IF (DO_JVS(4997)) & +! JVS(4997) = Jac_FULL(345,91) + JVS(4997) = -B(943) +IF (DO_JVS(4998)) & +! JVS(4998) = Jac_FULL(345,92) + JVS(4998) = -0.78*B(342)+B(1689) +IF (DO_JVS(4999)) & +! JVS(4999) = Jac_FULL(345,93) + JVS(4999) = -B(939) +IF (DO_JVS(5000)) & +! JVS(5000) = Jac_FULL(345,94) + JVS(5000) = -B(381)-B(383) +IF (DO_JVS(5001)) & +! JVS(5001) = Jac_FULL(345,95) + JVS(5001) = -B(945) +IF (DO_JVS(5002)) & +! JVS(5002) = Jac_FULL(345,97) + JVS(5002) = -0.21*B(332)+B(1680) +IF (DO_JVS(5003)) & +! JVS(5003) = Jac_FULL(345,98) + JVS(5003) = -0.5*B(134)+B(1681) +IF (DO_JVS(5004)) & +! JVS(5004) = Jac_FULL(345,99) + JVS(5004) = -0.36*B(328)+B(1678) +IF (DO_JVS(5005)) & +! JVS(5005) = Jac_FULL(345,100) + JVS(5005) = -0.209*B(330)+B(1679) +IF (DO_JVS(5006)) & +! JVS(5006) = Jac_FULL(345,101) + JVS(5006) = -B(1385) +IF (DO_JVS(5007)) & +! JVS(5007) = Jac_FULL(345,102) + JVS(5007) = -0.21*B(334)+B(1682) +IF (DO_JVS(5008)) & +! JVS(5008) = Jac_FULL(345,105) + JVS(5008) = -B(431) +IF (DO_JVS(5009)) & +! JVS(5009) = Jac_FULL(345,107) + JVS(5009) = -0.3*B(1304) +IF (DO_JVS(5010)) & +! JVS(5010) = Jac_FULL(345,108) + JVS(5010) = -B(76)+B(1651) +IF (DO_JVS(5011)) & +! JVS(5011) = Jac_FULL(345,109) + JVS(5011) = -B(1360) +IF (DO_JVS(5012)) & +! JVS(5012) = Jac_FULL(345,111) + JVS(5012) = -B(741)+B(1807) +IF (DO_JVS(5013)) & +! JVS(5013) = Jac_FULL(345,112) + JVS(5013) = -B(782)+B(1812) +IF (DO_JVS(5014)) & +! JVS(5014) = Jac_FULL(345,113) + JVS(5014) = -B(241) +IF (DO_JVS(5015)) & +! JVS(5015) = Jac_FULL(345,114) + JVS(5015) = -B(306) +IF (DO_JVS(5016)) & +! JVS(5016) = Jac_FULL(345,115) + JVS(5016) = -B(1320) +IF (DO_JVS(5017)) & +! JVS(5017) = Jac_FULL(345,116) + JVS(5017) = -B(1356) +IF (DO_JVS(5018)) & +! JVS(5018) = Jac_FULL(345,117) + JVS(5018) = -B(1451) +IF (DO_JVS(5019)) & +! JVS(5019) = Jac_FULL(345,118) + JVS(5019) = -0.36*B(326)+B(1677) +IF (DO_JVS(5020)) & +! JVS(5020) = Jac_FULL(345,119) + JVS(5020) = -B(1013) +IF (DO_JVS(5021)) & +! JVS(5021) = Jac_FULL(345,120) + JVS(5021) = -B(535) +IF (DO_JVS(5022)) & +! JVS(5022) = Jac_FULL(345,122) + JVS(5022) = -B(1412) +IF (DO_JVS(5023)) & +! JVS(5023) = Jac_FULL(345,123) + JVS(5023) = -0.209*B(338)+B(1683) +IF (DO_JVS(5024)) & +! JVS(5024) = Jac_FULL(345,124) + JVS(5024) = -B(206) +IF (DO_JVS(5025)) & +! JVS(5025) = Jac_FULL(345,125) + JVS(5025) = -0.209*B(324)+B(1676) +IF (DO_JVS(5026)) & +! JVS(5026) = Jac_FULL(345,126) + JVS(5026) = -B(167) +IF (DO_JVS(5027)) & +! JVS(5027) = Jac_FULL(345,127) + JVS(5027) = -B(152) +IF (DO_JVS(5028)) & +! JVS(5028) = Jac_FULL(345,128) + JVS(5028) = -B(1052) +IF (DO_JVS(5029)) & +! JVS(5029) = Jac_FULL(345,129) + JVS(5029) = -B(784) +IF (DO_JVS(5030)) & +! JVS(5030) = Jac_FULL(345,130) + JVS(5030) = -B(849)+B(1815) +IF (DO_JVS(5031)) & +! JVS(5031) = Jac_FULL(345,131) + JVS(5031) = -B(1262) +IF (DO_JVS(5032)) & +! JVS(5032) = Jac_FULL(345,133) + JVS(5032) = B(1085)+2*B(1087) +IF (DO_JVS(5033)) & +! JVS(5033) = Jac_FULL(345,134) + JVS(5033) = 2*B(1746) +IF (DO_JVS(5034)) & +! JVS(5034) = Jac_FULL(345,135) + JVS(5034) = B(1089)+2*B(1091) +IF (DO_JVS(5035)) & +! JVS(5035) = Jac_FULL(345,136) + JVS(5035) = -B(1377)+B(1801) +IF (DO_JVS(5036)) & +! JVS(5036) = Jac_FULL(345,137) + JVS(5036) = -B(743) +IF (DO_JVS(5037)) & +! JVS(5037) = Jac_FULL(345,138) + JVS(5037) = -B(780) +IF (DO_JVS(5038)) & +! JVS(5038) = Jac_FULL(345,139) + JVS(5038) = -B(102) +IF (DO_JVS(5039)) & +! JVS(5039) = Jac_FULL(345,140) + JVS(5039) = -B(142) +IF (DO_JVS(5040)) & +! JVS(5040) = Jac_FULL(345,141) + JVS(5040) = -B(114)-B(116) +IF (DO_JVS(5041)) & +! JVS(5041) = Jac_FULL(345,142) + JVS(5041) = -B(169) +IF (DO_JVS(5042)) & +! JVS(5042) = Jac_FULL(345,143) + JVS(5042) = -B(1381) +IF (DO_JVS(5043)) & +! JVS(5043) = Jac_FULL(345,144) + JVS(5043) = B(1782) +IF (DO_JVS(5044)) & +! JVS(5044) = Jac_FULL(345,146) + JVS(5044) = -B(1403) +IF (DO_JVS(5045)) & +! JVS(5045) = Jac_FULL(345,147) + JVS(5045) = -0.556*B(1308)+0.546*B(1796) +IF (DO_JVS(5046)) & +! JVS(5046) = Jac_FULL(345,148) + JVS(5046) = -B(403) +IF (DO_JVS(5047)) & +! JVS(5047) = Jac_FULL(345,149) + JVS(5047) = -B(1344) +IF (DO_JVS(5048)) & +! JVS(5048) = Jac_FULL(345,150) + JVS(5048) = B(1781) +IF (DO_JVS(5049)) & +! JVS(5049) = Jac_FULL(345,151) + JVS(5049) = -B(1054)-B(1056) +IF (DO_JVS(5050)) & +! JVS(5050) = Jac_FULL(345,152) + JVS(5050) = -B(1058)-B(1060) +IF (DO_JVS(5051)) & +! JVS(5051) = Jac_FULL(345,153) + JVS(5051) = -B(1268) +IF (DO_JVS(5052)) & +! JVS(5052) = Jac_FULL(345,154) + JVS(5052) = -B(937) +IF (DO_JVS(5053)) & +! JVS(5053) = Jac_FULL(345,155) + JVS(5053) = -B(336)+B(1684) +IF (DO_JVS(5054)) & +! JVS(5054) = Jac_FULL(345,156) + JVS(5054) = -B(269) +IF (DO_JVS(5055)) & +! JVS(5055) = Jac_FULL(345,158) + JVS(5055) = -B(1418) +IF (DO_JVS(5056)) & +! JVS(5056) = Jac_FULL(345,159) + JVS(5056) = -0.415*B(1280)+0.75*B(1771) +IF (DO_JVS(5057)) & +! JVS(5057) = Jac_FULL(345,160) + JVS(5057) = -B(770)+B(1811) +IF (DO_JVS(5058)) & +! JVS(5058) = Jac_FULL(345,161) + JVS(5058) = -B(796)+B(1813) +IF (DO_JVS(5059)) & +! JVS(5059) = Jac_FULL(345,162) + JVS(5059) = -B(798) +IF (DO_JVS(5060)) & +! JVS(5060) = Jac_FULL(345,163) + JVS(5060) = -B(832) +IF (DO_JVS(5061)) & +! JVS(5061) = Jac_FULL(345,164) + JVS(5061) = -0.7*B(59)+B(1646) +IF (DO_JVS(5062)) & +! JVS(5062) = Jac_FULL(345,167) + JVS(5062) = -B(723)+0.865*B(725) +IF (DO_JVS(5063)) & +! JVS(5063) = Jac_FULL(345,168) + JVS(5063) = -B(1097)-B(1099) +IF (DO_JVS(5064)) & +! JVS(5064) = Jac_FULL(345,169) + JVS(5064) = -B(847)+B(1814) +IF (DO_JVS(5065)) & +! JVS(5065) = Jac_FULL(345,170) + JVS(5065) = -B(673) +IF (DO_JVS(5066)) & +! JVS(5066) = Jac_FULL(345,171) + JVS(5066) = B(1248) +IF (DO_JVS(5067)) & +! JVS(5067) = Jac_FULL(345,172) + JVS(5067) = B(1254) +IF (DO_JVS(5068)) & +! JVS(5068) = Jac_FULL(345,173) + JVS(5068) = -B(1336) +IF (DO_JVS(5069)) & +! JVS(5069) = Jac_FULL(345,174) + JVS(5069) = 1.25*B(1794) +IF (DO_JVS(5070)) & +! JVS(5070) = Jac_FULL(345,175) + JVS(5070) = -B(1093)-B(1095) +IF (DO_JVS(5071)) & +! JVS(5071) = Jac_FULL(345,176) + JVS(5071) = -B(772) +IF (DO_JVS(5072)) & +! JVS(5072) = Jac_FULL(345,177) + JVS(5072) = -B(836) +IF (DO_JVS(5073)) & +! JVS(5073) = Jac_FULL(345,178) + JVS(5073) = 0 +IF (DO_JVS(5074)) & +! JVS(5074) = Jac_FULL(345,179) + JVS(5074) = 0 +IF (DO_JVS(5075)) & +! JVS(5075) = Jac_FULL(345,180) + JVS(5075) = 0.82*B(1222) +IF (DO_JVS(5076)) & +! JVS(5076) = Jac_FULL(345,181) + JVS(5076) = -B(547) +IF (DO_JVS(5077)) & +! JVS(5077) = Jac_FULL(345,182) + JVS(5077) = B(1216) +IF (DO_JVS(5078)) & +! JVS(5078) = Jac_FULL(345,183) + JVS(5078) = -B(106) +IF (DO_JVS(5079)) & +! JVS(5079) = Jac_FULL(345,184) + JVS(5079) = -B(1302) +IF (DO_JVS(5080)) & +! JVS(5080) = Jac_FULL(345,185) + JVS(5080) = B(1768) +IF (DO_JVS(5081)) & +! JVS(5081) = Jac_FULL(345,186) + JVS(5081) = -B(1182)-B(1188)-B(1192)+B(1788) +IF (DO_JVS(5082)) & +! JVS(5082) = Jac_FULL(345,187) + JVS(5082) = -B(1015)-B(1023)+B(1775) +IF (DO_JVS(5083)) & +! JVS(5083) = Jac_FULL(345,188) + JVS(5083) = -B(271) +IF (DO_JVS(5084)) & +! JVS(5084) = Jac_FULL(345,189) + JVS(5084) = B(1354) +IF (DO_JVS(5085)) & +! JVS(5085) = Jac_FULL(345,190) + JVS(5085) = 0.599*B(1121) +IF (DO_JVS(5086)) & +! JVS(5086) = Jac_FULL(345,191) + JVS(5086) = -B(731)+0.65*B(733) +IF (DO_JVS(5087)) & +! JVS(5087) = Jac_FULL(345,192) + JVS(5087) = -B(1019)-B(1025)+B(1776) +IF (DO_JVS(5088)) & +! JVS(5088) = Jac_FULL(345,193) + JVS(5088) = -B(865) +IF (DO_JVS(5089)) & +! JVS(5089) = Jac_FULL(345,194) + JVS(5089) = -0.715*B(1258)+1.75*B(1769) +IF (DO_JVS(5090)) & +! JVS(5090) = Jac_FULL(345,195) + JVS(5090) = -B(1414) +IF (DO_JVS(5091)) & +! JVS(5091) = Jac_FULL(345,196) + JVS(5091) = -B(136) +IF (DO_JVS(5092)) & +! JVS(5092) = Jac_FULL(345,197) + JVS(5092) = 0.25*B(160) +IF (DO_JVS(5093)) & +! JVS(5093) = Jac_FULL(345,198) + JVS(5093) = B(1795) +IF (DO_JVS(5094)) & +! JVS(5094) = Jac_FULL(345,199) + JVS(5094) = -0.255*B(1029)+B(1778) +IF (DO_JVS(5095)) & +! JVS(5095) = Jac_FULL(345,200) + JVS(5095) = -B(1348) +IF (DO_JVS(5096)) & +! JVS(5096) = Jac_FULL(345,201) + JVS(5096) = -0.75*B(1470)+0.1*B(1472) +IF (DO_JVS(5097)) & +! JVS(5097) = Jac_FULL(345,202) + JVS(5097) = -B(1422)+B(1424) +IF (DO_JVS(5098)) & +! JVS(5098) = Jac_FULL(345,204) + JVS(5098) = -B(1428) +IF (DO_JVS(5099)) & +! JVS(5099) = Jac_FULL(345,205) + JVS(5099) = 0.518*B(1114) +IF (DO_JVS(5100)) & +! JVS(5100) = Jac_FULL(345,206) + JVS(5100) = 0.582*B(1129) +IF (DO_JVS(5101)) & +! JVS(5101) = Jac_FULL(345,207) + JVS(5101) = 0.506*B(1135) +IF (DO_JVS(5102)) & +! JVS(5102) = Jac_FULL(345,208) + JVS(5102) = -B(1266) +IF (DO_JVS(5103)) & +! JVS(5103) = Jac_FULL(345,209) + JVS(5103) = -0.595*B(1027)+B(1777) +IF (DO_JVS(5104)) & +! JVS(5104) = Jac_FULL(345,210) + JVS(5104) = B(1762) +IF (DO_JVS(5105)) & +! JVS(5105) = Jac_FULL(345,211) + JVS(5105) = -B(818) +IF (DO_JVS(5106)) & +! JVS(5106) = Jac_FULL(345,212) + JVS(5106) = 0 +IF (DO_JVS(5107)) & +! JVS(5107) = Jac_FULL(345,213) + JVS(5107) = 0.44*B(302) +IF (DO_JVS(5108)) & +! JVS(5108) = Jac_FULL(345,216) + JVS(5108) = B(1774) +IF (DO_JVS(5109)) & +! JVS(5109) = Jac_FULL(345,217) + JVS(5109) = B(473)+1.788*B(475) +IF (DO_JVS(5110)) & +! JVS(5110) = Jac_FULL(345,218) + JVS(5110) = 0 +IF (DO_JVS(5111)) & +! JVS(5111) = Jac_FULL(345,219) + JVS(5111) = -B(727)+0.8*B(729) +IF (DO_JVS(5112)) & +! JVS(5112) = Jac_FULL(345,220) + JVS(5112) = -B(1338)+0.18*B(1342) +IF (DO_JVS(5113)) & +! JVS(5113) = Jac_FULL(345,221) + JVS(5113) = -0.75*B(1465)+0.1*B(1467) +IF (DO_JVS(5114)) & +! JVS(5114) = Jac_FULL(345,222) + JVS(5114) = -B(1180)-B(1190)+0.67*B(1787) +IF (DO_JVS(5115)) & +! JVS(5115) = Jac_FULL(345,223) + JVS(5115) = B(1031)+0.275*B(1036) +IF (DO_JVS(5116)) & +! JVS(5116) = Jac_FULL(345,224) + JVS(5116) = B(1038)+0.275*B(1043) +IF (DO_JVS(5117)) & +! JVS(5117) = Jac_FULL(345,225) + JVS(5117) = -B(747) +IF (DO_JVS(5118)) & +! JVS(5118) = Jac_FULL(345,226) + JVS(5118) = B(1196)+0.646*B(1200)+0.096*B(1206) +IF (DO_JVS(5119)) & +! JVS(5119) = Jac_FULL(345,228) + JVS(5119) = -B(47)+0.75*B(443) +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) +IF (DO_JVS(5121)) & +! JVS(5121) = Jac_FULL(345,230) + JVS(5121) = 0.085*B(1001)+1.662*B(1779) +IF (DO_JVS(5122)) & +! JVS(5122) = Jac_FULL(345,231) + JVS(5122) = 0.165*B(1003)+1.637*B(1780) +IF (DO_JVS(5123)) & +! JVS(5123) = Jac_FULL(345,232) + JVS(5123) = B(1046)+1.3*B(1050) +IF (DO_JVS(5124)) & +! JVS(5124) = Jac_FULL(345,233) + JVS(5124) = -B(154) +IF (DO_JVS(5125)) & +! JVS(5125) = Jac_FULL(345,234) + JVS(5125) = 0 +IF (DO_JVS(5126)) & +! JVS(5126) = Jac_FULL(345,235) + JVS(5126) = 0.2*B(1432) +IF (DO_JVS(5127)) & +! JVS(5127) = Jac_FULL(345,236) + JVS(5127) = 0 +IF (DO_JVS(5128)) & +! JVS(5128) = Jac_FULL(345,237) + JVS(5128) = -B(812)+0.865*B(814) +IF (DO_JVS(5129)) & +! JVS(5129) = Jac_FULL(345,238) + JVS(5129) = 0.065*B(1009) +IF (DO_JVS(5130)) & +! JVS(5130) = Jac_FULL(345,239) + JVS(5130) = -B(71)+B(1650) +IF (DO_JVS(5131)) & +! JVS(5131) = Jac_FULL(345,240) + JVS(5131) = 0.44*B(1407) +IF (DO_JVS(5132)) & +! JVS(5132) = Jac_FULL(345,241) + JVS(5132) = 0 +IF (DO_JVS(5133)) & +! JVS(5133) = Jac_FULL(345,242) + JVS(5133) = -B(927) +IF (DO_JVS(5134)) & +! JVS(5134) = Jac_FULL(345,243) + JVS(5134) = 0.65*B(1078)+B(1084) +IF (DO_JVS(5135)) & +! JVS(5135) = Jac_FULL(345,244) + JVS(5135) = -0.7*B(61)+B(1743) +IF (DO_JVS(5136)) & +! JVS(5136) = Jac_FULL(345,245) + JVS(5136) = -B(527) +IF (DO_JVS(5137)) & +! JVS(5137) = Jac_FULL(345,246) + JVS(5137) = 0.44*B(245) +IF (DO_JVS(5138)) & +! JVS(5138) = Jac_FULL(345,247) + JVS(5138) = -B(689) +IF (DO_JVS(5139)) & +! JVS(5139) = Jac_FULL(345,248) + JVS(5139) = -B(1242) +IF (DO_JVS(5140)) & +! JVS(5140) = Jac_FULL(345,249) + JVS(5140) = 0 +IF (DO_JVS(5141)) & +! JVS(5141) = Jac_FULL(345,250) + JVS(5141) = 0 +IF (DO_JVS(5142)) & +! JVS(5142) = Jac_FULL(345,251) + JVS(5142) = -B(195) +IF (DO_JVS(5143)) & +! JVS(5143) = Jac_FULL(345,252) + JVS(5143) = 0 +IF (DO_JVS(5144)) & +! JVS(5144) = Jac_FULL(345,253) + JVS(5144) = 0.59*B(1276)+B(1282) +IF (DO_JVS(5145)) & +! JVS(5145) = Jac_FULL(345,254) + JVS(5145) = 0.665*B(1270) +IF (DO_JVS(5146)) & +! JVS(5146) = Jac_FULL(345,255) + JVS(5146) = -B(806)+0.6*B(808) +IF (DO_JVS(5147)) & +! JVS(5147) = Jac_FULL(345,256) + JVS(5147) = -B(925) +IF (DO_JVS(5148)) & +! JVS(5148) = Jac_FULL(345,257) + JVS(5148) = 0.44*B(749) +IF (DO_JVS(5149)) & +! JVS(5149) = Jac_FULL(345,258) + JVS(5149) = -0.5*B(1306)+0.5*B(1792)+B(1793) +IF (DO_JVS(5150)) & +! JVS(5150) = Jac_FULL(345,259) + JVS(5150) = 0.5*B(1278) +IF (DO_JVS(5151)) & +! JVS(5151) = Jac_FULL(345,260) + JVS(5151) = 0 +IF (DO_JVS(5152)) & +! JVS(5152) = Jac_FULL(345,261) + JVS(5152) = -B(687) +IF (DO_JVS(5153)) & +! JVS(5153) = Jac_FULL(345,262) + JVS(5153) = -B(871)+B(873) +IF (DO_JVS(5154)) & +! JVS(5154) = Jac_FULL(345,263) + JVS(5154) = B(1387) +IF (DO_JVS(5155)) & +! JVS(5155) = Jac_FULL(345,264) + JVS(5155) = -B(40)+B(469)+2*B(1645) +IF (DO_JVS(5156)) & +! JVS(5156) = Jac_FULL(345,265) + JVS(5156) = -B(87) +IF (DO_JVS(5157)) & +! JVS(5157) = Jac_FULL(345,266) + JVS(5157) = -B(1314)+B(1799) +IF (DO_JVS(5158)) & +! JVS(5158) = Jac_FULL(345,267) + JVS(5158) = -B(1105)-B(1107)-0.4*B(1111)+0.55*B(1786) +IF (DO_JVS(5159)) & +! JVS(5159) = Jac_FULL(345,268) + JVS(5159) = -B(1101)-B(1103)-0.4*B(1109)+0.55*B(1783) +IF (DO_JVS(5160)) & +! JVS(5160) = Jac_FULL(345,269) + JVS(5160) = -B(1457) +IF (DO_JVS(5161)) & +! JVS(5161) = Jac_FULL(345,270) + JVS(5161) = -B(312) +IF (DO_JVS(5162)) & +! JVS(5162) = Jac_FULL(345,271) + JVS(5162) = B(1197)+1.147*B(1198)+0.435*B(1202) +IF (DO_JVS(5163)) & +! JVS(5163) = Jac_FULL(345,272) + JVS(5163) = 0 +IF (DO_JVS(5164)) & +! JVS(5164) = Jac_FULL(345,273) + JVS(5164) = 0 +IF (DO_JVS(5165)) & +! JVS(5165) = Jac_FULL(345,274) + JVS(5165) = 0.44*B(838) +IF (DO_JVS(5166)) & +! JVS(5166) = Jac_FULL(345,275) + JVS(5166) = 0 +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) +IF (DO_JVS(5168)) & +! JVS(5168) = Jac_FULL(345,277) + JVS(5168) = 0 +IF (DO_JVS(5169)) & +! JVS(5169) = Jac_FULL(345,278) + JVS(5169) = 0 +IF (DO_JVS(5170)) & +! JVS(5170) = Jac_FULL(345,279) + JVS(5170) = -B(197) +IF (DO_JVS(5171)) & +! JVS(5171) = Jac_FULL(345,280) + JVS(5171) = 0 +IF (DO_JVS(5172)) & +! JVS(5172) = Jac_FULL(345,281) + JVS(5172) = 0 +IF (DO_JVS(5173)) & +! JVS(5173) = Jac_FULL(345,282) + JVS(5173) = -B(89) +IF (DO_JVS(5174)) & +! JVS(5174) = Jac_FULL(345,283) + JVS(5174) = -B(199) +IF (DO_JVS(5175)) & +! JVS(5175) = Jac_FULL(345,284) + JVS(5175) = 0 +IF (DO_JVS(5176)) & +! JVS(5176) = Jac_FULL(345,285) + JVS(5176) = B(1071)+0.65*B(1076) +IF (DO_JVS(5177)) & +! JVS(5177) = Jac_FULL(345,286) + JVS(5177) = B(1063)+0.65*B(1064) +IF (DO_JVS(5178)) & +! JVS(5178) = Jac_FULL(345,287) + JVS(5178) = B(1770) +IF (DO_JVS(5179)) & +! JVS(5179) = Jac_FULL(345,288) + JVS(5179) = B(1767) +IF (DO_JVS(5180)) & +! JVS(5180) = Jac_FULL(345,289) + JVS(5180) = 0 +IF (DO_JVS(5181)) & +! JVS(5181) = Jac_FULL(345,290) + JVS(5181) = -B(285)+0.36*B(287) +IF (DO_JVS(5182)) & +! JVS(5182) = Jac_FULL(345,291) + JVS(5182) = 0 +IF (DO_JVS(5183)) & +! JVS(5183) = Jac_FULL(345,292) + JVS(5183) = -B(234) +IF (DO_JVS(5184)) & +! JVS(5184) = Jac_FULL(345,293) + JVS(5184) = 0.379*B(1141) +IF (DO_JVS(5185)) & +! JVS(5185) = Jac_FULL(345,294) + JVS(5185) = -B(314) +IF (DO_JVS(5186)) & +! JVS(5186) = Jac_FULL(345,295) + JVS(5186) = -B(212) +IF (DO_JVS(5187)) & +! JVS(5187) = Jac_FULL(345,296) + JVS(5187) = 0 +IF (DO_JVS(5188)) & +! JVS(5188) = Jac_FULL(345,297) + JVS(5188) = -B(543) +IF (DO_JVS(5189)) & +! JVS(5189) = Jac_FULL(345,298) + JVS(5189) = -B(201) +IF (DO_JVS(5190)) & +! JVS(5190) = Jac_FULL(345,299) + JVS(5190) = -B(1218) +IF (DO_JVS(5191)) & +! JVS(5191) = Jac_FULL(345,300) + 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) +IF (DO_JVS(5193)) & +! JVS(5193) = Jac_FULL(345,302) + JVS(5193) = -0.98*B(1236)+0.01*B(1772) +IF (DO_JVS(5194)) & +! JVS(5194) = Jac_FULL(345,303) + JVS(5194) = -0.7*B(1316)+B(1797)+0.3*B(1798) +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) +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) +IF (DO_JVS(5197)) & +! JVS(5197) = Jac_FULL(345,306) + JVS(5197) = -0.773*B(289)-B(293)+0.07*B(1666) +IF (DO_JVS(5198)) & +! JVS(5198) = Jac_FULL(345,307) + JVS(5198) = -B(320) +IF (DO_JVS(5199)) & +! JVS(5199) = Jac_FULL(345,308) + JVS(5199) = 0.5*B(1291) +IF (DO_JVS(5200)) & +! JVS(5200) = Jac_FULL(345,309) + JVS(5200) = -B(1228)-B(1230)+0.12*B(1232)+0.68*B(1234) +IF (DO_JVS(5201)) & +! JVS(5201) = Jac_FULL(345,310) + JVS(5201) = 0.527*B(1149) +IF (DO_JVS(5202)) & +! JVS(5202) = Jac_FULL(345,311) + JVS(5202) = 0 +IF (DO_JVS(5203)) & +! JVS(5203) = Jac_FULL(345,312) + JVS(5203) = 0 +IF (DO_JVS(5204)) & +! JVS(5204) = Jac_FULL(345,313) + JVS(5204) = 0.15*B(226) +IF (DO_JVS(5205)) & +! JVS(5205) = Jac_FULL(345,314) + JVS(5205) = -B(1224)+0.08*B(1226) +IF (DO_JVS(5206)) & +! JVS(5206) = Jac_FULL(345,315) + JVS(5206) = 0 +IF (DO_JVS(5207)) & +! JVS(5207) = Jac_FULL(345,316) + JVS(5207) = B(405)+B(1692) +IF (DO_JVS(5208)) & +! JVS(5208) = Jac_FULL(345,317) + JVS(5208) = -B(545) +IF (DO_JVS(5209)) & +! JVS(5209) = Jac_FULL(345,318) + JVS(5209) = 0 +IF (DO_JVS(5210)) & +! JVS(5210) = Jac_FULL(345,319) + JVS(5210) = 0 +IF (DO_JVS(5211)) & +! JVS(5211) = Jac_FULL(345,320) + JVS(5211) = 0.15*B(228) +IF (DO_JVS(5212)) & +! JVS(5212) = Jac_FULL(345,321) + JVS(5212) = 0 +IF (DO_JVS(5213)) & +! JVS(5213) = Jac_FULL(345,322) + JVS(5213) = 0.44*B(283) +IF (DO_JVS(5214)) & +! JVS(5214) = Jac_FULL(345,323) + JVS(5214) = 0 +IF (DO_JVS(5215)) & +! JVS(5215) = Jac_FULL(345,324) + JVS(5215) = 0.5*B(1324) +IF (DO_JVS(5216)) & +! JVS(5216) = Jac_FULL(345,325) + JVS(5216) = -B(63)+B(485) +IF (DO_JVS(5217)) & +! JVS(5217) = Jac_FULL(345,326) + JVS(5217) = -B(95) +IF (DO_JVS(5218)) & +! JVS(5218) = Jac_FULL(345,327) + JVS(5218) = -B(67)+B(1649) +IF (DO_JVS(5219)) & +! JVS(5219) = Jac_FULL(345,328) + JVS(5219) = -B(57)+0.5*B(980)+0.5*B(984) +IF (DO_JVS(5220)) & +! JVS(5220) = Jac_FULL(345,329) + JVS(5220) = -B(45) +IF (DO_JVS(5221)) & +! JVS(5221) = Jac_FULL(345,330) + JVS(5221) = -B(677)+B(1726) +IF (DO_JVS(5222)) & +! JVS(5222) = Jac_FULL(345,331) + JVS(5222) = 0 +IF (DO_JVS(5223)) & +! JVS(5223) = Jac_FULL(345,332) + JVS(5223) = 0 +IF (DO_JVS(5224)) & +! JVS(5224) = Jac_FULL(345,333) + JVS(5224) = -B(541)+B(1709) +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) +IF (DO_JVS(5226)) & +! JVS(5226) = Jac_FULL(345,335) + JVS(5226) = -B(65) +IF (DO_JVS(5227)) & +! JVS(5227) = Jac_FULL(345,336) + JVS(5227) = 2*B(434) +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) +IF (DO_JVS(5229)) & +! JVS(5229) = Jac_FULL(345,338) + JVS(5229) = -B(531)-B(533) +IF (DO_JVS(5230)) & +! JVS(5230) = Jac_FULL(345,339) + JVS(5230) = 0.66*B(488)-B(539) +IF (DO_JVS(5231)) & +! JVS(5231) = Jac_FULL(345,340) + JVS(5231) = B(576) +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) +IF (DO_JVS(5233)) & +! JVS(5233) = Jac_FULL(345,342) + 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) +IF (DO_JVS(5235)) & +! JVS(5235) = Jac_FULL(345,344) + JVS(5235) = -B(1507) +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) +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) +IF (DO_JVS(5238)) & +! JVS(5238) = Jac_FULL(345,347) + JVS(5238) = -B(410) +IF (DO_JVS(5239)) & +! JVS(5239) = Jac_FULL(345,348) + JVS(5239) = -B(25)-B(388) +IF (DO_JVS(5240)) & +! JVS(5240) = Jac_FULL(345,349) + JVS(5240) = 0 +IF (DO_JVS(5241)) & +! JVS(5241) = Jac_FULL(345,350) + 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) +IF (DO_JVS(5243)) & +! JVS(5243) = Jac_FULL(345,352) + JVS(5243) = -B(396)+B(408)+0.6*B(490) +IF (DO_JVS(5244)) & +! JVS(5244) = Jac_FULL(345,353) + JVS(5244) = -B(1506) +IF (DO_JVS(5245)) & +! JVS(5245) = Jac_FULL(346,62) + JVS(5245) = 2*B(645)+B(1729) +IF (DO_JVS(5246)) & +! JVS(5246) = Jac_FULL(346,63) + JVS(5246) = 1.22*B(441) +IF (DO_JVS(5247)) & +! JVS(5247) = Jac_FULL(346,67) + JVS(5247) = B(477)-B(479) +IF (DO_JVS(5248)) & +! JVS(5248) = Jac_FULL(346,96) + JVS(5248) = -B(665) +IF (DO_JVS(5249)) & +! JVS(5249) = Jac_FULL(346,121) + JVS(5249) = -B(1399) +IF (DO_JVS(5250)) & +! JVS(5250) = Jac_FULL(346,132) + JVS(5250) = -B(156) +IF (DO_JVS(5251)) & +! JVS(5251) = Jac_FULL(346,133) + JVS(5251) = -B(1085) +IF (DO_JVS(5252)) & +! JVS(5252) = Jac_FULL(346,135) + JVS(5252) = -B(1089) +IF (DO_JVS(5253)) & +! JVS(5253) = Jac_FULL(346,165) + JVS(5253) = -B(138) +IF (DO_JVS(5254)) & +! JVS(5254) = Jac_FULL(346,171) + JVS(5254) = -B(1246) +IF (DO_JVS(5255)) & +! JVS(5255) = Jac_FULL(346,172) + JVS(5255) = -B(1252) +IF (DO_JVS(5256)) & +! JVS(5256) = Jac_FULL(346,178) + JVS(5256) = -B(128)-B(130) +IF (DO_JVS(5257)) & +! JVS(5257) = Jac_FULL(346,180) + JVS(5257) = -B(1220) +IF (DO_JVS(5258)) & +! JVS(5258) = Jac_FULL(346,182) + JVS(5258) = -B(1214) +IF (DO_JVS(5259)) & +! JVS(5259) = Jac_FULL(346,189) + JVS(5259) = -B(1352) +IF (DO_JVS(5260)) & +! JVS(5260) = Jac_FULL(346,190) + JVS(5260) = -B(1123)-B(1125) +IF (DO_JVS(5261)) & +! JVS(5261) = Jac_FULL(346,196) + JVS(5261) = 0 +IF (DO_JVS(5262)) & +! JVS(5262) = Jac_FULL(346,197) + JVS(5262) = -B(162) +IF (DO_JVS(5263)) & +! JVS(5263) = Jac_FULL(346,200) + JVS(5263) = 0 +IF (DO_JVS(5264)) & +! JVS(5264) = Jac_FULL(346,205) + JVS(5264) = -B(1116)-B(1118) +IF (DO_JVS(5265)) & +! JVS(5265) = Jac_FULL(346,206) + JVS(5265) = -B(1131)-B(1133) +IF (DO_JVS(5266)) & +! JVS(5266) = Jac_FULL(346,207) + JVS(5266) = -B(1137)-B(1139) +IF (DO_JVS(5267)) & +! JVS(5267) = Jac_FULL(346,212) + JVS(5267) = -B(148) +IF (DO_JVS(5268)) & +! JVS(5268) = Jac_FULL(346,213) + JVS(5268) = -B(300) +IF (DO_JVS(5269)) & +! JVS(5269) = Jac_FULL(346,220) + JVS(5269) = 0 +IF (DO_JVS(5270)) & +! JVS(5270) = Jac_FULL(346,223) + JVS(5270) = -B(1032)-B(1034) +IF (DO_JVS(5271)) & +! JVS(5271) = Jac_FULL(346,224) + JVS(5271) = -B(1039)-B(1041) +IF (DO_JVS(5272)) & +! JVS(5272) = Jac_FULL(346,226) + JVS(5272) = -B(1206)-B(1208) +IF (DO_JVS(5273)) & +! JVS(5273) = Jac_FULL(346,230) + JVS(5273) = 0 +IF (DO_JVS(5274)) & +! JVS(5274) = Jac_FULL(346,231) + JVS(5274) = 0 +IF (DO_JVS(5275)) & +! JVS(5275) = Jac_FULL(346,232) + JVS(5275) = -B(1046)-B(1048) +IF (DO_JVS(5276)) & +! JVS(5276) = Jac_FULL(346,233) + JVS(5276) = 0 +IF (DO_JVS(5277)) & +! JVS(5277) = Jac_FULL(346,234) + JVS(5277) = -B(1366) +IF (DO_JVS(5278)) & +! JVS(5278) = Jac_FULL(346,235) + JVS(5278) = -B(1434) +IF (DO_JVS(5279)) & +! JVS(5279) = Jac_FULL(346,236) + JVS(5279) = -B(1445) +IF (DO_JVS(5280)) & +! JVS(5280) = Jac_FULL(346,239) + JVS(5280) = B(1650) +IF (DO_JVS(5281)) & +! JVS(5281) = Jac_FULL(346,240) + JVS(5281) = -B(1405) +IF (DO_JVS(5282)) & +! JVS(5282) = Jac_FULL(346,241) + JVS(5282) = -B(707) +IF (DO_JVS(5283)) & +! JVS(5283) = Jac_FULL(346,243) + JVS(5283) = -B(1080)-B(1082) +IF (DO_JVS(5284)) & +! JVS(5284) = Jac_FULL(346,246) + JVS(5284) = -B(243) +IF (DO_JVS(5285)) & +! JVS(5285) = Jac_FULL(346,249) + JVS(5285) = -B(175) +IF (DO_JVS(5286)) & +! JVS(5286) = Jac_FULL(346,250) + JVS(5286) = -B(191) +IF (DO_JVS(5287)) & +! JVS(5287) = Jac_FULL(346,252) + JVS(5287) = 0 +IF (DO_JVS(5288)) & +! JVS(5288) = Jac_FULL(346,253) + JVS(5288) = -B(1283)-B(1285) +IF (DO_JVS(5289)) & +! JVS(5289) = Jac_FULL(346,254) + JVS(5289) = -B(1272)-B(1274) +IF (DO_JVS(5290)) & +! JVS(5290) = Jac_FULL(346,257) + JVS(5290) = -B(751) +IF (DO_JVS(5291)) & +! JVS(5291) = Jac_FULL(346,259) + JVS(5291) = -B(1287) +IF (DO_JVS(5292)) & +! JVS(5292) = Jac_FULL(346,260) + JVS(5292) = -B(122) +IF (DO_JVS(5293)) & +! JVS(5293) = Jac_FULL(346,263) + JVS(5293) = -B(1389) +IF (DO_JVS(5294)) & +! JVS(5294) = Jac_FULL(346,267) + JVS(5294) = 0 +IF (DO_JVS(5295)) & +! JVS(5295) = Jac_FULL(346,268) + JVS(5295) = 0 +IF (DO_JVS(5296)) & +! JVS(5296) = Jac_FULL(346,269) + JVS(5296) = 0 +IF (DO_JVS(5297)) & +! JVS(5297) = Jac_FULL(346,271) + JVS(5297) = -B(1202)-B(1204) +IF (DO_JVS(5298)) & +! JVS(5298) = Jac_FULL(346,272) + JVS(5298) = -B(824) +IF (DO_JVS(5299)) & +! JVS(5299) = Jac_FULL(346,273) + JVS(5299) = -B(788)-B(790) +IF (DO_JVS(5300)) & +! JVS(5300) = Jac_FULL(346,274) + JVS(5300) = -B(840) +IF (DO_JVS(5301)) & +! JVS(5301) = Jac_FULL(346,275) + JVS(5301) = -B(776) +IF (DO_JVS(5302)) & +! JVS(5302) = Jac_FULL(346,276) + JVS(5302) = 0 +IF (DO_JVS(5303)) & +! JVS(5303) = Jac_FULL(346,277) + JVS(5303) = -B(737) +IF (DO_JVS(5304)) & +! JVS(5304) = Jac_FULL(346,278) + JVS(5304) = -B(764) +IF (DO_JVS(5305)) & +! JVS(5305) = Jac_FULL(346,279) + JVS(5305) = 0 +IF (DO_JVS(5306)) & +! JVS(5306) = Jac_FULL(346,280) + JVS(5306) = -B(901) +IF (DO_JVS(5307)) & +! JVS(5307) = Jac_FULL(346,281) + JVS(5307) = -B(802) +IF (DO_JVS(5308)) & +! JVS(5308) = Jac_FULL(346,284) + JVS(5308) = -B(681) +IF (DO_JVS(5309)) & +! JVS(5309) = Jac_FULL(346,285) + JVS(5309) = -B(1072)-B(1074) +IF (DO_JVS(5310)) & +! JVS(5310) = Jac_FULL(346,286) + JVS(5310) = -B(1066)-B(1068) +IF (DO_JVS(5311)) & +! JVS(5311) = Jac_FULL(346,289) + JVS(5311) = -B(903) +IF (DO_JVS(5312)) & +! JVS(5312) = Jac_FULL(346,290) + JVS(5312) = 0 +IF (DO_JVS(5313)) & +! JVS(5313) = Jac_FULL(346,291) + JVS(5313) = -B(853)-B(855) +IF (DO_JVS(5314)) & +! JVS(5314) = Jac_FULL(346,293) + JVS(5314) = -B(1143)-B(1145) +IF (DO_JVS(5315)) & +! JVS(5315) = Jac_FULL(346,296) + JVS(5315) = -B(108)-B(110) +IF (DO_JVS(5316)) & +! JVS(5316) = Jac_FULL(346,297) + JVS(5316) = 0 +IF (DO_JVS(5317)) & +! JVS(5317) = Jac_FULL(346,299) + JVS(5317) = 0 +IF (DO_JVS(5318)) & +! JVS(5318) = Jac_FULL(346,300) + JVS(5318) = -B(171)-B(173) +IF (DO_JVS(5319)) & +! JVS(5319) = Jac_FULL(346,301) + JVS(5319) = 0 +IF (DO_JVS(5320)) & +! JVS(5320) = Jac_FULL(346,303) + JVS(5320) = 0 +IF (DO_JVS(5321)) & +! JVS(5321) = Jac_FULL(346,304) + JVS(5321) = -B(993)-B(995)-B(997)-B(999) +IF (DO_JVS(5322)) & +! JVS(5322) = Jac_FULL(346,305) + JVS(5322) = -B(985)-B(987)-B(989)-B(991) +IF (DO_JVS(5323)) & +! JVS(5323) = Jac_FULL(346,306) + JVS(5323) = 0 +IF (DO_JVS(5324)) & +! JVS(5324) = Jac_FULL(346,308) + JVS(5324) = -B(1293) +IF (DO_JVS(5325)) & +! JVS(5325) = Jac_FULL(346,309) + JVS(5325) = 0 +IF (DO_JVS(5326)) & +! JVS(5326) = Jac_FULL(346,310) + JVS(5326) = -B(1169)-B(1171) +IF (DO_JVS(5327)) & +! JVS(5327) = Jac_FULL(346,311) + JVS(5327) = -B(1173)-B(1175) +IF (DO_JVS(5328)) & +! JVS(5328) = Jac_FULL(346,312) + JVS(5328) = -B(693) +IF (DO_JVS(5329)) & +! JVS(5329) = Jac_FULL(346,313) + JVS(5329) = -B(183) +IF (DO_JVS(5330)) & +! JVS(5330) = Jac_FULL(346,314) + JVS(5330) = 0 +IF (DO_JVS(5331)) & +! JVS(5331) = Jac_FULL(346,315) + JVS(5331) = -B(112) +IF (DO_JVS(5332)) & +! JVS(5332) = Jac_FULL(346,318) + JVS(5332) = -B(181) +IF (DO_JVS(5333)) & +! JVS(5333) = Jac_FULL(346,319) + JVS(5333) = -B(177)-B(179) +IF (DO_JVS(5334)) & +! JVS(5334) = Jac_FULL(346,320) + JVS(5334) = -B(185)-B(236) +IF (DO_JVS(5335)) & +! JVS(5335) = Jac_FULL(346,321) + JVS(5335) = -B(118)-B(120) +IF (DO_JVS(5336)) & +! JVS(5336) = Jac_FULL(346,322) + JVS(5336) = -B(208) +IF (DO_JVS(5337)) & +! JVS(5337) = Jac_FULL(346,323) + JVS(5337) = -B(187)-B(189) +IF (DO_JVS(5338)) & +! JVS(5338) = Jac_FULL(346,324) + JVS(5338) = -B(104) +IF (DO_JVS(5339)) & +! JVS(5339) = Jac_FULL(346,326) + JVS(5339) = 0 +IF (DO_JVS(5340)) & +! JVS(5340) = Jac_FULL(346,327) + JVS(5340) = 0 +IF (DO_JVS(5341)) & +! JVS(5341) = Jac_FULL(346,328) + JVS(5341) = -B(49)-B(51) +IF (DO_JVS(5342)) & +! JVS(5342) = Jac_FULL(346,329) + JVS(5342) = 0 +IF (DO_JVS(5343)) & +! JVS(5343) = Jac_FULL(346,330) + JVS(5343) = 0 +IF (DO_JVS(5344)) & +! JVS(5344) = Jac_FULL(346,331) + JVS(5344) = -B(643) +IF (DO_JVS(5345)) & +! JVS(5345) = Jac_FULL(346,332) + JVS(5345) = 0 +IF (DO_JVS(5346)) & +! JVS(5346) = Jac_FULL(346,334) + JVS(5346) = 1.22*B(442) +IF (DO_JVS(5347)) & +! JVS(5347) = Jac_FULL(346,335) + JVS(5347) = B(91)+B(461)+B(1644) +IF (DO_JVS(5348)) & +! JVS(5348) = Jac_FULL(346,336) + JVS(5348) = 0 +IF (DO_JVS(5349)) & +! JVS(5349) = Jac_FULL(346,337) + JVS(5349) = -B(42) +IF (DO_JVS(5350)) & +! JVS(5350) = Jac_FULL(346,338) + JVS(5350) = -B(581) +IF (DO_JVS(5351)) & +! JVS(5351) = Jac_FULL(346,339) + JVS(5351) = 0 +IF (DO_JVS(5352)) & +! JVS(5352) = Jac_FULL(346,340) + JVS(5352) = 0 +IF (DO_JVS(5353)) & +! JVS(5353) = Jac_FULL(346,341) + JVS(5353) = -B(26) +IF (DO_JVS(5354)) & +! JVS(5354) = Jac_FULL(346,342) + JVS(5354) = 0 +IF (DO_JVS(5355)) & +! JVS(5355) = Jac_FULL(346,343) + JVS(5355) = B(462)-B(465) +IF (DO_JVS(5356)) & +! JVS(5356) = Jac_FULL(346,344) + JVS(5356) = 0 +IF (DO_JVS(5357)) & +! JVS(5357) = Jac_FULL(346,345) + JVS(5357) = -B(69) +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) +IF (DO_JVS(5359)) & +! JVS(5359) = Jac_FULL(346,347) + JVS(5359) = -B(400) +IF (DO_JVS(5360)) & +! JVS(5360) = Jac_FULL(346,348) + JVS(5360) = 0 +IF (DO_JVS(5361)) & +! JVS(5361) = Jac_FULL(346,349) + JVS(5361) = 0 +IF (DO_JVS(5362)) & +! JVS(5362) = Jac_FULL(346,350) + JVS(5362) = 0 +IF (DO_JVS(5363)) & +! JVS(5363) = Jac_FULL(346,351) + JVS(5363) = -B(81)+B(92)+B(1654) +IF (DO_JVS(5364)) & +! JVS(5364) = Jac_FULL(346,352) + JVS(5364) = 0 +IF (DO_JVS(5365)) & +! JVS(5365) = Jac_FULL(346,353) + JVS(5365) = 0 +IF (DO_JVS(5366)) & +! JVS(5366) = Jac_FULL(347,53) + JVS(5366) = 0.45*B(511) +IF (DO_JVS(5367)) & +! JVS(5367) = Jac_FULL(347,54) + JVS(5367) = 0.75*B(525) +IF (DO_JVS(5368)) & +! JVS(5368) = Jac_FULL(347,61) + JVS(5368) = 0.31*B(509) +IF (DO_JVS(5369)) & +! JVS(5369) = Jac_FULL(347,78) + JVS(5369) = 0.95*B(499) +IF (DO_JVS(5370)) & +! JVS(5370) = Jac_FULL(347,81) + JVS(5370) = 0.7*B(501) +IF (DO_JVS(5371)) & +! JVS(5371) = Jac_FULL(347,105) + JVS(5371) = 0.44*B(497) +IF (DO_JVS(5372)) & +! JVS(5372) = Jac_FULL(347,218) + JVS(5372) = B(1694) +IF (DO_JVS(5373)) & +! JVS(5373) = Jac_FULL(347,284) + JVS(5373) = -B(659) +IF (DO_JVS(5374)) & +! JVS(5374) = Jac_FULL(347,316) + JVS(5374) = B(405) +IF (DO_JVS(5375)) & +! JVS(5375) = Jac_FULL(347,330) + JVS(5375) = 0 +IF (DO_JVS(5376)) & +! JVS(5376) = Jac_FULL(347,331) + JVS(5376) = -B(657) +IF (DO_JVS(5377)) & +! JVS(5377) = Jac_FULL(347,332) + JVS(5377) = 0 +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) +IF (DO_JVS(5379)) & +! JVS(5379) = Jac_FULL(347,335) + JVS(5379) = -B(425) +IF (DO_JVS(5380)) & +! JVS(5380) = Jac_FULL(347,336) + JVS(5380) = 0 +IF (DO_JVS(5381)) & +! JVS(5381) = Jac_FULL(347,337) + JVS(5381) = -B(391) +IF (DO_JVS(5382)) & +! JVS(5382) = Jac_FULL(347,338) + JVS(5382) = -B(595)-B(597)-B(599) +IF (DO_JVS(5383)) & +! JVS(5383) = Jac_FULL(347,339) + JVS(5383) = 0 +IF (DO_JVS(5384)) & +! JVS(5384) = Jac_FULL(347,340) + JVS(5384) = 0 +IF (DO_JVS(5385)) & +! JVS(5385) = Jac_FULL(347,341) + JVS(5385) = B(389) +IF (DO_JVS(5386)) & +! JVS(5386) = Jac_FULL(347,342) + JVS(5386) = B(390)+B(411) +IF (DO_JVS(5387)) & +! JVS(5387) = Jac_FULL(347,343) + JVS(5387) = B(406)-B(483) +IF (DO_JVS(5388)) & +! JVS(5388) = Jac_FULL(347,344) + JVS(5388) = 0 +IF (DO_JVS(5389)) & +! JVS(5389) = Jac_FULL(347,345) + JVS(5389) = -B(409) +IF (DO_JVS(5390)) & +! JVS(5390) = Jac_FULL(347,346) + JVS(5390) = -B(399) +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) +IF (DO_JVS(5392)) & +! JVS(5392) = Jac_FULL(347,348) + JVS(5392) = 0 +IF (DO_JVS(5393)) & +! JVS(5393) = Jac_FULL(347,349) + JVS(5393) = 0 +IF (DO_JVS(5394)) & +! JVS(5394) = Jac_FULL(347,350) + JVS(5394) = 0 +IF (DO_JVS(5395)) & +! JVS(5395) = Jac_FULL(347,351) + JVS(5395) = B(412) +IF (DO_JVS(5396)) & +! JVS(5396) = Jac_FULL(347,352) + JVS(5396) = 0.2*B(490) +IF (DO_JVS(5397)) & +! JVS(5397) = Jac_FULL(347,353) + JVS(5397) = 0 +IF (DO_JVS(5398)) & +! JVS(5398) = Jac_FULL(348,68) + JVS(5398) = B(457)+B(459)+B(1745) +IF (DO_JVS(5399)) & +! JVS(5399) = Jac_FULL(348,89) + JVS(5399) = B(22)-B(23) +IF (DO_JVS(5400)) & +! JVS(5400) = Jac_FULL(348,94) + JVS(5400) = B(381)+0.75*B(383)+B(385) +IF (DO_JVS(5401)) & +! JVS(5401) = Jac_FULL(348,134) + JVS(5401) = B(1746) +IF (DO_JVS(5402)) & +! JVS(5402) = Jac_FULL(348,166) + JVS(5402) = -B(8) +IF (DO_JVS(5403)) & +! JVS(5403) = Jac_FULL(348,179) + JVS(5403) = -B(1) +IF (DO_JVS(5404)) & +! JVS(5404) = Jac_FULL(348,241) + JVS(5404) = -B(711) +IF (DO_JVS(5405)) & +! JVS(5405) = Jac_FULL(348,264) + JVS(5405) = -B(15) +IF (DO_JVS(5406)) & +! JVS(5406) = Jac_FULL(348,276) + JVS(5406) = 0 +IF (DO_JVS(5407)) & +! JVS(5407) = Jac_FULL(348,290) + JVS(5407) = 0 +IF (DO_JVS(5408)) & +! JVS(5408) = Jac_FULL(348,312) + JVS(5408) = -B(703) +IF (DO_JVS(5409)) & +! JVS(5409) = Jac_FULL(348,314) + JVS(5409) = 0 +IF (DO_JVS(5410)) & +! JVS(5410) = Jac_FULL(348,316) + JVS(5410) = -B(1561) +IF (DO_JVS(5411)) & +! JVS(5411) = Jac_FULL(348,324) + JVS(5411) = 0 +IF (DO_JVS(5412)) & +! JVS(5412) = Jac_FULL(348,325) + JVS(5412) = -B(20) +IF (DO_JVS(5413)) & +! JVS(5413) = Jac_FULL(348,326) + JVS(5413) = 0 +IF (DO_JVS(5414)) & +! JVS(5414) = Jac_FULL(348,327) + JVS(5414) = 0 +IF (DO_JVS(5415)) & +! JVS(5415) = Jac_FULL(348,328) + JVS(5415) = 0 +IF (DO_JVS(5416)) & +! JVS(5416) = Jac_FULL(348,329) + JVS(5416) = 0 +IF (DO_JVS(5417)) & +! JVS(5417) = Jac_FULL(348,332) + JVS(5417) = 0 +IF (DO_JVS(5418)) & +! JVS(5418) = Jac_FULL(348,333) + JVS(5418) = -B(1547) +IF (DO_JVS(5419)) & +! JVS(5419) = Jac_FULL(348,334) + JVS(5419) = 0 +IF (DO_JVS(5420)) & +! JVS(5420) = Jac_FULL(348,335) + JVS(5420) = 0 +IF (DO_JVS(5421)) & +! JVS(5421) = Jac_FULL(348,336) + JVS(5421) = 0 +IF (DO_JVS(5422)) & +! JVS(5422) = Jac_FULL(348,337) + JVS(5422) = 0 +IF (DO_JVS(5423)) & +! JVS(5423) = Jac_FULL(348,338) + JVS(5423) = 0 +IF (DO_JVS(5424)) & +! JVS(5424) = Jac_FULL(348,339) + JVS(5424) = 0 +IF (DO_JVS(5425)) & +! JVS(5425) = Jac_FULL(348,340) + JVS(5425) = 0 +IF (DO_JVS(5426)) & +! JVS(5426) = Jac_FULL(348,341) + JVS(5426) = -B(2)-B(9)-B(17) +IF (DO_JVS(5427)) & +! JVS(5427) = Jac_FULL(348,342) + JVS(5427) = 0 +IF (DO_JVS(5428)) & +! JVS(5428) = Jac_FULL(348,343) + JVS(5428) = B(458) +IF (DO_JVS(5429)) & +! JVS(5429) = Jac_FULL(348,344) + JVS(5429) = 0 +IF (DO_JVS(5430)) & +! JVS(5430) = Jac_FULL(348,345) + JVS(5430) = -B(24)+B(382)+0.75*B(384)-B(387)+B(460) +IF (DO_JVS(5431)) & +! JVS(5431) = Jac_FULL(348,346) + JVS(5431) = 0 +IF (DO_JVS(5432)) & +! JVS(5432) = Jac_FULL(348,347) + JVS(5432) = 0 +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) +IF (DO_JVS(5434)) & +! JVS(5434) = Jac_FULL(348,349) + JVS(5434) = 0 +IF (DO_JVS(5435)) & +! JVS(5435) = Jac_FULL(348,350) + JVS(5435) = 0 +IF (DO_JVS(5436)) & +! JVS(5436) = Jac_FULL(348,351) + JVS(5436) = B(386) +IF (DO_JVS(5437)) & +! JVS(5437) = Jac_FULL(348,352) + JVS(5437) = 0 +IF (DO_JVS(5438)) & +! JVS(5438) = Jac_FULL(348,353) + JVS(5438) = 0 +IF (DO_JVS(5439)) & +! JVS(5439) = Jac_FULL(349,252) + JVS(5439) = -B(1591) +IF (DO_JVS(5440)) & +! JVS(5440) = Jac_FULL(349,297) + JVS(5440) = -B(1533) +IF (DO_JVS(5441)) & +! JVS(5441) = Jac_FULL(349,316) + JVS(5441) = -B(1557) +IF (DO_JVS(5442)) & +! JVS(5442) = Jac_FULL(349,317) + JVS(5442) = -B(1519) +IF (DO_JVS(5443)) & +! JVS(5443) = Jac_FULL(349,330) + JVS(5443) = -B(1607) +IF (DO_JVS(5444)) & +! JVS(5444) = Jac_FULL(349,331) + JVS(5444) = 0 +IF (DO_JVS(5445)) & +! JVS(5445) = Jac_FULL(349,332) + JVS(5445) = -B(1599) +IF (DO_JVS(5446)) & +! JVS(5446) = Jac_FULL(349,335) + JVS(5446) = 0 +IF (DO_JVS(5447)) & +! JVS(5447) = Jac_FULL(349,336) + JVS(5447) = 0 +IF (DO_JVS(5448)) & +! JVS(5448) = Jac_FULL(349,337) + JVS(5448) = 0 +IF (DO_JVS(5449)) & +! JVS(5449) = Jac_FULL(349,338) + JVS(5449) = 0 +IF (DO_JVS(5450)) & +! JVS(5450) = Jac_FULL(349,339) + JVS(5450) = 0 +IF (DO_JVS(5451)) & +! JVS(5451) = Jac_FULL(349,340) + JVS(5451) = 0 +IF (DO_JVS(5452)) & +! JVS(5452) = Jac_FULL(349,341) + JVS(5452) = -B(1565) +IF (DO_JVS(5453)) & +! JVS(5453) = Jac_FULL(349,342) + JVS(5453) = 0 +IF (DO_JVS(5454)) & +! JVS(5454) = Jac_FULL(349,343) + JVS(5454) = 0 +IF (DO_JVS(5455)) & +! JVS(5455) = Jac_FULL(349,344) + JVS(5455) = 0 +IF (DO_JVS(5456)) & +! JVS(5456) = Jac_FULL(349,345) + JVS(5456) = 0 +IF (DO_JVS(5457)) & +! JVS(5457) = Jac_FULL(349,346) + JVS(5457) = 0 +IF (DO_JVS(5458)) & +! JVS(5458) = Jac_FULL(349,347) + JVS(5458) = 0 +IF (DO_JVS(5459)) & +! JVS(5459) = Jac_FULL(349,348) + 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) +IF (DO_JVS(5461)) & +! JVS(5461) = Jac_FULL(349,350) + JVS(5461) = 0 +IF (DO_JVS(5462)) & +! JVS(5462) = Jac_FULL(349,351) + JVS(5462) = 0 +IF (DO_JVS(5463)) & +! JVS(5463) = Jac_FULL(349,352) + JVS(5463) = B(1569) +IF (DO_JVS(5464)) & +! JVS(5464) = Jac_FULL(349,353) + JVS(5464) = 0 +IF (DO_JVS(5465)) & +! JVS(5465) = Jac_FULL(350,252) + JVS(5465) = -B(1593) +IF (DO_JVS(5466)) & +! JVS(5466) = Jac_FULL(350,297) + JVS(5466) = -B(1535) +IF (DO_JVS(5467)) & +! JVS(5467) = Jac_FULL(350,316) + JVS(5467) = -B(1559) +IF (DO_JVS(5468)) & +! JVS(5468) = Jac_FULL(350,317) + JVS(5468) = -B(1521) +IF (DO_JVS(5469)) & +! JVS(5469) = Jac_FULL(350,330) + JVS(5469) = -B(1609) +IF (DO_JVS(5470)) & +! JVS(5470) = Jac_FULL(350,331) + JVS(5470) = 0 +IF (DO_JVS(5471)) & +! JVS(5471) = Jac_FULL(350,332) + JVS(5471) = -B(1601) +IF (DO_JVS(5472)) & +! JVS(5472) = Jac_FULL(350,335) + JVS(5472) = 0 +IF (DO_JVS(5473)) & +! JVS(5473) = Jac_FULL(350,336) + JVS(5473) = 0 +IF (DO_JVS(5474)) & +! JVS(5474) = Jac_FULL(350,337) + JVS(5474) = 0 +IF (DO_JVS(5475)) & +! JVS(5475) = Jac_FULL(350,338) + JVS(5475) = 0 +IF (DO_JVS(5476)) & +! JVS(5476) = Jac_FULL(350,339) + JVS(5476) = 0 +IF (DO_JVS(5477)) & +! JVS(5477) = Jac_FULL(350,340) + JVS(5477) = 0 +IF (DO_JVS(5478)) & +! JVS(5478) = Jac_FULL(350,341) + JVS(5478) = -B(1567) +IF (DO_JVS(5479)) & +! JVS(5479) = Jac_FULL(350,342) + JVS(5479) = 0 +IF (DO_JVS(5480)) & +! JVS(5480) = Jac_FULL(350,343) + JVS(5480) = 0 +IF (DO_JVS(5481)) & +! JVS(5481) = Jac_FULL(350,344) + JVS(5481) = 0 +IF (DO_JVS(5482)) & +! JVS(5482) = Jac_FULL(350,345) + JVS(5482) = 0 +IF (DO_JVS(5483)) & +! JVS(5483) = Jac_FULL(350,346) + JVS(5483) = 0 +IF (DO_JVS(5484)) & +! JVS(5484) = Jac_FULL(350,347) + JVS(5484) = 0 +IF (DO_JVS(5485)) & +! JVS(5485) = Jac_FULL(350,348) + JVS(5485) = 0 +IF (DO_JVS(5486)) & +! JVS(5486) = Jac_FULL(350,349) + 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) +IF (DO_JVS(5488)) & +! JVS(5488) = Jac_FULL(350,351) + JVS(5488) = 0 +IF (DO_JVS(5489)) & +! JVS(5489) = Jac_FULL(350,352) + JVS(5489) = B(1570) +IF (DO_JVS(5490)) & +! JVS(5490) = Jac_FULL(350,353) + JVS(5490) = 0 +IF (DO_JVS(5491)) & +! JVS(5491) = Jac_FULL(351,69) + JVS(5491) = -B(126) +IF (DO_JVS(5492)) & +! JVS(5492) = Jac_FULL(351,80) + JVS(5492) = B(1741) +IF (DO_JVS(5493)) & +! JVS(5493) = Jac_FULL(351,94) + JVS(5493) = -B(385) +IF (DO_JVS(5494)) & +! JVS(5494) = Jac_FULL(351,108) + JVS(5494) = B(1651) +IF (DO_JVS(5495)) & +! JVS(5495) = Jac_FULL(351,124) + JVS(5495) = 0.3*B(1806) +IF (DO_JVS(5496)) & +! JVS(5496) = Jac_FULL(351,126) + JVS(5496) = B(167) +IF (DO_JVS(5497)) & +! JVS(5497) = Jac_FULL(351,139) + JVS(5497) = 0.3*B(1658) +IF (DO_JVS(5498)) & +! JVS(5498) = Jac_FULL(351,140) + JVS(5498) = -B(144) +IF (DO_JVS(5499)) & +! JVS(5499) = Jac_FULL(351,142) + JVS(5499) = -B(193) +IF (DO_JVS(5500)) & +! JVS(5500) = Jac_FULL(351,149) + JVS(5500) = -B(1346) +IF (DO_JVS(5501)) & +! JVS(5501) = Jac_FULL(351,154) + JVS(5501) = B(937) +IF (DO_JVS(5502)) & +! JVS(5502) = Jac_FULL(351,158) + JVS(5502) = -B(1420) +IF (DO_JVS(5503)) & +! JVS(5503) = Jac_FULL(351,163) + JVS(5503) = -B(834) +IF (DO_JVS(5504)) & +! JVS(5504) = Jac_FULL(351,167) + JVS(5504) = -B(721) +IF (DO_JVS(5505)) & +! JVS(5505) = Jac_FULL(351,170) + JVS(5505) = -B(650) +IF (DO_JVS(5506)) & +! JVS(5506) = Jac_FULL(351,183) + JVS(5506) = -B(344) +IF (DO_JVS(5507)) & +! JVS(5507) = Jac_FULL(351,184) + JVS(5507) = B(1302) +IF (DO_JVS(5508)) & +! JVS(5508) = Jac_FULL(351,191) + JVS(5508) = -B(717) +IF (DO_JVS(5509)) & +! JVS(5509) = Jac_FULL(351,193) + JVS(5509) = -B(869) +IF (DO_JVS(5510)) & +! JVS(5510) = Jac_FULL(351,195) + JVS(5510) = -B(1416) +IF (DO_JVS(5511)) & +! JVS(5511) = Jac_FULL(351,197) + JVS(5511) = 0 +IF (DO_JVS(5512)) & +! JVS(5512) = Jac_FULL(351,200) + JVS(5512) = -B(1350) +IF (DO_JVS(5513)) & +! JVS(5513) = Jac_FULL(351,202) + JVS(5513) = -B(1426) +IF (DO_JVS(5514)) & +! JVS(5514) = Jac_FULL(351,204) + JVS(5514) = -B(1430) +IF (DO_JVS(5515)) & +! JVS(5515) = Jac_FULL(351,211) + JVS(5515) = -B(822) +IF (DO_JVS(5516)) & +! JVS(5516) = Jac_FULL(351,213) + JVS(5516) = -B(304) +IF (DO_JVS(5517)) & +! JVS(5517) = Jac_FULL(351,214) + JVS(5517) = B(86)+B(1655) +IF (DO_JVS(5518)) & +! JVS(5518) = Jac_FULL(351,218) + JVS(5518) = B(401)+B(1693) +IF (DO_JVS(5519)) & +! JVS(5519) = Jac_FULL(351,219) + JVS(5519) = -B(719) +IF (DO_JVS(5520)) & +! JVS(5520) = Jac_FULL(351,220) + JVS(5520) = -B(1340) +IF (DO_JVS(5521)) & +! JVS(5521) = Jac_FULL(351,225) + JVS(5521) = -B(745) +IF (DO_JVS(5522)) & +! JVS(5522) = Jac_FULL(351,229) + JVS(5522) = -B(863) +IF (DO_JVS(5523)) & +! JVS(5523) = Jac_FULL(351,233) + JVS(5523) = 0 +IF (DO_JVS(5524)) & +! JVS(5524) = Jac_FULL(351,234) + JVS(5524) = -B(1368) +IF (DO_JVS(5525)) & +! JVS(5525) = Jac_FULL(351,236) + JVS(5525) = B(1443)-B(1447) +IF (DO_JVS(5526)) & +! JVS(5526) = Jac_FULL(351,237) + JVS(5526) = -B(816) +IF (DO_JVS(5527)) & +! JVS(5527) = Jac_FULL(351,241) + JVS(5527) = B(709) +IF (DO_JVS(5528)) & +! JVS(5528) = Jac_FULL(351,242) + JVS(5528) = -B(931) +IF (DO_JVS(5529)) & +! JVS(5529) = Jac_FULL(351,246) + JVS(5529) = 0 +IF (DO_JVS(5530)) & +! JVS(5530) = Jac_FULL(351,252) + JVS(5530) = 0 +IF (DO_JVS(5531)) & +! JVS(5531) = Jac_FULL(351,255) + JVS(5531) = -B(810) +IF (DO_JVS(5532)) & +! JVS(5532) = Jac_FULL(351,256) + JVS(5532) = -B(933) +IF (DO_JVS(5533)) & +! JVS(5533) = Jac_FULL(351,257) + JVS(5533) = -B(756) +IF (DO_JVS(5534)) & +! JVS(5534) = Jac_FULL(351,259) + JVS(5534) = 0 +IF (DO_JVS(5535)) & +! JVS(5535) = Jac_FULL(351,261) + JVS(5535) = -B(1318) +IF (DO_JVS(5536)) & +! JVS(5536) = Jac_FULL(351,262) + JVS(5536) = -B(875) +IF (DO_JVS(5537)) & +! JVS(5537) = Jac_FULL(351,263) + JVS(5537) = -B(1391) +IF (DO_JVS(5538)) & +! JVS(5538) = Jac_FULL(351,267) + JVS(5538) = 0 +IF (DO_JVS(5539)) & +! JVS(5539) = Jac_FULL(351,269) + JVS(5539) = -B(1459) +IF (DO_JVS(5540)) & +! JVS(5540) = Jac_FULL(351,270) + JVS(5540) = -B(316) +IF (DO_JVS(5541)) & +! JVS(5541) = Jac_FULL(351,271) + JVS(5541) = 0 +IF (DO_JVS(5542)) & +! JVS(5542) = Jac_FULL(351,272) + JVS(5542) = -B(828) +IF (DO_JVS(5543)) & +! JVS(5543) = Jac_FULL(351,273) + JVS(5543) = -B(794) +IF (DO_JVS(5544)) & +! JVS(5544) = Jac_FULL(351,274) + JVS(5544) = -B(845) +IF (DO_JVS(5545)) & +! JVS(5545) = Jac_FULL(351,275) + JVS(5545) = -B(778) +IF (DO_JVS(5546)) & +! JVS(5546) = Jac_FULL(351,276) + JVS(5546) = -B(1147) +IF (DO_JVS(5547)) & +! JVS(5547) = Jac_FULL(351,277) + JVS(5547) = -B(739) +IF (DO_JVS(5548)) & +! JVS(5548) = Jac_FULL(351,278) + JVS(5548) = -B(766) +IF (DO_JVS(5549)) & +! JVS(5549) = Jac_FULL(351,280) + JVS(5549) = -B(917) +IF (DO_JVS(5550)) & +! JVS(5550) = Jac_FULL(351,281) + JVS(5550) = -B(804) +IF (DO_JVS(5551)) & +! JVS(5551) = Jac_FULL(351,285) + JVS(5551) = 0 +IF (DO_JVS(5552)) & +! JVS(5552) = Jac_FULL(351,286) + JVS(5552) = 0 +IF (DO_JVS(5553)) & +! JVS(5553) = Jac_FULL(351,288) + JVS(5553) = 0 +IF (DO_JVS(5554)) & +! JVS(5554) = Jac_FULL(351,289) + JVS(5554) = -B(919) +IF (DO_JVS(5555)) & +! JVS(5555) = Jac_FULL(351,290) + JVS(5555) = -B(310) +IF (DO_JVS(5556)) & +! JVS(5556) = Jac_FULL(351,291) + JVS(5556) = -B(857) +IF (DO_JVS(5557)) & +! JVS(5557) = Jac_FULL(351,292) + JVS(5557) = -B(251) +IF (DO_JVS(5558)) & +! JVS(5558) = Jac_FULL(351,293) + JVS(5558) = 0 +IF (DO_JVS(5559)) & +! JVS(5559) = Jac_FULL(351,294) + JVS(5559) = -B(318) +IF (DO_JVS(5560)) & +! JVS(5560) = Jac_FULL(351,298) + JVS(5560) = -B(210) +IF (DO_JVS(5561)) & +! JVS(5561) = Jac_FULL(351,299) + JVS(5561) = 0 +IF (DO_JVS(5562)) & +! JVS(5562) = Jac_FULL(351,300) + JVS(5562) = 0 +IF (DO_JVS(5563)) & +! JVS(5563) = Jac_FULL(351,301) + JVS(5563) = 0 +IF (DO_JVS(5564)) & +! JVS(5564) = Jac_FULL(351,302) + JVS(5564) = 0.69*B(1236) +IF (DO_JVS(5565)) & +! JVS(5565) = Jac_FULL(351,303) + JVS(5565) = 0 +IF (DO_JVS(5566)) & +! JVS(5566) = Jac_FULL(351,304) + JVS(5566) = 0 +IF (DO_JVS(5567)) & +! JVS(5567) = Jac_FULL(351,305) + JVS(5567) = 0 +IF (DO_JVS(5568)) & +! JVS(5568) = Jac_FULL(351,306) + JVS(5568) = -B(295) +IF (DO_JVS(5569)) & +! JVS(5569) = Jac_FULL(351,307) + JVS(5569) = 0 +IF (DO_JVS(5570)) & +! JVS(5570) = Jac_FULL(351,308) + JVS(5570) = -B(1297) +IF (DO_JVS(5571)) & +! JVS(5571) = Jac_FULL(351,309) + JVS(5571) = -B(1234) +IF (DO_JVS(5572)) & +! JVS(5572) = Jac_FULL(351,310) + JVS(5572) = -B(1165) +IF (DO_JVS(5573)) & +! JVS(5573) = Jac_FULL(351,311) + JVS(5573) = -B(1167) +IF (DO_JVS(5574)) & +! JVS(5574) = Jac_FULL(351,312) + JVS(5574) = B(695) +IF (DO_JVS(5575)) & +! JVS(5575) = Jac_FULL(351,313) + JVS(5575) = 0 +IF (DO_JVS(5576)) & +! JVS(5576) = Jac_FULL(351,314) + JVS(5576) = 0 +IF (DO_JVS(5577)) & +! JVS(5577) = Jac_FULL(351,317) + JVS(5577) = B(545)+B(601)+B(603)+B(1707) +IF (DO_JVS(5578)) & +! JVS(5578) = Jac_FULL(351,318) + JVS(5578) = 0 +IF (DO_JVS(5579)) & +! JVS(5579) = Jac_FULL(351,319) + JVS(5579) = 0 +IF (DO_JVS(5580)) & +! JVS(5580) = Jac_FULL(351,320) + JVS(5580) = 0 +IF (DO_JVS(5581)) & +! JVS(5581) = Jac_FULL(351,321) + JVS(5581) = 0 +IF (DO_JVS(5582)) & +! JVS(5582) = Jac_FULL(351,322) + JVS(5582) = 0 +IF (DO_JVS(5583)) & +! JVS(5583) = Jac_FULL(351,323) + JVS(5583) = 0 +IF (DO_JVS(5584)) & +! JVS(5584) = Jac_FULL(351,324) + JVS(5584) = 0 +IF (DO_JVS(5585)) & +! JVS(5585) = Jac_FULL(351,325) + JVS(5585) = -B(93) +IF (DO_JVS(5586)) & +! JVS(5586) = Jac_FULL(351,326) + JVS(5586) = -B(97) +IF (DO_JVS(5587)) & +! JVS(5587) = Jac_FULL(351,327) + JVS(5587) = B(67) +IF (DO_JVS(5588)) & +! JVS(5588) = Jac_FULL(351,328) + JVS(5588) = -B(1487) +IF (DO_JVS(5589)) & +! JVS(5589) = Jac_FULL(351,329) + JVS(5589) = 0 +IF (DO_JVS(5590)) & +! JVS(5590) = Jac_FULL(351,331) + JVS(5590) = B(655) +IF (DO_JVS(5591)) & +! JVS(5591) = Jac_FULL(351,332) + JVS(5591) = B(656)+B(1731) +IF (DO_JVS(5592)) & +! JVS(5592) = Jac_FULL(351,334) + 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) +IF (DO_JVS(5594)) & +! JVS(5594) = Jac_FULL(351,336) + JVS(5594) = 0 +IF (DO_JVS(5595)) & +! JVS(5595) = Jac_FULL(351,337) + JVS(5595) = -B(78) +IF (DO_JVS(5596)) & +! JVS(5596) = Jac_FULL(351,338) + JVS(5596) = 0 +IF (DO_JVS(5597)) & +! JVS(5597) = Jac_FULL(351,339) + JVS(5597) = 0 +IF (DO_JVS(5598)) & +! JVS(5598) = Jac_FULL(351,340) + JVS(5598) = B(604) +IF (DO_JVS(5599)) & +! JVS(5599) = Jac_FULL(351,341) + JVS(5599) = B(33) +IF (DO_JVS(5600)) & +! JVS(5600) = Jac_FULL(351,342) + JVS(5600) = B(402)-B(411) +IF (DO_JVS(5601)) & +! JVS(5601) = Jac_FULL(351,343) + JVS(5601) = -B(463)+B(468)+B(602) +IF (DO_JVS(5602)) & +! JVS(5602) = Jac_FULL(351,344) + 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) +IF (DO_JVS(5604)) & +! JVS(5604) = Jac_FULL(351,346) + JVS(5604) = -B(80) +IF (DO_JVS(5605)) & +! JVS(5605) = Jac_FULL(351,347) + JVS(5605) = 0 +IF (DO_JVS(5606)) & +! JVS(5606) = Jac_FULL(351,348) + JVS(5606) = 0 +IF (DO_JVS(5607)) & +! JVS(5607) = Jac_FULL(351,349) + JVS(5607) = 0 +IF (DO_JVS(5608)) & +! JVS(5608) = Jac_FULL(351,350) + 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) +IF (DO_JVS(5610)) & +! JVS(5610) = Jac_FULL(351,352) + JVS(5610) = 0 +IF (DO_JVS(5611)) & +! JVS(5611) = Jac_FULL(351,353) + JVS(5611) = 0 +IF (DO_JVS(5612)) & +! JVS(5612) = Jac_FULL(352,141) + JVS(5612) = B(421) +IF (DO_JVS(5613)) & +! JVS(5613) = Jac_FULL(352,183) + JVS(5613) = B(419) +IF (DO_JVS(5614)) & +! JVS(5614) = Jac_FULL(352,290) + JVS(5614) = B(641) +IF (DO_JVS(5615)) & +! JVS(5615) = Jac_FULL(352,295) + JVS(5615) = B(417) +IF (DO_JVS(5616)) & +! JVS(5616) = Jac_FULL(352,297) + JVS(5616) = -B(1537) +IF (DO_JVS(5617)) & +! JVS(5617) = Jac_FULL(352,300) + JVS(5617) = 0 +IF (DO_JVS(5618)) & +! JVS(5618) = Jac_FULL(352,314) + JVS(5618) = 0 +IF (DO_JVS(5619)) & +! JVS(5619) = Jac_FULL(352,316) + JVS(5619) = -B(1549)+B(1561) +IF (DO_JVS(5620)) & +! JVS(5620) = Jac_FULL(352,317) + JVS(5620) = -B(1517) +IF (DO_JVS(5621)) & +! JVS(5621) = Jac_FULL(352,318) + JVS(5621) = 0 +IF (DO_JVS(5622)) & +! JVS(5622) = Jac_FULL(352,319) + JVS(5622) = 0 +IF (DO_JVS(5623)) & +! JVS(5623) = Jac_FULL(352,320) + JVS(5623) = 0 +IF (DO_JVS(5624)) & +! JVS(5624) = Jac_FULL(352,323) + JVS(5624) = 0 +IF (DO_JVS(5625)) & +! JVS(5625) = Jac_FULL(352,324) + JVS(5625) = 0 +IF (DO_JVS(5626)) & +! JVS(5626) = Jac_FULL(352,325) + JVS(5626) = B(413) +IF (DO_JVS(5627)) & +! JVS(5627) = Jac_FULL(352,326) + JVS(5627) = B(415) +IF (DO_JVS(5628)) & +! JVS(5628) = Jac_FULL(352,328) + JVS(5628) = 0 +IF (DO_JVS(5629)) & +! JVS(5629) = Jac_FULL(352,329) + JVS(5629) = 0 +IF (DO_JVS(5630)) & +! JVS(5630) = Jac_FULL(352,333) + JVS(5630) = -B(1541) +IF (DO_JVS(5631)) & +! JVS(5631) = Jac_FULL(352,334) + JVS(5631) = -0.8*B(489) +IF (DO_JVS(5632)) & +! JVS(5632) = Jac_FULL(352,335) + JVS(5632) = 0 +IF (DO_JVS(5633)) & +! JVS(5633) = Jac_FULL(352,336) + JVS(5633) = 0 +IF (DO_JVS(5634)) & +! JVS(5634) = Jac_FULL(352,337) + JVS(5634) = B(393) +IF (DO_JVS(5635)) & +! JVS(5635) = Jac_FULL(352,338) + JVS(5635) = 0 +IF (DO_JVS(5636)) & +! JVS(5636) = Jac_FULL(352,339) + JVS(5636) = 0 +IF (DO_JVS(5637)) & +! JVS(5637) = Jac_FULL(352,340) + JVS(5637) = 0 +IF (DO_JVS(5638)) & +! JVS(5638) = Jac_FULL(352,341) + JVS(5638) = -B(1563) +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) +IF (DO_JVS(5640)) & +! JVS(5640) = Jac_FULL(352,343) + JVS(5640) = -B(407) +IF (DO_JVS(5641)) & +! JVS(5641) = Jac_FULL(352,344) + JVS(5641) = 0 +IF (DO_JVS(5642)) & +! JVS(5642) = Jac_FULL(352,345) + JVS(5642) = -B(395) +IF (DO_JVS(5643)) & +! JVS(5643) = Jac_FULL(352,346) + JVS(5643) = 0 +IF (DO_JVS(5644)) & +! JVS(5644) = Jac_FULL(352,347) + JVS(5644) = 0 +IF (DO_JVS(5645)) & +! JVS(5645) = Jac_FULL(352,348) + JVS(5645) = B(1562) +IF (DO_JVS(5646)) & +! JVS(5646) = Jac_FULL(352,349) + JVS(5646) = 0 +IF (DO_JVS(5647)) & +! JVS(5647) = Jac_FULL(352,350) + JVS(5647) = 0 +IF (DO_JVS(5648)) & +! JVS(5648) = Jac_FULL(352,351) + 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) +IF (DO_JVS(5650)) & +! JVS(5650) = Jac_FULL(352,353) + JVS(5650) = 0 +IF (DO_JVS(5651)) & +! JVS(5651) = Jac_FULL(353,179) + JVS(5651) = B(4) +IF (DO_JVS(5652)) & +! JVS(5652) = Jac_FULL(353,214) + JVS(5652) = -B(1501) +IF (DO_JVS(5653)) & +! JVS(5653) = Jac_FULL(353,252) + JVS(5653) = -B(1595) +IF (DO_JVS(5654)) & +! JVS(5654) = Jac_FULL(353,297) + JVS(5654) = -B(1527) +IF (DO_JVS(5655)) & +! JVS(5655) = Jac_FULL(353,316) + JVS(5655) = -B(1553) +IF (DO_JVS(5656)) & +! JVS(5656) = Jac_FULL(353,317) + JVS(5656) = -B(1523) +IF (DO_JVS(5657)) & +! JVS(5657) = Jac_FULL(353,327) + JVS(5657) = 0 +IF (DO_JVS(5658)) & +! JVS(5658) = Jac_FULL(353,328) + JVS(5658) = 0 +IF (DO_JVS(5659)) & +! JVS(5659) = Jac_FULL(353,329) + JVS(5659) = 0 +IF (DO_JVS(5660)) & +! JVS(5660) = Jac_FULL(353,330) + JVS(5660) = -B(1611) +IF (DO_JVS(5661)) & +! JVS(5661) = Jac_FULL(353,331) + JVS(5661) = 0 +IF (DO_JVS(5662)) & +! JVS(5662) = Jac_FULL(353,332) + JVS(5662) = -B(1603) +IF (DO_JVS(5663)) & +! JVS(5663) = Jac_FULL(353,333) + JVS(5663) = -B(1543) +IF (DO_JVS(5664)) & +! JVS(5664) = Jac_FULL(353,334) + JVS(5664) = 0 +IF (DO_JVS(5665)) & +! JVS(5665) = Jac_FULL(353,335) + JVS(5665) = 0 +IF (DO_JVS(5666)) & +! JVS(5666) = Jac_FULL(353,336) + JVS(5666) = 0 +IF (DO_JVS(5667)) & +! JVS(5667) = Jac_FULL(353,337) + JVS(5667) = 0 +IF (DO_JVS(5668)) & +! JVS(5668) = Jac_FULL(353,338) + JVS(5668) = 0 +IF (DO_JVS(5669)) & +! JVS(5669) = Jac_FULL(353,339) + JVS(5669) = B(5) +IF (DO_JVS(5670)) & +! JVS(5670) = Jac_FULL(353,340) + JVS(5670) = 0 +IF (DO_JVS(5671)) & +! JVS(5671) = Jac_FULL(353,341) + JVS(5671) = 0 +IF (DO_JVS(5672)) & +! JVS(5672) = Jac_FULL(353,342) + JVS(5672) = 0 +IF (DO_JVS(5673)) & +! JVS(5673) = Jac_FULL(353,343) + JVS(5673) = 0 +IF (DO_JVS(5674)) & +! JVS(5674) = Jac_FULL(353,344) + JVS(5674) = 0 +IF (DO_JVS(5675)) & +! JVS(5675) = Jac_FULL(353,345) + JVS(5675) = -B(1505) +IF (DO_JVS(5676)) & +! JVS(5676) = Jac_FULL(353,346) + JVS(5676) = 0 +IF (DO_JVS(5677)) & +! JVS(5677) = Jac_FULL(353,347) + JVS(5677) = 0 +IF (DO_JVS(5678)) & +! JVS(5678) = Jac_FULL(353,348) + JVS(5678) = 0 +IF (DO_JVS(5679)) & +! JVS(5679) = Jac_FULL(353,349) + JVS(5679) = 0 +IF (DO_JVS(5680)) & +! JVS(5680) = Jac_FULL(353,350) + JVS(5680) = 0 +IF (DO_JVS(5681)) & +! JVS(5681) = Jac_FULL(353,351) + JVS(5681) = 0 +IF (DO_JVS(5682)) & +! JVS(5682) = Jac_FULL(353,352) + 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) END SUBROUTINE Jac_SP @@ -17103,704 +20912,867 @@ 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(49)+JVS(8)*UV(69) - JUV(5) = JVS(9)*UV(5)+JVS(10)*UV(210) - JUV(6) = JVS(11)*UV(6)+JVS(12)*UV(41)+JVS(13)*UV(286) - JUV(7) = JVS(14)*UV(7)+JVS(15)*UV(66)+JVS(16)*UV(67)+JVS(17)*UV(70)+JVS(18)*UV(88)+JVS(19)*UV(97)+JVS(20)*UV(104)& - &+JVS(21)*UV(121)+JVS(22)*UV(123)+JVS(23)*UV(136)+JVS(24)*UV(150)+JVS(25)*UV(163)+JVS(26)*UV(164)+JVS(27)& - &*UV(175)+JVS(28)*UV(180)+JVS(29)*UV(184)+JVS(30)*UV(192)+JVS(31)*UV(195)+JVS(32)*UV(201)+JVS(33)*UV(207)& - &+JVS(34)*UV(208)+JVS(35)*UV(209)+JVS(36)*UV(210)+JVS(37)*UV(211)+JVS(38)*UV(215)+JVS(39)*UV(217)+JVS(40)& - &*UV(219)+JVS(41)*UV(224)+JVS(42)*UV(231)+JVS(43)*UV(234)+JVS(44)*UV(236)+JVS(45)*UV(237)+JVS(46)*UV(238)& - &+JVS(47)*UV(239)+JVS(48)*UV(246)+JVS(49)*UV(247)+JVS(50)*UV(249)+JVS(51)*UV(250)+JVS(52)*UV(252)+JVS(53)& - &*UV(253)+JVS(54)*UV(254)+JVS(55)*UV(255)+JVS(56)*UV(256)+JVS(57)*UV(257)+JVS(58)*UV(258)+JVS(59)*UV(261)& - &+JVS(60)*UV(266)+JVS(61)*UV(267)+JVS(62)*UV(279)+JVS(63)*UV(281)+JVS(64)*UV(282)+JVS(65)*UV(284)+JVS(66)& - &*UV(286)+JVS(67)*UV(290) - JUV(8) = JVS(68)*UV(8)+JVS(69)*UV(45)+JVS(70)*UV(98) - JUV(9) = JVS(71)*UV(9)+JVS(72)*UV(42)+JVS(73)*UV(44)+JVS(74)*UV(49)+JVS(75)*UV(69)+JVS(76)*UV(203)+JVS(77)*UV(268)& - &+JVS(78)*UV(270) - JUV(10) = JVS(79)*UV(10)+JVS(80)*UV(42)+JVS(81)*UV(44)+JVS(82)*UV(49)+JVS(83)*UV(69)+JVS(84)*UV(203)+JVS(85)*UV(268)& - &+JVS(86)*UV(270) - JUV(11) = JVS(87)*UV(11)+JVS(88)*UV(13)+JVS(89)*UV(284) - JUV(12) = JVS(90)*UV(12)+JVS(91)*UV(13)+JVS(92)*UV(279) - JUV(13) = JVS(93)*UV(13)+JVS(94)*UV(64)+JVS(95)*UV(279)+JVS(96)*UV(284)+JVS(97)*UV(286) - JUV(14) = JVS(98)*UV(14)+JVS(99)*UV(224)+JVS(100)*UV(286) - JUV(15) = JVS(101)*UV(15)+JVS(102)*UV(224)+JVS(103)*UV(281) - JUV(16) = JVS(104)*UV(16)+JVS(105)*UV(18)+JVS(106)*UV(284) - JUV(17) = JVS(107)*UV(17)+JVS(108)*UV(18)+JVS(109)*UV(279) - JUV(18) = JVS(110)*UV(18)+JVS(111)*UV(19)+JVS(112)*UV(279)+JVS(113)*UV(284)+JVS(114)*UV(286) - JUV(19) = JVS(115)*UV(19)+JVS(116)*UV(286) - JUV(20) = JVS(117)*UV(20)+JVS(118)*UV(22)+JVS(119)*UV(284) - JUV(21) = JVS(120)*UV(21)+JVS(121)*UV(22)+JVS(122)*UV(279) - JUV(22) = JVS(123)*UV(22)+JVS(124)*UV(79)+JVS(125)*UV(279)+JVS(126)*UV(284)+JVS(127)*UV(286) - JUV(23) = JVS(128)*UV(23)+JVS(129)*UV(24) - JUV(24) = JVS(130)*UV(24)+JVS(131)*UV(157)+JVS(132)*UV(162)+JVS(133)*UV(165)+JVS(134)*UV(171)+JVS(135)*UV(286) - JUV(25) = JVS(136)*UV(25)+JVS(137)*UV(27)+JVS(138)*UV(284) - JUV(26) = JVS(139)*UV(26)+JVS(140)*UV(27)+JVS(141)*UV(279) - JUV(27) = JVS(142)*UV(27)+JVS(143)*UV(80)+JVS(144)*UV(279)+JVS(145)*UV(284)+JVS(146)*UV(286) - JUV(28) = JVS(147)*UV(28)+JVS(148)*UV(90)+JVS(149)*UV(286) - JUV(29) = JVS(150)*UV(29)+JVS(151)*UV(138)+JVS(152)*UV(276)+JVS(153)*UV(282) - JUV(30) = JVS(154)*UV(30)+JVS(155)*UV(104)+JVS(156)*UV(223)+JVS(157)*UV(233) - JUV(31) = JVS(158)*UV(31)+JVS(159)*UV(105)+JVS(160)*UV(116)+JVS(161)*UV(130)+JVS(162)*UV(131)+JVS(163)*UV(174) - JUV(32) = JVS(164)*UV(32)+JVS(165)*UV(195)+JVS(166)*UV(234)+JVS(167)*UV(276)+JVS(168)*UV(286) - JUV(33) = JVS(169)*UV(33)+JVS(170)*UV(86)+JVS(171)*UV(212)+JVS(172)*UV(276)+JVS(173)*UV(282)+JVS(174)*UV(286) - JUV(34) = JVS(175)*UV(34)+JVS(176)*UV(45)+JVS(177)*UV(61)+JVS(178)*UV(65)+JVS(179)*UV(67)+JVS(180)*UV(68)+JVS(181)& - &*UV(74)+JVS(182)*UV(87)+JVS(183)*UV(89)+JVS(184)*UV(91)+JVS(185)*UV(96)+JVS(186)*UV(97)+JVS(187)*UV(98)& - &+JVS(188)*UV(102)+JVS(189)*UV(103)+JVS(190)*UV(121)+JVS(191)*UV(123)+JVS(192)*UV(128)+JVS(193)*UV(134)& - &+JVS(194)*UV(143)+JVS(195)*UV(144)+JVS(196)*UV(145)+JVS(197)*UV(146)+JVS(198)*UV(150)+JVS(199)*UV(152)& - &+JVS(200)*UV(153)+JVS(201)*UV(166)+JVS(202)*UV(167)+JVS(203)*UV(168)+JVS(204)*UV(177)+JVS(205)*UV(179)& - &+JVS(206)*UV(180)+JVS(207)*UV(182)+JVS(208)*UV(183)+JVS(209)*UV(184)+JVS(210)*UV(187)+JVS(211)*UV(189)& - &+JVS(212)*UV(191)+JVS(213)*UV(193)+JVS(214)*UV(194)+JVS(215)*UV(195)+JVS(216)*UV(197)+JVS(217)*UV(201)& - &+JVS(218)*UV(204)+JVS(219)*UV(205)+JVS(220)*UV(207)+JVS(221)*UV(209)+JVS(222)*UV(210)+JVS(223)*UV(215)& - &+JVS(224)*UV(216)+JVS(225)*UV(217)+JVS(226)*UV(222)+JVS(227)*UV(225)+JVS(228)*UV(228)+JVS(229)*UV(229)& - &+JVS(230)*UV(232)+JVS(231)*UV(234)+JVS(232)*UV(235)+JVS(233)*UV(237)+JVS(234)*UV(238)+JVS(235)*UV(239)& - &+JVS(236)*UV(241)+JVS(237)*UV(244)+JVS(238)*UV(245)+JVS(239)*UV(246)+JVS(240)*UV(247)+JVS(241)*UV(249)& - &+JVS(242)*UV(252)+JVS(243)*UV(254)+JVS(244)*UV(255)+JVS(245)*UV(256)+JVS(246)*UV(257)+JVS(247)*UV(258)& - &+JVS(248)*UV(261)+JVS(249)*UV(262)+JVS(250)*UV(265)+JVS(251)*UV(266)+JVS(252)*UV(279)+JVS(253)*UV(284)& - &+JVS(254)*UV(286)+JVS(255)*UV(290)+JVS(256)*UV(291) - JUV(35) = JVS(257)*UV(35)+JVS(258)*UV(42)+JVS(259)*UV(44)+JVS(260)*UV(49)+JVS(261)*UV(55)+JVS(262)*UV(56)+JVS(263)& - &*UV(61)+JVS(264)*UV(62)+JVS(265)*UV(63)+JVS(266)*UV(66)+JVS(267)*UV(75)+JVS(268)*UV(76)+JVS(269)*UV(84)& - &+JVS(270)*UV(90)+JVS(271)*UV(92)+JVS(272)*UV(100)+JVS(273)*UV(101)+JVS(274)*UV(111)+JVS(275)*UV(114)+JVS(276)& - &*UV(115)+JVS(277)*UV(118)+JVS(278)*UV(134)+JVS(279)*UV(138)+JVS(280)*UV(139)+JVS(281)*UV(140)+JVS(282)& - &*UV(142)+JVS(283)*UV(147)+JVS(284)*UV(148)+JVS(285)*UV(149)+JVS(286)*UV(151)+JVS(287)*UV(154)+JVS(288)& - &*UV(155)+JVS(289)*UV(159)+JVS(290)*UV(160)+JVS(291)*UV(161)+JVS(292)*UV(170)+JVS(293)*UV(173)+JVS(294)& - &*UV(175)+JVS(295)*UV(176)+JVS(296)*UV(177)+JVS(297)*UV(178)+JVS(298)*UV(179)+JVS(299)*UV(180)+JVS(300)& - &*UV(181)+JVS(301)*UV(184)+JVS(302)*UV(190)+JVS(303)*UV(191)+JVS(304)*UV(199)+JVS(305)*UV(200)+JVS(306)& - &*UV(202)+JVS(307)*UV(203)+JVS(308)*UV(208)+JVS(309)*UV(212)+JVS(310)*UV(213)+JVS(311)*UV(214)+JVS(312)& - &*UV(215)+JVS(313)*UV(216)+JVS(314)*UV(220)+JVS(315)*UV(223)+JVS(316)*UV(224)+JVS(317)*UV(225)+JVS(318)& - &*UV(226)+JVS(319)*UV(227)+JVS(320)*UV(233)+JVS(321)*UV(234)+JVS(322)*UV(235)+JVS(323)*UV(238)+JVS(324)& - &*UV(241)+JVS(325)*UV(242)+JVS(326)*UV(243)+JVS(327)*UV(246)+JVS(328)*UV(247)+JVS(329)*UV(248)+JVS(330)& - &*UV(249)+JVS(331)*UV(251)+JVS(332)*UV(253)+JVS(333)*UV(259)+JVS(334)*UV(260)+JVS(335)*UV(262)+JVS(336)& - &*UV(263)+JVS(337)*UV(264)+JVS(338)*UV(266)+JVS(339)*UV(268)+JVS(340)*UV(270)+JVS(341)*UV(271)+JVS(342)& - &*UV(272)+JVS(343)*UV(274)+JVS(344)*UV(275)+JVS(345)*UV(276)+JVS(346)*UV(277)+JVS(347)*UV(278)+JVS(348)& - &*UV(280)+JVS(349)*UV(281)+JVS(350)*UV(282)+JVS(351)*UV(283)+JVS(352)*UV(284)+JVS(353)*UV(285)+JVS(354)& - &*UV(286)+JVS(355)*UV(287)+JVS(356)*UV(288)+JVS(357)*UV(289)+JVS(358)*UV(291) - JUV(36) = JVS(359)*UV(36)+JVS(360)*UV(58)+JVS(361)*UV(64)+JVS(362)*UV(66)+JVS(363)*UV(72)+JVS(364)*UV(78)+JVS(365)& - &*UV(79)+JVS(366)*UV(80)+JVS(367)*UV(101)+JVS(368)*UV(105)+JVS(369)*UV(109)+JVS(370)*UV(125)+JVS(371)*UV(127)& - &+JVS(372)*UV(129)+JVS(373)*UV(132)+JVS(374)*UV(136)+JVS(375)*UV(148)+JVS(376)*UV(149)+JVS(377)*UV(150)& - &+JVS(378)*UV(153)+JVS(379)*UV(154)+JVS(380)*UV(155)+JVS(381)*UV(156)+JVS(382)*UV(157)+JVS(383)*UV(159)& - &+JVS(384)*UV(162)+JVS(385)*UV(163)+JVS(386)*UV(165)+JVS(387)*UV(169)+JVS(388)*UV(170)+JVS(389)*UV(171)& - &+JVS(390)*UV(172)+JVS(391)*UV(174)+JVS(392)*UV(175)+JVS(393)*UV(185)+JVS(394)*UV(186)+JVS(395)*UV(188)& - &+JVS(396)*UV(192)+JVS(397)*UV(194)+JVS(398)*UV(200)+JVS(399)*UV(205)+JVS(400)*UV(206)+JVS(401)*UV(207)& - &+JVS(402)*UV(208)+JVS(403)*UV(210)+JVS(404)*UV(213)+JVS(405)*UV(214)+JVS(406)*UV(220)+JVS(407)*UV(221)& - &+JVS(408)*UV(223)+JVS(409)*UV(224)+JVS(410)*UV(228)+JVS(411)*UV(229)+JVS(412)*UV(231)+JVS(413)*UV(233)& - &+JVS(414)*UV(236)+JVS(415)*UV(240)+JVS(416)*UV(244)+JVS(417)*UV(245)+JVS(418)*UV(248)+JVS(419)*UV(250)& - &+JVS(420)*UV(251)+JVS(421)*UV(253)+JVS(422)*UV(259)+JVS(423)*UV(263)+JVS(424)*UV(264)+JVS(425)*UV(266)& - &+JVS(426)*UV(273)+JVS(427)*UV(279)+JVS(428)*UV(281)+JVS(429)*UV(282)+JVS(430)*UV(284)+JVS(431)*UV(286)& - &+JVS(432)*UV(288)+JVS(433)*UV(290) - JUV(37) = JVS(434)*UV(37)+JVS(435)*UV(195)+JVS(436)*UV(234)+JVS(437)*UV(267)+JVS(438)*UV(286) - JUV(38) = JVS(439)*UV(38)+JVS(440)*UV(86)+JVS(441)*UV(147)+JVS(442)*UV(195)+JVS(443)*UV(212)+JVS(444)*UV(234)+JVS(445)& - &*UV(260)+JVS(446)*UV(271)+JVS(447)*UV(276)+JVS(448)*UV(282)+JVS(449)*UV(286) - JUV(39) = JVS(450)*UV(39)+JVS(451)*UV(190)+JVS(452)*UV(272)+JVS(453)*UV(286)+JVS(454)*UV(290) - JUV(40) = JVS(455)*UV(40)+JVS(456)*UV(154)+JVS(457)*UV(155)+JVS(458)*UV(170)+JVS(459)*UV(195)+JVS(460)*UV(224)& - &+JVS(461)*UV(234)+JVS(462)*UV(248)+JVS(463)*UV(278)+JVS(464)*UV(282)+JVS(465)*UV(284)+JVS(466)*UV(286) - JUV(41) = JVS(467)*UV(41)+JVS(468)*UV(286) - JUV(42) = JVS(469)*UV(42)+JVS(470)*UV(92) - JUV(43) = JVS(471)*UV(43)+JVS(472)*UV(286) - JUV(44) = JVS(473)*UV(44)+JVS(474)*UV(227) - JUV(45) = JVS(475)*UV(45)+JVS(476)*UV(134)+JVS(477)*UV(178)+JVS(478)*UV(199) - JUV(46) = JVS(479)*UV(46)+JVS(480)*UV(286) - JUV(47) = JVS(481)*UV(47)+JVS(482)*UV(272) - JUV(48) = JVS(483)*UV(48)+JVS(484)*UV(272) - JUV(49) = JVS(485)*UV(49)+JVS(486)*UV(92)+JVS(487)*UV(227) - JUV(50) = JVS(488)*UV(50)+JVS(489)*UV(255)+JVS(490)*UV(291) - JUV(51) = JVS(491)*UV(51)+JVS(492)*UV(273)+JVS(493)*UV(291) - JUV(52) = JVS(494)*UV(52)+JVS(495)*UV(272) - JUV(53) = JVS(496)*UV(53)+JVS(497)*UV(272) - JUV(54) = JVS(498)*UV(54)+JVS(499)*UV(272) - JUV(55) = JVS(500)*UV(55)+JVS(501)*UV(272) - JUV(56) = JVS(502)*UV(56)+JVS(503)*UV(272) - JUV(57) = JVS(504)*UV(57)+JVS(505)*UV(272) - JUV(58) = JVS(506)*UV(58)+JVS(507)*UV(286) - JUV(59) = JVS(508)*UV(59)+JVS(509)*UV(272) - JUV(60) = JVS(510)*UV(60)+JVS(511)*UV(269)+JVS(512)*UV(279) - JUV(61) = JVS(513)*UV(61)+JVS(514)*UV(65)+JVS(515)*UV(272)+JVS(516)*UV(291) - JUV(62) = JVS(517)*UV(62)+JVS(518)*UV(147)+JVS(519)*UV(265)+JVS(520)*UV(281) - JUV(63) = JVS(521)*UV(63)+JVS(522)*UV(138)+JVS(523)*UV(265)+JVS(524)*UV(281) - JUV(64) = JVS(525)*UV(64)+JVS(526)*UV(286) - JUV(65) = JVS(527)*UV(65)+JVS(528)*UV(279)+JVS(529)*UV(291) - JUV(66) = JVS(530)*UV(66)+JVS(531)*UV(286)+JVS(532)*UV(288) - JUV(67) = JVS(533)*UV(67)+JVS(534)*UV(261)+JVS(535)*UV(291) - JUV(68) = JVS(536)*UV(68)+JVS(537)*UV(179)+JVS(538)*UV(279)+JVS(539)*UV(286) - JUV(69) = JVS(540)*UV(69)+JVS(541)*UV(269)+JVS(542)*UV(284)+JVS(543)*UV(286) - JUV(70) = JVS(544)*UV(70)+JVS(545)*UV(180)+JVS(546)*UV(284)+JVS(547)*UV(286) - JUV(71) = JVS(548)*UV(71)+JVS(549)*UV(272)+JVS(550)*UV(286) - JUV(72) = JVS(551)*UV(72)+JVS(552)*UV(286)+JVS(553)*UV(290) - JUV(73) = JVS(554)*UV(73)+JVS(555)*UV(203)+JVS(556)*UV(268)+JVS(557)*UV(270)+JVS(558)*UV(277)+JVS(559)*UV(283) - JUV(74) = JVS(560)*UV(74)+JVS(561)*UV(266)+JVS(562)*UV(291) - JUV(75) = JVS(563)*UV(75)+JVS(564)*UV(285)+JVS(565)*UV(286) - JUV(76) = JVS(566)*UV(76)+JVS(567)*UV(282)+JVS(568)*UV(286) - JUV(77) = JVS(569)*UV(77)+JVS(570)*UV(272)+JVS(571)*UV(286) - JUV(78) = JVS(572)*UV(78)+JVS(573)*UV(286)+JVS(574)*UV(290) - JUV(79) = JVS(575)*UV(79)+JVS(576)*UV(286) - JUV(80) = JVS(577)*UV(80)+JVS(578)*UV(286) - JUV(81) = JVS(579)*UV(81)+JVS(580)*UV(272)+JVS(581)*UV(286) - JUV(82) = JVS(582)*UV(82)+JVS(583)*UV(272)+JVS(584)*UV(286) - JUV(83) = JVS(585)*UV(83)+JVS(586)*UV(272)+JVS(587)*UV(286) - JUV(84) = JVS(588)*UV(84)+JVS(589)*UV(272)+JVS(590)*UV(286) - JUV(85) = JVS(591)*UV(85)+JVS(592)*UV(234)+JVS(593)*UV(278)+JVS(594)*UV(286) - JUV(86) = JVS(595)*UV(86)+JVS(596)*UV(263)+JVS(597)*UV(276)+JVS(598)*UV(286) - JUV(87) = JVS(599)*UV(87)+JVS(600)*UV(258)+JVS(601)*UV(279)+JVS(602)*UV(286) - JUV(88) = JVS(603)*UV(88)+JVS(604)*UV(261)+JVS(605)*UV(284)+JVS(606)*UV(286) - JUV(89) = JVS(607)*UV(89)+JVS(608)*UV(266)+JVS(609)*UV(279)+JVS(610)*UV(286) - JUV(90) = JVS(611)*UV(90)+JVS(612)*UV(281)+JVS(613)*UV(286) - JUV(91) = JVS(614)*UV(91)+JVS(615)*UV(237)+JVS(616)*UV(279)+JVS(617)*UV(286) - JUV(92) = JVS(618)*UV(42)+JVS(619)*UV(44)+JVS(620)*UV(49)+JVS(621)*UV(92)+JVS(622)*UV(227)+JVS(623)*UV(274)+JVS(624)& - &*UV(279) - JUV(93) = JVS(625)*UV(93)+JVS(626)*UV(256)+JVS(627)*UV(284)+JVS(628)*UV(286) - JUV(94) = JVS(629)*UV(94)+JVS(630)*UV(237)+JVS(631)*UV(284)+JVS(632)*UV(286) - JUV(95) = JVS(633)*UV(95)+JVS(634)*UV(258)+JVS(635)*UV(284)+JVS(636)*UV(286) - JUV(96) = JVS(637)*UV(96)+JVS(638)*UV(217)+JVS(639)*UV(279)+JVS(640)*UV(286) - JUV(97) = JVS(641)*UV(97)+JVS(642)*UV(180)+JVS(643)*UV(286)+JVS(644)*UV(291) - JUV(98) = JVS(645)*UV(98)+JVS(646)*UV(139)+JVS(647)*UV(140)+JVS(648)*UV(151)+JVS(649)*UV(175)+JVS(650)*UV(181)& - &+JVS(651)*UV(200)+JVS(652)*UV(202)+JVS(653)*UV(213)+JVS(654)*UV(214)+JVS(655)*UV(220)+JVS(656)*UV(241)& - &+JVS(657)*UV(242)+JVS(658)*UV(243) - JUV(99) = JVS(659)*UV(99)+JVS(660)*UV(203)+JVS(661)*UV(227)+JVS(662)*UV(268)+JVS(663)*UV(270)+JVS(664)*UV(280)& - &+JVS(665)*UV(285)+JVS(666)*UV(287) - JUV(100) = JVS(667)*UV(100)+JVS(668)*UV(272)+JVS(669)*UV(286) - JUV(101) = JVS(670)*UV(79)+JVS(671)*UV(80)+JVS(672)*UV(101)+JVS(673)*UV(281)+JVS(674)*UV(286) - JUV(102) = JVS(675)*UV(102)+JVS(676)*UV(284)+JVS(677)*UV(286)+JVS(678)*UV(291) - JUV(103) = JVS(679)*UV(75)+JVS(680)*UV(103)+JVS(681)*UV(266)+JVS(682)*UV(274)+JVS(683)*UV(285)+JVS(684)*UV(286)& - &+JVS(685)*UV(290) - JUV(104) = JVS(686)*UV(104)+JVS(687)*UV(163)+JVS(688)*UV(241)+JVS(689)*UV(248)+JVS(690)*UV(282)+JVS(691)*UV(286) - JUV(105) = JVS(692)*UV(105)+JVS(693)*UV(136)+JVS(694)*UV(153)+JVS(695)*UV(286) - JUV(106) = JVS(696)*UV(106)+JVS(697)*UV(255)+JVS(698)*UV(284)+JVS(699)*UV(286) - JUV(107) = JVS(700)*UV(97)+JVS(701)*UV(107)+JVS(702)*UV(180)+JVS(703)*UV(191)+JVS(704)*UV(284)+JVS(705)*UV(286) - JUV(108) = JVS(707)*UV(108)+JVS(708)*UV(120)+JVS(709)*UV(179)+JVS(710)*UV(266)+JVS(711)*UV(279)+JVS(712)*UV(281) - JUV(109) = JVS(713)*UV(109)+JVS(714)*UV(186)+JVS(715)*UV(188)+JVS(716)*UV(240)+JVS(717)*UV(286) - JUV(110) = JVS(718)*UV(110)+JVS(719)*UV(217)+JVS(720)*UV(239)+JVS(721)*UV(284)+JVS(722)*UV(286) - JUV(111) = JVS(723)*UV(111)+JVS(724)*UV(227)+JVS(725)*UV(274)+JVS(726)*UV(285)+JVS(727)*UV(286) - JUV(112) = JVS(728)*UV(112)+JVS(729)*UV(209)+JVS(730)*UV(284)+JVS(731)*UV(286) - JUV(113) = JVS(732)*UV(113)+JVS(733)*UV(201)+JVS(734)*UV(284)+JVS(735)*UV(286) - JUV(114) = JVS(736)*UV(114)+JVS(737)*UV(281)+JVS(738)*UV(286)+JVS(739)*UV(290) - JUV(115) = JVS(740)*UV(79)+JVS(741)*UV(80)+JVS(742)*UV(115)+JVS(743)*UV(281)+JVS(744)*UV(286) - JUV(116) = JVS(745)*UV(116)+JVS(746)*UV(165)+JVS(747)*UV(171)+JVS(748)*UV(214)+JVS(749)*UV(220)+JVS(750)*UV(286) - JUV(117) = JVS(751)*UV(117)+JVS(752)*UV(206)+JVS(753)*UV(228)+JVS(754)*UV(279)+JVS(755)*UV(284)+JVS(756)*UV(286) - JUV(118) = JVS(757)*UV(64)+JVS(758)*UV(118)+JVS(759)*UV(281)+JVS(760)*UV(286) - JUV(119) = JVS(761)*UV(119)+JVS(762)*UV(225)+JVS(763)*UV(238)+JVS(764)*UV(284)+JVS(765)*UV(286) - JUV(120) = JVS(766)*UV(120)+JVS(767)*UV(179)+JVS(768)*UV(266)+JVS(769)*UV(284)+JVS(770)*UV(286) - JUV(121) = JVS(771)*UV(121)+JVS(772)*UV(186)+JVS(773)*UV(279)+JVS(774)*UV(284)+JVS(775)*UV(286) - JUV(122) = JVS(776)*UV(86)+JVS(777)*UV(122)+JVS(778)*UV(147)+JVS(779)*UV(195)+JVS(780)*UV(212)+JVS(781)*UV(234)& - &+JVS(782)*UV(260)+JVS(784)*UV(271)+JVS(785)*UV(276)+JVS(786)*UV(282)+JVS(787)*UV(286) - JUV(123) = JVS(788)*UV(123)+JVS(789)*UV(188)+JVS(790)*UV(279)+JVS(791)*UV(284)+JVS(792)*UV(286) - JUV(124) = JVS(793)*UV(124)+JVS(794)*UV(273)+JVS(795)*UV(286)+JVS(796)*UV(290) - JUV(125) = JVS(797)*UV(125)+JVS(798)*UV(228)+JVS(799)*UV(229)+JVS(800)*UV(286) - JUV(126) = JVS(801)*UV(126)+JVS(802)*UV(151)+JVS(803)*UV(243)+JVS(804)*UV(246)+JVS(805)*UV(247)+JVS(806)*UV(261)& - &+JVS(807)*UV(266)+JVS(808)*UV(279)+JVS(809)*UV(281) - JUV(127) = JVS(810)*UV(127)+JVS(811)*UV(165)+JVS(812)*UV(224)+JVS(813)*UV(244)+JVS(814)*UV(286) - JUV(128) = JVS(815)*UV(128)+JVS(816)*UV(176)+JVS(817)*UV(260)+JVS(818)*UV(273)+JVS(819)*UV(274)+JVS(820)*UV(277)& - &+JVS(821)*UV(283)+JVS(822)*UV(286)+JVS(823)*UV(289) - JUV(129) = JVS(824)*UV(129)+JVS(825)*UV(171)+JVS(826)*UV(224)+JVS(827)*UV(245)+JVS(828)*UV(286) - JUV(130) = JVS(829)*UV(130)+JVS(830)*UV(139)+JVS(831)*UV(140)+JVS(832)*UV(157)+JVS(833)*UV(162)+JVS(834)*UV(286) - JUV(131) = JVS(835)*UV(131)+JVS(836)*UV(139)+JVS(837)*UV(140)+JVS(838)*UV(157)+JVS(839)*UV(162)+JVS(840)*UV(286) - JUV(132) = JVS(841)*UV(132)+JVS(842)*UV(206)+JVS(843)*UV(229)+JVS(844)*UV(279)+JVS(845)*UV(284)+JVS(846)*UV(286) - JUV(133) = JVS(847)*UV(133)+JVS(848)*UV(217)+JVS(849)*UV(239)+JVS(850)*UV(266)+JVS(851)*UV(286)+JVS(852)*UV(290) - JUV(134) = JVS(853)*UV(134)+JVS(854)*UV(178)+JVS(855)*UV(199)+JVS(856)*UV(281)+JVS(857)*UV(282)+JVS(858)*UV(286) - JUV(135) = JVS(859)*UV(135)+JVS(860)*UV(176)+JVS(861)*UV(235)+JVS(862)*UV(260)+JVS(863)*UV(262)+JVS(864)*UV(271)& - &+JVS(865)*UV(274)+JVS(866)*UV(275)+JVS(867)*UV(277)+JVS(868)*UV(280)+JVS(869)*UV(283)+JVS(870)*UV(285)& - &+JVS(871)*UV(287)+JVS(872)*UV(289) - JUV(136) = JVS(873)*UV(136)+JVS(874)*UV(207)+JVS(875)*UV(284)+JVS(876)*UV(286) - JUV(137) = JVS(877)*UV(137)+JVS(878)*UV(266)+JVS(879)*UV(284)+JVS(880)*UV(286)+JVS(881)*UV(290) - JUV(138) = JVS(882)*UV(138)+JVS(883)*UV(265)+JVS(884)*UV(275)+JVS(885)*UV(276)+JVS(886)*UV(282) - JUV(139) = JVS(887)*UV(139)+JVS(888)*UV(245)+JVS(889)*UV(279)+JVS(890)*UV(286) - JUV(140) = JVS(891)*UV(140)+JVS(892)*UV(244)+JVS(893)*UV(279)+JVS(894)*UV(286) - JUV(141) = JVS(895)*UV(141)+JVS(896)*UV(182)+JVS(897)*UV(183)+JVS(898)*UV(187)+JVS(899)*UV(284)+JVS(900)*UV(286) - JUV(142) = JVS(901)*UV(115)+JVS(902)*UV(118)+JVS(903)*UV(142)+JVS(904)*UV(281)+JVS(905)*UV(282)+JVS(906)*UV(286) - JUV(143) = JVS(907)*UV(60)+JVS(908)*UV(143)+JVS(909)*UV(203)+JVS(910)*UV(269)+JVS(911)*UV(270)+JVS(913)*UV(281)& - &+JVS(914)*UV(286) - JUV(144) = JVS(915)*UV(144)+JVS(916)*UV(186)+JVS(917)*UV(240)+JVS(918)*UV(279)+JVS(919)*UV(284)+JVS(920)*UV(291) - JUV(145) = JVS(921)*UV(145)+JVS(922)*UV(188)+JVS(923)*UV(240)+JVS(924)*UV(279)+JVS(925)*UV(284)+JVS(926)*UV(291) - JUV(146) = JVS(927)*UV(146)+JVS(928)*UV(243)+JVS(929)*UV(279)+JVS(930)*UV(284)+JVS(931)*UV(286) - JUV(147) = JVS(932)*UV(147)+JVS(933)*UV(265)+JVS(934)*UV(275)+JVS(935)*UV(276)+JVS(936)*UV(282) - JUV(148) = JVS(937)*UV(79)+JVS(938)*UV(80)+JVS(939)*UV(115)+JVS(940)*UV(148)+JVS(941)*UV(281)+JVS(942)*UV(282)& - &+JVS(943)*UV(286) - JUV(149) = JVS(944)*UV(149)+JVS(945)*UV(272)+JVS(946)*UV(286)+JVS(947)*UV(290) - JUV(150) = JVS(948)*UV(150)+JVS(949)*UV(240)+JVS(950)*UV(242)+JVS(951)*UV(279)+JVS(952)*UV(284)+JVS(953)*UV(286) - JUV(151) = JVS(954)*UV(151)+JVS(955)*UV(246)+JVS(956)*UV(284)+JVS(957)*UV(286) - JUV(152) = JVS(958)*UV(140)+JVS(959)*UV(152)+JVS(961)*UV(279)+JVS(962)*UV(284)+JVS(963)*UV(286) - JUV(153) = JVS(964)*UV(153)+JVS(965)*UV(207)+JVS(966)*UV(249)+JVS(967)*UV(286)+JVS(968)*UV(291) - JUV(154) = JVS(969)*UV(154)+JVS(970)*UV(281)+JVS(971)*UV(282)+JVS(972)*UV(286) - JUV(155) = JVS(973)*UV(155)+JVS(974)*UV(281)+JVS(975)*UV(282)+JVS(976)*UV(286) - JUV(156) = JVS(977)*UV(109)+JVS(978)*UV(125)+JVS(979)*UV(156)+JVS(980)*UV(186)+JVS(981)*UV(188)+JVS(984)*UV(240)& - &+JVS(985)*UV(286) - JUV(157) = JVS(986)*UV(157)+JVS(987)*UV(245)+JVS(988)*UV(284)+JVS(989)*UV(286) - JUV(158) = JVS(990)*UV(158)+JVS(991)*UV(201)+JVS(992)*UV(209)+JVS(993)*UV(216)+JVS(994)*UV(225)+JVS(995)*UV(237)& - &+JVS(996)*UV(238)+JVS(997)*UV(254)+JVS(998)*UV(256)+JVS(999)*UV(257)+JVS(1000)*UV(258)+JVS(1001)*UV(266)& - &+JVS(1002)*UV(286) - JUV(159) = JVS(1003)*UV(64)+JVS(1004)*UV(79)+JVS(1005)*UV(80)+JVS(1006)*UV(118)+JVS(1007)*UV(142)+JVS(1008)*UV(159)& - &+JVS(1009)*UV(210)+JVS(1010)*UV(281)+JVS(1011)*UV(282)+JVS(1012)*UV(286) - JUV(160) = JVS(1013)*UV(107)+JVS(1014)*UV(115)+JVS(1015)*UV(118)+JVS(1016)*UV(142)+JVS(1017)*UV(160)+JVS(1019)*UV(191)& - &+JVS(1020)*UV(266)+JVS(1021)*UV(279)+JVS(1022)*UV(281)+JVS(1023)*UV(282)+JVS(1025)*UV(286)+JVS(1026)*UV(291) - JUV(161) = JVS(1027)*UV(161)+JVS(1028)*UV(273)+JVS(1029)*UV(281)+JVS(1030)*UV(286)+JVS(1031)*UV(290) - JUV(162) = JVS(1032)*UV(162)+JVS(1033)*UV(244)+JVS(1034)*UV(284)+JVS(1035)*UV(286) - JUV(163) = JVS(1036)*UV(163)+JVS(1037)*UV(186)+JVS(1038)*UV(188)+JVS(1039)*UV(240)+JVS(1040)*UV(242)+JVS(1041)*UV(286) - JUV(164) = JVS(1042)*UV(141)+JVS(1043)*UV(164)+JVS(1044)*UV(182)+JVS(1045)*UV(183)+JVS(1046)*UV(187)+JVS(1048)*UV(286) - JUV(165) = JVS(1049)*UV(165)+JVS(1050)*UV(244)+JVS(1051)*UV(284)+JVS(1052)*UV(286) - JUV(166) = JVS(1053)*UV(166)+JVS(1054)*UV(220)+JVS(1055)*UV(279)+JVS(1056)*UV(284)+JVS(1057)*UV(286) - JUV(167) = JVS(1058)*UV(139)+JVS(1059)*UV(167)+JVS(1061)*UV(279)+JVS(1062)*UV(284)+JVS(1063)*UV(286) - JUV(168) = JVS(1064)*UV(168)+JVS(1065)*UV(214)+JVS(1066)*UV(279)+JVS(1067)*UV(284)+JVS(1068)*UV(286) - JUV(169) = JVS(1069)*UV(117)+JVS(1070)*UV(125)+JVS(1071)*UV(169)+JVS(1072)*UV(194)+JVS(1073)*UV(204)+JVS(1077)*UV(230)& - &+JVS(1078)*UV(279)+JVS(1079)*UV(284)+JVS(1080)*UV(286) - JUV(170) = JVS(1081)*UV(170)+JVS(1082)*UV(281)+JVS(1083)*UV(282)+JVS(1084)*UV(286) - JUV(171) = JVS(1085)*UV(171)+JVS(1086)*UV(245)+JVS(1087)*UV(284)+JVS(1088)*UV(286) - JUV(172) = JVS(1089)*UV(171)+JVS(1090)*UV(172)+JVS(1091)*UV(182)+JVS(1092)*UV(189)+JVS(1093)*UV(222)+JVS(1094)*UV(224)& - &+JVS(1095)*UV(242)+JVS(1096)*UV(245)+JVS(1097)*UV(279)+JVS(1098)*UV(284)+JVS(1099)*UV(286) - JUV(173) = JVS(1100)*UV(173)+JVS(1101)*UV(275)+JVS(1102)*UV(278)+JVS(1103)*UV(280)+JVS(1104)*UV(281)+JVS(1105)*UV(287)& - &+JVS(1106)*UV(291) - JUV(174) = JVS(1107)*UV(116)+JVS(1108)*UV(127)+JVS(1109)*UV(129)+JVS(1110)*UV(130)+JVS(1111)*UV(131)+JVS(1114)*UV(151)& - &+JVS(1119)*UV(174)+JVS(1120)*UV(186)+JVS(1121)*UV(188)+JVS(1125)*UV(240)+JVS(1131)*UV(286) - JUV(175) = JVS(1132)*UV(166)+JVS(1133)*UV(175)+JVS(1134)*UV(189)+JVS(1135)*UV(220)+JVS(1136)*UV(222)+JVS(1137)*UV(232)& - &+JVS(1138)*UV(240)+JVS(1139)*UV(249)+JVS(1140)*UV(266)+JVS(1141)*UV(279)+JVS(1142)*UV(284)+JVS(1143)*UV(286) - JUV(176) = JVS(1144)*UV(176)+JVS(1145)*UV(273)+JVS(1146)*UV(274)+JVS(1147)*UV(275)+JVS(1148)*UV(278)+JVS(1149)*UV(291) - JUV(177) = JVS(1150)*UV(149)+JVS(1151)*UV(177)+JVS(1152)*UV(190)+JVS(1153)*UV(263)+JVS(1154)*UV(272)+JVS(1155)*UV(275)& - &+JVS(1156)*UV(282)+JVS(1157)*UV(284)+JVS(1158)*UV(286)+JVS(1159)*UV(288)+JVS(1160)*UV(289)+JVS(1161)*UV(290) - JUV(178) = JVS(1162)*UV(178)+JVS(1163)*UV(215)+JVS(1164)*UV(216)+JVS(1165)*UV(238)+JVS(1166)*UV(261)+JVS(1167)*UV(266)& - &+JVS(1168)*UV(279)+JVS(1169)*UV(281)+JVS(1170)*UV(284)+JVS(1171)*UV(286) - JUV(179) = JVS(1172)*UV(76)+JVS(1173)*UV(120)+JVS(1174)*UV(179)+JVS(1175)*UV(266)+JVS(1176)*UV(279)+JVS(1177)*UV(281)& - &+JVS(1179)*UV(284)+JVS(1180)*UV(286) - JUV(180) = JVS(1181)*UV(70)+JVS(1182)*UV(97)+JVS(1183)*UV(101)+JVS(1184)*UV(180)+JVS(1185)*UV(266)+JVS(1186)*UV(279)& - &+JVS(1187)*UV(281)+JVS(1188)*UV(284)+JVS(1189)*UV(286)+JVS(1190)*UV(291) - JUV(181) = JVS(1191)*UV(181)+JVS(1192)*UV(246)+JVS(1193)*UV(247)+JVS(1194)*UV(266)+JVS(1195)*UV(284)+JVS(1196)*UV(286) - JUV(182) = JVS(1197)*UV(157)+JVS(1198)*UV(171)+JVS(1199)*UV(182)+JVS(1201)*UV(279)+JVS(1202)*UV(284)+JVS(1203)*UV(286) - JUV(183) = JVS(1204)*UV(162)+JVS(1205)*UV(165)+JVS(1206)*UV(183)+JVS(1208)*UV(279)+JVS(1209)*UV(284)+JVS(1210)*UV(286) - JUV(184) = JVS(1211)*UV(64)+JVS(1212)*UV(79)+JVS(1213)*UV(80)+JVS(1214)*UV(115)+JVS(1215)*UV(118)+JVS(1216)*UV(142)& - &+JVS(1217)*UV(184)+JVS(1218)*UV(261)+JVS(1219)*UV(266)+JVS(1220)*UV(279)+JVS(1221)*UV(281)+JVS(1223)*UV(284)& - &+JVS(1224)*UV(286) - JUV(185) = JVS(1225)*UV(117)+JVS(1226)*UV(125)+JVS(1227)*UV(132)+JVS(1228)*UV(163)+JVS(1229)*UV(185)+JVS(1232)*UV(206)& - &+JVS(1235)*UV(230)+JVS(1237)*UV(241)+JVS(1241)*UV(286) - JUV(186) = JVS(1242)*UV(171)+JVS(1243)*UV(186)+JVS(1244)*UV(224)+JVS(1245)*UV(245)+JVS(1247)*UV(286) - JUV(187) = JVS(1248)*UV(157)+JVS(1249)*UV(162)+JVS(1250)*UV(187)+JVS(1253)*UV(279)+JVS(1254)*UV(284)+JVS(1255)*UV(286) - JUV(188) = JVS(1256)*UV(165)+JVS(1257)*UV(188)+JVS(1258)*UV(224)+JVS(1259)*UV(244)+JVS(1261)*UV(286) - JUV(189) = JVS(1262)*UV(151)+JVS(1263)*UV(189)+JVS(1265)*UV(279)+JVS(1266)*UV(284)+JVS(1267)*UV(286) - JUV(190) = JVS(1268)*UV(190)+JVS(1269)*UV(253)+JVS(1270)*UV(264)+JVS(1271)*UV(272)+JVS(1272)*UV(282)+JVS(1273)*UV(286)& - &+JVS(1274)*UV(290) - JUV(191) = JVS(1275)*UV(70)+JVS(1276)*UV(101)+JVS(1277)*UV(107)+JVS(1278)*UV(160)+JVS(1279)*UV(180)+JVS(1280)*UV(191)& - &+JVS(1281)*UV(266)+JVS(1282)*UV(279)+JVS(1283)*UV(281)+JVS(1284)*UV(282)+JVS(1285)*UV(284)+JVS(1286)*UV(286)& - &+JVS(1287)*UV(291) - JUV(192) = JVS(1288)*UV(165)+JVS(1289)*UV(171)+JVS(1290)*UV(192)+JVS(1291)*UV(214)+JVS(1292)*UV(220)+JVS(1293)*UV(244)& - &+JVS(1294)*UV(245)+JVS(1295)*UV(266)+JVS(1296)*UV(279)+JVS(1298)*UV(286) - JUV(193) = JVS(1299)*UV(62)+JVS(1300)*UV(63)+JVS(1303)*UV(193)+JVS(1304)*UV(203)+JVS(1305)*UV(210)+JVS(1306)*UV(235)& - &+JVS(1308)*UV(275)+JVS(1310)*UV(277)+JVS(1311)*UV(279)+JVS(1312)*UV(280)+JVS(1315)*UV(283)+JVS(1316)*UV(286)& - &+JVS(1317)*UV(287)+JVS(1318)*UV(289)+JVS(1319)*UV(291) - JUV(194) = JVS(1320)*UV(116)+JVS(1321)*UV(162)+JVS(1324)*UV(194)+JVS(1329)*UV(279)+JVS(1330)*UV(284)+JVS(1331)*UV(286) - JUV(195) = JVS(1332)*UV(195)+JVS(1333)*UV(253)+JVS(1334)*UV(267)+JVS(1335)*UV(276)+JVS(1336)*UV(278)+JVS(1337)*UV(279)& - &+JVS(1338)*UV(282)+JVS(1339)*UV(291) - JUV(196) = JVS(1340)*UV(165)+JVS(1341)*UV(183)+JVS(1342)*UV(189)+JVS(1343)*UV(196)+JVS(1344)*UV(222)+JVS(1345)*UV(224)& - &+JVS(1346)*UV(231)+JVS(1347)*UV(242)+JVS(1348)*UV(244)+JVS(1350)*UV(251)+JVS(1351)*UV(252)+JVS(1352)*UV(254)& - &+JVS(1353)*UV(279)+JVS(1354)*UV(284)+JVS(1355)*UV(286) - JUV(197) = JVS(1356)*UV(103)+JVS(1357)*UV(197)+JVS(1358)*UV(235)+JVS(1359)*UV(262)+JVS(1361)*UV(271)+JVS(1362)*UV(272)& - &+JVS(1364)*UV(275)+JVS(1365)*UV(280)+JVS(1366)*UV(285)+JVS(1367)*UV(286)+JVS(1368)*UV(287)+JVS(1369)*UV(290) - JUV(198) = JVS(1370)*UV(113)+JVS(1371)*UV(146)+JVS(1372)*UV(150)+JVS(1373)*UV(166)+JVS(1374)*UV(175)+JVS(1375)*UV(189)& - &+JVS(1376)*UV(198)+JVS(1379)*UV(222)+JVS(1380)*UV(232)+JVS(1386)*UV(251)+JVS(1388)*UV(279)+JVS(1389)*UV(281)& - &+JVS(1390)*UV(284)+JVS(1391)*UV(286) - JUV(199) = JVS(1392)*UV(199)+JVS(1393)*UV(215)+JVS(1394)*UV(216)+JVS(1395)*UV(225)+JVS(1396)*UV(238)+JVS(1397)*UV(261)& - &+JVS(1398)*UV(266)+JVS(1399)*UV(279)+JVS(1400)*UV(281)+JVS(1401)*UV(282)+JVS(1402)*UV(284)+JVS(1403)*UV(286) - JUV(200) = JVS(1404)*UV(145)+JVS(1405)*UV(167)+JVS(1407)*UV(200)+JVS(1408)*UV(205)+JVS(1411)*UV(242)+JVS(1414)*UV(249)& - &+JVS(1415)*UV(279)+JVS(1416)*UV(284)+JVS(1417)*UV(286)+JVS(1418)*UV(291) - JUV(201) = JVS(1419)*UV(113)+JVS(1420)*UV(201)+JVS(1421)*UV(253)+JVS(1422)*UV(261)+JVS(1423)*UV(266)+JVS(1424)*UV(279)& - &+JVS(1425)*UV(281)+JVS(1426)*UV(284)+JVS(1427)*UV(286) - JUV(202) = JVS(1428)*UV(202)+JVS(1429)*UV(254)+JVS(1430)*UV(256)+JVS(1431)*UV(257)+JVS(1432)*UV(279)+JVS(1433)*UV(284)& - &+JVS(1434)*UV(286) - JUV(203) = JVS(1435)*UV(203)+JVS(1436)*UV(269)+JVS(1437)*UV(277)+JVS(1438)*UV(280)+JVS(1439)*UV(283)+JVS(1440)*UV(287)& - &+JVS(1441)*UV(291) - JUV(204) = JVS(1442)*UV(144)+JVS(1444)*UV(204)+JVS(1448)*UV(248)+JVS(1449)*UV(279)+JVS(1450)*UV(284)+JVS(1451)*UV(286) - JUV(205) = JVS(1453)*UV(145)+JVS(1455)*UV(205)+JVS(1459)*UV(251)+JVS(1460)*UV(279)+JVS(1461)*UV(284)+JVS(1462)*UV(286) - JUV(206) = JVS(1464)*UV(141)+JVS(1465)*UV(182)+JVS(1466)*UV(183)+JVS(1468)*UV(194)+JVS(1469)*UV(206)+JVS(1472)*UV(228)& - &+JVS(1473)*UV(229)+JVS(1477)*UV(284)+JVS(1478)*UV(286) - JUV(207) = JVS(1479)*UV(136)+JVS(1480)*UV(153)+JVS(1481)*UV(207)+JVS(1483)*UV(251)+JVS(1484)*UV(279)+JVS(1485)*UV(281)& - &+JVS(1486)*UV(284)+JVS(1487)*UV(286)+JVS(1488)*UV(291) - JUV(208) = JVS(1489)*UV(146)+JVS(1490)*UV(150)+JVS(1491)*UV(168)+JVS(1492)*UV(189)+JVS(1493)*UV(208)+JVS(1495)*UV(222)& - &+JVS(1496)*UV(232)+JVS(1498)*UV(241)+JVS(1499)*UV(242)+JVS(1502)*UV(279)+JVS(1503)*UV(281)+JVS(1504)*UV(284)& - &+JVS(1505)*UV(286) - JUV(209) = JVS(1506)*UV(112)+JVS(1507)*UV(209)+JVS(1508)*UV(253)+JVS(1509)*UV(261)+JVS(1510)*UV(266)+JVS(1511)*UV(273)& - &+JVS(1512)*UV(279)+JVS(1513)*UV(284)+JVS(1514)*UV(286)+JVS(1515)*UV(290) - JUV(210) = JVS(1516)*UV(115)+JVS(1517)*UV(118)+JVS(1518)*UV(142)+JVS(1519)*UV(160)+JVS(1522)*UV(210)+JVS(1525)*UV(281)& - &+JVS(1528)*UV(286)+JVS(1529)*UV(291) - JUV(211) = JVS(1530)*UV(58)+JVS(1531)*UV(85)+JVS(1532)*UV(105)+JVS(1534)*UV(148)+JVS(1536)*UV(159)+JVS(1537)*UV(163)& - &+JVS(1538)*UV(170)+JVS(1543)*UV(211)+JVS(1545)*UV(234)+JVS(1546)*UV(236)+JVS(1547)*UV(238)+JVS(1549)*UV(241)& - &+JVS(1554)*UV(250)+JVS(1557)*UV(278)+JVS(1558)*UV(279)+JVS(1560)*UV(282)+JVS(1562)*UV(286)+JVS(1563)*UV(290) - JUV(212) = JVS(1565)*UV(154)+JVS(1566)*UV(155)+JVS(1567)*UV(170)+JVS(1568)*UV(195)+JVS(1569)*UV(212)+JVS(1570)*UV(224)& - &+JVS(1571)*UV(234)+JVS(1572)*UV(248)+JVS(1575)*UV(276)+JVS(1576)*UV(278)+JVS(1579)*UV(282)+JVS(1580)*UV(284)& - &+JVS(1581)*UV(286)+JVS(1582)*UV(288)+JVS(1583)*UV(290) - JUV(213) = JVS(1585)*UV(152)+JVS(1586)*UV(166)+JVS(1587)*UV(167)+JVS(1588)*UV(168)+JVS(1589)*UV(189)+JVS(1590)*UV(194)& - &+JVS(1591)*UV(213)+JVS(1594)*UV(222)+JVS(1595)*UV(228)+JVS(1596)*UV(229)+JVS(1597)*UV(242)+JVS(1601)*UV(279)& - &+JVS(1603)*UV(286) - JUV(214) = JVS(1604)*UV(214)+JVS(1605)*UV(245)+JVS(1606)*UV(246)+JVS(1607)*UV(266)+JVS(1608)*UV(279)+JVS(1609)*UV(286) - JUV(215) = JVS(1610)*UV(154)+JVS(1611)*UV(155)+JVS(1612)*UV(170)+JVS(1613)*UV(215)+JVS(1614)*UV(216)+JVS(1615)*UV(261)& - &+JVS(1616)*UV(266)+JVS(1617)*UV(279)+JVS(1618)*UV(281)+JVS(1620)*UV(284) - JUV(216) = JVS(1622)*UV(154)+JVS(1623)*UV(155)+JVS(1624)*UV(170)+JVS(1625)*UV(215)+JVS(1626)*UV(216)+JVS(1627)*UV(261)& - &+JVS(1628)*UV(266)+JVS(1629)*UV(279)+JVS(1630)*UV(281)+JVS(1632)*UV(284) - JUV(217) = JVS(1634)*UV(161)+JVS(1635)*UV(217)+JVS(1636)*UV(261)+JVS(1637)*UV(266)+JVS(1638)*UV(273)+JVS(1639)*UV(279)& - &+JVS(1640)*UV(281)+JVS(1641)*UV(284)+JVS(1642)*UV(286)+JVS(1643)*UV(290) - JUV(218) = JVS(1644)*UV(179)+JVS(1645)*UV(201)+JVS(1646)*UV(209)+JVS(1647)*UV(216)+JVS(1648)*UV(217)+JVS(1649)*UV(218)& - &+JVS(1650)*UV(225)+JVS(1651)*UV(236)+JVS(1652)*UV(237)+JVS(1653)*UV(238)+JVS(1654)*UV(239)+JVS(1655)*UV(246)& - &+JVS(1656)*UV(247)+JVS(1657)*UV(252)+JVS(1659)*UV(254)+JVS(1660)*UV(256)+JVS(1661)*UV(257)+JVS(1662)*UV(258)& - &+JVS(1664)*UV(266)+JVS(1670)*UV(286)+JVS(1671)*UV(290) - JUV(219) = JVS(1672)*UV(148)+JVS(1673)*UV(195)+JVS(1674)*UV(201)+JVS(1675)*UV(209)+JVS(1676)*UV(217)+JVS(1677)*UV(219)& - &+JVS(1678)*UV(237)+JVS(1679)*UV(239)+JVS(1680)*UV(250)+JVS(1681)*UV(252)+JVS(1683)*UV(254)+JVS(1684)*UV(256)& - &+JVS(1685)*UV(257)+JVS(1686)*UV(258)+JVS(1687)*UV(261)+JVS(1688)*UV(266)+JVS(1692)*UV(278)+JVS(1695)*UV(282)& - &+JVS(1696)*UV(284)+JVS(1697)*UV(286)+JVS(1698)*UV(290) - JUV(220) = JVS(1700)*UV(220)+JVS(1701)*UV(244)+JVS(1702)*UV(246)+JVS(1703)*UV(247)+JVS(1704)*UV(266)+JVS(1705)*UV(279)& - &+JVS(1706)*UV(286) - JUV(221) = JVS(1707)*UV(87)+JVS(1708)*UV(95)+JVS(1709)*UV(202)+JVS(1710)*UV(221)+JVS(1711)*UV(238)+JVS(1713)*UV(256)& - &+JVS(1715)*UV(258)+JVS(1716)*UV(261)+JVS(1717)*UV(266)+JVS(1718)*UV(273)+JVS(1719)*UV(279)+JVS(1721)*UV(286)& - &+JVS(1722)*UV(290) - JUV(222) = JVS(1723)*UV(181)+JVS(1724)*UV(222)+JVS(1728)*UV(279)+JVS(1729)*UV(284)+JVS(1730)*UV(286) - JUV(223) = JVS(1731)*UV(58)+JVS(1732)*UV(64)+JVS(1733)*UV(79)+JVS(1734)*UV(80)+JVS(1735)*UV(118)+JVS(1736)*UV(156)& - &+JVS(1737)*UV(159)+JVS(1738)*UV(163)+JVS(1739)*UV(164)+JVS(1740)*UV(172)+JVS(1743)*UV(185)+JVS(1748)*UV(206)& - &+JVS(1753)*UV(223)+JVS(1756)*UV(229)+JVS(1758)*UV(236)+JVS(1767)*UV(279)+JVS(1768)*UV(281)+JVS(1769)*UV(282)& - &+JVS(1770)*UV(284)+JVS(1771)*UV(286) - JUV(224) = JVS(1773)*UV(224)+JVS(1774)*UV(281)+JVS(1775)*UV(282)+JVS(1776)*UV(286)+JVS(1777)*UV(290) - JUV(225) = JVS(1778)*UV(170)+JVS(1779)*UV(225)+JVS(1780)*UV(261)+JVS(1781)*UV(266)+JVS(1782)*UV(279)+JVS(1783)*UV(281)& - &+JVS(1785)*UV(284)+JVS(1786)*UV(286) - JUV(226) = JVS(1787)*UV(119)+JVS(1788)*UV(154)+JVS(1789)*UV(155)+JVS(1790)*UV(178)+JVS(1791)*UV(202)+JVS(1792)*UV(215)& - &+JVS(1793)*UV(216)+JVS(1794)*UV(225)+JVS(1795)*UV(226)+JVS(1796)*UV(238)+JVS(1797)*UV(254)+JVS(1798)*UV(256)& - &+JVS(1800)*UV(261)+JVS(1801)*UV(266)+JVS(1802)*UV(279)+JVS(1803)*UV(281)+JVS(1804)*UV(282)+JVS(1806)*UV(286) - JUV(227) = JVS(1807)*UV(44)+JVS(1808)*UV(49)+JVS(1809)*UV(92)+JVS(1810)*UV(227)+JVS(1811)*UV(268)+JVS(1812)*UV(269)& - &+JVS(1813)*UV(270)+JVS(1814)*UV(274)+JVS(1815)*UV(279)+JVS(1816)*UV(282)+JVS(1817)*UV(284)+JVS(1818)*UV(285)& - &+JVS(1819)*UV(286)+JVS(1820)*UV(291) - JUV(228) = JVS(1821)*UV(125)+JVS(1822)*UV(130)+JVS(1823)*UV(131)+JVS(1828)*UV(192)+JVS(1831)*UV(228)+JVS(1838)*UV(279)& - &+JVS(1839)*UV(284)+JVS(1840)*UV(286) - JUV(229) = JVS(1841)*UV(125)+JVS(1842)*UV(130)+JVS(1843)*UV(131)+JVS(1848)*UV(192)+JVS(1852)*UV(229)+JVS(1858)*UV(279)& - &+JVS(1859)*UV(284)+JVS(1860)*UV(286) - JUV(230) = JVS(1861)*UV(129)+JVS(1862)*UV(157)+JVS(1863)*UV(164)+JVS(1866)*UV(183)+JVS(1867)*UV(186)+JVS(1869)*UV(192)& - &+JVS(1870)*UV(204)+JVS(1871)*UV(213)+JVS(1873)*UV(220)+JVS(1874)*UV(222)+JVS(1878)*UV(230)+JVS(1881)*UV(244)& - &+JVS(1882)*UV(245)+JVS(1886)*UV(266)+JVS(1887)*UV(279)+JVS(1890)*UV(284)+JVS(1891)*UV(286) - JUV(231) = JVS(1894)*UV(127)+JVS(1895)*UV(162)+JVS(1896)*UV(164)+JVS(1898)*UV(182)+JVS(1901)*UV(188)+JVS(1902)*UV(192)& - &+JVS(1903)*UV(205)+JVS(1904)*UV(206)+JVS(1905)*UV(213)+JVS(1906)*UV(214)+JVS(1908)*UV(222)+JVS(1912)*UV(231)& - &+JVS(1914)*UV(242)+JVS(1915)*UV(244)+JVS(1916)*UV(245)+JVS(1920)*UV(266)+JVS(1921)*UV(279)+JVS(1924)*UV(284)& - &+JVS(1925)*UV(286) - JUV(232) = JVS(1928)*UV(126)+JVS(1930)*UV(181)+JVS(1931)*UV(232)+JVS(1932)*UV(242)+JVS(1938)*UV(279)+JVS(1940)*UV(284)& - &+JVS(1941)*UV(286) - JUV(233) = JVS(1942)*UV(79)+JVS(1943)*UV(80)+JVS(1944)*UV(105)+JVS(1946)*UV(148)+JVS(1948)*UV(156)+JVS(1949)*UV(163)& - &+JVS(1950)*UV(164)+JVS(1951)*UV(165)+JVS(1952)*UV(171)+JVS(1953)*UV(174)+JVS(1956)*UV(185)+JVS(1957)*UV(186)& - &+JVS(1959)*UV(188)+JVS(1960)*UV(192)+JVS(1961)*UV(196)+JVS(1962)*UV(198)+JVS(1964)*UV(204)+JVS(1965)*UV(205)& - &+JVS(1966)*UV(206)+JVS(1968)*UV(213)+JVS(1972)*UV(224)+JVS(1973)*UV(228)+JVS(1975)*UV(230)+JVS(1976)*UV(231)& - &+JVS(1978)*UV(233)+JVS(1980)*UV(241)+JVS(1983)*UV(244)+JVS(1984)*UV(245)+JVS(1987)*UV(248)+JVS(1989)*UV(250)& - &+JVS(1990)*UV(251)+JVS(1991)*UV(252)+JVS(1994)*UV(261)+JVS(1995)*UV(266)+JVS(1996)*UV(279)+JVS(1997)*UV(281)& - &+JVS(1998)*UV(282)+JVS(1999)*UV(284)+JVS(2000)*UV(286) - JUV(234) = JVS(2003)*UV(76)+JVS(2004)*UV(224)+JVS(2005)*UV(234)+JVS(2006)*UV(248)+JVS(2007)*UV(251)+JVS(2008)*UV(253)& - &+JVS(2009)*UV(267)+JVS(2010)*UV(276)+JVS(2011)*UV(278)+JVS(2012)*UV(279)+JVS(2014)*UV(282)+JVS(2017)*UV(291) - JUV(235) = JVS(2018)*UV(173)+JVS(2019)*UV(235)+JVS(2020)*UV(275)+JVS(2021)*UV(277)+JVS(2023)*UV(280)+JVS(2025)*UV(283)& - &+JVS(2026)*UV(286)+JVS(2027)*UV(287)+JVS(2028)*UV(289) - JUV(236) = JVS(2030)*UV(68)+JVS(2031)*UV(108)+JVS(2032)*UV(120)+JVS(2033)*UV(141)+JVS(2034)*UV(142)+JVS(2035)*UV(146)& - &+JVS(2036)*UV(148)+JVS(2037)*UV(159)+JVS(2038)*UV(164)+JVS(2039)*UV(166)+JVS(2040)*UV(167)+JVS(2041)*UV(179)& - &+JVS(2043)*UV(183)+JVS(2044)*UV(187)+JVS(2045)*UV(204)+JVS(2046)*UV(206)+JVS(2048)*UV(213)+JVS(2051)*UV(222)& - &+JVS(2053)*UV(228)+JVS(2055)*UV(230)+JVS(2056)*UV(232)+JVS(2057)*UV(236)+JVS(2059)*UV(241)+JVS(2060)*UV(242)& - &+JVS(2061)*UV(243)+JVS(2068)*UV(266)+JVS(2069)*UV(279)+JVS(2071)*UV(282)+JVS(2072)*UV(284)+JVS(2073)*UV(286) - JUV(237) = JVS(2076)*UV(94)+JVS(2077)*UV(124)+JVS(2078)*UV(202)+JVS(2079)*UV(226)+JVS(2080)*UV(237)+JVS(2083)*UV(255)& - &+JVS(2084)*UV(256)+JVS(2086)*UV(259)+JVS(2087)*UV(261)+JVS(2088)*UV(266)+JVS(2089)*UV(273)+JVS(2090)*UV(279)& - &+JVS(2093)*UV(284)+JVS(2094)*UV(286)+JVS(2095)*UV(290) - JUV(238) = JVS(2096)*UV(154)+JVS(2097)*UV(155)+JVS(2098)*UV(238)+JVS(2099)*UV(261)+JVS(2100)*UV(266)+JVS(2101)*UV(279)& - &+JVS(2102)*UV(281)+JVS(2104)*UV(284)+JVS(2105)*UV(286) - JUV(239) = JVS(2106)*UV(110)+JVS(2107)*UV(170)+JVS(2108)*UV(202)+JVS(2110)*UV(226)+JVS(2112)*UV(239)+JVS(2114)*UV(255)& - &+JVS(2115)*UV(256)+JVS(2117)*UV(259)+JVS(2118)*UV(261)+JVS(2119)*UV(266)+JVS(2121)*UV(279)+JVS(2123)*UV(282)& - &+JVS(2124)*UV(284)+JVS(2125)*UV(286)+JVS(2126)*UV(290) - JUV(240) = JVS(2127)*UV(126)+JVS(2128)*UV(151)+JVS(2129)*UV(214)+JVS(2130)*UV(220)+JVS(2131)*UV(240)+JVS(2132)*UV(243)& - &+JVS(2135)*UV(246)+JVS(2136)*UV(247)+JVS(2137)*UV(261)+JVS(2138)*UV(266)+JVS(2139)*UV(279)+JVS(2140)*UV(281)& - &+JVS(2142)*UV(286) - JUV(241) = JVS(2143)*UV(144)+JVS(2144)*UV(152)+JVS(2145)*UV(168)+JVS(2147)*UV(189)+JVS(2148)*UV(204)+JVS(2149)*UV(214)& - &+JVS(2150)*UV(222)+JVS(2152)*UV(232)+JVS(2153)*UV(240)+JVS(2154)*UV(241)+JVS(2155)*UV(242)+JVS(2164)*UV(279)& - &+JVS(2167)*UV(284)+JVS(2168)*UV(286)+JVS(2170)*UV(291) - JUV(242) = JVS(2171)*UV(151)+JVS(2172)*UV(152)+JVS(2173)*UV(166)+JVS(2174)*UV(167)+JVS(2175)*UV(168)+JVS(2176)*UV(181)& - &+JVS(2177)*UV(182)+JVS(2178)*UV(183)+JVS(2179)*UV(187)+JVS(2180)*UV(189)+JVS(2183)*UV(222)+JVS(2184)*UV(232)& - &+JVS(2185)*UV(242)+JVS(2186)*UV(243)+JVS(2193)*UV(279)+JVS(2195)*UV(284)+JVS(2196)*UV(286) - JUV(243) = JVS(2197)*UV(146)+JVS(2198)*UV(152)+JVS(2199)*UV(166)+JVS(2200)*UV(167)+JVS(2201)*UV(168)+JVS(2202)*UV(189)& - &+JVS(2205)*UV(222)+JVS(2206)*UV(232)+JVS(2208)*UV(243)+JVS(2211)*UV(246)+JVS(2212)*UV(247)+JVS(2215)*UV(279)& - &+JVS(2217)*UV(284)+JVS(2218)*UV(286) - JUV(244) = JVS(2219)*UV(151)+JVS(2220)*UV(162)+JVS(2221)*UV(165)+JVS(2222)*UV(224)+JVS(2223)*UV(244)+JVS(2224)*UV(245)& - &+JVS(2226)*UV(266)+JVS(2227)*UV(279)+JVS(2230)*UV(284)+JVS(2231)*UV(286)+JVS(2232)*UV(290) - JUV(245) = JVS(2233)*UV(151)+JVS(2234)*UV(157)+JVS(2235)*UV(171)+JVS(2236)*UV(224)+JVS(2237)*UV(244)+JVS(2238)*UV(245)& - &+JVS(2240)*UV(266)+JVS(2241)*UV(279)+JVS(2244)*UV(284)+JVS(2245)*UV(286)+JVS(2246)*UV(290) - JUV(246) = JVS(2247)*UV(151)+JVS(2248)*UV(224)+JVS(2249)*UV(246)+JVS(2250)*UV(247)+JVS(2251)*UV(261)+JVS(2252)*UV(266)& - &+JVS(2253)*UV(279)+JVS(2254)*UV(281)+JVS(2256)*UV(284)+JVS(2257)*UV(286) - JUV(247) = JVS(2259)*UV(181)+JVS(2260)*UV(224)+JVS(2261)*UV(246)+JVS(2262)*UV(247)+JVS(2263)*UV(261)+JVS(2264)*UV(266)& - &+JVS(2265)*UV(279)+JVS(2266)*UV(281)+JVS(2268)*UV(284)+JVS(2269)*UV(286) - JUV(248) = JVS(2271)*UV(79)+JVS(2272)*UV(80)+JVS(2273)*UV(121)+JVS(2274)*UV(129)+JVS(2275)*UV(139)+JVS(2276)*UV(157)& - &+JVS(2278)*UV(181)+JVS(2279)*UV(186)+JVS(2280)*UV(224)+JVS(2281)*UV(243)+JVS(2282)*UV(244)+JVS(2283)*UV(245)& - &+JVS(2284)*UV(246)+JVS(2285)*UV(247)+JVS(2286)*UV(248)+JVS(2287)*UV(261)+JVS(2288)*UV(266)+JVS(2289)*UV(279)& - &+JVS(2290)*UV(281)+JVS(2291)*UV(282)+JVS(2292)*UV(284)+JVS(2293)*UV(286) - JUV(249) = JVS(2295)*UV(200)+JVS(2305)*UV(249)+JVS(2308)*UV(266)+JVS(2309)*UV(279)+JVS(2310)*UV(281)+JVS(2312)*UV(284)& - &+JVS(2313)*UV(286)+JVS(2315)*UV(291) - JUV(250) = JVS(2316)*UV(112)+JVS(2317)*UV(132)+JVS(2318)*UV(134)+JVS(2319)*UV(136)+JVS(2320)*UV(141)+JVS(2321)*UV(153)& - &+JVS(2322)*UV(164)+JVS(2323)*UV(167)+JVS(2324)*UV(168)+JVS(2325)*UV(174)+JVS(2327)*UV(182)+JVS(2330)*UV(187)& - &+JVS(2332)*UV(194)+JVS(2334)*UV(200)+JVS(2335)*UV(205)+JVS(2336)*UV(206)+JVS(2338)*UV(209)+JVS(2343)*UV(222)& - &+JVS(2345)*UV(225)+JVS(2347)*UV(229)+JVS(2348)*UV(231)+JVS(2349)*UV(232)+JVS(2352)*UV(242)+JVS(2353)*UV(243)& - &+JVS(2358)*UV(249)+JVS(2359)*UV(250)+JVS(2361)*UV(252)+JVS(2363)*UV(261)+JVS(2364)*UV(266)+JVS(2366)*UV(279)& - &+JVS(2367)*UV(281)+JVS(2369)*UV(284)+JVS(2370)*UV(286) - JUV(251) = JVS(2373)*UV(123)+JVS(2374)*UV(127)+JVS(2375)*UV(140)+JVS(2376)*UV(162)+JVS(2378)*UV(170)+JVS(2379)*UV(181)& - &+JVS(2380)*UV(188)+JVS(2381)*UV(224)+JVS(2382)*UV(225)+JVS(2383)*UV(243)+JVS(2384)*UV(244)+JVS(2385)*UV(245)& - &+JVS(2386)*UV(246)+JVS(2387)*UV(247)+JVS(2388)*UV(251)+JVS(2389)*UV(261)+JVS(2390)*UV(266)+JVS(2391)*UV(279)& - &+JVS(2392)*UV(281)+JVS(2393)*UV(282)+JVS(2394)*UV(284)+JVS(2395)*UV(286) - JUV(252) = JVS(2397)*UV(196)+JVS(2398)*UV(221)+JVS(2411)*UV(252)+JVS(2416)*UV(261)+JVS(2417)*UV(266)+JVS(2418)*UV(273)& - &+JVS(2419)*UV(279)+JVS(2422)*UV(284)+JVS(2423)*UV(286)+JVS(2424)*UV(290) - JUV(253) = JVS(2426)*UV(170)+JVS(2427)*UV(225)+JVS(2428)*UV(248)+JVS(2429)*UV(253)+JVS(2430)*UV(261)+JVS(2431)*UV(266)& - &+JVS(2432)*UV(273)+JVS(2433)*UV(279)+JVS(2434)*UV(281)+JVS(2435)*UV(282)+JVS(2437)*UV(286)+JVS(2438)*UV(290) - JUV(254) = JVS(2439)*UV(154)+JVS(2440)*UV(155)+JVS(2441)*UV(170)+JVS(2442)*UV(226)+JVS(2444)*UV(254)+JVS(2447)*UV(261)& - &+JVS(2448)*UV(266)+JVS(2449)*UV(279)+JVS(2450)*UV(281)+JVS(2451)*UV(282)+JVS(2452)*UV(284)+JVS(2453)*UV(286) - JUV(255) = JVS(2454)*UV(50)+JVS(2455)*UV(106)+JVS(2456)*UV(148)+JVS(2457)*UV(159)+JVS(2459)*UV(226)+JVS(2461)*UV(248)& - &+JVS(2463)*UV(255)+JVS(2466)*UV(259)+JVS(2467)*UV(261)+JVS(2468)*UV(266)+JVS(2469)*UV(279)+JVS(2470)*UV(281)& - &+JVS(2472)*UV(284)+JVS(2473)*UV(286)+JVS(2475)*UV(291) - JUV(256) = JVS(2476)*UV(93)+JVS(2477)*UV(114)+JVS(2478)*UV(119)+JVS(2479)*UV(148)+JVS(2482)*UV(256)+JVS(2483)*UV(257)& - &+JVS(2484)*UV(261)+JVS(2485)*UV(266)+JVS(2486)*UV(279)+JVS(2487)*UV(281)+JVS(2489)*UV(284)+JVS(2490)*UV(286)& - &+JVS(2491)*UV(290) - JUV(257) = JVS(2492)*UV(202)+JVS(2493)*UV(210)+JVS(2496)*UV(257)+JVS(2497)*UV(261)+JVS(2498)*UV(266)+JVS(2499)*UV(279)& - &+JVS(2500)*UV(281)+JVS(2502)*UV(284)+JVS(2503)*UV(286) - JUV(258) = JVS(2506)*UV(95)+JVS(2507)*UV(124)+JVS(2508)*UV(202)+JVS(2509)*UV(226)+JVS(2512)*UV(255)+JVS(2513)*UV(256)& - &+JVS(2515)*UV(258)+JVS(2516)*UV(259)+JVS(2517)*UV(261)+JVS(2518)*UV(266)+JVS(2520)*UV(279)+JVS(2523)*UV(284)& - &+JVS(2524)*UV(286)+JVS(2525)*UV(290) - JUV(259) = JVS(2527)*UV(91)+JVS(2528)*UV(93)+JVS(2529)*UV(94)+JVS(2530)*UV(113)+JVS(2531)*UV(119)+JVS(2532)*UV(148)& - &+JVS(2533)*UV(154)+JVS(2534)*UV(155)+JVS(2535)*UV(158)+JVS(2536)*UV(159)+JVS(2537)*UV(199)+JVS(2538)*UV(201)& - &+JVS(2539)*UV(202)+JVS(2540)*UV(209)+JVS(2542)*UV(215)+JVS(2543)*UV(216)+JVS(2544)*UV(225)+JVS(2545)*UV(237)& - &+JVS(2546)*UV(238)+JVS(2550)*UV(256)+JVS(2551)*UV(257)+JVS(2553)*UV(259)+JVS(2554)*UV(261)+JVS(2555)*UV(266)& - &+JVS(2557)*UV(279)+JVS(2558)*UV(281)+JVS(2559)*UV(282)+JVS(2561)*UV(286) - JUV(260) = JVS(2564)*UV(128)+JVS(2565)*UV(176)+JVS(2566)*UV(260)+JVS(2568)*UV(274)+JVS(2569)*UV(275)+JVS(2570)*UV(276)& - &+JVS(2571)*UV(277)+JVS(2572)*UV(278)+JVS(2573)*UV(280)+JVS(2574)*UV(282)+JVS(2575)*UV(283)+JVS(2576)*UV(284)& - &+JVS(2577)*UV(286)+JVS(2578)*UV(287)+JVS(2579)*UV(288)+JVS(2580)*UV(289) - JUV(261) = JVS(2582)*UV(67)+JVS(2583)*UV(88)+JVS(2584)*UV(104)+JVS(2585)*UV(105)+JVS(2586)*UV(136)+JVS(2588)*UV(156)& - &+JVS(2589)*UV(163)+JVS(2590)*UV(169)+JVS(2591)*UV(171)+JVS(2592)*UV(184)+JVS(2593)*UV(185)+JVS(2597)*UV(196)& - &+JVS(2598)*UV(198)+JVS(2599)*UV(201)+JVS(2600)*UV(204)+JVS(2602)*UV(207)+JVS(2603)*UV(208)+JVS(2604)*UV(209)& - &+JVS(2606)*UV(215)+JVS(2607)*UV(216)+JVS(2608)*UV(217)+JVS(2610)*UV(221)+JVS(2612)*UV(224)+JVS(2613)*UV(225)& - &+JVS(2614)*UV(226)+JVS(2617)*UV(230)+JVS(2620)*UV(233)+JVS(2621)*UV(237)+JVS(2622)*UV(238)+JVS(2623)*UV(239)& - &+JVS(2625)*UV(241)+JVS(2629)*UV(245)+JVS(2630)*UV(246)+JVS(2631)*UV(247)+JVS(2632)*UV(248)+JVS(2634)*UV(250)& - &+JVS(2635)*UV(251)+JVS(2636)*UV(252)+JVS(2638)*UV(254)+JVS(2639)*UV(255)+JVS(2640)*UV(256)+JVS(2641)*UV(257)& - &+JVS(2642)*UV(258)+JVS(2644)*UV(261)+JVS(2645)*UV(264)+JVS(2646)*UV(266)+JVS(2647)*UV(273)+JVS(2648)*UV(279)& - &+JVS(2649)*UV(281)+JVS(2650)*UV(282)+JVS(2651)*UV(284)+JVS(2652)*UV(286)+JVS(2654)*UV(291) - JUV(262) = JVS(2655)*UV(262)+JVS(2656)*UV(275)+JVS(2657)*UV(277)+JVS(2658)*UV(278)+JVS(2659)*UV(280)+JVS(2660)*UV(283)& - &+JVS(2661)*UV(285)+JVS(2662)*UV(286)+JVS(2663)*UV(287)+JVS(2664)*UV(288)+JVS(2665)*UV(289)+JVS(2666)*UV(290)& - &+JVS(2667)*UV(291) - JUV(263) = JVS(2668)*UV(74)+JVS(2669)*UV(76)+JVS(2670)*UV(85)+JVS(2671)*UV(86)+JVS(2672)*UV(88)+JVS(2673)*UV(89)& - &+JVS(2674)*UV(90)+JVS(2675)*UV(108)+JVS(2676)*UV(112)+JVS(2678)*UV(136)+JVS(2679)*UV(137)+JVS(2680)*UV(139)& - &+JVS(2681)*UV(140)+JVS(2682)*UV(152)+JVS(2683)*UV(157)+JVS(2684)*UV(162)+JVS(2685)*UV(165)+JVS(2686)*UV(166)& - &+JVS(2687)*UV(167)+JVS(2688)*UV(168)+JVS(2689)*UV(169)+JVS(2690)*UV(170)+JVS(2691)*UV(171)+JVS(2692)*UV(172)& - &+JVS(2693)*UV(174)+JVS(2694)*UV(179)+JVS(2695)*UV(180)+JVS(2696)*UV(181)+JVS(2697)*UV(182)+JVS(2698)*UV(183)& - &+JVS(2699)*UV(184)+JVS(2700)*UV(186)+JVS(2701)*UV(188)+JVS(2702)*UV(189)+JVS(2703)*UV(190)+JVS(2704)*UV(191)& - &+JVS(2705)*UV(194)+JVS(2706)*UV(196)+JVS(2707)*UV(198)+JVS(2708)*UV(201)+JVS(2709)*UV(204)+JVS(2710)*UV(205)& - &+JVS(2711)*UV(206)+JVS(2712)*UV(207)+JVS(2713)*UV(208)+JVS(2714)*UV(209)+JVS(2716)*UV(215)+JVS(2717)*UV(216)& - &+JVS(2718)*UV(217)+JVS(2719)*UV(218)+JVS(2721)*UV(222)+JVS(2722)*UV(223)+JVS(2723)*UV(224)+JVS(2724)*UV(225)& - &+JVS(2727)*UV(230)+JVS(2728)*UV(231)+JVS(2729)*UV(232)+JVS(2730)*UV(234)+JVS(2731)*UV(236)+JVS(2732)*UV(237)& - &+JVS(2733)*UV(238)+JVS(2734)*UV(239)+JVS(2736)*UV(241)+JVS(2737)*UV(242)+JVS(2738)*UV(243)+JVS(2739)*UV(244)& - &+JVS(2740)*UV(245)+JVS(2741)*UV(246)+JVS(2742)*UV(247)+JVS(2743)*UV(248)+JVS(2744)*UV(249)+JVS(2745)*UV(250)& - &+JVS(2746)*UV(251)+JVS(2747)*UV(252)+JVS(2748)*UV(253)+JVS(2749)*UV(254)+JVS(2750)*UV(255)+JVS(2751)*UV(256)& - &+JVS(2752)*UV(257)+JVS(2753)*UV(258)+JVS(2755)*UV(261)+JVS(2756)*UV(263)+JVS(2757)*UV(264)+JVS(2758)*UV(266)& - &+JVS(2759)*UV(267)+JVS(2760)*UV(272)+JVS(2761)*UV(273)+JVS(2762)*UV(276)+JVS(2763)*UV(278)+JVS(2764)*UV(279)& - &+JVS(2765)*UV(281)+JVS(2766)*UV(282)+JVS(2767)*UV(284)+JVS(2768)*UV(285)+JVS(2769)*UV(286)+JVS(2770)*UV(288)& - &+JVS(2771)*UV(290)+JVS(2772)*UV(291) - JUV(264) = JVS(2773)*UV(96)+JVS(2774)*UV(106)+JVS(2775)*UV(110)+JVS(2776)*UV(112)+JVS(2777)*UV(133)+JVS(2778)*UV(195)& - &+JVS(2779)*UV(201)+JVS(2780)*UV(202)+JVS(2781)*UV(209)+JVS(2782)*UV(217)+JVS(2783)*UV(239)+JVS(2784)*UV(253)& - &+JVS(2785)*UV(254)+JVS(2787)*UV(256)+JVS(2788)*UV(257)+JVS(2790)*UV(261)+JVS(2791)*UV(264)+JVS(2792)*UV(266)& - &+JVS(2793)*UV(267)+JVS(2794)*UV(273)+JVS(2795)*UV(276)+JVS(2796)*UV(278)+JVS(2797)*UV(279)+JVS(2798)*UV(281)& - &+JVS(2799)*UV(282)+JVS(2800)*UV(284)+JVS(2801)*UV(286)+JVS(2802)*UV(290)+JVS(2803)*UV(291) - JUV(265) = JVS(2804)*UV(45)+JVS(2805)*UV(90)+JVS(2806)*UV(98)+JVS(2807)*UV(101)+JVS(2808)*UV(114)+JVS(2809)*UV(115)& - &+JVS(2810)*UV(118)+JVS(2812)*UV(138)+JVS(2815)*UV(142)+JVS(2816)*UV(147)+JVS(2818)*UV(161)+JVS(2819)*UV(173)& - &+JVS(2821)*UV(176)+JVS(2829)*UV(208)+JVS(2830)*UV(210)+JVS(2837)*UV(223)+JVS(2840)*UV(226)+JVS(2845)*UV(233)& - &+JVS(2859)*UV(251)+JVS(2866)*UV(259)+JVS(2868)*UV(262)+JVS(2869)*UV(263)+JVS(2870)*UV(264)+JVS(2871)*UV(265)& - &+JVS(2874)*UV(270)+JVS(2878)*UV(275)+JVS(2880)*UV(277)+JVS(2881)*UV(278)+JVS(2883)*UV(280)+JVS(2884)*UV(281)& - &+JVS(2886)*UV(283)+JVS(2889)*UV(286)+JVS(2890)*UV(287)+JVS(2892)*UV(289)+JVS(2894)*UV(291) - JUV(266) = JVS(2895)*UV(46)+JVS(2896)*UV(67)+JVS(2897)*UV(74)+JVS(2898)*UV(88)+JVS(2899)*UV(90)+JVS(2900)*UV(100)& - &+JVS(2901)*UV(106)+JVS(2902)*UV(136)+JVS(2903)*UV(137)+JVS(2904)*UV(149)+JVS(2905)*UV(179)+JVS(2906)*UV(180)& - &+JVS(2907)*UV(184)+JVS(2908)*UV(190)+JVS(2909)*UV(191)+JVS(2910)*UV(201)+JVS(2911)*UV(202)+JVS(2912)*UV(207)& - &+JVS(2913)*UV(209)+JVS(2914)*UV(215)+JVS(2915)*UV(216)+JVS(2916)*UV(217)+JVS(2917)*UV(219)+JVS(2918)*UV(221)& - &+JVS(2919)*UV(224)+JVS(2920)*UV(225)+JVS(2921)*UV(226)+JVS(2922)*UV(237)+JVS(2923)*UV(238)+JVS(2924)*UV(239)& - &+JVS(2925)*UV(244)+JVS(2926)*UV(245)+JVS(2927)*UV(246)+JVS(2928)*UV(247)+JVS(2929)*UV(248)+JVS(2930)*UV(249)& - &+JVS(2931)*UV(250)+JVS(2933)*UV(252)+JVS(2934)*UV(253)+JVS(2935)*UV(254)+JVS(2936)*UV(255)+JVS(2937)*UV(256)& - &+JVS(2938)*UV(257)+JVS(2939)*UV(258)+JVS(2941)*UV(261)+JVS(2942)*UV(264)+JVS(2943)*UV(266)+JVS(2945)*UV(272)& - &+JVS(2949)*UV(279)+JVS(2950)*UV(281)+JVS(2951)*UV(282)+JVS(2952)*UV(284)+JVS(2953)*UV(285)+JVS(2954)*UV(286)& - &+JVS(2955)*UV(290)+JVS(2956)*UV(291) - JUV(267) = JVS(2957)*UV(58)+JVS(2958)*UV(64)+JVS(2959)*UV(66)+JVS(2960)*UV(72)+JVS(2961)*UV(78)+JVS(2962)*UV(79)& - &+JVS(2963)*UV(80)+JVS(2964)*UV(101)+JVS(2965)*UV(105)+JVS(2966)*UV(109)+JVS(2967)*UV(125)+JVS(2968)*UV(127)& - &+JVS(2969)*UV(129)+JVS(2970)*UV(132)+JVS(2971)*UV(136)+JVS(2972)*UV(148)+JVS(2973)*UV(149)+JVS(2974)*UV(150)& - &+JVS(2975)*UV(153)+JVS(2976)*UV(154)+JVS(2977)*UV(155)+JVS(2978)*UV(156)+JVS(2979)*UV(157)+JVS(2980)*UV(159)& - &+JVS(2981)*UV(162)+JVS(2982)*UV(163)+JVS(2983)*UV(165)+JVS(2984)*UV(169)+JVS(2985)*UV(170)+JVS(2986)*UV(171)& - &+JVS(2987)*UV(172)+JVS(2988)*UV(174)+JVS(2989)*UV(175)+JVS(2991)*UV(185)+JVS(2992)*UV(186)+JVS(2993)*UV(188)& - &+JVS(2995)*UV(192)+JVS(2996)*UV(194)+JVS(2997)*UV(195)+JVS(2998)*UV(200)+JVS(3000)*UV(205)+JVS(3001)*UV(206)& - &+JVS(3002)*UV(207)+JVS(3003)*UV(208)+JVS(3004)*UV(210)+JVS(3005)*UV(213)+JVS(3006)*UV(214)+JVS(3007)*UV(220)& - &+JVS(3008)*UV(221)+JVS(3010)*UV(223)+JVS(3011)*UV(224)+JVS(3012)*UV(228)+JVS(3013)*UV(229)+JVS(3015)*UV(231)& - &+JVS(3017)*UV(233)+JVS(3018)*UV(234)+JVS(3019)*UV(236)+JVS(3021)*UV(240)+JVS(3025)*UV(244)+JVS(3026)*UV(245)& - &+JVS(3029)*UV(248)+JVS(3031)*UV(250)+JVS(3032)*UV(251)+JVS(3034)*UV(253)+JVS(3039)*UV(259)+JVS(3041)*UV(263)& - &+JVS(3042)*UV(264)+JVS(3043)*UV(266)+JVS(3044)*UV(267)+JVS(3046)*UV(273)+JVS(3049)*UV(279)+JVS(3050)*UV(281)& - &+JVS(3051)*UV(282)+JVS(3052)*UV(284)+JVS(3054)*UV(286)+JVS(3055)*UV(288)+JVS(3056)*UV(290) - JUV(268) = JVS(3058)*UV(143)+JVS(3060)*UV(227)+JVS(3061)*UV(268)+JVS(3063)*UV(270)+JVS(3065)*UV(277)+JVS(3066)*UV(278)& - &+JVS(3068)*UV(280)+JVS(3071)*UV(283)+JVS(3072)*UV(284)+JVS(3074)*UV(286)+JVS(3075)*UV(287) - JUV(269) = JVS(3077)*UV(1)+JVS(3078)*UV(2)+JVS(3079)*UV(3)+JVS(3080)*UV(44)+JVS(3081)*UV(46)+JVS(3082)*UV(60)& - &+JVS(3083)*UV(69)+JVS(3084)*UV(73)+JVS(3085)*UV(92)+JVS(3086)*UV(99)+JVS(3087)*UV(143)+JVS(3088)*UV(203)& - &+JVS(3089)*UV(227)+JVS(3090)*UV(268)+JVS(3091)*UV(269)+JVS(3092)*UV(270)+JVS(3093)*UV(274)+JVS(3096)*UV(279)& - &+JVS(3098)*UV(281)+JVS(3099)*UV(282)+JVS(3101)*UV(284)+JVS(3102)*UV(285)+JVS(3103)*UV(286)+JVS(3105)*UV(291) - JUV(270) = JVS(3106)*UV(143)+JVS(3108)*UV(227)+JVS(3110)*UV(269)+JVS(3111)*UV(270)+JVS(3113)*UV(277)+JVS(3114)*UV(278)& - &+JVS(3116)*UV(280)+JVS(3117)*UV(281)+JVS(3119)*UV(283)+JVS(3123)*UV(287)+JVS(3124)*UV(291) - JUV(271) = JVS(3125)*UV(75)+JVS(3126)*UV(111)+JVS(3127)*UV(197)+JVS(3129)*UV(235)+JVS(3130)*UV(262)+JVS(3136)*UV(271)& - &+JVS(3140)*UV(275)+JVS(3141)*UV(276)+JVS(3143)*UV(278)+JVS(3145)*UV(280)+JVS(3149)*UV(284)+JVS(3150)*UV(285)& - &+JVS(3151)*UV(286)+JVS(3152)*UV(287)+JVS(3154)*UV(289) - JUV(272) = JVS(3157)*UV(47)+JVS(3158)*UV(48)+JVS(3159)*UV(52)+JVS(3160)*UV(53)+JVS(3161)*UV(54)+JVS(3162)*UV(55)& - &+JVS(3163)*UV(56)+JVS(3164)*UV(57)+JVS(3165)*UV(59)+JVS(3166)*UV(61)+JVS(3168)*UV(71)+JVS(3169)*UV(77)& - &+JVS(3170)*UV(81)+JVS(3171)*UV(82)+JVS(3172)*UV(83)+JVS(3173)*UV(84)+JVS(3174)*UV(100)+JVS(3175)*UV(149)& - &+JVS(3176)*UV(190)+JVS(3177)*UV(197)+JVS(3186)*UV(272)+JVS(3189)*UV(275)+JVS(3192)*UV(278)+JVS(3196)*UV(282)& - &+JVS(3203)*UV(289) - JUV(273) = JVS(3206)*UV(2)+JVS(3207)*UV(47)+JVS(3208)*UV(48)+JVS(3209)*UV(51)+JVS(3210)*UV(59)+JVS(3211)*UV(71)& - &+JVS(3212)*UV(73)+JVS(3213)*UV(77)+JVS(3214)*UV(100)+JVS(3215)*UV(124)+JVS(3216)*UV(128)+JVS(3217)*UV(135)& - &+JVS(3218)*UV(161)+JVS(3219)*UV(176)+JVS(3221)*UV(221)+JVS(3222)*UV(227)+JVS(3225)*UV(253)+JVS(3231)*UV(260)& - &+JVS(3234)*UV(263)+JVS(3235)*UV(264)+JVS(3239)*UV(269)+JVS(3242)*UV(272)+JVS(3243)*UV(273)+JVS(3244)*UV(274)& - &+JVS(3249)*UV(279)+JVS(3251)*UV(281)+JVS(3252)*UV(282)+JVS(3254)*UV(284)+JVS(3255)*UV(285)+JVS(3256)*UV(286)& - &+JVS(3258)*UV(288)+JVS(3259)*UV(289)+JVS(3261)*UV(291) - JUV(274) = JVS(3262)*UV(47)+JVS(3263)*UV(48)+JVS(3264)*UV(59)+JVS(3265)*UV(71)+JVS(3266)*UV(77)+JVS(3267)*UV(100)& - &+JVS(3268)*UV(176)+JVS(3269)*UV(227)+JVS(3270)*UV(260)+JVS(3272)*UV(269)+JVS(3274)*UV(272)+JVS(3275)*UV(273)& - &+JVS(3276)*UV(274)+JVS(3281)*UV(279)+JVS(3283)*UV(281)+JVS(3284)*UV(282)+JVS(3286)*UV(284)+JVS(3287)*UV(285)& - &+JVS(3288)*UV(286)+JVS(3290)*UV(288)+JVS(3291)*UV(289)+JVS(3293)*UV(291) - JUV(275) = JVS(3294)*UV(72)+JVS(3295)*UV(78)+JVS(3296)*UV(114)+JVS(3297)*UV(124)+JVS(3298)*UV(133)+JVS(3299)*UV(137)& - &+JVS(3300)*UV(138)+JVS(3301)*UV(147)+JVS(3302)*UV(149)+JVS(3303)*UV(161)+JVS(3304)*UV(173)+JVS(3305)*UV(176)& - &+JVS(3306)*UV(190)+JVS(3307)*UV(211)+JVS(3308)*UV(212)+JVS(3310)*UV(218)+JVS(3311)*UV(219)+JVS(3312)*UV(221)& - &+JVS(3313)*UV(224)+JVS(3316)*UV(235)+JVS(3334)*UV(253)+JVS(3341)*UV(260)+JVS(3343)*UV(262)+JVS(3344)*UV(263)& - &+JVS(3350)*UV(271)+JVS(3351)*UV(272)+JVS(3354)*UV(275)+JVS(3355)*UV(276)+JVS(3363)*UV(284)+JVS(3364)*UV(285)& - &+JVS(3365)*UV(286)+JVS(3369)*UV(290) - JUV(276) = JVS(3371)*UV(66)+JVS(3372)*UV(86)+JVS(3373)*UV(90)+JVS(3374)*UV(122)+JVS(3375)*UV(138)+JVS(3376)*UV(147)& - &+JVS(3377)*UV(195)+JVS(3378)*UV(212)+JVS(3380)*UV(234)+JVS(3384)*UV(260)+JVS(3386)*UV(263)+JVS(3392)*UV(271)& - &+JVS(3397)*UV(276)+JVS(3402)*UV(281)+JVS(3403)*UV(282)+JVS(3407)*UV(286)+JVS(3409)*UV(288) - JUV(277) = JVS(3413)*UV(203)+JVS(3414)*UV(235)+JVS(3415)*UV(260)+JVS(3416)*UV(262)+JVS(3417)*UV(268)+JVS(3419)*UV(270)& - &+JVS(3424)*UV(277)+JVS(3429)*UV(282)+JVS(3436)*UV(289) - JUV(278) = JVS(3439)*UV(43)+JVS(3440)*UV(46)+JVS(3441)*UV(69)+JVS(3442)*UV(81)+JVS(3443)*UV(82)+JVS(3444)*UV(83)& - &+JVS(3445)*UV(84)+JVS(3446)*UV(100)+JVS(3447)*UV(102)+JVS(3448)*UV(137)+JVS(3449)*UV(149)+JVS(3450)*UV(161)& - &+JVS(3451)*UV(173)+JVS(3452)*UV(176)+JVS(3453)*UV(177)+JVS(3454)*UV(190)+JVS(3455)*UV(193)+JVS(3456)*UV(195)& - &+JVS(3457)*UV(196)+JVS(3458)*UV(202)+JVS(3461)*UV(211)+JVS(3462)*UV(212)+JVS(3463)*UV(219)+JVS(3464)*UV(221)& - &+JVS(3467)*UV(226)+JVS(3469)*UV(234)+JVS(3494)*UV(259)+JVS(3495)*UV(260)+JVS(3497)*UV(262)+JVS(3498)*UV(263)& - &+JVS(3499)*UV(264)+JVS(3500)*UV(265)+JVS(3503)*UV(268)+JVS(3505)*UV(270)+JVS(3506)*UV(271)+JVS(3507)*UV(272)& - &+JVS(3510)*UV(275)+JVS(3513)*UV(278)+JVS(3515)*UV(280)+JVS(3519)*UV(284)+JVS(3521)*UV(286)+JVS(3522)*UV(287)& - &+JVS(3524)*UV(289)+JVS(3525)*UV(290) - JUV(279) = JVS(3527)*UV(60)+JVS(3528)*UV(61)+JVS(3529)*UV(65)+JVS(3530)*UV(92)+JVS(3531)*UV(121)+JVS(3532)*UV(123)& - &+JVS(3533)*UV(144)+JVS(3534)*UV(145)+JVS(3535)*UV(146)+JVS(3536)*UV(150)+JVS(3537)*UV(152)+JVS(3538)*UV(166)& - &+JVS(3539)*UV(167)+JVS(3540)*UV(168)+JVS(3541)*UV(179)+JVS(3542)*UV(180)+JVS(3543)*UV(182)+JVS(3544)*UV(183)& - &+JVS(3545)*UV(184)+JVS(3547)*UV(187)+JVS(3549)*UV(189)+JVS(3550)*UV(191)+JVS(3551)*UV(193)+JVS(3552)*UV(194)& - &+JVS(3553)*UV(195)+JVS(3554)*UV(201)+JVS(3556)*UV(204)+JVS(3557)*UV(205)+JVS(3558)*UV(207)+JVS(3559)*UV(209)& - &+JVS(3562)*UV(215)+JVS(3563)*UV(216)+JVS(3564)*UV(217)+JVS(3566)*UV(222)+JVS(3568)*UV(225)+JVS(3569)*UV(227)& - &+JVS(3570)*UV(228)+JVS(3571)*UV(229)+JVS(3572)*UV(232)+JVS(3573)*UV(234)+JVS(3575)*UV(237)+JVS(3576)*UV(238)& - &+JVS(3577)*UV(239)+JVS(3581)*UV(244)+JVS(3582)*UV(245)+JVS(3583)*UV(246)+JVS(3584)*UV(247)+JVS(3586)*UV(249)& - &+JVS(3588)*UV(252)+JVS(3590)*UV(254)+JVS(3591)*UV(255)+JVS(3592)*UV(256)+JVS(3593)*UV(257)+JVS(3594)*UV(258)& - &+JVS(3596)*UV(261)+JVS(3599)*UV(266)+JVS(3602)*UV(269)+JVS(3604)*UV(272)+JVS(3606)*UV(274)+JVS(3611)*UV(279)& - &+JVS(3613)*UV(281)+JVS(3614)*UV(282)+JVS(3616)*UV(284)+JVS(3617)*UV(285)+JVS(3618)*UV(286)+JVS(3620)*UV(288)& - &+JVS(3623)*UV(291) - JUV(280) = JVS(3624)*UV(147)+JVS(3625)*UV(173)+JVS(3626)*UV(203)+JVS(3627)*UV(235)+JVS(3628)*UV(260)+JVS(3629)*UV(262)& - &+JVS(3633)*UV(268)+JVS(3635)*UV(270)+JVS(3636)*UV(271)+JVS(3640)*UV(275)+JVS(3645)*UV(280)+JVS(3651)*UV(286) - JUV(281) = JVS(3657)*UV(67)+JVS(3658)*UV(74)+JVS(3659)*UV(90)+JVS(3660)*UV(101)+JVS(3661)*UV(102)+JVS(3662)*UV(114)& - &+JVS(3663)*UV(115)+JVS(3664)*UV(118)+JVS(3665)*UV(134)+JVS(3666)*UV(142)+JVS(3667)*UV(143)+JVS(3668)*UV(153)& - &+JVS(3669)*UV(154)+JVS(3670)*UV(155)+JVS(3671)*UV(161)+JVS(3672)*UV(170)+JVS(3673)*UV(173)+JVS(3674)*UV(176)& - &+JVS(3675)*UV(178)+JVS(3676)*UV(179)+JVS(3677)*UV(184)+JVS(3678)*UV(191)+JVS(3679)*UV(195)+JVS(3680)*UV(199)& - &+JVS(3683)*UV(208)+JVS(3684)*UV(210)+JVS(3686)*UV(215)+JVS(3687)*UV(216)+JVS(3689)*UV(223)+JVS(3690)*UV(224)& - &+JVS(3691)*UV(225)+JVS(3692)*UV(226)+JVS(3697)*UV(233)+JVS(3698)*UV(234)+JVS(3700)*UV(238)+JVS(3702)*UV(241)& - &+JVS(3707)*UV(246)+JVS(3708)*UV(247)+JVS(3710)*UV(249)+JVS(3712)*UV(251)+JVS(3714)*UV(253)+JVS(3719)*UV(259)& - &+JVS(3721)*UV(262)+JVS(3722)*UV(263)+JVS(3723)*UV(264)+JVS(3724)*UV(265)+JVS(3725)*UV(266)+JVS(3727)*UV(269)& - &+JVS(3728)*UV(270)+JVS(3730)*UV(273)+JVS(3736)*UV(279)+JVS(3738)*UV(281)+JVS(3739)*UV(282)+JVS(3741)*UV(284)& - &+JVS(3743)*UV(286)+JVS(3745)*UV(288)+JVS(3747)*UV(290)+JVS(3748)*UV(291) - JUV(282) = JVS(3749)*UV(76)+JVS(3750)*UV(138)+JVS(3751)*UV(142)+JVS(3752)*UV(147)+JVS(3753)*UV(148)+JVS(3754)*UV(154)& - &+JVS(3755)*UV(155)+JVS(3756)*UV(159)+JVS(3757)*UV(160)+JVS(3758)*UV(170)+JVS(3759)*UV(177)+JVS(3760)*UV(180)& - &+JVS(3763)*UV(199)+JVS(3764)*UV(207)+JVS(3768)*UV(224)+JVS(3770)*UV(234)+JVS(3772)*UV(248)+JVS(3773)*UV(249)& - &+JVS(3774)*UV(251)+JVS(3775)*UV(253)+JVS(3776)*UV(255)+JVS(3780)*UV(261)+JVS(3784)*UV(266)+JVS(3786)*UV(269)& - &+JVS(3788)*UV(272)+JVS(3789)*UV(273)+JVS(3792)*UV(276)+JVS(3793)*UV(277)+JVS(3795)*UV(279)+JVS(3798)*UV(282)& - &+JVS(3799)*UV(283)+JVS(3800)*UV(284)+JVS(3802)*UV(286)+JVS(3804)*UV(288)+JVS(3805)*UV(289)+JVS(3806)*UV(290)& - &+JVS(3807)*UV(291) - JUV(283) = JVS(3808)*UV(203)+JVS(3809)*UV(235)+JVS(3810)*UV(260)+JVS(3811)*UV(262)+JVS(3812)*UV(268)+JVS(3814)*UV(270)& - &+JVS(3824)*UV(282)+JVS(3825)*UV(283)+JVS(3831)*UV(289) - JUV(284) = JVS(3834)*UV(58)+JVS(3835)*UV(64)+JVS(3836)*UV(72)+JVS(3837)*UV(74)+JVS(3838)*UV(78)+JVS(3839)*UV(79)& - &+JVS(3840)*UV(80)+JVS(3841)*UV(85)+JVS(3842)*UV(87)+JVS(3843)*UV(89)+JVS(3844)*UV(91)+JVS(3845)*UV(93)& - &+JVS(3846)*UV(94)+JVS(3847)*UV(95)+JVS(3848)*UV(96)+JVS(3849)*UV(100)+JVS(3850)*UV(101)+JVS(3851)*UV(102)& - &+JVS(3852)*UV(104)+JVS(3853)*UV(106)+JVS(3854)*UV(108)+JVS(3855)*UV(109)+JVS(3856)*UV(110)+JVS(3857)*UV(112)& - &+JVS(3858)*UV(113)+JVS(3859)*UV(115)+JVS(3860)*UV(116)+JVS(3861)*UV(117)+JVS(3862)*UV(118)+JVS(3863)*UV(119)& - &+JVS(3865)*UV(121)+JVS(3866)*UV(123)+JVS(3867)*UV(125)+JVS(3868)*UV(126)+JVS(3869)*UV(127)+JVS(3870)*UV(129)& - &+JVS(3871)*UV(130)+JVS(3872)*UV(131)+JVS(3873)*UV(132)+JVS(3874)*UV(133)+JVS(3875)*UV(137)+JVS(3876)*UV(139)& - &+JVS(3877)*UV(140)+JVS(3878)*UV(141)+JVS(3879)*UV(142)+JVS(3880)*UV(144)+JVS(3881)*UV(145)+JVS(3882)*UV(146)& - &+JVS(3883)*UV(148)+JVS(3884)*UV(149)+JVS(3885)*UV(150)+JVS(3886)*UV(151)+JVS(3887)*UV(152)+JVS(3888)*UV(154)& - &+JVS(3889)*UV(155)+JVS(3890)*UV(156)+JVS(3891)*UV(157)+JVS(3892)*UV(158)+JVS(3893)*UV(159)+JVS(3894)*UV(162)& - &+JVS(3895)*UV(163)+JVS(3896)*UV(164)+JVS(3897)*UV(165)+JVS(3898)*UV(166)+JVS(3899)*UV(167)+JVS(3900)*UV(168)& - &+JVS(3901)*UV(169)+JVS(3902)*UV(170)+JVS(3903)*UV(171)+JVS(3904)*UV(172)+JVS(3905)*UV(175)+JVS(3906)*UV(177)& - &+JVS(3907)*UV(179)+JVS(3908)*UV(180)+JVS(3909)*UV(181)+JVS(3910)*UV(182)+JVS(3911)*UV(183)+JVS(3912)*UV(184)& - &+JVS(3913)*UV(185)+JVS(3914)*UV(186)+JVS(3915)*UV(187)+JVS(3916)*UV(188)+JVS(3917)*UV(189)+JVS(3918)*UV(190)& - &+JVS(3919)*UV(191)+JVS(3920)*UV(192)+JVS(3921)*UV(194)+JVS(3922)*UV(200)+JVS(3923)*UV(201)+JVS(3924)*UV(202)& - &+JVS(3925)*UV(204)+JVS(3926)*UV(205)+JVS(3927)*UV(206)+JVS(3928)*UV(207)+JVS(3929)*UV(208)+JVS(3930)*UV(209)& - &+JVS(3931)*UV(210)+JVS(3932)*UV(211)+JVS(3933)*UV(212)+JVS(3934)*UV(213)+JVS(3935)*UV(214)+JVS(3936)*UV(215)& - &+JVS(3937)*UV(216)+JVS(3938)*UV(217)+JVS(3939)*UV(218)+JVS(3940)*UV(220)+JVS(3941)*UV(222)+JVS(3942)*UV(223)& - &+JVS(3943)*UV(224)+JVS(3944)*UV(225)+JVS(3945)*UV(227)+JVS(3946)*UV(228)+JVS(3947)*UV(229)+JVS(3948)*UV(230)& - &+JVS(3949)*UV(231)+JVS(3950)*UV(232)+JVS(3951)*UV(233)+JVS(3953)*UV(236)+JVS(3954)*UV(237)+JVS(3955)*UV(238)& - &+JVS(3956)*UV(239)+JVS(3957)*UV(240)+JVS(3958)*UV(241)+JVS(3959)*UV(242)+JVS(3960)*UV(243)+JVS(3961)*UV(244)& - &+JVS(3962)*UV(245)+JVS(3963)*UV(246)+JVS(3964)*UV(247)+JVS(3965)*UV(248)+JVS(3966)*UV(249)+JVS(3967)*UV(250)& - &+JVS(3968)*UV(251)+JVS(3969)*UV(252)+JVS(3970)*UV(253)+JVS(3971)*UV(254)+JVS(3972)*UV(255)+JVS(3973)*UV(256)& - &+JVS(3974)*UV(257)+JVS(3975)*UV(258)+JVS(3976)*UV(259)+JVS(3977)*UV(261)+JVS(3978)*UV(263)+JVS(3979)*UV(264)& - &+JVS(3980)*UV(266)+JVS(3981)*UV(267)+JVS(3983)*UV(269)+JVS(3985)*UV(272)+JVS(3986)*UV(273)+JVS(3987)*UV(274)& - &+JVS(3989)*UV(276)+JVS(3992)*UV(279)+JVS(3994)*UV(281)+JVS(3995)*UV(282)+JVS(3997)*UV(284)+JVS(3998)*UV(285)& - &+JVS(3999)*UV(286)+JVS(4001)*UV(288)+JVS(4003)*UV(290)+JVS(4004)*UV(291) - JUV(285) = JVS(4005)*UV(52)+JVS(4006)*UV(53)+JVS(4007)*UV(54)+JVS(4008)*UV(55)+JVS(4009)*UV(56)+JVS(4010)*UV(57)& - &+JVS(4011)*UV(59)+JVS(4012)*UV(75)+JVS(4013)*UV(81)+JVS(4014)*UV(82)+JVS(4015)*UV(83)+JVS(4016)*UV(84)& - &+JVS(4017)*UV(103)+JVS(4018)*UV(111)+JVS(4019)*UV(149)+JVS(4020)*UV(197)+JVS(4021)*UV(217)+JVS(4022)*UV(227)& - &+JVS(4024)*UV(239)+JVS(4031)*UV(262)+JVS(4033)*UV(266)+JVS(4038)*UV(271)+JVS(4039)*UV(272)+JVS(4041)*UV(274)& - &+JVS(4042)*UV(275)+JVS(4046)*UV(279)+JVS(4049)*UV(282)+JVS(4051)*UV(284)+JVS(4052)*UV(285)+JVS(4053)*UV(286)& - &+JVS(4055)*UV(288)+JVS(4057)*UV(290)+JVS(4058)*UV(291) - JUV(286) = JVS(4059)*UV(41)+JVS(4060)*UV(43)+JVS(4061)*UV(46)+JVS(4062)*UV(58)+JVS(4063)*UV(64)+JVS(4064)*UV(66)& - &+JVS(4065)*UV(68)+JVS(4066)*UV(69)+JVS(4067)*UV(70)+JVS(4068)*UV(71)+JVS(4069)*UV(72)+JVS(4070)*UV(75)& - &+JVS(4071)*UV(76)+JVS(4072)*UV(77)+JVS(4073)*UV(78)+JVS(4074)*UV(79)+JVS(4075)*UV(80)+JVS(4076)*UV(81)& - &+JVS(4077)*UV(82)+JVS(4078)*UV(83)+JVS(4079)*UV(84)+JVS(4080)*UV(85)+JVS(4081)*UV(86)+JVS(4082)*UV(87)& - &+JVS(4083)*UV(88)+JVS(4084)*UV(89)+JVS(4085)*UV(90)+JVS(4086)*UV(91)+JVS(4087)*UV(93)+JVS(4088)*UV(94)& - &+JVS(4089)*UV(95)+JVS(4090)*UV(96)+JVS(4091)*UV(97)+JVS(4092)*UV(100)+JVS(4093)*UV(101)+JVS(4094)*UV(102)& - &+JVS(4095)*UV(104)+JVS(4096)*UV(105)+JVS(4097)*UV(106)+JVS(4098)*UV(107)+JVS(4099)*UV(109)+JVS(4100)*UV(110)& - &+JVS(4101)*UV(111)+JVS(4102)*UV(112)+JVS(4103)*UV(113)+JVS(4104)*UV(114)+JVS(4105)*UV(115)+JVS(4106)*UV(116)& - &+JVS(4107)*UV(117)+JVS(4108)*UV(118)+JVS(4109)*UV(119)+JVS(4110)*UV(120)+JVS(4111)*UV(121)+JVS(4112)*UV(122)& - &+JVS(4113)*UV(123)+JVS(4114)*UV(124)+JVS(4115)*UV(125)+JVS(4116)*UV(127)+JVS(4117)*UV(128)+JVS(4118)*UV(129)& - &+JVS(4119)*UV(130)+JVS(4120)*UV(131)+JVS(4121)*UV(132)+JVS(4122)*UV(133)+JVS(4123)*UV(134)+JVS(4124)*UV(136)& - &+JVS(4125)*UV(137)+JVS(4126)*UV(139)+JVS(4127)*UV(140)+JVS(4128)*UV(141)+JVS(4129)*UV(142)+JVS(4130)*UV(143)& - &+JVS(4131)*UV(144)+JVS(4132)*UV(145)+JVS(4133)*UV(146)+JVS(4135)*UV(148)+JVS(4136)*UV(149)+JVS(4137)*UV(150)& - &+JVS(4138)*UV(151)+JVS(4139)*UV(152)+JVS(4140)*UV(153)+JVS(4141)*UV(154)+JVS(4142)*UV(155)+JVS(4143)*UV(156)& - &+JVS(4144)*UV(157)+JVS(4145)*UV(158)+JVS(4146)*UV(159)+JVS(4147)*UV(161)+JVS(4148)*UV(162)+JVS(4149)*UV(163)& - &+JVS(4150)*UV(164)+JVS(4151)*UV(165)+JVS(4152)*UV(166)+JVS(4153)*UV(167)+JVS(4154)*UV(168)+JVS(4155)*UV(169)& - &+JVS(4156)*UV(170)+JVS(4157)*UV(171)+JVS(4158)*UV(172)+JVS(4159)*UV(175)+JVS(4161)*UV(177)+JVS(4162)*UV(178)& - &+JVS(4164)*UV(180)+JVS(4165)*UV(181)+JVS(4166)*UV(182)+JVS(4167)*UV(183)+JVS(4168)*UV(184)+JVS(4169)*UV(186)& - &+JVS(4170)*UV(187)+JVS(4171)*UV(188)+JVS(4172)*UV(189)+JVS(4173)*UV(190)+JVS(4175)*UV(192)+JVS(4176)*UV(193)& - &+JVS(4177)*UV(194)+JVS(4179)*UV(196)+JVS(4180)*UV(197)+JVS(4181)*UV(198)+JVS(4182)*UV(199)+JVS(4183)*UV(200)& - &+JVS(4185)*UV(202)+JVS(4187)*UV(204)+JVS(4188)*UV(205)+JVS(4189)*UV(206)+JVS(4190)*UV(207)+JVS(4191)*UV(208)& - &+JVS(4193)*UV(210)+JVS(4194)*UV(211)+JVS(4195)*UV(212)+JVS(4196)*UV(213)+JVS(4197)*UV(214)+JVS(4201)*UV(218)& - &+JVS(4202)*UV(219)+JVS(4203)*UV(220)+JVS(4204)*UV(221)+JVS(4205)*UV(222)+JVS(4206)*UV(223)+JVS(4207)*UV(224)& - &+JVS(4209)*UV(226)+JVS(4211)*UV(228)+JVS(4212)*UV(229)+JVS(4213)*UV(230)+JVS(4214)*UV(231)+JVS(4215)*UV(232)& - &+JVS(4216)*UV(233)+JVS(4218)*UV(235)+JVS(4219)*UV(236)+JVS(4223)*UV(240)+JVS(4224)*UV(241)+JVS(4225)*UV(242)& - &+JVS(4226)*UV(243)+JVS(4227)*UV(244)+JVS(4228)*UV(245)+JVS(4230)*UV(247)+JVS(4231)*UV(248)+JVS(4232)*UV(249)& - &+JVS(4233)*UV(250)+JVS(4234)*UV(251)+JVS(4235)*UV(252)+JVS(4236)*UV(253)+JVS(4237)*UV(254)+JVS(4238)*UV(255)& - &+JVS(4242)*UV(259)+JVS(4243)*UV(260)+JVS(4244)*UV(261)+JVS(4245)*UV(262)+JVS(4246)*UV(263)+JVS(4247)*UV(264)& - &+JVS(4248)*UV(265)+JVS(4249)*UV(266)+JVS(4250)*UV(267)+JVS(4251)*UV(268)+JVS(4254)*UV(271)+JVS(4255)*UV(272)& - &+JVS(4257)*UV(274)+JVS(4258)*UV(275)+JVS(4259)*UV(276)+JVS(4261)*UV(278)+JVS(4262)*UV(279)+JVS(4263)*UV(280)& - &+JVS(4264)*UV(281)+JVS(4265)*UV(282)+JVS(4267)*UV(284)+JVS(4268)*UV(285)+JVS(4269)*UV(286)+JVS(4270)*UV(287)& - &+JVS(4271)*UV(288)+JVS(4272)*UV(289)+JVS(4273)*UV(290)+JVS(4274)*UV(291) - JUV(287) = JVS(4275)*UV(138)+JVS(4276)*UV(173)+JVS(4277)*UV(203)+JVS(4278)*UV(235)+JVS(4279)*UV(260)+JVS(4280)*UV(262)& - &+JVS(4284)*UV(268)+JVS(4286)*UV(270)+JVS(4287)*UV(271)+JVS(4291)*UV(275)+JVS(4302)*UV(286)+JVS(4303)*UV(287) - JUV(288) = JVS(4308)*UV(47)+JVS(4309)*UV(48)+JVS(4310)*UV(52)+JVS(4311)*UV(53)+JVS(4312)*UV(54)+JVS(4313)*UV(55)& - &+JVS(4314)*UV(56)+JVS(4315)*UV(57)+JVS(4316)*UV(59)+JVS(4317)*UV(65)+JVS(4318)*UV(66)+JVS(4319)*UV(71)& - &+JVS(4320)*UV(77)+JVS(4321)*UV(81)+JVS(4322)*UV(82)+JVS(4323)*UV(83)+JVS(4324)*UV(84)+JVS(4325)*UV(111)& - &+JVS(4326)*UV(149)+JVS(4327)*UV(177)+JVS(4329)*UV(197)+JVS(4330)*UV(212)+JVS(4332)*UV(227)+JVS(4338)*UV(260)& - &+JVS(4340)*UV(262)+JVS(4341)*UV(263)+JVS(4349)*UV(272)+JVS(4351)*UV(274)+JVS(4352)*UV(275)+JVS(4356)*UV(279)& - &+JVS(4358)*UV(281)+JVS(4359)*UV(282)+JVS(4361)*UV(284)+JVS(4362)*UV(285)+JVS(4363)*UV(286)+JVS(4365)*UV(288)& - &+JVS(4366)*UV(289)+JVS(4368)*UV(291) - JUV(289) = JVS(4369)*UV(124)+JVS(4370)*UV(161)+JVS(4371)*UV(221)+JVS(4372)*UV(235)+JVS(4374)*UV(253)+JVS(4380)*UV(260)& - &+JVS(4382)*UV(262)+JVS(4383)*UV(263)+JVS(4384)*UV(264)+JVS(4387)*UV(271)+JVS(4388)*UV(272)+JVS(4389)*UV(273)& - &+JVS(4392)*UV(276)+JVS(4398)*UV(282)+JVS(4400)*UV(284)+JVS(4402)*UV(286)+JVS(4404)*UV(288)+JVS(4405)*UV(289) - JUV(290) = JVS(4408)*UV(3)+JVS(4409)*UV(43)+JVS(4410)*UV(52)+JVS(4411)*UV(53)+JVS(4412)*UV(54)+JVS(4413)*UV(55)& - &+JVS(4414)*UV(56)+JVS(4415)*UV(57)+JVS(4416)*UV(59)+JVS(4417)*UV(72)+JVS(4418)*UV(75)+JVS(4419)*UV(78)& - &+JVS(4420)*UV(81)+JVS(4421)*UV(82)+JVS(4422)*UV(83)+JVS(4423)*UV(84)+JVS(4424)*UV(99)+JVS(4425)*UV(103)& - &+JVS(4426)*UV(114)+JVS(4427)*UV(124)+JVS(4428)*UV(133)+JVS(4429)*UV(135)+JVS(4430)*UV(137)+JVS(4431)*UV(149)& - &+JVS(4432)*UV(161)+JVS(4434)*UV(190)+JVS(4435)*UV(197)+JVS(4437)*UV(211)+JVS(4438)*UV(212)+JVS(4439)*UV(217)& - &+JVS(4440)*UV(218)+JVS(4441)*UV(219)+JVS(4442)*UV(221)+JVS(4443)*UV(224)+JVS(4445)*UV(227)+JVS(4447)*UV(235)& - &+JVS(4451)*UV(239)+JVS(4465)*UV(253)+JVS(4474)*UV(262)+JVS(4475)*UV(263)+JVS(4477)*UV(266)+JVS(4482)*UV(271)& - &+JVS(4483)*UV(272)+JVS(4486)*UV(275)+JVS(4490)*UV(279)+JVS(4493)*UV(282)+JVS(4495)*UV(284)+JVS(4496)*UV(285)& - &+JVS(4497)*UV(286)+JVS(4499)*UV(288)+JVS(4501)*UV(290) - JUV(291) = JVS(4503)*UV(50)+JVS(4504)*UV(51)+JVS(4505)*UV(62)+JVS(4506)*UV(63)+JVS(4507)*UV(65)+JVS(4508)*UV(67)& - &+JVS(4509)*UV(68)+JVS(4510)*UV(74)+JVS(4511)*UV(87)+JVS(4512)*UV(89)+JVS(4513)*UV(91)+JVS(4514)*UV(92)& - &+JVS(4515)*UV(96)+JVS(4516)*UV(97)+JVS(4517)*UV(102)+JVS(4518)*UV(113)+JVS(4519)*UV(121)+JVS(4520)*UV(123)& - &+JVS(4521)*UV(134)+JVS(4523)*UV(139)+JVS(4524)*UV(140)+JVS(4525)*UV(144)+JVS(4526)*UV(145)+JVS(4527)*UV(146)& - &+JVS(4529)*UV(150)+JVS(4530)*UV(151)+JVS(4531)*UV(152)+JVS(4532)*UV(153)+JVS(4533)*UV(160)+JVS(4534)*UV(166)& - &+JVS(4535)*UV(167)+JVS(4536)*UV(168)+JVS(4537)*UV(173)+JVS(4538)*UV(176)+JVS(4539)*UV(178)+JVS(4540)*UV(179)& - &+JVS(4541)*UV(180)+JVS(4542)*UV(181)+JVS(4543)*UV(182)+JVS(4544)*UV(183)+JVS(4545)*UV(184)+JVS(4547)*UV(187)& - &+JVS(4549)*UV(189)+JVS(4550)*UV(191)+JVS(4551)*UV(193)+JVS(4552)*UV(194)+JVS(4553)*UV(195)+JVS(4554)*UV(198)& - &+JVS(4555)*UV(199)+JVS(4556)*UV(200)+JVS(4557)*UV(201)+JVS(4558)*UV(202)+JVS(4559)*UV(203)+JVS(4560)*UV(204)& - &+JVS(4561)*UV(205)+JVS(4562)*UV(207)+JVS(4563)*UV(208)+JVS(4564)*UV(209)+JVS(4565)*UV(210)+JVS(4566)*UV(213)& - &+JVS(4567)*UV(214)+JVS(4568)*UV(215)+JVS(4569)*UV(216)+JVS(4570)*UV(217)+JVS(4571)*UV(220)+JVS(4572)*UV(222)& - &+JVS(4574)*UV(225)+JVS(4575)*UV(227)+JVS(4576)*UV(228)+JVS(4577)*UV(229)+JVS(4578)*UV(232)+JVS(4579)*UV(234)& - &+JVS(4580)*UV(235)+JVS(4581)*UV(237)+JVS(4582)*UV(238)+JVS(4583)*UV(239)+JVS(4584)*UV(240)+JVS(4585)*UV(241)& - &+JVS(4586)*UV(242)+JVS(4587)*UV(243)+JVS(4588)*UV(244)+JVS(4589)*UV(245)+JVS(4590)*UV(246)+JVS(4591)*UV(247)& - &+JVS(4593)*UV(249)+JVS(4595)*UV(252)+JVS(4597)*UV(254)+JVS(4598)*UV(255)+JVS(4599)*UV(256)+JVS(4600)*UV(257)& - &+JVS(4601)*UV(258)+JVS(4603)*UV(261)+JVS(4604)*UV(262)+JVS(4606)*UV(265)+JVS(4607)*UV(266)+JVS(4610)*UV(269)& - &+JVS(4611)*UV(270)+JVS(4613)*UV(273)+JVS(4614)*UV(274)+JVS(4619)*UV(279)+JVS(4621)*UV(281)+JVS(4622)*UV(282)& - &+JVS(4624)*UV(284)+JVS(4625)*UV(285)+JVS(4626)*UV(286)+JVS(4628)*UV(288)+JVS(4631)*UV(291) + 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(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)& + &*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) END SUBROUTINE Jac_SP_Vec @@ -17827,763 +21799,941 @@ 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(3077)*UV(269) - JTUV(2) = JVS(2)*UV(2)+JVS(3078)*UV(269)+JVS(3206)*UV(273) - JTUV(3) = JVS(3)*UV(3)+JVS(3079)*UV(269)+JVS(4408)*UV(290) + 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(4) = JVS(4)*UV(4) JTUV(5) = JVS(9)*UV(5) JTUV(6) = JVS(11)*UV(6) JTUV(7) = JVS(14)*UV(7) - JTUV(8) = JVS(68)*UV(8) - JTUV(9) = JVS(71)*UV(9) - JTUV(10) = JVS(79)*UV(10) - JTUV(11) = JVS(87)*UV(11) - JTUV(12) = JVS(90)*UV(12) - JTUV(13) = JVS(88)*UV(11)+JVS(91)*UV(12)+JVS(93)*UV(13) - JTUV(14) = JVS(98)*UV(14) - JTUV(15) = JVS(101)*UV(15) - JTUV(16) = JVS(104)*UV(16) - JTUV(17) = JVS(107)*UV(17) - JTUV(18) = JVS(105)*UV(16)+JVS(108)*UV(17)+JVS(110)*UV(18) - JTUV(19) = JVS(111)*UV(18)+JVS(115)*UV(19) - JTUV(20) = JVS(117)*UV(20) - JTUV(21) = JVS(120)*UV(21) - JTUV(22) = JVS(118)*UV(20)+JVS(121)*UV(21)+JVS(123)*UV(22) - JTUV(23) = JVS(128)*UV(23) - JTUV(24) = JVS(129)*UV(23)+JVS(130)*UV(24) - JTUV(25) = JVS(136)*UV(25) - JTUV(26) = JVS(139)*UV(26) - JTUV(27) = JVS(137)*UV(25)+JVS(140)*UV(26)+JVS(142)*UV(27) - JTUV(28) = JVS(147)*UV(28) - JTUV(29) = JVS(150)*UV(29) - JTUV(30) = JVS(154)*UV(30) - JTUV(31) = JVS(158)*UV(31) - JTUV(32) = JVS(164)*UV(32) - JTUV(33) = JVS(169)*UV(33) - JTUV(34) = JVS(175)*UV(34) - JTUV(35) = JVS(257)*UV(35) - JTUV(36) = JVS(359)*UV(36) - JTUV(37) = JVS(434)*UV(37) - JTUV(38) = JVS(439)*UV(38) - JTUV(39) = JVS(450)*UV(39) - JTUV(40) = JVS(455)*UV(40) - JTUV(41) = JVS(12)*UV(6)+JVS(467)*UV(41)+JVS(4059)*UV(286) - JTUV(42) = JVS(5)*UV(4)+JVS(72)*UV(9)+JVS(80)*UV(10)+JVS(258)*UV(35)+JVS(469)*UV(42)+JVS(618)*UV(92) - JTUV(43) = JVS(471)*UV(43)+JVS(3439)*UV(278)+JVS(4060)*UV(286)+JVS(4409)*UV(290) - JTUV(44) = JVS(6)*UV(4)+JVS(73)*UV(9)+JVS(81)*UV(10)+JVS(259)*UV(35)+JVS(473)*UV(44)+JVS(619)*UV(92)+JVS(1807)*UV(227)& - &+JVS(3080)*UV(269) - JTUV(45) = JVS(69)*UV(8)+JVS(176)*UV(34)+JVS(475)*UV(45)+JVS(2804)*UV(265) - JTUV(46) = JVS(479)*UV(46)+JVS(2895)*UV(266)+JVS(3081)*UV(269)+JVS(3440)*UV(278)+JVS(4061)*UV(286) - JTUV(47) = JVS(481)*UV(47)+JVS(3157)*UV(272)+JVS(3207)*UV(273)+JVS(3262)*UV(274)+JVS(4308)*UV(288) - JTUV(48) = JVS(483)*UV(48)+JVS(3158)*UV(272)+JVS(3208)*UV(273)+JVS(3263)*UV(274)+JVS(4309)*UV(288) - JTUV(49) = JVS(7)*UV(4)+JVS(74)*UV(9)+JVS(82)*UV(10)+JVS(260)*UV(35)+JVS(485)*UV(49)+JVS(620)*UV(92)+JVS(1808)*UV(227) - JTUV(50) = JVS(488)*UV(50)+JVS(2454)*UV(255)+JVS(4503)*UV(291) - JTUV(51) = JVS(491)*UV(51)+JVS(3209)*UV(273)+JVS(4504)*UV(291) - JTUV(52) = JVS(494)*UV(52)+JVS(3159)*UV(272)+JVS(4005)*UV(285)+JVS(4310)*UV(288)+JVS(4410)*UV(290) - JTUV(53) = JVS(496)*UV(53)+JVS(3160)*UV(272)+JVS(4006)*UV(285)+JVS(4311)*UV(288)+JVS(4411)*UV(290) - JTUV(54) = JVS(498)*UV(54)+JVS(3161)*UV(272)+JVS(4007)*UV(285)+JVS(4312)*UV(288)+JVS(4412)*UV(290) - JTUV(55) = JVS(261)*UV(35)+JVS(500)*UV(55)+JVS(3162)*UV(272)+JVS(4008)*UV(285)+JVS(4313)*UV(288)+JVS(4413)*UV(290) - JTUV(56) = JVS(262)*UV(35)+JVS(502)*UV(56)+JVS(3163)*UV(272)+JVS(4009)*UV(285)+JVS(4314)*UV(288)+JVS(4414)*UV(290) - JTUV(57) = JVS(504)*UV(57)+JVS(3164)*UV(272)+JVS(4010)*UV(285)+JVS(4315)*UV(288)+JVS(4415)*UV(290) - JTUV(58) = JVS(360)*UV(36)+JVS(506)*UV(58)+JVS(1530)*UV(211)+JVS(1731)*UV(223)+JVS(2957)*UV(267)+JVS(3834)*UV(284)& - &+JVS(4062)*UV(286) - JTUV(59) = JVS(508)*UV(59)+JVS(3165)*UV(272)+JVS(3210)*UV(273)+JVS(3264)*UV(274)+JVS(4011)*UV(285)+JVS(4316)*UV(288)& - &+JVS(4416)*UV(290) - JTUV(60) = JVS(510)*UV(60)+JVS(907)*UV(143)+JVS(3082)*UV(269)+JVS(3527)*UV(279) - JTUV(61) = JVS(177)*UV(34)+JVS(263)*UV(35)+JVS(513)*UV(61)+JVS(3166)*UV(272)+JVS(3528)*UV(279) - JTUV(62) = JVS(264)*UV(35)+JVS(517)*UV(62)+JVS(1299)*UV(193)+JVS(4505)*UV(291) - JTUV(63) = JVS(265)*UV(35)+JVS(521)*UV(63)+JVS(1300)*UV(193)+JVS(4506)*UV(291) - JTUV(64) = JVS(94)*UV(13)+JVS(361)*UV(36)+JVS(525)*UV(64)+JVS(757)*UV(118)+JVS(1003)*UV(159)+JVS(1211)*UV(184)& - &+JVS(1732)*UV(223)+JVS(2958)*UV(267)+JVS(3835)*UV(284)+JVS(4063)*UV(286) - JTUV(65) = JVS(178)*UV(34)+JVS(514)*UV(61)+JVS(527)*UV(65)+JVS(3529)*UV(279)+JVS(4317)*UV(288)+JVS(4507)*UV(291) - JTUV(66) = JVS(15)*UV(7)+JVS(266)*UV(35)+JVS(362)*UV(36)+JVS(530)*UV(66)+JVS(2959)*UV(267)+JVS(3371)*UV(276)+JVS(4064)& - &*UV(286)+JVS(4318)*UV(288) - JTUV(67) = JVS(16)*UV(7)+JVS(179)*UV(34)+JVS(533)*UV(67)+JVS(2582)*UV(261)+JVS(2896)*UV(266)+JVS(3657)*UV(281)& - &+JVS(4508)*UV(291) - JTUV(68) = JVS(180)*UV(34)+JVS(536)*UV(68)+JVS(2030)*UV(236)+JVS(4065)*UV(286)+JVS(4509)*UV(291) - JTUV(69) = JVS(8)*UV(4)+JVS(75)*UV(9)+JVS(83)*UV(10)+JVS(540)*UV(69)+JVS(3083)*UV(269)+JVS(3441)*UV(278)+JVS(4066)& - &*UV(286) - JTUV(70) = JVS(17)*UV(7)+JVS(544)*UV(70)+JVS(1181)*UV(180)+JVS(1275)*UV(191)+JVS(4067)*UV(286) - JTUV(71) = JVS(548)*UV(71)+JVS(3168)*UV(272)+JVS(3211)*UV(273)+JVS(3265)*UV(274)+JVS(4068)*UV(286)+JVS(4319)*UV(288) - JTUV(72) = JVS(363)*UV(36)+JVS(551)*UV(72)+JVS(2960)*UV(267)+JVS(3294)*UV(275)+JVS(3836)*UV(284)+JVS(4069)*UV(286)& - &+JVS(4417)*UV(290) - JTUV(73) = JVS(554)*UV(73)+JVS(3084)*UV(269)+JVS(3212)*UV(273) - JTUV(74) = JVS(181)*UV(34)+JVS(560)*UV(74)+JVS(2668)*UV(263)+JVS(2897)*UV(266)+JVS(3658)*UV(281)+JVS(3837)*UV(284)& - &+JVS(4510)*UV(291) - JTUV(75) = JVS(267)*UV(35)+JVS(563)*UV(75)+JVS(679)*UV(103)+JVS(3125)*UV(271)+JVS(4012)*UV(285)+JVS(4070)*UV(286)& - &+JVS(4418)*UV(290) - JTUV(76) = JVS(268)*UV(35)+JVS(566)*UV(76)+JVS(1172)*UV(179)+JVS(2003)*UV(234)+JVS(2669)*UV(263)+JVS(3749)*UV(282)& - &+JVS(4071)*UV(286) - JTUV(77) = JVS(569)*UV(77)+JVS(3169)*UV(272)+JVS(3213)*UV(273)+JVS(3266)*UV(274)+JVS(4072)*UV(286)+JVS(4320)*UV(288) - JTUV(78) = JVS(364)*UV(36)+JVS(572)*UV(78)+JVS(2961)*UV(267)+JVS(3295)*UV(275)+JVS(3838)*UV(284)+JVS(4073)*UV(286)& - &+JVS(4419)*UV(290) - JTUV(79) = JVS(124)*UV(22)+JVS(365)*UV(36)+JVS(575)*UV(79)+JVS(670)*UV(101)+JVS(740)*UV(115)+JVS(937)*UV(148)& - &+JVS(1004)*UV(159)+JVS(1212)*UV(184)+JVS(1733)*UV(223)+JVS(1942)*UV(233)+JVS(2271)*UV(248)+JVS(2962)*UV(267)& - &+JVS(3839)*UV(284)+JVS(4074)*UV(286) - JTUV(80) = JVS(143)*UV(27)+JVS(366)*UV(36)+JVS(577)*UV(80)+JVS(671)*UV(101)+JVS(741)*UV(115)+JVS(938)*UV(148)& - &+JVS(1005)*UV(159)+JVS(1213)*UV(184)+JVS(1734)*UV(223)+JVS(1943)*UV(233)+JVS(2272)*UV(248)+JVS(2963)*UV(267)& - &+JVS(3840)*UV(284)+JVS(4075)*UV(286) - JTUV(81) = JVS(579)*UV(81)+JVS(3170)*UV(272)+JVS(3442)*UV(278)+JVS(4013)*UV(285)+JVS(4076)*UV(286)+JVS(4321)*UV(288)& - &+JVS(4420)*UV(290) - JTUV(82) = JVS(582)*UV(82)+JVS(3171)*UV(272)+JVS(3443)*UV(278)+JVS(4014)*UV(285)+JVS(4077)*UV(286)+JVS(4322)*UV(288)& - &+JVS(4421)*UV(290) - JTUV(83) = JVS(585)*UV(83)+JVS(3172)*UV(272)+JVS(3444)*UV(278)+JVS(4015)*UV(285)+JVS(4078)*UV(286)+JVS(4323)*UV(288)& - &+JVS(4422)*UV(290) - JTUV(84) = JVS(269)*UV(35)+JVS(588)*UV(84)+JVS(3173)*UV(272)+JVS(3445)*UV(278)+JVS(4016)*UV(285)+JVS(4079)*UV(286)& - &+JVS(4324)*UV(288)+JVS(4423)*UV(290) - JTUV(85) = JVS(591)*UV(85)+JVS(1531)*UV(211)+JVS(2670)*UV(263)+JVS(3841)*UV(284)+JVS(4080)*UV(286) - JTUV(86) = JVS(170)*UV(33)+JVS(440)*UV(38)+JVS(595)*UV(86)+JVS(776)*UV(122)+JVS(2671)*UV(263)+JVS(3372)*UV(276)& - &+JVS(4081)*UV(286) - JTUV(87) = JVS(182)*UV(34)+JVS(599)*UV(87)+JVS(1707)*UV(221)+JVS(3842)*UV(284)+JVS(4082)*UV(286)+JVS(4511)*UV(291) - JTUV(88) = JVS(18)*UV(7)+JVS(603)*UV(88)+JVS(2583)*UV(261)+JVS(2672)*UV(263)+JVS(2898)*UV(266)+JVS(4083)*UV(286) - JTUV(89) = JVS(183)*UV(34)+JVS(607)*UV(89)+JVS(2673)*UV(263)+JVS(3843)*UV(284)+JVS(4084)*UV(286)+JVS(4512)*UV(291) - JTUV(90) = JVS(148)*UV(28)+JVS(270)*UV(35)+JVS(611)*UV(90)+JVS(2674)*UV(263)+JVS(2805)*UV(265)+JVS(2899)*UV(266)& - &+JVS(3373)*UV(276)+JVS(3659)*UV(281)+JVS(4085)*UV(286) - JTUV(91) = JVS(184)*UV(34)+JVS(614)*UV(91)+JVS(2527)*UV(259)+JVS(3844)*UV(284)+JVS(4086)*UV(286)+JVS(4513)*UV(291) - JTUV(92) = JVS(271)*UV(35)+JVS(470)*UV(42)+JVS(486)*UV(49)+JVS(621)*UV(92)+JVS(1809)*UV(227)+JVS(3085)*UV(269)& - &+JVS(3530)*UV(279)+JVS(4514)*UV(291) - JTUV(93) = JVS(625)*UV(93)+JVS(2476)*UV(256)+JVS(2528)*UV(259)+JVS(3845)*UV(284)+JVS(4087)*UV(286) - JTUV(94) = JVS(629)*UV(94)+JVS(2076)*UV(237)+JVS(2529)*UV(259)+JVS(3846)*UV(284)+JVS(4088)*UV(286) - JTUV(95) = JVS(633)*UV(95)+JVS(1708)*UV(221)+JVS(2506)*UV(258)+JVS(3847)*UV(284)+JVS(4089)*UV(286) - JTUV(96) = JVS(185)*UV(34)+JVS(637)*UV(96)+JVS(2773)*UV(264)+JVS(3848)*UV(284)+JVS(4090)*UV(286)+JVS(4515)*UV(291) - JTUV(97) = JVS(19)*UV(7)+JVS(186)*UV(34)+JVS(641)*UV(97)+JVS(700)*UV(107)+JVS(1182)*UV(180)+JVS(4091)*UV(286)& - &+JVS(4516)*UV(291) - JTUV(98) = JVS(70)*UV(8)+JVS(187)*UV(34)+JVS(645)*UV(98)+JVS(2806)*UV(265) - JTUV(99) = JVS(659)*UV(99)+JVS(3086)*UV(269)+JVS(4424)*UV(290) - JTUV(100) = JVS(272)*UV(35)+JVS(667)*UV(100)+JVS(2900)*UV(266)+JVS(3174)*UV(272)+JVS(3214)*UV(273)+JVS(3267)*UV(274)& - &+JVS(3446)*UV(278)+JVS(3849)*UV(284)+JVS(4092)*UV(286) - JTUV(101) = JVS(273)*UV(35)+JVS(367)*UV(36)+JVS(672)*UV(101)+JVS(1183)*UV(180)+JVS(1276)*UV(191)+JVS(2807)*UV(265)& - &+JVS(2964)*UV(267)+JVS(3660)*UV(281)+JVS(3850)*UV(284)+JVS(4093)*UV(286) - JTUV(102) = JVS(188)*UV(34)+JVS(675)*UV(102)+JVS(3447)*UV(278)+JVS(3661)*UV(281)+JVS(3851)*UV(284)+JVS(4094)*UV(286)& - &+JVS(4517)*UV(291) - JTUV(103) = JVS(189)*UV(34)+JVS(680)*UV(103)+JVS(1356)*UV(197)+JVS(4017)*UV(285)+JVS(4425)*UV(290) - JTUV(104) = JVS(20)*UV(7)+JVS(155)*UV(30)+JVS(686)*UV(104)+JVS(2584)*UV(261)+JVS(3852)*UV(284)+JVS(4095)*UV(286) - JTUV(105) = JVS(159)*UV(31)+JVS(368)*UV(36)+JVS(692)*UV(105)+JVS(1532)*UV(211)+JVS(1944)*UV(233)+JVS(2585)*UV(261)& - &+JVS(2965)*UV(267)+JVS(4096)*UV(286) - JTUV(106) = JVS(696)*UV(106)+JVS(2455)*UV(255)+JVS(2774)*UV(264)+JVS(2901)*UV(266)+JVS(3853)*UV(284)+JVS(4097)*UV(286) - JTUV(107) = JVS(701)*UV(107)+JVS(1013)*UV(160)+JVS(1277)*UV(191)+JVS(4098)*UV(286) - JTUV(108) = JVS(707)*UV(108)+JVS(2031)*UV(236)+JVS(2675)*UV(263)+JVS(3854)*UV(284) - JTUV(109) = JVS(369)*UV(36)+JVS(713)*UV(109)+JVS(977)*UV(156)+JVS(2966)*UV(267)+JVS(3855)*UV(284)+JVS(4099)*UV(286) - JTUV(110) = JVS(718)*UV(110)+JVS(2106)*UV(239)+JVS(2775)*UV(264)+JVS(3856)*UV(284)+JVS(4100)*UV(286) - JTUV(111) = JVS(274)*UV(35)+JVS(723)*UV(111)+JVS(3126)*UV(271)+JVS(4018)*UV(285)+JVS(4101)*UV(286)+JVS(4325)*UV(288) - JTUV(112) = JVS(728)*UV(112)+JVS(1506)*UV(209)+JVS(2316)*UV(250)+JVS(2676)*UV(263)+JVS(2776)*UV(264)+JVS(3857)*UV(284)& - &+JVS(4102)*UV(286) - JTUV(113) = JVS(732)*UV(113)+JVS(1370)*UV(198)+JVS(1419)*UV(201)+JVS(2530)*UV(259)+JVS(3858)*UV(284)+JVS(4103)*UV(286)& - &+JVS(4518)*UV(291) - JTUV(114) = JVS(275)*UV(35)+JVS(736)*UV(114)+JVS(2477)*UV(256)+JVS(2808)*UV(265)+JVS(3296)*UV(275)+JVS(3662)*UV(281)& - &+JVS(4104)*UV(286)+JVS(4426)*UV(290) - JTUV(115) = JVS(276)*UV(35)+JVS(742)*UV(115)+JVS(901)*UV(142)+JVS(939)*UV(148)+JVS(1014)*UV(160)+JVS(1214)*UV(184)& - &+JVS(1516)*UV(210)+JVS(2809)*UV(265)+JVS(3663)*UV(281)+JVS(3859)*UV(284)+JVS(4105)*UV(286) - JTUV(116) = JVS(160)*UV(31)+JVS(745)*UV(116)+JVS(1107)*UV(174)+JVS(1320)*UV(194)+JVS(3860)*UV(284)+JVS(4106)*UV(286) - JTUV(117) = JVS(751)*UV(117)+JVS(1069)*UV(169)+JVS(1225)*UV(185)+JVS(3861)*UV(284)+JVS(4107)*UV(286) - JTUV(118) = JVS(277)*UV(35)+JVS(758)*UV(118)+JVS(902)*UV(142)+JVS(1006)*UV(159)+JVS(1015)*UV(160)+JVS(1215)*UV(184)& - &+JVS(1517)*UV(210)+JVS(1735)*UV(223)+JVS(2810)*UV(265)+JVS(3664)*UV(281)+JVS(3862)*UV(284)+JVS(4108)& - &*UV(286) - JTUV(119) = JVS(761)*UV(119)+JVS(1787)*UV(226)+JVS(2478)*UV(256)+JVS(2531)*UV(259)+JVS(3863)*UV(284)+JVS(4109)*UV(286) - JTUV(120) = JVS(708)*UV(108)+JVS(766)*UV(120)+JVS(1173)*UV(179)+JVS(2032)*UV(236)+JVS(4110)*UV(286) - JTUV(121) = JVS(21)*UV(7)+JVS(190)*UV(34)+JVS(771)*UV(121)+JVS(2273)*UV(248)+JVS(3531)*UV(279)+JVS(3865)*UV(284)& - &+JVS(4111)*UV(286)+JVS(4519)*UV(291) - JTUV(122) = JVS(777)*UV(122)+JVS(3374)*UV(276)+JVS(4112)*UV(286) - JTUV(123) = JVS(22)*UV(7)+JVS(191)*UV(34)+JVS(788)*UV(123)+JVS(2373)*UV(251)+JVS(3532)*UV(279)+JVS(3866)*UV(284)& - &+JVS(4113)*UV(286)+JVS(4520)*UV(291) - JTUV(124) = JVS(793)*UV(124)+JVS(2077)*UV(237)+JVS(2507)*UV(258)+JVS(3215)*UV(273)+JVS(3297)*UV(275)+JVS(4114)*UV(286)& - &+JVS(4369)*UV(289)+JVS(4427)*UV(290) - JTUV(125) = JVS(370)*UV(36)+JVS(797)*UV(125)+JVS(978)*UV(156)+JVS(1070)*UV(169)+JVS(1226)*UV(185)+JVS(1821)*UV(228)& - &+JVS(1841)*UV(229)+JVS(2967)*UV(267)+JVS(3867)*UV(284)+JVS(4115)*UV(286) - JTUV(126) = JVS(801)*UV(126)+JVS(1928)*UV(232)+JVS(2127)*UV(240)+JVS(3868)*UV(284) - JTUV(127) = JVS(371)*UV(36)+JVS(810)*UV(127)+JVS(1108)*UV(174)+JVS(1894)*UV(231)+JVS(2374)*UV(251)+JVS(2968)*UV(267)& - &+JVS(3869)*UV(284)+JVS(4116)*UV(286) - JTUV(128) = JVS(192)*UV(34)+JVS(815)*UV(128)+JVS(2564)*UV(260)+JVS(3216)*UV(273)+JVS(4117)*UV(286) - JTUV(129) = JVS(372)*UV(36)+JVS(824)*UV(129)+JVS(1109)*UV(174)+JVS(1861)*UV(230)+JVS(2274)*UV(248)+JVS(2969)*UV(267)& - &+JVS(3870)*UV(284)+JVS(4118)*UV(286) - JTUV(130) = JVS(161)*UV(31)+JVS(829)*UV(130)+JVS(1110)*UV(174)+JVS(1822)*UV(228)+JVS(1842)*UV(229)+JVS(3871)*UV(284)& - &+JVS(4119)*UV(286) - JTUV(131) = JVS(162)*UV(31)+JVS(835)*UV(131)+JVS(1111)*UV(174)+JVS(1823)*UV(228)+JVS(1843)*UV(229)+JVS(3872)*UV(284)& - &+JVS(4120)*UV(286) - JTUV(132) = JVS(373)*UV(36)+JVS(841)*UV(132)+JVS(1227)*UV(185)+JVS(2317)*UV(250)+JVS(2970)*UV(267)+JVS(3873)*UV(284)& - &+JVS(4121)*UV(286) - JTUV(133) = JVS(847)*UV(133)+JVS(2777)*UV(264)+JVS(3298)*UV(275)+JVS(3874)*UV(284)+JVS(4122)*UV(286)+JVS(4428)*UV(290) - JTUV(134) = JVS(193)*UV(34)+JVS(278)*UV(35)+JVS(476)*UV(45)+JVS(853)*UV(134)+JVS(2318)*UV(250)+JVS(3665)*UV(281)& - &+JVS(4123)*UV(286)+JVS(4521)*UV(291) - JTUV(135) = JVS(859)*UV(135)+JVS(3217)*UV(273)+JVS(4429)*UV(290) - JTUV(136) = JVS(23)*UV(7)+JVS(374)*UV(36)+JVS(693)*UV(105)+JVS(873)*UV(136)+JVS(1479)*UV(207)+JVS(2319)*UV(250)& - &+JVS(2586)*UV(261)+JVS(2678)*UV(263)+JVS(2902)*UV(266)+JVS(2971)*UV(267)+JVS(4124)*UV(286) - JTUV(137) = JVS(877)*UV(137)+JVS(2679)*UV(263)+JVS(2903)*UV(266)+JVS(3299)*UV(275)+JVS(3448)*UV(278)+JVS(3875)*UV(284)& - &+JVS(4125)*UV(286)+JVS(4430)*UV(290) - JTUV(138) = JVS(151)*UV(29)+JVS(279)*UV(35)+JVS(522)*UV(63)+JVS(882)*UV(138)+JVS(2812)*UV(265)+JVS(3300)*UV(275)& - &+JVS(3375)*UV(276)+JVS(3750)*UV(282)+JVS(4275)*UV(287) - JTUV(139) = JVS(280)*UV(35)+JVS(646)*UV(98)+JVS(830)*UV(130)+JVS(836)*UV(131)+JVS(887)*UV(139)+JVS(1058)*UV(167)& - &+JVS(2275)*UV(248)+JVS(2680)*UV(263)+JVS(3876)*UV(284)+JVS(4126)*UV(286)+JVS(4523)*UV(291) - JTUV(140) = JVS(281)*UV(35)+JVS(647)*UV(98)+JVS(831)*UV(130)+JVS(837)*UV(131)+JVS(891)*UV(140)+JVS(958)*UV(152)& - &+JVS(2375)*UV(251)+JVS(2681)*UV(263)+JVS(3877)*UV(284)+JVS(4127)*UV(286)+JVS(4524)*UV(291) - JTUV(141) = JVS(895)*UV(141)+JVS(1042)*UV(164)+JVS(1464)*UV(206)+JVS(2033)*UV(236)+JVS(2320)*UV(250)+JVS(3878)*UV(284)& - &+JVS(4128)*UV(286) - JTUV(142) = JVS(282)*UV(35)+JVS(903)*UV(142)+JVS(1007)*UV(159)+JVS(1016)*UV(160)+JVS(1216)*UV(184)+JVS(1518)*UV(210)& - &+JVS(2034)*UV(236)+JVS(2815)*UV(265)+JVS(3666)*UV(281)+JVS(3751)*UV(282)+JVS(3879)*UV(284)+JVS(4129)& - &*UV(286) - JTUV(143) = JVS(194)*UV(34)+JVS(908)*UV(143)+JVS(3058)*UV(268)+JVS(3087)*UV(269)+JVS(3106)*UV(270)+JVS(3667)*UV(281)& - &+JVS(4130)*UV(286) - JTUV(144) = JVS(195)*UV(34)+JVS(915)*UV(144)+JVS(1442)*UV(204)+JVS(2143)*UV(241)+JVS(3533)*UV(279)+JVS(3880)*UV(284)& - &+JVS(4131)*UV(286)+JVS(4525)*UV(291) - JTUV(145) = JVS(196)*UV(34)+JVS(921)*UV(145)+JVS(1404)*UV(200)+JVS(1453)*UV(205)+JVS(3534)*UV(279)+JVS(3881)*UV(284)& - &+JVS(4132)*UV(286)+JVS(4526)*UV(291) - JTUV(146) = JVS(197)*UV(34)+JVS(927)*UV(146)+JVS(1371)*UV(198)+JVS(1489)*UV(208)+JVS(2035)*UV(236)+JVS(2197)*UV(243)& - &+JVS(3535)*UV(279)+JVS(3882)*UV(284)+JVS(4133)*UV(286)+JVS(4527)*UV(291) - JTUV(147) = JVS(283)*UV(35)+JVS(441)*UV(38)+JVS(518)*UV(62)+JVS(778)*UV(122)+JVS(932)*UV(147)+JVS(2816)*UV(265)& - &+JVS(3301)*UV(275)+JVS(3376)*UV(276)+JVS(3624)*UV(280)+JVS(3752)*UV(282) - JTUV(148) = JVS(284)*UV(35)+JVS(375)*UV(36)+JVS(940)*UV(148)+JVS(1534)*UV(211)+JVS(1672)*UV(219)+JVS(1946)*UV(233)& - &+JVS(2036)*UV(236)+JVS(2456)*UV(255)+JVS(2479)*UV(256)+JVS(2532)*UV(259)+JVS(2972)*UV(267)+JVS(3753)& - &*UV(282)+JVS(3883)*UV(284)+JVS(4135)*UV(286) - JTUV(149) = JVS(285)*UV(35)+JVS(376)*UV(36)+JVS(944)*UV(149)+JVS(1150)*UV(177)+JVS(2904)*UV(266)+JVS(2973)*UV(267)& - &+JVS(3175)*UV(272)+JVS(3302)*UV(275)+JVS(3449)*UV(278)+JVS(3884)*UV(284)+JVS(4019)*UV(285)+JVS(4136)& - &*UV(286)+JVS(4326)*UV(288)+JVS(4431)*UV(290) - JTUV(150) = JVS(24)*UV(7)+JVS(198)*UV(34)+JVS(377)*UV(36)+JVS(948)*UV(150)+JVS(1372)*UV(198)+JVS(1490)*UV(208)& - &+JVS(2974)*UV(267)+JVS(3536)*UV(279)+JVS(3885)*UV(284)+JVS(4137)*UV(286)+JVS(4529)*UV(291) - JTUV(151) = JVS(286)*UV(35)+JVS(648)*UV(98)+JVS(802)*UV(126)+JVS(954)*UV(151)+JVS(1114)*UV(174)+JVS(1262)*UV(189)& - &+JVS(2128)*UV(240)+JVS(2171)*UV(242)+JVS(2219)*UV(244)+JVS(2233)*UV(245)+JVS(2247)*UV(246)+JVS(3886)& - &*UV(284)+JVS(4138)*UV(286)+JVS(4530)*UV(291) - JTUV(152) = JVS(199)*UV(34)+JVS(959)*UV(152)+JVS(1585)*UV(213)+JVS(2144)*UV(241)+JVS(2172)*UV(242)+JVS(2198)*UV(243)& - &+JVS(2682)*UV(263)+JVS(3537)*UV(279)+JVS(3887)*UV(284)+JVS(4139)*UV(286)+JVS(4531)*UV(291) - JTUV(153) = JVS(200)*UV(34)+JVS(378)*UV(36)+JVS(694)*UV(105)+JVS(964)*UV(153)+JVS(1480)*UV(207)+JVS(2321)*UV(250)& - &+JVS(2975)*UV(267)+JVS(3668)*UV(281)+JVS(4140)*UV(286)+JVS(4532)*UV(291) - JTUV(154) = JVS(287)*UV(35)+JVS(379)*UV(36)+JVS(456)*UV(40)+JVS(969)*UV(154)+JVS(1565)*UV(212)+JVS(1610)*UV(215)& - &+JVS(1622)*UV(216)+JVS(1788)*UV(226)+JVS(2096)*UV(238)+JVS(2439)*UV(254)+JVS(2533)*UV(259)+JVS(2976)& - &*UV(267)+JVS(3669)*UV(281)+JVS(3754)*UV(282)+JVS(3888)*UV(284)+JVS(4141)*UV(286) - JTUV(155) = JVS(288)*UV(35)+JVS(380)*UV(36)+JVS(457)*UV(40)+JVS(973)*UV(155)+JVS(1566)*UV(212)+JVS(1611)*UV(215)& - &+JVS(1623)*UV(216)+JVS(1789)*UV(226)+JVS(2097)*UV(238)+JVS(2440)*UV(254)+JVS(2534)*UV(259)+JVS(2977)& - &*UV(267)+JVS(3670)*UV(281)+JVS(3755)*UV(282)+JVS(3889)*UV(284)+JVS(4142)*UV(286) - JTUV(156) = JVS(381)*UV(36)+JVS(979)*UV(156)+JVS(1736)*UV(223)+JVS(1948)*UV(233)+JVS(2588)*UV(261)+JVS(2978)*UV(267)& - &+JVS(3890)*UV(284)+JVS(4143)*UV(286) - JTUV(157) = JVS(131)*UV(24)+JVS(382)*UV(36)+JVS(832)*UV(130)+JVS(838)*UV(131)+JVS(986)*UV(157)+JVS(1197)*UV(182)& - &+JVS(1248)*UV(187)+JVS(1862)*UV(230)+JVS(2234)*UV(245)+JVS(2276)*UV(248)+JVS(2683)*UV(263)+JVS(2979)& - &*UV(267)+JVS(3891)*UV(284)+JVS(4144)*UV(286) - JTUV(158) = JVS(990)*UV(158)+JVS(2535)*UV(259)+JVS(3892)*UV(284)+JVS(4145)*UV(286) - JTUV(159) = JVS(289)*UV(35)+JVS(383)*UV(36)+JVS(1008)*UV(159)+JVS(1536)*UV(211)+JVS(1737)*UV(223)+JVS(2037)*UV(236)& - &+JVS(2457)*UV(255)+JVS(2536)*UV(259)+JVS(2980)*UV(267)+JVS(3756)*UV(282)+JVS(3893)*UV(284)+JVS(4146)& - &*UV(286) - JTUV(160) = JVS(290)*UV(35)+JVS(1017)*UV(160)+JVS(1278)*UV(191)+JVS(1519)*UV(210)+JVS(3757)*UV(282)+JVS(4533)*UV(291) - JTUV(161) = JVS(291)*UV(35)+JVS(1027)*UV(161)+JVS(1634)*UV(217)+JVS(2818)*UV(265)+JVS(3218)*UV(273)+JVS(3303)*UV(275)& - &+JVS(3450)*UV(278)+JVS(3671)*UV(281)+JVS(4147)*UV(286)+JVS(4370)*UV(289)+JVS(4432)*UV(290) - JTUV(162) = JVS(132)*UV(24)+JVS(384)*UV(36)+JVS(833)*UV(130)+JVS(839)*UV(131)+JVS(1032)*UV(162)+JVS(1204)*UV(183)& - &+JVS(1249)*UV(187)+JVS(1321)*UV(194)+JVS(1895)*UV(231)+JVS(2220)*UV(244)+JVS(2376)*UV(251)+JVS(2684)& - &*UV(263)+JVS(2981)*UV(267)+JVS(3894)*UV(284)+JVS(4148)*UV(286) - JTUV(163) = JVS(25)*UV(7)+JVS(385)*UV(36)+JVS(687)*UV(104)+JVS(1036)*UV(163)+JVS(1228)*UV(185)+JVS(1537)*UV(211)& - &+JVS(1738)*UV(223)+JVS(1949)*UV(233)+JVS(2589)*UV(261)+JVS(2982)*UV(267)+JVS(3895)*UV(284)+JVS(4149)& - &*UV(286) - JTUV(164) = JVS(26)*UV(7)+JVS(1043)*UV(164)+JVS(1739)*UV(223)+JVS(1863)*UV(230)+JVS(1896)*UV(231)+JVS(1950)*UV(233)& - &+JVS(2038)*UV(236)+JVS(2322)*UV(250)+JVS(3896)*UV(284)+JVS(4150)*UV(286) - JTUV(165) = JVS(133)*UV(24)+JVS(386)*UV(36)+JVS(746)*UV(116)+JVS(811)*UV(127)+JVS(1049)*UV(165)+JVS(1205)*UV(183)& - &+JVS(1256)*UV(188)+JVS(1288)*UV(192)+JVS(1340)*UV(196)+JVS(1951)*UV(233)+JVS(2221)*UV(244)+JVS(2685)& - &*UV(263)+JVS(2983)*UV(267)+JVS(3897)*UV(284)+JVS(4151)*UV(286) - JTUV(166) = JVS(201)*UV(34)+JVS(1053)*UV(166)+JVS(1132)*UV(175)+JVS(1373)*UV(198)+JVS(1586)*UV(213)+JVS(2039)*UV(236)& - &+JVS(2173)*UV(242)+JVS(2199)*UV(243)+JVS(2686)*UV(263)+JVS(3538)*UV(279)+JVS(3898)*UV(284)+JVS(4152)& - &*UV(286)+JVS(4534)*UV(291) - JTUV(167) = JVS(202)*UV(34)+JVS(1059)*UV(167)+JVS(1405)*UV(200)+JVS(1587)*UV(213)+JVS(2040)*UV(236)+JVS(2174)*UV(242)& - &+JVS(2200)*UV(243)+JVS(2323)*UV(250)+JVS(2687)*UV(263)+JVS(3539)*UV(279)+JVS(3899)*UV(284)+JVS(4153)& - &*UV(286)+JVS(4535)*UV(291) - JTUV(168) = JVS(203)*UV(34)+JVS(1064)*UV(168)+JVS(1491)*UV(208)+JVS(1588)*UV(213)+JVS(2145)*UV(241)+JVS(2175)*UV(242)& - &+JVS(2201)*UV(243)+JVS(2324)*UV(250)+JVS(2688)*UV(263)+JVS(3540)*UV(279)+JVS(3900)*UV(284)+JVS(4154)& - &*UV(286)+JVS(4536)*UV(291) - JTUV(169) = JVS(387)*UV(36)+JVS(1071)*UV(169)+JVS(2590)*UV(261)+JVS(2689)*UV(263)+JVS(2984)*UV(267)+JVS(3901)*UV(284)& - &+JVS(4155)*UV(286) - JTUV(170) = JVS(292)*UV(35)+JVS(388)*UV(36)+JVS(458)*UV(40)+JVS(1081)*UV(170)+JVS(1538)*UV(211)+JVS(1567)*UV(212)& - &+JVS(1612)*UV(215)+JVS(1624)*UV(216)+JVS(1778)*UV(225)+JVS(2107)*UV(239)+JVS(2378)*UV(251)+JVS(2426)& - &*UV(253)+JVS(2441)*UV(254)+JVS(2690)*UV(263)+JVS(2985)*UV(267)+JVS(3672)*UV(281)+JVS(3758)*UV(282)& - &+JVS(3902)*UV(284)+JVS(4156)*UV(286) - JTUV(171) = JVS(134)*UV(24)+JVS(389)*UV(36)+JVS(747)*UV(116)+JVS(825)*UV(129)+JVS(1085)*UV(171)+JVS(1089)*UV(172)& - &+JVS(1198)*UV(182)+JVS(1242)*UV(186)+JVS(1289)*UV(192)+JVS(1952)*UV(233)+JVS(2235)*UV(245)+JVS(2591)& - &*UV(261)+JVS(2691)*UV(263)+JVS(2986)*UV(267)+JVS(3903)*UV(284)+JVS(4157)*UV(286) - JTUV(172) = JVS(390)*UV(36)+JVS(1090)*UV(172)+JVS(1740)*UV(223)+JVS(2692)*UV(263)+JVS(2987)*UV(267)+JVS(3904)*UV(284)& - &+JVS(4158)*UV(286) - JTUV(173) = JVS(293)*UV(35)+JVS(1100)*UV(173)+JVS(2018)*UV(235)+JVS(2819)*UV(265)+JVS(3304)*UV(275)+JVS(3451)*UV(278)& - &+JVS(3625)*UV(280)+JVS(3673)*UV(281)+JVS(4276)*UV(287)+JVS(4537)*UV(291) - JTUV(174) = JVS(163)*UV(31)+JVS(391)*UV(36)+JVS(1119)*UV(174)+JVS(1953)*UV(233)+JVS(2325)*UV(250)+JVS(2693)*UV(263)& - &+JVS(2988)*UV(267) - JTUV(175) = JVS(27)*UV(7)+JVS(294)*UV(35)+JVS(392)*UV(36)+JVS(649)*UV(98)+JVS(1133)*UV(175)+JVS(1374)*UV(198)& - &+JVS(2989)*UV(267)+JVS(3905)*UV(284)+JVS(4159)*UV(286) - JTUV(176) = JVS(295)*UV(35)+JVS(816)*UV(128)+JVS(860)*UV(135)+JVS(1144)*UV(176)+JVS(2565)*UV(260)+JVS(2821)*UV(265)& - &+JVS(3219)*UV(273)+JVS(3268)*UV(274)+JVS(3305)*UV(275)+JVS(3452)*UV(278)+JVS(3674)*UV(281)+JVS(4538)& - &*UV(291) - JTUV(177) = JVS(204)*UV(34)+JVS(296)*UV(35)+JVS(1151)*UV(177)+JVS(3453)*UV(278)+JVS(3759)*UV(282)+JVS(3906)*UV(284)& - &+JVS(4161)*UV(286)+JVS(4327)*UV(288) - JTUV(178) = JVS(297)*UV(35)+JVS(477)*UV(45)+JVS(854)*UV(134)+JVS(1162)*UV(178)+JVS(1790)*UV(226)+JVS(3675)*UV(281)& - &+JVS(4162)*UV(286)+JVS(4539)*UV(291) - JTUV(179) = JVS(205)*UV(34)+JVS(298)*UV(35)+JVS(537)*UV(68)+JVS(709)*UV(108)+JVS(767)*UV(120)+JVS(1174)*UV(179)& - &+JVS(1644)*UV(218)+JVS(2041)*UV(236)+JVS(2694)*UV(263)+JVS(2905)*UV(266)+JVS(3541)*UV(279)+JVS(3676)& - &*UV(281)+JVS(3907)*UV(284)+JVS(4540)*UV(291) - JTUV(180) = JVS(28)*UV(7)+JVS(206)*UV(34)+JVS(299)*UV(35)+JVS(545)*UV(70)+JVS(642)*UV(97)+JVS(702)*UV(107)+JVS(1184)& - &*UV(180)+JVS(1279)*UV(191)+JVS(2695)*UV(263)+JVS(2906)*UV(266)+JVS(3542)*UV(279)+JVS(3760)*UV(282)& - &+JVS(3908)*UV(284)+JVS(4164)*UV(286)+JVS(4541)*UV(291) - JTUV(181) = JVS(300)*UV(35)+JVS(650)*UV(98)+JVS(1191)*UV(181)+JVS(1723)*UV(222)+JVS(1930)*UV(232)+JVS(2176)*UV(242)& - &+JVS(2259)*UV(247)+JVS(2278)*UV(248)+JVS(2379)*UV(251)+JVS(2696)*UV(263)+JVS(3909)*UV(284)+JVS(4165)& - &*UV(286)+JVS(4542)*UV(291) - JTUV(182) = JVS(207)*UV(34)+JVS(896)*UV(141)+JVS(1044)*UV(164)+JVS(1091)*UV(172)+JVS(1199)*UV(182)+JVS(1465)*UV(206)& - &+JVS(1898)*UV(231)+JVS(2177)*UV(242)+JVS(2327)*UV(250)+JVS(2697)*UV(263)+JVS(3543)*UV(279)+JVS(3910)& - &*UV(284)+JVS(4166)*UV(286)+JVS(4543)*UV(291) - JTUV(183) = JVS(208)*UV(34)+JVS(897)*UV(141)+JVS(1045)*UV(164)+JVS(1206)*UV(183)+JVS(1341)*UV(196)+JVS(1466)*UV(206)& - &+JVS(1866)*UV(230)+JVS(2043)*UV(236)+JVS(2178)*UV(242)+JVS(2698)*UV(263)+JVS(3544)*UV(279)+JVS(3911)& - &*UV(284)+JVS(4167)*UV(286)+JVS(4544)*UV(291) - JTUV(184) = JVS(29)*UV(7)+JVS(209)*UV(34)+JVS(301)*UV(35)+JVS(1217)*UV(184)+JVS(2592)*UV(261)+JVS(2699)*UV(263)& - &+JVS(2907)*UV(266)+JVS(3545)*UV(279)+JVS(3677)*UV(281)+JVS(3912)*UV(284)+JVS(4168)*UV(286)+JVS(4545)& - &*UV(291) - JTUV(185) = JVS(393)*UV(36)+JVS(1229)*UV(185)+JVS(1743)*UV(223)+JVS(1956)*UV(233)+JVS(2593)*UV(261)+JVS(2991)*UV(267)& - &+JVS(3913)*UV(284) - JTUV(186) = JVS(394)*UV(36)+JVS(714)*UV(109)+JVS(772)*UV(121)+JVS(916)*UV(144)+JVS(980)*UV(156)+JVS(1037)*UV(163)& - &+JVS(1120)*UV(174)+JVS(1243)*UV(186)+JVS(1867)*UV(230)+JVS(1957)*UV(233)+JVS(2279)*UV(248)+JVS(2700)& - &*UV(263)+JVS(2992)*UV(267)+JVS(3914)*UV(284)+JVS(4169)*UV(286) - JTUV(187) = JVS(210)*UV(34)+JVS(898)*UV(141)+JVS(1046)*UV(164)+JVS(1250)*UV(187)+JVS(2044)*UV(236)+JVS(2179)*UV(242)& - &+JVS(2330)*UV(250)+JVS(3547)*UV(279)+JVS(3915)*UV(284)+JVS(4170)*UV(286)+JVS(4547)*UV(291) - JTUV(188) = JVS(395)*UV(36)+JVS(715)*UV(109)+JVS(789)*UV(123)+JVS(922)*UV(145)+JVS(981)*UV(156)+JVS(1038)*UV(163)& - &+JVS(1121)*UV(174)+JVS(1257)*UV(188)+JVS(1901)*UV(231)+JVS(1959)*UV(233)+JVS(2380)*UV(251)+JVS(2701)& - &*UV(263)+JVS(2993)*UV(267)+JVS(3916)*UV(284)+JVS(4171)*UV(286) - JTUV(189) = JVS(211)*UV(34)+JVS(1092)*UV(172)+JVS(1134)*UV(175)+JVS(1263)*UV(189)+JVS(1342)*UV(196)+JVS(1375)*UV(198)& - &+JVS(1492)*UV(208)+JVS(1589)*UV(213)+JVS(2147)*UV(241)+JVS(2180)*UV(242)+JVS(2202)*UV(243)+JVS(2702)& - &*UV(263)+JVS(3549)*UV(279)+JVS(3917)*UV(284)+JVS(4172)*UV(286)+JVS(4549)*UV(291) - JTUV(190) = JVS(302)*UV(35)+JVS(451)*UV(39)+JVS(1152)*UV(177)+JVS(1268)*UV(190)+JVS(2703)*UV(263)+JVS(2908)*UV(266)& - &+JVS(3176)*UV(272)+JVS(3306)*UV(275)+JVS(3454)*UV(278)+JVS(3918)*UV(284)+JVS(4173)*UV(286)+JVS(4434)& - &*UV(290) - JTUV(191) = JVS(212)*UV(34)+JVS(303)*UV(35)+JVS(703)*UV(107)+JVS(1019)*UV(160)+JVS(1280)*UV(191)+JVS(2704)*UV(263)& - &+JVS(2909)*UV(266)+JVS(3550)*UV(279)+JVS(3678)*UV(281)+JVS(3919)*UV(284)+JVS(4550)*UV(291) - JTUV(192) = JVS(30)*UV(7)+JVS(396)*UV(36)+JVS(1290)*UV(192)+JVS(1828)*UV(228)+JVS(1848)*UV(229)+JVS(1869)*UV(230)& - &+JVS(1902)*UV(231)+JVS(1960)*UV(233)+JVS(2995)*UV(267)+JVS(3920)*UV(284)+JVS(4175)*UV(286) - JTUV(193) = JVS(213)*UV(34)+JVS(1303)*UV(193)+JVS(3455)*UV(278)+JVS(3551)*UV(279)+JVS(4176)*UV(286)+JVS(4551)*UV(291) - JTUV(194) = JVS(214)*UV(34)+JVS(397)*UV(36)+JVS(1072)*UV(169)+JVS(1324)*UV(194)+JVS(1468)*UV(206)+JVS(1590)*UV(213)& - &+JVS(2332)*UV(250)+JVS(2705)*UV(263)+JVS(2996)*UV(267)+JVS(3552)*UV(279)+JVS(3921)*UV(284)+JVS(4177)& - &*UV(286)+JVS(4552)*UV(291) - JTUV(195) = JVS(31)*UV(7)+JVS(165)*UV(32)+JVS(215)*UV(34)+JVS(435)*UV(37)+JVS(442)*UV(38)+JVS(459)*UV(40)+JVS(779)& - &*UV(122)+JVS(1332)*UV(195)+JVS(1568)*UV(212)+JVS(1673)*UV(219)+JVS(2778)*UV(264)+JVS(2997)*UV(267)& - &+JVS(3377)*UV(276)+JVS(3456)*UV(278)+JVS(3553)*UV(279)+JVS(3679)*UV(281)+JVS(4553)*UV(291) - JTUV(196) = JVS(1343)*UV(196)+JVS(1961)*UV(233)+JVS(2397)*UV(252)+JVS(2597)*UV(261)+JVS(2706)*UV(263)+JVS(3457)& - &*UV(278)+JVS(4179)*UV(286) - JTUV(197) = JVS(216)*UV(34)+JVS(1357)*UV(197)+JVS(3127)*UV(271)+JVS(3177)*UV(272)+JVS(4020)*UV(285)+JVS(4180)*UV(286)& - &+JVS(4329)*UV(288)+JVS(4435)*UV(290) - JTUV(198) = JVS(1376)*UV(198)+JVS(1962)*UV(233)+JVS(2598)*UV(261)+JVS(2707)*UV(263)+JVS(4181)*UV(286)+JVS(4554)& - &*UV(291) - JTUV(199) = JVS(304)*UV(35)+JVS(478)*UV(45)+JVS(855)*UV(134)+JVS(1392)*UV(199)+JVS(2537)*UV(259)+JVS(3680)*UV(281)& - &+JVS(3763)*UV(282)+JVS(4182)*UV(286)+JVS(4555)*UV(291) - JTUV(200) = JVS(305)*UV(35)+JVS(398)*UV(36)+JVS(651)*UV(98)+JVS(1407)*UV(200)+JVS(2295)*UV(249)+JVS(2334)*UV(250)& - &+JVS(2998)*UV(267)+JVS(3922)*UV(284)+JVS(4183)*UV(286)+JVS(4556)*UV(291) - JTUV(201) = JVS(32)*UV(7)+JVS(217)*UV(34)+JVS(733)*UV(113)+JVS(991)*UV(158)+JVS(1420)*UV(201)+JVS(1645)*UV(218)& - &+JVS(1674)*UV(219)+JVS(2538)*UV(259)+JVS(2599)*UV(261)+JVS(2708)*UV(263)+JVS(2779)*UV(264)+JVS(2910)& - &*UV(266)+JVS(3554)*UV(279)+JVS(3923)*UV(284)+JVS(4557)*UV(291) - JTUV(202) = JVS(306)*UV(35)+JVS(652)*UV(98)+JVS(1428)*UV(202)+JVS(1709)*UV(221)+JVS(1791)*UV(226)+JVS(2078)*UV(237)& - &+JVS(2108)*UV(239)+JVS(2492)*UV(257)+JVS(2508)*UV(258)+JVS(2539)*UV(259)+JVS(2780)*UV(264)+JVS(2911)& - &*UV(266)+JVS(3458)*UV(278)+JVS(3924)*UV(284)+JVS(4185)*UV(286)+JVS(4558)*UV(291) - JTUV(203) = JVS(76)*UV(9)+JVS(84)*UV(10)+JVS(307)*UV(35)+JVS(555)*UV(73)+JVS(660)*UV(99)+JVS(909)*UV(143)+JVS(1304)& - &*UV(193)+JVS(1435)*UV(203)+JVS(3088)*UV(269)+JVS(3413)*UV(277)+JVS(3626)*UV(280)+JVS(3808)*UV(283)& - &+JVS(4277)*UV(287)+JVS(4559)*UV(291) - JTUV(204) = JVS(218)*UV(34)+JVS(1073)*UV(169)+JVS(1444)*UV(204)+JVS(1870)*UV(230)+JVS(1964)*UV(233)+JVS(2045)*UV(236)& - &+JVS(2148)*UV(241)+JVS(2600)*UV(261)+JVS(2709)*UV(263)+JVS(3556)*UV(279)+JVS(3925)*UV(284)+JVS(4187)& - &*UV(286)+JVS(4560)*UV(291) - JTUV(205) = JVS(219)*UV(34)+JVS(399)*UV(36)+JVS(1408)*UV(200)+JVS(1455)*UV(205)+JVS(1903)*UV(231)+JVS(1965)*UV(233)& - &+JVS(2335)*UV(250)+JVS(2710)*UV(263)+JVS(3000)*UV(267)+JVS(3557)*UV(279)+JVS(3926)*UV(284)+JVS(4188)& - &*UV(286)+JVS(4561)*UV(291) - JTUV(206) = JVS(400)*UV(36)+JVS(752)*UV(117)+JVS(842)*UV(132)+JVS(1232)*UV(185)+JVS(1469)*UV(206)+JVS(1748)*UV(223)& - &+JVS(1904)*UV(231)+JVS(1966)*UV(233)+JVS(2046)*UV(236)+JVS(2336)*UV(250)+JVS(2711)*UV(263)+JVS(3001)& - &*UV(267)+JVS(3927)*UV(284)+JVS(4189)*UV(286) - JTUV(207) = JVS(33)*UV(7)+JVS(220)*UV(34)+JVS(401)*UV(36)+JVS(874)*UV(136)+JVS(965)*UV(153)+JVS(1481)*UV(207)& - &+JVS(2602)*UV(261)+JVS(2712)*UV(263)+JVS(2912)*UV(266)+JVS(3002)*UV(267)+JVS(3558)*UV(279)+JVS(3764)& - &*UV(282)+JVS(3928)*UV(284)+JVS(4190)*UV(286)+JVS(4562)*UV(291) - JTUV(208) = JVS(34)*UV(7)+JVS(308)*UV(35)+JVS(402)*UV(36)+JVS(1493)*UV(208)+JVS(2603)*UV(261)+JVS(2713)*UV(263)& - &+JVS(2829)*UV(265)+JVS(3003)*UV(267)+JVS(3683)*UV(281)+JVS(3929)*UV(284)+JVS(4191)*UV(286)+JVS(4563)& - &*UV(291) - JTUV(209) = JVS(35)*UV(7)+JVS(221)*UV(34)+JVS(729)*UV(112)+JVS(992)*UV(158)+JVS(1507)*UV(209)+JVS(1646)*UV(218)& - &+JVS(1675)*UV(219)+JVS(2338)*UV(250)+JVS(2540)*UV(259)+JVS(2604)*UV(261)+JVS(2714)*UV(263)+JVS(2781)& - &*UV(264)+JVS(2913)*UV(266)+JVS(3559)*UV(279)+JVS(3930)*UV(284)+JVS(4564)*UV(291) - JTUV(210) = JVS(10)*UV(5)+JVS(36)*UV(7)+JVS(222)*UV(34)+JVS(403)*UV(36)+JVS(1009)*UV(159)+JVS(1305)*UV(193)+JVS(1522)& - &*UV(210)+JVS(2493)*UV(257)+JVS(2830)*UV(265)+JVS(3004)*UV(267)+JVS(3684)*UV(281)+JVS(3931)*UV(284)& - &+JVS(4193)*UV(286)+JVS(4565)*UV(291) - JTUV(211) = JVS(37)*UV(7)+JVS(1543)*UV(211)+JVS(3307)*UV(275)+JVS(3461)*UV(278)+JVS(3932)*UV(284)+JVS(4194)*UV(286)& - &+JVS(4437)*UV(290) - JTUV(212) = JVS(171)*UV(33)+JVS(309)*UV(35)+JVS(443)*UV(38)+JVS(780)*UV(122)+JVS(1569)*UV(212)+JVS(3308)*UV(275)& - &+JVS(3378)*UV(276)+JVS(3462)*UV(278)+JVS(3933)*UV(284)+JVS(4195)*UV(286)+JVS(4330)*UV(288)+JVS(4438)& - &*UV(290) - JTUV(213) = JVS(310)*UV(35)+JVS(404)*UV(36)+JVS(653)*UV(98)+JVS(1591)*UV(213)+JVS(1871)*UV(230)+JVS(1905)*UV(231)& - &+JVS(1968)*UV(233)+JVS(2048)*UV(236)+JVS(3005)*UV(267)+JVS(3934)*UV(284)+JVS(4196)*UV(286)+JVS(4566)& - &*UV(291) - JTUV(214) = JVS(311)*UV(35)+JVS(405)*UV(36)+JVS(654)*UV(98)+JVS(748)*UV(116)+JVS(1065)*UV(168)+JVS(1291)*UV(192)& - &+JVS(1604)*UV(214)+JVS(1906)*UV(231)+JVS(2129)*UV(240)+JVS(2149)*UV(241)+JVS(3006)*UV(267)+JVS(3935)& - &*UV(284)+JVS(4197)*UV(286)+JVS(4567)*UV(291) - JTUV(215) = JVS(38)*UV(7)+JVS(223)*UV(34)+JVS(312)*UV(35)+JVS(1163)*UV(178)+JVS(1393)*UV(199)+JVS(1613)*UV(215)& - &+JVS(1625)*UV(216)+JVS(1792)*UV(226)+JVS(2542)*UV(259)+JVS(2606)*UV(261)+JVS(2716)*UV(263)+JVS(2914)& - &*UV(266)+JVS(3562)*UV(279)+JVS(3686)*UV(281)+JVS(3936)*UV(284)+JVS(4568)*UV(291) - JTUV(216) = JVS(224)*UV(34)+JVS(313)*UV(35)+JVS(993)*UV(158)+JVS(1164)*UV(178)+JVS(1394)*UV(199)+JVS(1614)*UV(215)& - &+JVS(1626)*UV(216)+JVS(1647)*UV(218)+JVS(1793)*UV(226)+JVS(2543)*UV(259)+JVS(2607)*UV(261)+JVS(2717)& - &*UV(263)+JVS(2915)*UV(266)+JVS(3563)*UV(279)+JVS(3687)*UV(281)+JVS(3937)*UV(284)+JVS(4569)*UV(291) - JTUV(217) = JVS(39)*UV(7)+JVS(225)*UV(34)+JVS(638)*UV(96)+JVS(719)*UV(110)+JVS(848)*UV(133)+JVS(1635)*UV(217)& - &+JVS(1648)*UV(218)+JVS(1676)*UV(219)+JVS(2608)*UV(261)+JVS(2718)*UV(263)+JVS(2782)*UV(264)+JVS(2916)& - &*UV(266)+JVS(3564)*UV(279)+JVS(3938)*UV(284)+JVS(4021)*UV(285)+JVS(4439)*UV(290)+JVS(4570)*UV(291) - JTUV(218) = JVS(1649)*UV(218)+JVS(2719)*UV(263)+JVS(3310)*UV(275)+JVS(3939)*UV(284)+JVS(4201)*UV(286)+JVS(4440)& - &*UV(290) - JTUV(219) = JVS(40)*UV(7)+JVS(1677)*UV(219)+JVS(2917)*UV(266)+JVS(3311)*UV(275)+JVS(3463)*UV(278)+JVS(4202)*UV(286)& - &+JVS(4441)*UV(290) - JTUV(220) = JVS(314)*UV(35)+JVS(406)*UV(36)+JVS(655)*UV(98)+JVS(749)*UV(116)+JVS(1054)*UV(166)+JVS(1135)*UV(175)& - &+JVS(1292)*UV(192)+JVS(1700)*UV(220)+JVS(1873)*UV(230)+JVS(2130)*UV(240)+JVS(3007)*UV(267)+JVS(3940)& - &*UV(284)+JVS(4203)*UV(286)+JVS(4571)*UV(291) - JTUV(221) = JVS(407)*UV(36)+JVS(1710)*UV(221)+JVS(2398)*UV(252)+JVS(2610)*UV(261)+JVS(2918)*UV(266)+JVS(3008)*UV(267)& - &+JVS(3221)*UV(273)+JVS(3312)*UV(275)+JVS(3464)*UV(278)+JVS(4204)*UV(286)+JVS(4371)*UV(289)+JVS(4442)& - &*UV(290) - JTUV(222) = JVS(226)*UV(34)+JVS(1093)*UV(172)+JVS(1136)*UV(175)+JVS(1344)*UV(196)+JVS(1379)*UV(198)+JVS(1495)*UV(208)& - &+JVS(1594)*UV(213)+JVS(1724)*UV(222)+JVS(1874)*UV(230)+JVS(1908)*UV(231)+JVS(2051)*UV(236)+JVS(2150)& - &*UV(241)+JVS(2183)*UV(242)+JVS(2205)*UV(243)+JVS(2343)*UV(250)+JVS(2721)*UV(263)+JVS(3566)*UV(279)& - &+JVS(3941)*UV(284)+JVS(4205)*UV(286)+JVS(4572)*UV(291) - JTUV(223) = JVS(156)*UV(30)+JVS(315)*UV(35)+JVS(408)*UV(36)+JVS(1753)*UV(223)+JVS(2722)*UV(263)+JVS(2837)*UV(265)& - &+JVS(3010)*UV(267)+JVS(3689)*UV(281)+JVS(3942)*UV(284)+JVS(4206)*UV(286) - JTUV(224) = JVS(41)*UV(7)+JVS(99)*UV(14)+JVS(102)*UV(15)+JVS(316)*UV(35)+JVS(409)*UV(36)+JVS(460)*UV(40)+JVS(812)& - &*UV(127)+JVS(826)*UV(129)+JVS(1094)*UV(172)+JVS(1244)*UV(186)+JVS(1258)*UV(188)+JVS(1345)*UV(196)+JVS(1570)& - &*UV(212)+JVS(1773)*UV(224)+JVS(1972)*UV(233)+JVS(2004)*UV(234)+JVS(2222)*UV(244)+JVS(2236)*UV(245)& - &+JVS(2248)*UV(246)+JVS(2260)*UV(247)+JVS(2280)*UV(248)+JVS(2381)*UV(251)+JVS(2612)*UV(261)+JVS(2723)& - &*UV(263)+JVS(2919)*UV(266)+JVS(3011)*UV(267)+JVS(3313)*UV(275)+JVS(3690)*UV(281)+JVS(3768)*UV(282)& - &+JVS(3943)*UV(284)+JVS(4207)*UV(286)+JVS(4443)*UV(290) - JTUV(225) = JVS(227)*UV(34)+JVS(317)*UV(35)+JVS(762)*UV(119)+JVS(994)*UV(158)+JVS(1395)*UV(199)+JVS(1650)*UV(218)& - &+JVS(1779)*UV(225)+JVS(1794)*UV(226)+JVS(2345)*UV(250)+JVS(2382)*UV(251)+JVS(2427)*UV(253)+JVS(2544)& - &*UV(259)+JVS(2613)*UV(261)+JVS(2724)*UV(263)+JVS(2920)*UV(266)+JVS(3568)*UV(279)+JVS(3691)*UV(281)& - &+JVS(3944)*UV(284)+JVS(4574)*UV(291) - JTUV(226) = JVS(318)*UV(35)+JVS(1795)*UV(226)+JVS(2079)*UV(237)+JVS(2110)*UV(239)+JVS(2442)*UV(254)+JVS(2459)*UV(255)& - &+JVS(2509)*UV(258)+JVS(2614)*UV(261)+JVS(2840)*UV(265)+JVS(2921)*UV(266)+JVS(3467)*UV(278)+JVS(3692)& - &*UV(281)+JVS(4209)*UV(286) - JTUV(227) = JVS(319)*UV(35)+JVS(474)*UV(44)+JVS(487)*UV(49)+JVS(622)*UV(92)+JVS(661)*UV(99)+JVS(724)*UV(111)+JVS(1810)& - &*UV(227)+JVS(3060)*UV(268)+JVS(3089)*UV(269)+JVS(3108)*UV(270)+JVS(3222)*UV(273)+JVS(3269)*UV(274)& - &+JVS(3569)*UV(279)+JVS(3945)*UV(284)+JVS(4022)*UV(285)+JVS(4332)*UV(288)+JVS(4445)*UV(290)+JVS(4575)& - &*UV(291) - JTUV(228) = JVS(228)*UV(34)+JVS(410)*UV(36)+JVS(753)*UV(117)+JVS(798)*UV(125)+JVS(1472)*UV(206)+JVS(1595)*UV(213)& - &+JVS(1831)*UV(228)+JVS(1973)*UV(233)+JVS(2053)*UV(236)+JVS(3012)*UV(267)+JVS(3570)*UV(279)+JVS(3946)& - &*UV(284)+JVS(4211)*UV(286)+JVS(4576)*UV(291) - JTUV(229) = JVS(229)*UV(34)+JVS(411)*UV(36)+JVS(799)*UV(125)+JVS(843)*UV(132)+JVS(1473)*UV(206)+JVS(1596)*UV(213)& - &+JVS(1756)*UV(223)+JVS(1852)*UV(229)+JVS(2347)*UV(250)+JVS(3013)*UV(267)+JVS(3571)*UV(279)+JVS(3947)& - &*UV(284)+JVS(4212)*UV(286)+JVS(4577)*UV(291) - JTUV(230) = JVS(1077)*UV(169)+JVS(1235)*UV(185)+JVS(1878)*UV(230)+JVS(1975)*UV(233)+JVS(2055)*UV(236)+JVS(2617)& - &*UV(261)+JVS(2727)*UV(263)+JVS(3948)*UV(284)+JVS(4213)*UV(286) - JTUV(231) = JVS(42)*UV(7)+JVS(412)*UV(36)+JVS(1346)*UV(196)+JVS(1912)*UV(231)+JVS(1976)*UV(233)+JVS(2348)*UV(250)& - &+JVS(2728)*UV(263)+JVS(3015)*UV(267)+JVS(3949)*UV(284)+JVS(4214)*UV(286) - JTUV(232) = JVS(230)*UV(34)+JVS(1137)*UV(175)+JVS(1380)*UV(198)+JVS(1496)*UV(208)+JVS(1931)*UV(232)+JVS(2056)*UV(236)& - &+JVS(2152)*UV(241)+JVS(2184)*UV(242)+JVS(2206)*UV(243)+JVS(2349)*UV(250)+JVS(2729)*UV(263)+JVS(3572)& - &*UV(279)+JVS(3950)*UV(284)+JVS(4215)*UV(286)+JVS(4578)*UV(291) - JTUV(233) = JVS(157)*UV(30)+JVS(320)*UV(35)+JVS(413)*UV(36)+JVS(1978)*UV(233)+JVS(2620)*UV(261)+JVS(2845)*UV(265)& - &+JVS(3017)*UV(267)+JVS(3697)*UV(281)+JVS(3951)*UV(284)+JVS(4216)*UV(286) - JTUV(234) = JVS(43)*UV(7)+JVS(166)*UV(32)+JVS(231)*UV(34)+JVS(321)*UV(35)+JVS(436)*UV(37)+JVS(444)*UV(38)+JVS(461)& - &*UV(40)+JVS(592)*UV(85)+JVS(781)*UV(122)+JVS(1545)*UV(211)+JVS(1571)*UV(212)+JVS(2005)*UV(234)+JVS(2730)& - &*UV(263)+JVS(3018)*UV(267)+JVS(3380)*UV(276)+JVS(3469)*UV(278)+JVS(3573)*UV(279)+JVS(3698)*UV(281)& - &+JVS(3770)*UV(282)+JVS(4579)*UV(291) - JTUV(235) = JVS(232)*UV(34)+JVS(322)*UV(35)+JVS(861)*UV(135)+JVS(1306)*UV(193)+JVS(1358)*UV(197)+JVS(2019)*UV(235)& - &+JVS(3129)*UV(271)+JVS(3316)*UV(275)+JVS(3414)*UV(277)+JVS(3627)*UV(280)+JVS(3809)*UV(283)+JVS(4218)& - &*UV(286)+JVS(4278)*UV(287)+JVS(4372)*UV(289)+JVS(4447)*UV(290)+JVS(4580)*UV(291) - JTUV(236) = JVS(44)*UV(7)+JVS(414)*UV(36)+JVS(1546)*UV(211)+JVS(1651)*UV(218)+JVS(1758)*UV(223)+JVS(2057)*UV(236)& - &+JVS(2731)*UV(263)+JVS(3019)*UV(267)+JVS(3953)*UV(284)+JVS(4219)*UV(286) - JTUV(237) = JVS(45)*UV(7)+JVS(233)*UV(34)+JVS(615)*UV(91)+JVS(630)*UV(94)+JVS(995)*UV(158)+JVS(1652)*UV(218)+JVS(1678)& - &*UV(219)+JVS(2080)*UV(237)+JVS(2545)*UV(259)+JVS(2621)*UV(261)+JVS(2732)*UV(263)+JVS(2922)*UV(266)& - &+JVS(3575)*UV(279)+JVS(3954)*UV(284)+JVS(4581)*UV(291) - JTUV(238) = JVS(46)*UV(7)+JVS(234)*UV(34)+JVS(323)*UV(35)+JVS(763)*UV(119)+JVS(996)*UV(158)+JVS(1165)*UV(178)& - &+JVS(1396)*UV(199)+JVS(1547)*UV(211)+JVS(1653)*UV(218)+JVS(1711)*UV(221)+JVS(1796)*UV(226)+JVS(2098)& - &*UV(238)+JVS(2546)*UV(259)+JVS(2622)*UV(261)+JVS(2733)*UV(263)+JVS(2923)*UV(266)+JVS(3576)*UV(279)& - &+JVS(3700)*UV(281)+JVS(3955)*UV(284)+JVS(4582)*UV(291) - JTUV(239) = JVS(47)*UV(7)+JVS(235)*UV(34)+JVS(720)*UV(110)+JVS(849)*UV(133)+JVS(1654)*UV(218)+JVS(1679)*UV(219)& - &+JVS(2112)*UV(239)+JVS(2623)*UV(261)+JVS(2734)*UV(263)+JVS(2783)*UV(264)+JVS(2924)*UV(266)+JVS(3577)& - &*UV(279)+JVS(3956)*UV(284)+JVS(4024)*UV(285)+JVS(4451)*UV(290)+JVS(4583)*UV(291) - JTUV(240) = JVS(415)*UV(36)+JVS(716)*UV(109)+JVS(917)*UV(144)+JVS(923)*UV(145)+JVS(949)*UV(150)+JVS(984)*UV(156)& - &+JVS(1039)*UV(163)+JVS(1125)*UV(174)+JVS(1138)*UV(175)+JVS(2131)*UV(240)+JVS(2153)*UV(241)+JVS(3021)& - &*UV(267)+JVS(3957)*UV(284)+JVS(4223)*UV(286)+JVS(4584)*UV(291) - JTUV(241) = JVS(236)*UV(34)+JVS(324)*UV(35)+JVS(656)*UV(98)+JVS(688)*UV(104)+JVS(1237)*UV(185)+JVS(1498)*UV(208)& - &+JVS(1549)*UV(211)+JVS(1980)*UV(233)+JVS(2059)*UV(236)+JVS(2154)*UV(241)+JVS(2625)*UV(261)+JVS(2736)& - &*UV(263)+JVS(3702)*UV(281)+JVS(3958)*UV(284)+JVS(4224)*UV(286)+JVS(4585)*UV(291) - JTUV(242) = JVS(325)*UV(35)+JVS(657)*UV(98)+JVS(950)*UV(150)+JVS(1040)*UV(163)+JVS(1095)*UV(172)+JVS(1347)*UV(196)& - &+JVS(1411)*UV(200)+JVS(1499)*UV(208)+JVS(1597)*UV(213)+JVS(1914)*UV(231)+JVS(1932)*UV(232)+JVS(2060)& - &*UV(236)+JVS(2155)*UV(241)+JVS(2185)*UV(242)+JVS(2352)*UV(250)+JVS(2737)*UV(263)+JVS(3959)*UV(284)& - &+JVS(4225)*UV(286)+JVS(4586)*UV(291) - JTUV(243) = JVS(326)*UV(35)+JVS(658)*UV(98)+JVS(803)*UV(126)+JVS(928)*UV(146)+JVS(2061)*UV(236)+JVS(2132)*UV(240)& - &+JVS(2186)*UV(242)+JVS(2208)*UV(243)+JVS(2281)*UV(248)+JVS(2353)*UV(250)+JVS(2383)*UV(251)+JVS(2738)& - &*UV(263)+JVS(3960)*UV(284)+JVS(4226)*UV(286)+JVS(4587)*UV(291) - JTUV(244) = JVS(237)*UV(34)+JVS(416)*UV(36)+JVS(813)*UV(127)+JVS(892)*UV(140)+JVS(1033)*UV(162)+JVS(1050)*UV(165)& - &+JVS(1259)*UV(188)+JVS(1293)*UV(192)+JVS(1348)*UV(196)+JVS(1701)*UV(220)+JVS(1881)*UV(230)+JVS(1915)& - &*UV(231)+JVS(1983)*UV(233)+JVS(2223)*UV(244)+JVS(2237)*UV(245)+JVS(2282)*UV(248)+JVS(2384)*UV(251)& - &+JVS(2739)*UV(263)+JVS(2925)*UV(266)+JVS(3025)*UV(267)+JVS(3581)*UV(279)+JVS(3961)*UV(284)+JVS(4227)& - &*UV(286)+JVS(4588)*UV(291) - JTUV(245) = JVS(238)*UV(34)+JVS(417)*UV(36)+JVS(827)*UV(129)+JVS(888)*UV(139)+JVS(987)*UV(157)+JVS(1086)*UV(171)& - &+JVS(1096)*UV(172)+JVS(1245)*UV(186)+JVS(1294)*UV(192)+JVS(1605)*UV(214)+JVS(1882)*UV(230)+JVS(1916)& - &*UV(231)+JVS(1984)*UV(233)+JVS(2224)*UV(244)+JVS(2238)*UV(245)+JVS(2283)*UV(248)+JVS(2385)*UV(251)& - &+JVS(2629)*UV(261)+JVS(2740)*UV(263)+JVS(2926)*UV(266)+JVS(3026)*UV(267)+JVS(3582)*UV(279)+JVS(3962)& - &*UV(284)+JVS(4228)*UV(286)+JVS(4589)*UV(291) - JTUV(246) = JVS(48)*UV(7)+JVS(239)*UV(34)+JVS(327)*UV(35)+JVS(804)*UV(126)+JVS(955)*UV(151)+JVS(1192)*UV(181)& - &+JVS(1606)*UV(214)+JVS(1655)*UV(218)+JVS(1702)*UV(220)+JVS(2135)*UV(240)+JVS(2211)*UV(243)+JVS(2249)& - &*UV(246)+JVS(2261)*UV(247)+JVS(2284)*UV(248)+JVS(2386)*UV(251)+JVS(2630)*UV(261)+JVS(2741)*UV(263)& - &+JVS(2927)*UV(266)+JVS(3583)*UV(279)+JVS(3707)*UV(281)+JVS(3963)*UV(284)+JVS(4590)*UV(291) - JTUV(247) = JVS(49)*UV(7)+JVS(240)*UV(34)+JVS(328)*UV(35)+JVS(805)*UV(126)+JVS(1193)*UV(181)+JVS(1656)*UV(218)& - &+JVS(1703)*UV(220)+JVS(2136)*UV(240)+JVS(2212)*UV(243)+JVS(2250)*UV(246)+JVS(2262)*UV(247)+JVS(2285)& - &*UV(248)+JVS(2387)*UV(251)+JVS(2631)*UV(261)+JVS(2742)*UV(263)+JVS(2928)*UV(266)+JVS(3584)*UV(279)& - &+JVS(3708)*UV(281)+JVS(3964)*UV(284)+JVS(4230)*UV(286)+JVS(4591)*UV(291) - JTUV(248) = JVS(329)*UV(35)+JVS(418)*UV(36)+JVS(462)*UV(40)+JVS(689)*UV(104)+JVS(1448)*UV(204)+JVS(1572)*UV(212)& - &+JVS(1987)*UV(233)+JVS(2006)*UV(234)+JVS(2286)*UV(248)+JVS(2428)*UV(253)+JVS(2461)*UV(255)+JVS(2632)& - &*UV(261)+JVS(2743)*UV(263)+JVS(2929)*UV(266)+JVS(3029)*UV(267)+JVS(3772)*UV(282)+JVS(3965)*UV(284)& - &+JVS(4231)*UV(286) - JTUV(249) = JVS(50)*UV(7)+JVS(241)*UV(34)+JVS(330)*UV(35)+JVS(966)*UV(153)+JVS(1139)*UV(175)+JVS(1414)*UV(200)& - &+JVS(2305)*UV(249)+JVS(2358)*UV(250)+JVS(2744)*UV(263)+JVS(2930)*UV(266)+JVS(3586)*UV(279)+JVS(3710)& - &*UV(281)+JVS(3773)*UV(282)+JVS(3966)*UV(284)+JVS(4232)*UV(286)+JVS(4593)*UV(291) - JTUV(250) = JVS(51)*UV(7)+JVS(419)*UV(36)+JVS(1554)*UV(211)+JVS(1680)*UV(219)+JVS(1989)*UV(233)+JVS(2359)*UV(250)& - &+JVS(2634)*UV(261)+JVS(2745)*UV(263)+JVS(2931)*UV(266)+JVS(3031)*UV(267)+JVS(3967)*UV(284)+JVS(4233)& - &*UV(286) - JTUV(251) = JVS(331)*UV(35)+JVS(420)*UV(36)+JVS(1350)*UV(196)+JVS(1386)*UV(198)+JVS(1459)*UV(205)+JVS(1483)*UV(207)& - &+JVS(1990)*UV(233)+JVS(2007)*UV(234)+JVS(2388)*UV(251)+JVS(2635)*UV(261)+JVS(2746)*UV(263)+JVS(2859)& - &*UV(265)+JVS(3032)*UV(267)+JVS(3712)*UV(281)+JVS(3774)*UV(282)+JVS(3968)*UV(284)+JVS(4234)*UV(286) - JTUV(252) = JVS(52)*UV(7)+JVS(242)*UV(34)+JVS(1351)*UV(196)+JVS(1657)*UV(218)+JVS(1681)*UV(219)+JVS(1991)*UV(233)& - &+JVS(2361)*UV(250)+JVS(2411)*UV(252)+JVS(2636)*UV(261)+JVS(2747)*UV(263)+JVS(2933)*UV(266)+JVS(3588)& - &*UV(279)+JVS(3969)*UV(284)+JVS(4235)*UV(286)+JVS(4595)*UV(291) - JTUV(253) = JVS(53)*UV(7)+JVS(332)*UV(35)+JVS(421)*UV(36)+JVS(1269)*UV(190)+JVS(1333)*UV(195)+JVS(1421)*UV(201)& - &+JVS(1508)*UV(209)+JVS(2008)*UV(234)+JVS(2429)*UV(253)+JVS(2748)*UV(263)+JVS(2784)*UV(264)+JVS(2934)& - &*UV(266)+JVS(3034)*UV(267)+JVS(3225)*UV(273)+JVS(3334)*UV(275)+JVS(3714)*UV(281)+JVS(3775)*UV(282)& - &+JVS(3970)*UV(284)+JVS(4236)*UV(286)+JVS(4374)*UV(289)+JVS(4465)*UV(290) - JTUV(254) = JVS(54)*UV(7)+JVS(243)*UV(34)+JVS(997)*UV(158)+JVS(1352)*UV(196)+JVS(1429)*UV(202)+JVS(1659)*UV(218)& - &+JVS(1683)*UV(219)+JVS(1797)*UV(226)+JVS(2444)*UV(254)+JVS(2638)*UV(261)+JVS(2749)*UV(263)+JVS(2785)& - &*UV(264)+JVS(2935)*UV(266)+JVS(3590)*UV(279)+JVS(3971)*UV(284)+JVS(4237)*UV(286)+JVS(4597)*UV(291) - JTUV(255) = JVS(55)*UV(7)+JVS(244)*UV(34)+JVS(489)*UV(50)+JVS(697)*UV(106)+JVS(2083)*UV(237)+JVS(2114)*UV(239)& - &+JVS(2463)*UV(255)+JVS(2512)*UV(258)+JVS(2639)*UV(261)+JVS(2750)*UV(263)+JVS(2936)*UV(266)+JVS(3591)& - &*UV(279)+JVS(3776)*UV(282)+JVS(3972)*UV(284)+JVS(4238)*UV(286)+JVS(4598)*UV(291) - JTUV(256) = JVS(56)*UV(7)+JVS(245)*UV(34)+JVS(626)*UV(93)+JVS(998)*UV(158)+JVS(1430)*UV(202)+JVS(1660)*UV(218)& - &+JVS(1684)*UV(219)+JVS(1713)*UV(221)+JVS(1798)*UV(226)+JVS(2084)*UV(237)+JVS(2115)*UV(239)+JVS(2482)& - &*UV(256)+JVS(2513)*UV(258)+JVS(2550)*UV(259)+JVS(2640)*UV(261)+JVS(2751)*UV(263)+JVS(2787)*UV(264)& - &+JVS(2937)*UV(266)+JVS(3592)*UV(279)+JVS(3973)*UV(284)+JVS(4599)*UV(291) - JTUV(257) = JVS(57)*UV(7)+JVS(246)*UV(34)+JVS(999)*UV(158)+JVS(1431)*UV(202)+JVS(1661)*UV(218)+JVS(1685)*UV(219)& - &+JVS(2483)*UV(256)+JVS(2496)*UV(257)+JVS(2551)*UV(259)+JVS(2641)*UV(261)+JVS(2752)*UV(263)+JVS(2788)& - &*UV(264)+JVS(2938)*UV(266)+JVS(3593)*UV(279)+JVS(3974)*UV(284)+JVS(4600)*UV(291) - JTUV(258) = JVS(58)*UV(7)+JVS(247)*UV(34)+JVS(600)*UV(87)+JVS(634)*UV(95)+JVS(1000)*UV(158)+JVS(1662)*UV(218)& - &+JVS(1686)*UV(219)+JVS(1715)*UV(221)+JVS(2515)*UV(258)+JVS(2642)*UV(261)+JVS(2753)*UV(263)+JVS(2939)& - &*UV(266)+JVS(3594)*UV(279)+JVS(3975)*UV(284)+JVS(4601)*UV(291) - JTUV(259) = JVS(333)*UV(35)+JVS(422)*UV(36)+JVS(2086)*UV(237)+JVS(2117)*UV(239)+JVS(2466)*UV(255)+JVS(2516)*UV(258)& - &+JVS(2553)*UV(259)+JVS(2866)*UV(265)+JVS(3039)*UV(267)+JVS(3494)*UV(278)+JVS(3719)*UV(281)+JVS(3976)& - &*UV(284)+JVS(4242)*UV(286) - JTUV(260) = JVS(334)*UV(35)+JVS(445)*UV(38)+JVS(782)*UV(122)+JVS(817)*UV(128)+JVS(862)*UV(135)+JVS(2566)*UV(260)& - &+JVS(3231)*UV(273)+JVS(3270)*UV(274)+JVS(3341)*UV(275)+JVS(3384)*UV(276)+JVS(3415)*UV(277)+JVS(3495)& - &*UV(278)+JVS(3628)*UV(280)+JVS(3810)*UV(283)+JVS(4243)*UV(286)+JVS(4279)*UV(287)+JVS(4338)*UV(288)& - &+JVS(4380)*UV(289) - JTUV(261) = JVS(59)*UV(7)+JVS(248)*UV(34)+JVS(534)*UV(67)+JVS(604)*UV(88)+JVS(806)*UV(126)+JVS(1166)*UV(178)+JVS(1218)& - &*UV(184)+JVS(1397)*UV(199)+JVS(1422)*UV(201)+JVS(1509)*UV(209)+JVS(1615)*UV(215)+JVS(1627)*UV(216)& - &+JVS(1636)*UV(217)+JVS(1687)*UV(219)+JVS(1716)*UV(221)+JVS(1780)*UV(225)+JVS(1800)*UV(226)+JVS(1994)& - &*UV(233)+JVS(2087)*UV(237)+JVS(2099)*UV(238)+JVS(2118)*UV(239)+JVS(2137)*UV(240)+JVS(2251)*UV(246)& - &+JVS(2263)*UV(247)+JVS(2287)*UV(248)+JVS(2363)*UV(250)+JVS(2389)*UV(251)+JVS(2416)*UV(252)+JVS(2430)& - &*UV(253)+JVS(2447)*UV(254)+JVS(2467)*UV(255)+JVS(2484)*UV(256)+JVS(2497)*UV(257)+JVS(2517)*UV(258)& - &+JVS(2554)*UV(259)+JVS(2644)*UV(261)+JVS(2755)*UV(263)+JVS(2790)*UV(264)+JVS(2941)*UV(266)+JVS(3596)& - &*UV(279)+JVS(3780)*UV(282)+JVS(3977)*UV(284)+JVS(4244)*UV(286)+JVS(4603)*UV(291) - JTUV(262) = JVS(249)*UV(34)+JVS(335)*UV(35)+JVS(863)*UV(135)+JVS(1359)*UV(197)+JVS(2655)*UV(262)+JVS(2868)*UV(265)& - &+JVS(3130)*UV(271)+JVS(3343)*UV(275)+JVS(3416)*UV(277)+JVS(3497)*UV(278)+JVS(3629)*UV(280)+JVS(3721)& - &*UV(281)+JVS(3811)*UV(283)+JVS(4031)*UV(285)+JVS(4245)*UV(286)+JVS(4280)*UV(287)+JVS(4340)*UV(288)& - &+JVS(4382)*UV(289)+JVS(4474)*UV(290)+JVS(4604)*UV(291) - JTUV(263) = JVS(336)*UV(35)+JVS(423)*UV(36)+JVS(596)*UV(86)+JVS(1153)*UV(177)+JVS(2756)*UV(263)+JVS(2869)*UV(265)& - &+JVS(3041)*UV(267)+JVS(3234)*UV(273)+JVS(3344)*UV(275)+JVS(3386)*UV(276)+JVS(3498)*UV(278)+JVS(3722)& - &*UV(281)+JVS(3978)*UV(284)+JVS(4246)*UV(286)+JVS(4341)*UV(288)+JVS(4383)*UV(289)+JVS(4475)*UV(290) - JTUV(264) = JVS(337)*UV(35)+JVS(424)*UV(36)+JVS(1270)*UV(190)+JVS(2645)*UV(261)+JVS(2757)*UV(263)+JVS(2791)*UV(264)& - &+JVS(2870)*UV(265)+JVS(2942)*UV(266)+JVS(3042)*UV(267)+JVS(3235)*UV(273)+JVS(3499)*UV(278)+JVS(3723)& - &*UV(281)+JVS(3979)*UV(284)+JVS(4247)*UV(286)+JVS(4384)*UV(289) - JTUV(265) = JVS(250)*UV(34)+JVS(519)*UV(62)+JVS(523)*UV(63)+JVS(883)*UV(138)+JVS(933)*UV(147)+JVS(2871)*UV(265)& - &+JVS(3500)*UV(278)+JVS(3724)*UV(281)+JVS(4248)*UV(286)+JVS(4606)*UV(291) - JTUV(266) = JVS(60)*UV(7)+JVS(251)*UV(34)+JVS(338)*UV(35)+JVS(425)*UV(36)+JVS(561)*UV(74)+JVS(608)*UV(89)+JVS(681)& - &*UV(103)+JVS(710)*UV(108)+JVS(768)*UV(120)+JVS(807)*UV(126)+JVS(850)*UV(133)+JVS(878)*UV(137)+JVS(1001)& - &*UV(158)+JVS(1020)*UV(160)+JVS(1140)*UV(175)+JVS(1167)*UV(178)+JVS(1175)*UV(179)+JVS(1185)*UV(180)& - &+JVS(1194)*UV(181)+JVS(1219)*UV(184)+JVS(1281)*UV(191)+JVS(1295)*UV(192)+JVS(1398)*UV(199)+JVS(1423)& - &*UV(201)+JVS(1510)*UV(209)+JVS(1607)*UV(214)+JVS(1616)*UV(215)+JVS(1628)*UV(216)+JVS(1637)*UV(217)& - &+JVS(1664)*UV(218)+JVS(1688)*UV(219)+JVS(1704)*UV(220)+JVS(1717)*UV(221)+JVS(1781)*UV(225)+JVS(1801)& - &*UV(226)+JVS(1886)*UV(230)+JVS(1920)*UV(231)+JVS(1995)*UV(233)+JVS(2068)*UV(236)+JVS(2088)*UV(237)& - &+JVS(2100)*UV(238)+JVS(2119)*UV(239)+JVS(2138)*UV(240)+JVS(2226)*UV(244)+JVS(2240)*UV(245)+JVS(2252)& - &*UV(246)+JVS(2264)*UV(247)+JVS(2288)*UV(248)+JVS(2308)*UV(249)+JVS(2364)*UV(250)+JVS(2390)*UV(251)& - &+JVS(2417)*UV(252)+JVS(2431)*UV(253)+JVS(2448)*UV(254)+JVS(2468)*UV(255)+JVS(2485)*UV(256)+JVS(2498)& - &*UV(257)+JVS(2518)*UV(258)+JVS(2555)*UV(259)+JVS(2646)*UV(261)+JVS(2758)*UV(263)+JVS(2792)*UV(264)& - &+JVS(2943)*UV(266)+JVS(3043)*UV(267)+JVS(3599)*UV(279)+JVS(3725)*UV(281)+JVS(3784)*UV(282)+JVS(3980)& - &*UV(284)+JVS(4033)*UV(285)+JVS(4249)*UV(286)+JVS(4477)*UV(290)+JVS(4607)*UV(291) - JTUV(267) = JVS(61)*UV(7)+JVS(437)*UV(37)+JVS(1334)*UV(195)+JVS(2009)*UV(234)+JVS(2759)*UV(263)+JVS(2793)*UV(264)& - &+JVS(3044)*UV(267)+JVS(3981)*UV(284)+JVS(4250)*UV(286) - JTUV(268) = JVS(77)*UV(9)+JVS(85)*UV(10)+JVS(339)*UV(35)+JVS(556)*UV(73)+JVS(662)*UV(99)+JVS(1811)*UV(227)+JVS(3061)& - &*UV(268)+JVS(3090)*UV(269)+JVS(3417)*UV(277)+JVS(3503)*UV(278)+JVS(3633)*UV(280)+JVS(3812)*UV(283)& - &+JVS(4251)*UV(286)+JVS(4284)*UV(287) - JTUV(269) = JVS(511)*UV(60)+JVS(541)*UV(69)+JVS(910)*UV(143)+JVS(1436)*UV(203)+JVS(1812)*UV(227)+JVS(3091)*UV(269)& - &+JVS(3110)*UV(270)+JVS(3239)*UV(273)+JVS(3272)*UV(274)+JVS(3602)*UV(279)+JVS(3727)*UV(281)+JVS(3786)& - &*UV(282)+JVS(3983)*UV(284)+JVS(4610)*UV(291) - JTUV(270) = JVS(78)*UV(9)+JVS(86)*UV(10)+JVS(340)*UV(35)+JVS(557)*UV(73)+JVS(663)*UV(99)+JVS(911)*UV(143)+JVS(1813)& - &*UV(227)+JVS(2874)*UV(265)+JVS(3063)*UV(268)+JVS(3092)*UV(269)+JVS(3111)*UV(270)+JVS(3419)*UV(277)& - &+JVS(3505)*UV(278)+JVS(3635)*UV(280)+JVS(3728)*UV(281)+JVS(3814)*UV(283)+JVS(4286)*UV(287)+JVS(4611)& - &*UV(291) - JTUV(271) = JVS(341)*UV(35)+JVS(446)*UV(38)+JVS(784)*UV(122)+JVS(864)*UV(135)+JVS(1361)*UV(197)+JVS(3136)*UV(271)& - &+JVS(3350)*UV(275)+JVS(3392)*UV(276)+JVS(3506)*UV(278)+JVS(3636)*UV(280)+JVS(4038)*UV(285)+JVS(4254)& - &*UV(286)+JVS(4287)*UV(287)+JVS(4387)*UV(289)+JVS(4482)*UV(290) - JTUV(272) = JVS(342)*UV(35)+JVS(452)*UV(39)+JVS(482)*UV(47)+JVS(484)*UV(48)+JVS(495)*UV(52)+JVS(497)*UV(53)+JVS(499)& - &*UV(54)+JVS(501)*UV(55)+JVS(503)*UV(56)+JVS(505)*UV(57)+JVS(509)*UV(59)+JVS(515)*UV(61)+JVS(549)*UV(71)& - &+JVS(570)*UV(77)+JVS(580)*UV(81)+JVS(583)*UV(82)+JVS(586)*UV(83)+JVS(589)*UV(84)+JVS(668)*UV(100)+JVS(945)& - &*UV(149)+JVS(1154)*UV(177)+JVS(1271)*UV(190)+JVS(1362)*UV(197)+JVS(2760)*UV(263)+JVS(2945)*UV(266)& - &+JVS(3186)*UV(272)+JVS(3242)*UV(273)+JVS(3274)*UV(274)+JVS(3351)*UV(275)+JVS(3507)*UV(278)+JVS(3604)& - &*UV(279)+JVS(3788)*UV(282)+JVS(3985)*UV(284)+JVS(4039)*UV(285)+JVS(4255)*UV(286)+JVS(4349)*UV(288)& - &+JVS(4388)*UV(289)+JVS(4483)*UV(290) - JTUV(273) = JVS(426)*UV(36)+JVS(492)*UV(51)+JVS(794)*UV(124)+JVS(818)*UV(128)+JVS(1028)*UV(161)+JVS(1145)*UV(176)& - &+JVS(1511)*UV(209)+JVS(1638)*UV(217)+JVS(1718)*UV(221)+JVS(2089)*UV(237)+JVS(2418)*UV(252)+JVS(2432)& - &*UV(253)+JVS(2647)*UV(261)+JVS(2761)*UV(263)+JVS(2794)*UV(264)+JVS(3046)*UV(267)+JVS(3243)*UV(273)& - &+JVS(3275)*UV(274)+JVS(3730)*UV(281)+JVS(3789)*UV(282)+JVS(3986)*UV(284)+JVS(4389)*UV(289)+JVS(4613)& - &*UV(291) - JTUV(274) = JVS(343)*UV(35)+JVS(623)*UV(92)+JVS(682)*UV(103)+JVS(725)*UV(111)+JVS(819)*UV(128)+JVS(865)*UV(135)& - &+JVS(1146)*UV(176)+JVS(1814)*UV(227)+JVS(2568)*UV(260)+JVS(3093)*UV(269)+JVS(3244)*UV(273)+JVS(3276)& - &*UV(274)+JVS(3606)*UV(279)+JVS(3987)*UV(284)+JVS(4041)*UV(285)+JVS(4257)*UV(286)+JVS(4351)*UV(288)& - &+JVS(4614)*UV(291) - JTUV(275) = JVS(344)*UV(35)+JVS(866)*UV(135)+JVS(884)*UV(138)+JVS(934)*UV(147)+JVS(1101)*UV(173)+JVS(1147)*UV(176)& - &+JVS(1155)*UV(177)+JVS(1308)*UV(193)+JVS(1364)*UV(197)+JVS(2020)*UV(235)+JVS(2569)*UV(260)+JVS(2656)& - &*UV(262)+JVS(2878)*UV(265)+JVS(3140)*UV(271)+JVS(3189)*UV(272)+JVS(3354)*UV(275)+JVS(3510)*UV(278)& - &+JVS(3640)*UV(280)+JVS(4042)*UV(285)+JVS(4258)*UV(286)+JVS(4291)*UV(287)+JVS(4352)*UV(288)+JVS(4486)& - &*UV(290) - JTUV(276) = JVS(152)*UV(29)+JVS(167)*UV(32)+JVS(172)*UV(33)+JVS(345)*UV(35)+JVS(447)*UV(38)+JVS(597)*UV(86)+JVS(785)& - &*UV(122)+JVS(885)*UV(138)+JVS(935)*UV(147)+JVS(1335)*UV(195)+JVS(1575)*UV(212)+JVS(2010)*UV(234)+JVS(2570)& - &*UV(260)+JVS(2762)*UV(263)+JVS(2795)*UV(264)+JVS(3141)*UV(271)+JVS(3355)*UV(275)+JVS(3397)*UV(276)& - &+JVS(3792)*UV(282)+JVS(3989)*UV(284)+JVS(4259)*UV(286)+JVS(4392)*UV(289) - JTUV(277) = JVS(346)*UV(35)+JVS(558)*UV(73)+JVS(820)*UV(128)+JVS(867)*UV(135)+JVS(1310)*UV(193)+JVS(1437)*UV(203)& - &+JVS(2021)*UV(235)+JVS(2571)*UV(260)+JVS(2657)*UV(262)+JVS(2880)*UV(265)+JVS(3065)*UV(268)+JVS(3113)& - &*UV(270)+JVS(3424)*UV(277)+JVS(3793)*UV(282) - JTUV(278) = JVS(347)*UV(35)+JVS(463)*UV(40)+JVS(593)*UV(85)+JVS(1102)*UV(173)+JVS(1148)*UV(176)+JVS(1336)*UV(195)& - &+JVS(1557)*UV(211)+JVS(1576)*UV(212)+JVS(1692)*UV(219)+JVS(2011)*UV(234)+JVS(2572)*UV(260)+JVS(2658)& - &*UV(262)+JVS(2763)*UV(263)+JVS(2796)*UV(264)+JVS(2881)*UV(265)+JVS(3066)*UV(268)+JVS(3114)*UV(270)& - &+JVS(3143)*UV(271)+JVS(3192)*UV(272)+JVS(3513)*UV(278)+JVS(4261)*UV(286) - JTUV(279) = JVS(62)*UV(7)+JVS(92)*UV(12)+JVS(95)*UV(13)+JVS(109)*UV(17)+JVS(112)*UV(18)+JVS(122)*UV(21)+JVS(125)& - &*UV(22)+JVS(141)*UV(26)+JVS(144)*UV(27)+JVS(252)*UV(34)+JVS(427)*UV(36)+JVS(512)*UV(60)+JVS(528)*UV(65)& - &+JVS(538)*UV(68)+JVS(601)*UV(87)+JVS(609)*UV(89)+JVS(616)*UV(91)+JVS(624)*UV(92)+JVS(639)*UV(96)+JVS(711)& - &*UV(108)+JVS(754)*UV(117)+JVS(773)*UV(121)+JVS(790)*UV(123)+JVS(808)*UV(126)+JVS(844)*UV(132)+JVS(889)& - &*UV(139)+JVS(893)*UV(140)+JVS(918)*UV(144)+JVS(924)*UV(145)+JVS(929)*UV(146)+JVS(951)*UV(150)+JVS(961)& - &*UV(152)+JVS(1021)*UV(160)+JVS(1055)*UV(166)+JVS(1061)*UV(167)+JVS(1066)*UV(168)+JVS(1078)*UV(169)& - &+JVS(1097)*UV(172)+JVS(1141)*UV(175)+JVS(1168)*UV(178)+JVS(1176)*UV(179)+JVS(1186)*UV(180)+JVS(1201)& - &*UV(182)+JVS(1208)*UV(183)+JVS(1220)*UV(184)+JVS(1253)*UV(187)+JVS(1265)*UV(189)+JVS(1282)*UV(191)& - &+JVS(1296)*UV(192)+JVS(1311)*UV(193)+JVS(1329)*UV(194)+JVS(1337)*UV(195)+JVS(1353)*UV(196)+JVS(1388)& - &*UV(198)+JVS(1399)*UV(199)+JVS(1415)*UV(200)+JVS(1424)*UV(201)+JVS(1432)*UV(202)+JVS(1449)*UV(204)& - &+JVS(1460)*UV(205)+JVS(1484)*UV(207)+JVS(1502)*UV(208)+JVS(1512)*UV(209)+JVS(1558)*UV(211)+JVS(1601)& - &*UV(213)+JVS(1608)*UV(214)+JVS(1617)*UV(215)+JVS(1629)*UV(216)+JVS(1639)*UV(217)+JVS(1705)*UV(220)& - &+JVS(1719)*UV(221)+JVS(1728)*UV(222)+JVS(1767)*UV(223)+JVS(1782)*UV(225)+JVS(1802)*UV(226)+JVS(1815)& - &*UV(227)+JVS(1838)*UV(228)+JVS(1858)*UV(229)+JVS(1887)*UV(230)+JVS(1921)*UV(231)+JVS(1938)*UV(232)& - &+JVS(1996)*UV(233)+JVS(2012)*UV(234)+JVS(2069)*UV(236)+JVS(2090)*UV(237)+JVS(2101)*UV(238)+JVS(2121)& - &*UV(239)+JVS(2139)*UV(240)+JVS(2164)*UV(241)+JVS(2193)*UV(242)+JVS(2215)*UV(243)+JVS(2227)*UV(244)& - &+JVS(2241)*UV(245)+JVS(2253)*UV(246)+JVS(2265)*UV(247)+JVS(2289)*UV(248)+JVS(2309)*UV(249)+JVS(2366)& - &*UV(250)+JVS(2391)*UV(251)+JVS(2419)*UV(252)+JVS(2433)*UV(253)+JVS(2449)*UV(254)+JVS(2469)*UV(255)& - &+JVS(2486)*UV(256)+JVS(2499)*UV(257)+JVS(2520)*UV(258)+JVS(2557)*UV(259)+JVS(2648)*UV(261)+JVS(2764)& - &*UV(263)+JVS(2797)*UV(264)+JVS(2949)*UV(266)+JVS(3049)*UV(267)+JVS(3096)*UV(269)+JVS(3249)*UV(273)& - &+JVS(3281)*UV(274)+JVS(3611)*UV(279)+JVS(3736)*UV(281)+JVS(3795)*UV(282)+JVS(3992)*UV(284)+JVS(4046)& - &*UV(285)+JVS(4262)*UV(286)+JVS(4356)*UV(288)+JVS(4490)*UV(290)+JVS(4619)*UV(291) - JTUV(280) = JVS(348)*UV(35)+JVS(664)*UV(99)+JVS(868)*UV(135)+JVS(1103)*UV(173)+JVS(1312)*UV(193)+JVS(1365)*UV(197)& - &+JVS(1438)*UV(203)+JVS(2023)*UV(235)+JVS(2573)*UV(260)+JVS(2659)*UV(262)+JVS(2883)*UV(265)+JVS(3068)& - &*UV(268)+JVS(3116)*UV(270)+JVS(3145)*UV(271)+JVS(3515)*UV(278)+JVS(3645)*UV(280)+JVS(4263)*UV(286) - JTUV(281) = JVS(63)*UV(7)+JVS(103)*UV(15)+JVS(349)*UV(35)+JVS(428)*UV(36)+JVS(520)*UV(62)+JVS(524)*UV(63)+JVS(612)& - &*UV(90)+JVS(673)*UV(101)+JVS(712)*UV(108)+JVS(737)*UV(114)+JVS(743)*UV(115)+JVS(759)*UV(118)+JVS(809)& - &*UV(126)+JVS(856)*UV(134)+JVS(904)*UV(142)+JVS(913)*UV(143)+JVS(941)*UV(148)+JVS(970)*UV(154)+JVS(974)& - &*UV(155)+JVS(1010)*UV(159)+JVS(1022)*UV(160)+JVS(1029)*UV(161)+JVS(1082)*UV(170)+JVS(1104)*UV(173)& - &+JVS(1169)*UV(178)+JVS(1177)*UV(179)+JVS(1187)*UV(180)+JVS(1221)*UV(184)+JVS(1283)*UV(191)+JVS(1389)& - &*UV(198)+JVS(1400)*UV(199)+JVS(1425)*UV(201)+JVS(1485)*UV(207)+JVS(1503)*UV(208)+JVS(1525)*UV(210)& - &+JVS(1618)*UV(215)+JVS(1630)*UV(216)+JVS(1640)*UV(217)+JVS(1768)*UV(223)+JVS(1774)*UV(224)+JVS(1783)& - &*UV(225)+JVS(1803)*UV(226)+JVS(1997)*UV(233)+JVS(2102)*UV(238)+JVS(2140)*UV(240)+JVS(2254)*UV(246)& - &+JVS(2266)*UV(247)+JVS(2290)*UV(248)+JVS(2310)*UV(249)+JVS(2367)*UV(250)+JVS(2392)*UV(251)+JVS(2434)& - &*UV(253)+JVS(2450)*UV(254)+JVS(2470)*UV(255)+JVS(2487)*UV(256)+JVS(2500)*UV(257)+JVS(2558)*UV(259)& - &+JVS(2649)*UV(261)+JVS(2765)*UV(263)+JVS(2798)*UV(264)+JVS(2884)*UV(265)+JVS(2950)*UV(266)+JVS(3050)& - &*UV(267)+JVS(3098)*UV(269)+JVS(3117)*UV(270)+JVS(3251)*UV(273)+JVS(3283)*UV(274)+JVS(3402)*UV(276)& - &+JVS(3613)*UV(279)+JVS(3738)*UV(281)+JVS(3994)*UV(284)+JVS(4264)*UV(286)+JVS(4358)*UV(288)+JVS(4621)& - &*UV(291) - JTUV(282) = JVS(64)*UV(7)+JVS(153)*UV(29)+JVS(173)*UV(33)+JVS(350)*UV(35)+JVS(429)*UV(36)+JVS(448)*UV(38)+JVS(464)& - &*UV(40)+JVS(567)*UV(76)+JVS(690)*UV(104)+JVS(786)*UV(122)+JVS(857)*UV(134)+JVS(886)*UV(138)+JVS(905)& - &*UV(142)+JVS(936)*UV(147)+JVS(942)*UV(148)+JVS(971)*UV(154)+JVS(975)*UV(155)+JVS(1011)*UV(159)+JVS(1023)& - &*UV(160)+JVS(1083)*UV(170)+JVS(1156)*UV(177)+JVS(1272)*UV(190)+JVS(1284)*UV(191)+JVS(1338)*UV(195)& - &+JVS(1401)*UV(199)+JVS(1560)*UV(211)+JVS(1579)*UV(212)+JVS(1695)*UV(219)+JVS(1769)*UV(223)+JVS(1775)& - &*UV(224)+JVS(1804)*UV(226)+JVS(1816)*UV(227)+JVS(1998)*UV(233)+JVS(2014)*UV(234)+JVS(2071)*UV(236)& - &+JVS(2123)*UV(239)+JVS(2291)*UV(248)+JVS(2393)*UV(251)+JVS(2435)*UV(253)+JVS(2451)*UV(254)+JVS(2559)& - &*UV(259)+JVS(2574)*UV(260)+JVS(2650)*UV(261)+JVS(2766)*UV(263)+JVS(2799)*UV(264)+JVS(2951)*UV(266)& - &+JVS(3051)*UV(267)+JVS(3099)*UV(269)+JVS(3196)*UV(272)+JVS(3252)*UV(273)+JVS(3284)*UV(274)+JVS(3403)& - &*UV(276)+JVS(3429)*UV(277)+JVS(3614)*UV(279)+JVS(3739)*UV(281)+JVS(3798)*UV(282)+JVS(3824)*UV(283)& - &+JVS(3995)*UV(284)+JVS(4049)*UV(285)+JVS(4265)*UV(286)+JVS(4359)*UV(288)+JVS(4398)*UV(289)+JVS(4493)& - &*UV(290)+JVS(4622)*UV(291) - JTUV(283) = JVS(351)*UV(35)+JVS(559)*UV(73)+JVS(821)*UV(128)+JVS(869)*UV(135)+JVS(1315)*UV(193)+JVS(1439)*UV(203)& - &+JVS(2025)*UV(235)+JVS(2575)*UV(260)+JVS(2660)*UV(262)+JVS(2886)*UV(265)+JVS(3071)*UV(268)+JVS(3119)& - &*UV(270)+JVS(3799)*UV(282)+JVS(3825)*UV(283) - JTUV(284) = JVS(65)*UV(7)+JVS(89)*UV(11)+JVS(96)*UV(13)+JVS(106)*UV(16)+JVS(113)*UV(18)+JVS(119)*UV(20)+JVS(126)& - &*UV(22)+JVS(138)*UV(25)+JVS(145)*UV(27)+JVS(253)*UV(34)+JVS(352)*UV(35)+JVS(430)*UV(36)+JVS(465)*UV(40)& - &+JVS(542)*UV(69)+JVS(546)*UV(70)+JVS(605)*UV(88)+JVS(627)*UV(93)+JVS(631)*UV(94)+JVS(635)*UV(95)+JVS(676)& - &*UV(102)+JVS(698)*UV(106)+JVS(704)*UV(107)+JVS(721)*UV(110)+JVS(730)*UV(112)+JVS(734)*UV(113)+JVS(755)& - &*UV(117)+JVS(764)*UV(119)+JVS(769)*UV(120)+JVS(774)*UV(121)+JVS(791)*UV(123)+JVS(845)*UV(132)+JVS(875)& - &*UV(136)+JVS(879)*UV(137)+JVS(899)*UV(141)+JVS(919)*UV(144)+JVS(925)*UV(145)+JVS(930)*UV(146)+JVS(952)& - &*UV(150)+JVS(956)*UV(151)+JVS(962)*UV(152)+JVS(988)*UV(157)+JVS(1034)*UV(162)+JVS(1051)*UV(165)+JVS(1056)& - &*UV(166)+JVS(1062)*UV(167)+JVS(1067)*UV(168)+JVS(1079)*UV(169)+JVS(1087)*UV(171)+JVS(1098)*UV(172)& - &+JVS(1142)*UV(175)+JVS(1157)*UV(177)+JVS(1170)*UV(178)+JVS(1179)*UV(179)+JVS(1188)*UV(180)+JVS(1195)& - &*UV(181)+JVS(1202)*UV(182)+JVS(1209)*UV(183)+JVS(1223)*UV(184)+JVS(1254)*UV(187)+JVS(1266)*UV(189)& - &+JVS(1285)*UV(191)+JVS(1330)*UV(194)+JVS(1354)*UV(196)+JVS(1390)*UV(198)+JVS(1402)*UV(199)+JVS(1416)& - &*UV(200)+JVS(1426)*UV(201)+JVS(1433)*UV(202)+JVS(1450)*UV(204)+JVS(1461)*UV(205)+JVS(1477)*UV(206)& - &+JVS(1486)*UV(207)+JVS(1504)*UV(208)+JVS(1513)*UV(209)+JVS(1580)*UV(212)+JVS(1620)*UV(215)+JVS(1632)& - &*UV(216)+JVS(1641)*UV(217)+JVS(1696)*UV(219)+JVS(1729)*UV(222)+JVS(1770)*UV(223)+JVS(1785)*UV(225)& - &+JVS(1817)*UV(227)+JVS(1839)*UV(228)+JVS(1859)*UV(229)+JVS(1890)*UV(230)+JVS(1924)*UV(231)+JVS(1940)& - &*UV(232)+JVS(1999)*UV(233)+JVS(2072)*UV(236)+JVS(2093)*UV(237)+JVS(2104)*UV(238)+JVS(2124)*UV(239)& - &+JVS(2167)*UV(241)+JVS(2195)*UV(242)+JVS(2217)*UV(243)+JVS(2230)*UV(244)+JVS(2244)*UV(245)+JVS(2256)& - &*UV(246)+JVS(2268)*UV(247)+JVS(2292)*UV(248)+JVS(2312)*UV(249)+JVS(2369)*UV(250)+JVS(2394)*UV(251)& - &+JVS(2422)*UV(252)+JVS(2452)*UV(254)+JVS(2472)*UV(255)+JVS(2489)*UV(256)+JVS(2502)*UV(257)+JVS(2523)& - &*UV(258)+JVS(2576)*UV(260)+JVS(2651)*UV(261)+JVS(2767)*UV(263)+JVS(2800)*UV(264)+JVS(2952)*UV(266)& - &+JVS(3052)*UV(267)+JVS(3072)*UV(268)+JVS(3101)*UV(269)+JVS(3149)*UV(271)+JVS(3254)*UV(273)+JVS(3286)& - &*UV(274)+JVS(3363)*UV(275)+JVS(3519)*UV(278)+JVS(3616)*UV(279)+JVS(3741)*UV(281)+JVS(3800)*UV(282)& - &+JVS(3997)*UV(284)+JVS(4051)*UV(285)+JVS(4267)*UV(286)+JVS(4361)*UV(288)+JVS(4400)*UV(289)+JVS(4495)& - &*UV(290)+JVS(4624)*UV(291) - JTUV(285) = JVS(353)*UV(35)+JVS(564)*UV(75)+JVS(665)*UV(99)+JVS(683)*UV(103)+JVS(726)*UV(111)+JVS(870)*UV(135)& - &+JVS(1366)*UV(197)+JVS(1818)*UV(227)+JVS(2661)*UV(262)+JVS(2768)*UV(263)+JVS(2953)*UV(266)+JVS(3102)& - &*UV(269)+JVS(3150)*UV(271)+JVS(3255)*UV(273)+JVS(3287)*UV(274)+JVS(3364)*UV(275)+JVS(3617)*UV(279)& - &+JVS(3998)*UV(284)+JVS(4052)*UV(285)+JVS(4268)*UV(286)+JVS(4362)*UV(288)+JVS(4496)*UV(290)+JVS(4625)& - &*UV(291) - JTUV(286) = JVS(13)*UV(6)+JVS(66)*UV(7)+JVS(97)*UV(13)+JVS(100)*UV(14)+JVS(114)*UV(18)+JVS(116)*UV(19)+JVS(127)*UV(22)& - &+JVS(135)*UV(24)+JVS(146)*UV(27)+JVS(149)*UV(28)+JVS(168)*UV(32)+JVS(174)*UV(33)+JVS(254)*UV(34)+JVS(354)& - &*UV(35)+JVS(431)*UV(36)+JVS(438)*UV(37)+JVS(449)*UV(38)+JVS(453)*UV(39)+JVS(466)*UV(40)+JVS(468)*UV(41)& - &+JVS(472)*UV(43)+JVS(480)*UV(46)+JVS(507)*UV(58)+JVS(526)*UV(64)+JVS(531)*UV(66)+JVS(539)*UV(68)+JVS(543)& - &*UV(69)+JVS(547)*UV(70)+JVS(550)*UV(71)+JVS(552)*UV(72)+JVS(565)*UV(75)+JVS(568)*UV(76)+JVS(571)*UV(77)& - &+JVS(573)*UV(78)+JVS(576)*UV(79)+JVS(578)*UV(80)+JVS(581)*UV(81)+JVS(584)*UV(82)+JVS(587)*UV(83)+JVS(590)& - &*UV(84)+JVS(594)*UV(85)+JVS(598)*UV(86)+JVS(602)*UV(87)+JVS(606)*UV(88)+JVS(610)*UV(89)+JVS(613)*UV(90)& - &+JVS(617)*UV(91)+JVS(628)*UV(93)+JVS(632)*UV(94)+JVS(636)*UV(95)+JVS(640)*UV(96)+JVS(643)*UV(97)+JVS(669)& - &*UV(100)+JVS(674)*UV(101)+JVS(677)*UV(102)+JVS(684)*UV(103)+JVS(691)*UV(104)+JVS(695)*UV(105)+JVS(699)& - &*UV(106)+JVS(705)*UV(107)+JVS(717)*UV(109)+JVS(722)*UV(110)+JVS(727)*UV(111)+JVS(731)*UV(112)+JVS(735)& - &*UV(113)+JVS(738)*UV(114)+JVS(744)*UV(115)+JVS(750)*UV(116)+JVS(756)*UV(117)+JVS(760)*UV(118)+JVS(765)& - &*UV(119)+JVS(770)*UV(120)+JVS(775)*UV(121)+JVS(787)*UV(122)+JVS(792)*UV(123)+JVS(795)*UV(124)+JVS(800)& - &*UV(125)+JVS(814)*UV(127)+JVS(822)*UV(128)+JVS(828)*UV(129)+JVS(834)*UV(130)+JVS(840)*UV(131)+JVS(846)& - &*UV(132)+JVS(851)*UV(133)+JVS(858)*UV(134)+JVS(876)*UV(136)+JVS(880)*UV(137)+JVS(890)*UV(139)+JVS(894)& - &*UV(140)+JVS(900)*UV(141)+JVS(906)*UV(142)+JVS(914)*UV(143)+JVS(931)*UV(146)+JVS(943)*UV(148)+JVS(946)& - &*UV(149)+JVS(953)*UV(150)+JVS(957)*UV(151)+JVS(963)*UV(152)+JVS(967)*UV(153)+JVS(972)*UV(154)+JVS(976)& - &*UV(155)+JVS(985)*UV(156)+JVS(989)*UV(157)+JVS(1002)*UV(158)+JVS(1012)*UV(159)+JVS(1025)*UV(160)+JVS(1030)& - &*UV(161)+JVS(1035)*UV(162)+JVS(1041)*UV(163)+JVS(1048)*UV(164)+JVS(1052)*UV(165)+JVS(1057)*UV(166)& - &+JVS(1063)*UV(167)+JVS(1068)*UV(168)+JVS(1080)*UV(169)+JVS(1084)*UV(170)+JVS(1088)*UV(171)+JVS(1099)& - &*UV(172)+JVS(1131)*UV(174)+JVS(1143)*UV(175)+JVS(1158)*UV(177)+JVS(1171)*UV(178)+JVS(1180)*UV(179)& - &+JVS(1189)*UV(180)+JVS(1196)*UV(181)+JVS(1203)*UV(182)+JVS(1210)*UV(183)+JVS(1224)*UV(184)+JVS(1241)& - &*UV(185)+JVS(1247)*UV(186)+JVS(1255)*UV(187)+JVS(1261)*UV(188)+JVS(1267)*UV(189)+JVS(1273)*UV(190)& - &+JVS(1286)*UV(191)+JVS(1298)*UV(192)+JVS(1316)*UV(193)+JVS(1331)*UV(194)+JVS(1355)*UV(196)+JVS(1367)& - &*UV(197)+JVS(1391)*UV(198)+JVS(1403)*UV(199)+JVS(1417)*UV(200)+JVS(1427)*UV(201)+JVS(1434)*UV(202)& - &+JVS(1451)*UV(204)+JVS(1462)*UV(205)+JVS(1478)*UV(206)+JVS(1487)*UV(207)+JVS(1505)*UV(208)+JVS(1514)& - &*UV(209)+JVS(1528)*UV(210)+JVS(1562)*UV(211)+JVS(1581)*UV(212)+JVS(1603)*UV(213)+JVS(1609)*UV(214)& - &+JVS(1642)*UV(217)+JVS(1670)*UV(218)+JVS(1697)*UV(219)+JVS(1706)*UV(220)+JVS(1721)*UV(221)+JVS(1730)& - &*UV(222)+JVS(1771)*UV(223)+JVS(1776)*UV(224)+JVS(1786)*UV(225)+JVS(1806)*UV(226)+JVS(1819)*UV(227)& - &+JVS(1840)*UV(228)+JVS(1860)*UV(229)+JVS(1891)*UV(230)+JVS(1925)*UV(231)+JVS(1941)*UV(232)+JVS(2000)& - &*UV(233)+JVS(2026)*UV(235)+JVS(2073)*UV(236)+JVS(2094)*UV(237)+JVS(2105)*UV(238)+JVS(2125)*UV(239)& - &+JVS(2142)*UV(240)+JVS(2168)*UV(241)+JVS(2196)*UV(242)+JVS(2218)*UV(243)+JVS(2231)*UV(244)+JVS(2245)& - &*UV(245)+JVS(2257)*UV(246)+JVS(2269)*UV(247)+JVS(2293)*UV(248)+JVS(2313)*UV(249)+JVS(2370)*UV(250)& - &+JVS(2395)*UV(251)+JVS(2423)*UV(252)+JVS(2437)*UV(253)+JVS(2453)*UV(254)+JVS(2473)*UV(255)+JVS(2490)& - &*UV(256)+JVS(2503)*UV(257)+JVS(2524)*UV(258)+JVS(2561)*UV(259)+JVS(2577)*UV(260)+JVS(2652)*UV(261)& - &+JVS(2662)*UV(262)+JVS(2769)*UV(263)+JVS(2801)*UV(264)+JVS(2889)*UV(265)+JVS(2954)*UV(266)+JVS(3054)& - &*UV(267)+JVS(3074)*UV(268)+JVS(3103)*UV(269)+JVS(3151)*UV(271)+JVS(3256)*UV(273)+JVS(3288)*UV(274)& - &+JVS(3365)*UV(275)+JVS(3407)*UV(276)+JVS(3521)*UV(278)+JVS(3618)*UV(279)+JVS(3651)*UV(280)+JVS(3743)& - &*UV(281)+JVS(3802)*UV(282)+JVS(3999)*UV(284)+JVS(4053)*UV(285)+JVS(4269)*UV(286)+JVS(4302)*UV(287)& - &+JVS(4363)*UV(288)+JVS(4402)*UV(289)+JVS(4497)*UV(290)+JVS(4626)*UV(291) - JTUV(287) = JVS(355)*UV(35)+JVS(666)*UV(99)+JVS(871)*UV(135)+JVS(1105)*UV(173)+JVS(1317)*UV(193)+JVS(1368)*UV(197)& - &+JVS(1440)*UV(203)+JVS(2027)*UV(235)+JVS(2578)*UV(260)+JVS(2663)*UV(262)+JVS(2890)*UV(265)+JVS(3075)& - &*UV(268)+JVS(3123)*UV(270)+JVS(3152)*UV(271)+JVS(3522)*UV(278)+JVS(4270)*UV(286)+JVS(4303)*UV(287) - JTUV(288) = JVS(356)*UV(35)+JVS(432)*UV(36)+JVS(532)*UV(66)+JVS(1159)*UV(177)+JVS(1582)*UV(212)+JVS(2579)*UV(260)& - &+JVS(2664)*UV(262)+JVS(2770)*UV(263)+JVS(3055)*UV(267)+JVS(3258)*UV(273)+JVS(3290)*UV(274)+JVS(3409)& - &*UV(276)+JVS(3620)*UV(279)+JVS(3745)*UV(281)+JVS(3804)*UV(282)+JVS(4001)*UV(284)+JVS(4055)*UV(285)& - &+JVS(4271)*UV(286)+JVS(4365)*UV(288)+JVS(4404)*UV(289)+JVS(4499)*UV(290)+JVS(4628)*UV(291) - JTUV(289) = JVS(357)*UV(35)+JVS(823)*UV(128)+JVS(872)*UV(135)+JVS(1160)*UV(177)+JVS(1318)*UV(193)+JVS(2028)*UV(235)& - &+JVS(2580)*UV(260)+JVS(2665)*UV(262)+JVS(2892)*UV(265)+JVS(3154)*UV(271)+JVS(3203)*UV(272)+JVS(3259)& - &*UV(273)+JVS(3291)*UV(274)+JVS(3436)*UV(277)+JVS(3524)*UV(278)+JVS(3805)*UV(282)+JVS(3831)*UV(283)& - &+JVS(4272)*UV(286)+JVS(4366)*UV(288)+JVS(4405)*UV(289) - JTUV(290) = JVS(67)*UV(7)+JVS(255)*UV(34)+JVS(433)*UV(36)+JVS(454)*UV(39)+JVS(553)*UV(72)+JVS(574)*UV(78)+JVS(685)& - &*UV(103)+JVS(739)*UV(114)+JVS(796)*UV(124)+JVS(852)*UV(133)+JVS(881)*UV(137)+JVS(947)*UV(149)+JVS(1031)& - &*UV(161)+JVS(1161)*UV(177)+JVS(1274)*UV(190)+JVS(1369)*UV(197)+JVS(1515)*UV(209)+JVS(1563)*UV(211)& - &+JVS(1583)*UV(212)+JVS(1643)*UV(217)+JVS(1671)*UV(218)+JVS(1698)*UV(219)+JVS(1722)*UV(221)+JVS(1777)& - &*UV(224)+JVS(2095)*UV(237)+JVS(2126)*UV(239)+JVS(2232)*UV(244)+JVS(2246)*UV(245)+JVS(2424)*UV(252)& - &+JVS(2438)*UV(253)+JVS(2491)*UV(256)+JVS(2525)*UV(258)+JVS(2666)*UV(262)+JVS(2771)*UV(263)+JVS(2802)& - &*UV(264)+JVS(2955)*UV(266)+JVS(3056)*UV(267)+JVS(3369)*UV(275)+JVS(3525)*UV(278)+JVS(3747)*UV(281)& - &+JVS(3806)*UV(282)+JVS(4003)*UV(284)+JVS(4057)*UV(285)+JVS(4273)*UV(286)+JVS(4501)*UV(290) - JTUV(291) = JVS(256)*UV(34)+JVS(358)*UV(35)+JVS(490)*UV(50)+JVS(493)*UV(51)+JVS(516)*UV(61)+JVS(529)*UV(65)+JVS(535)& - &*UV(67)+JVS(562)*UV(74)+JVS(644)*UV(97)+JVS(678)*UV(102)+JVS(920)*UV(144)+JVS(926)*UV(145)+JVS(968)*UV(153)& - &+JVS(1026)*UV(160)+JVS(1106)*UV(173)+JVS(1149)*UV(176)+JVS(1190)*UV(180)+JVS(1287)*UV(191)+JVS(1319)& - &*UV(193)+JVS(1339)*UV(195)+JVS(1418)*UV(200)+JVS(1441)*UV(203)+JVS(1488)*UV(207)+JVS(1529)*UV(210)& - &+JVS(1820)*UV(227)+JVS(2017)*UV(234)+JVS(2170)*UV(241)+JVS(2315)*UV(249)+JVS(2475)*UV(255)+JVS(2654)& - &*UV(261)+JVS(2667)*UV(262)+JVS(2772)*UV(263)+JVS(2803)*UV(264)+JVS(2894)*UV(265)+JVS(2956)*UV(266)& - &+JVS(3105)*UV(269)+JVS(3124)*UV(270)+JVS(3261)*UV(273)+JVS(3293)*UV(274)+JVS(3623)*UV(279)+JVS(3748)& - &*UV(281)+JVS(3807)*UV(282)+JVS(4004)*UV(284)+JVS(4058)*UV(285)+JVS(4274)*UV(286)+JVS(4368)*UV(288)& - &+JVS(4631)*UV(291) + JTUV(8) = JVS(83)*UV(8) + JTUV(9) = JVS(86)*UV(9) + JTUV(10) = JVS(94)*UV(10) + JTUV(11) = JVS(102)*UV(11) + JTUV(12) = JVS(105)*UV(12) + JTUV(13) = JVS(103)*UV(11)+JVS(106)*UV(12)+JVS(108)*UV(13) + JTUV(14) = JVS(113)*UV(14) + JTUV(15) = JVS(116)*UV(15) + JTUV(16) = JVS(119)*UV(16) + JTUV(17) = JVS(122)*UV(17) + JTUV(18) = JVS(120)*UV(16)+JVS(123)*UV(17)+JVS(125)*UV(18) + JTUV(19) = JVS(126)*UV(18)+JVS(130)*UV(19) + JTUV(20) = JVS(132)*UV(20) + JTUV(21) = JVS(135)*UV(21) + JTUV(22) = JVS(133)*UV(20)+JVS(136)*UV(21)+JVS(138)*UV(22) + JTUV(23) = JVS(143)*UV(23) + JTUV(24) = JVS(144)*UV(23)+JVS(145)*UV(24) + JTUV(25) = JVS(151)*UV(25) + JTUV(26) = JVS(154)*UV(26) + JTUV(27) = JVS(152)*UV(25)+JVS(155)*UV(26)+JVS(157)*UV(27) + JTUV(28) = JVS(162)*UV(28) + JTUV(29) = JVS(165)*UV(29) + JTUV(30) = JVS(169)*UV(30) + 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)& + &*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)& + &*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)& + &*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)& + &*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)& + &*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)& + &*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)& + &*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) END SUBROUTINE JacTR_SP_Vec diff --git a/KPP/fullchem/gckpp_JacobianSP.F90 b/KPP/fullchem/gckpp_JacobianSP.F90 index 07d0747a8..7b1f7e9d6 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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,861 +38,1055 @@ MODULE gckpp_JacobianSP 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 25 - 36 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 37 - 48 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 49 - 60 - 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 9, 9, & ! index 61 - 72 - 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, & ! index 73 - 84 - 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, 13, & ! index 85 - 96 - 13, 14, 14, 14, 15, 15, 15, 16, 16, 16, 17, 17, & ! index 97 - 108 - 17, 18, 18, 18, 18, 18, 19, 19, 20, 20, 20, 21, & ! index 109 - 120 - 21, 21, 22, 22, 22, 22, 22, 23, 23, 24, 24, 24, & ! index 121 - 132 - 24, 24, 24, 25, 25, 25, 26, 26, 26, 27, 27, 27, & ! index 133 - 144 - 27, 27, 28, 28, 28, 29, 29, 29, 29, 30, 30, 30, & ! index 145 - 156 - 30, 31, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, & ! index 157 - 168 - 33, 33, 33, 33, 33, 33, 34, 34, 34, 34, 34, 34, & ! index 169 - 180 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 181 - 192 + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 61 - 72 + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, & ! index 73 - 84 + 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, & ! index 85 - 96 + 10, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, & ! index 97 - 108 + 13, 13, 13, 13, 14, 14, 14, 15, 15, 15, 16, 16, & ! index 109 - 120 + 16, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 20, & ! index 121 - 132 + 20, 20, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, & ! index 133 - 144 + 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, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 253 - 264 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 265 - 276 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 277 - 288 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 289 - 300 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 301 - 312 + 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, 36, 36 /) ! index up to 360 + 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35 /) ! index up to 360 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 361 - 372 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 373 - 384 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 385 - 396 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 397 - 408 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 409 - 420 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 421 - 432 - 36, 37, 37, 37, 37, 37, 38, 38, 38, 38, 38, 38, & ! index 433 - 444 - 38, 38, 38, 38, 38, 39, 39, 39, 39, 39, 40, 40, & ! index 445 - 456 - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 41, 41, & ! index 457 - 468 - 42, 42, 43, 43, 44, 44, 45, 45, 45, 45, 46, 46, & ! index 469 - 480 - 47, 47, 48, 48, 49, 49, 49, 50, 50, 50, 51, 51, & ! index 481 - 492 - 51, 52, 52, 53, 53, 54, 54, 55, 55, 56, 56, 57, & ! index 493 - 504 - 57, 58, 58, 59, 59, 60, 60, 60, 61, 61, 61, 61, & ! index 505 - 516 - 62, 62, 62, 62, 63, 63, 63, 63, 64, 64, 65, 65, & ! index 517 - 528 - 65, 66, 66, 66, 67, 67, 67, 68, 68, 68, 68, 69, & ! index 529 - 540 - 69, 69, 69, 70, 70, 70, 70, 71, 71, 71, 72, 72, & ! index 541 - 552 - 72, 73, 73, 73, 73, 73, 73, 74, 74, 74, 75, 75, & ! index 553 - 564 - 75, 76, 76, 76, 77, 77, 77, 78, 78, 78, 79, 79, & ! index 565 - 576 - 80, 80, 81, 81, 81, 82, 82, 82, 83, 83, 83, 84, & ! index 577 - 588 - 84, 84, 85, 85, 85, 85, 86, 86, 86, 86, 87, 87, & ! index 589 - 600 - 87, 87, 88, 88, 88, 88, 89, 89, 89, 89, 90, 90, & ! index 601 - 612 - 90, 91, 91, 91, 91, 92, 92, 92, 92, 92, 92, 92, & ! index 613 - 624 - 93, 93, 93, 93, 94, 94, 94, 94, 95, 95, 95, 95, & ! index 625 - 636 - 96, 96, 96, 96, 97, 97, 97, 97, 98, 98, 98, 98, & ! index 637 - 648 - 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 99, 99, & ! index 649 - 660 - 99, 99, 99, 99, 99, 99,100,100,100,101,101,101, & ! index 661 - 672 - 101,101,102,102,102,102,103,103,103,103,103,103, & ! index 673 - 684 - 103,104,104,104,104,104,104,105,105,105,105,106, & ! index 685 - 696 - 106,106,106,107,107,107,107,107,107,107,108,108, & ! index 697 - 708 - 108,108,108,108,109,109,109,109,109,110,110,110 /) ! index up to 720 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ & - 110,110,111,111,111,111,111,112,112,112,112,113, & ! index 721 - 732 - 113,113,113,114,114,114,114,115,115,115,115,115, & ! index 733 - 744 - 116,116,116,116,116,116,117,117,117,117,117,117, & ! index 745 - 756 - 118,118,118,118,119,119,119,119,119,120,120,120, & ! index 757 - 768 - 120,120,121,121,121,121,121,122,122,122,122,122, & ! index 769 - 780 - 122,122,122,122,122,122,122,123,123,123,123,123, & ! index 781 - 792 - 124,124,124,124,125,125,125,125,126,126,126,126, & ! index 793 - 804 - 126,126,126,126,126,127,127,127,127,127,128,128, & ! index 805 - 816 - 128,128,128,128,128,128,128,129,129,129,129,129, & ! index 817 - 828 - 130,130,130,130,130,130,131,131,131,131,131,131, & ! index 829 - 840 - 132,132,132,132,132,132,133,133,133,133,133,133, & ! index 841 - 852 - 134,134,134,134,134,134,135,135,135,135,135,135, & ! index 853 - 864 - 135,135,135,135,135,135,135,135,136,136,136,136, & ! index 865 - 876 - 137,137,137,137,137,138,138,138,138,138,139,139, & ! index 877 - 888 - 139,139,140,140,140,140,141,141,141,141,141,141, & ! index 889 - 900 - 142,142,142,142,142,142,143,143,143,143,143,143, & ! index 901 - 912 - 143,143,144,144,144,144,144,144,145,145,145,145, & ! index 913 - 924 - 145,145,146,146,146,146,146,147,147,147,147,147, & ! index 925 - 936 - 148,148,148,148,148,148,148,149,149,149,149,150, & ! index 937 - 948 - 150,150,150,150,150,151,151,151,151,152,152,152, & ! index 949 - 960 - 152,152,152,153,153,153,153,153,154,154,154,154, & ! index 961 - 972 - 155,155,155,155,156,156,156,156,156,156,156,156, & ! index 973 - 984 - 156,157,157,157,157,158,158,158,158,158,158,158, & ! index 985 - 996 - 158,158,158,158,158,158,159,159,159,159,159,159, & ! index 997 - 1008 - 159,159,159,159,160,160,160,160,160,160,160,160, & ! index 1009 - 1020 - 160,160,160,160,160,160,161,161,161,161,161,162, & ! index 1021 - 1032 - 162,162,162,163,163,163,163,163,163,164,164,164, & ! index 1033 - 1044 - 164,164,164,164,165,165,165,165,166,166,166,166, & ! index 1045 - 1056 - 166,167,167,167,167,167,167,168,168,168,168,168, & ! index 1057 - 1068 - 169,169,169,169,169,169,169,169,169,169,169,169 /) ! index up to 1080 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_3 = (/ & - 170,170,170,170,171,171,171,171,172,172,172,172, & ! index 1081 - 1092 - 172,172,172,172,172,172,172,173,173,173,173,173, & ! index 1093 - 1104 - 173,173,174,174,174,174,174,174,174,174,174,174, & ! index 1105 - 1116 - 174,174,174,174,174,174,174,174,174,174,174,174, & ! index 1117 - 1128 - 174,174,174,175,175,175,175,175,175,175,175,175, & ! index 1129 - 1140 - 175,175,175,176,176,176,176,176,176,177,177,177, & ! index 1141 - 1152 - 177,177,177,177,177,177,177,177,177,178,178,178, & ! index 1153 - 1164 - 178,178,178,178,178,178,178,179,179,179,179,179, & ! index 1165 - 1176 - 179,179,179,179,180,180,180,180,180,180,180,180, & ! index 1177 - 1188 - 180,180,181,181,181,181,181,181,182,182,182,182, & ! index 1189 - 1200 - 182,182,182,183,183,183,183,183,183,183,184,184, & ! index 1201 - 1212 - 184,184,184,184,184,184,184,184,184,184,184,184, & ! index 1213 - 1224 - 185,185,185,185,185,185,185,185,185,185,185,185, & ! index 1225 - 1236 - 185,185,185,185,185,186,186,186,186,186,186,187, & ! index 1237 - 1248 - 187,187,187,187,187,187,187,188,188,188,188,188, & ! index 1249 - 1260 - 188,189,189,189,189,189,189,190,190,190,190,190, & ! index 1261 - 1272 - 190,190,191,191,191,191,191,191,191,191,191,191, & ! index 1273 - 1284 - 191,191,191,192,192,192,192,192,192,192,192,192, & ! index 1285 - 1296 - 192,192,193,193,193,193,193,193,193,193,193,193, & ! index 1297 - 1308 - 193,193,193,193,193,193,193,193,193,193,193,194, & ! index 1309 - 1320 - 194,194,194,194,194,194,194,194,194,194,194,195, & ! index 1321 - 1332 - 195,195,195,195,195,195,195,196,196,196,196,196, & ! index 1333 - 1344 - 196,196,196,196,196,196,196,196,196,196,196,197, & ! index 1345 - 1356 - 197,197,197,197,197,197,197,197,197,197,197,197, & ! index 1357 - 1368 - 197,198,198,198,198,198,198,198,198,198,198,198, & ! index 1369 - 1380 - 198,198,198,198,198,198,198,198,198,198,198,199, & ! index 1381 - 1392 - 199,199,199,199,199,199,199,199,199,199,199,200, & ! index 1393 - 1404 - 200,200,200,200,200,200,200,200,200,200,200,200, & ! index 1405 - 1416 - 200,200,201,201,201,201,201,201,201,201,201,202, & ! index 1417 - 1428 - 202,202,202,202,202,202,203,203,203,203,203,203 /) ! index up to 1440 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_4 = (/ & - 203,204,204,204,204,204,204,204,204,204,204,204, & ! index 1441 - 1452 - 205,205,205,205,205,205,205,205,205,205,205,206, & ! index 1453 - 1464 - 206,206,206,206,206,206,206,206,206,206,206,206, & ! index 1465 - 1476 - 206,206,207,207,207,207,207,207,207,207,207,207, & ! index 1477 - 1488 - 208,208,208,208,208,208,208,208,208,208,208,208, & ! index 1489 - 1500 - 208,208,208,208,208,209,209,209,209,209,209,209, & ! index 1501 - 1512 - 209,209,209,210,210,210,210,210,210,210,210,210, & ! index 1513 - 1524 - 210,210,210,210,210,211,211,211,211,211,211,211, & ! index 1525 - 1536 - 211,211,211,211,211,211,211,211,211,211,211,211, & ! index 1537 - 1548 - 211,211,211,211,211,211,211,211,211,211,211,211, & ! index 1549 - 1560 - 211,211,211,211,212,212,212,212,212,212,212,212, & ! index 1561 - 1572 - 212,212,212,212,212,212,212,212,212,212,212,212, & ! index 1573 - 1584 - 213,213,213,213,213,213,213,213,213,213,213,213, & ! index 1585 - 1596 - 213,213,213,213,213,213,213,214,214,214,214,214, & ! index 1597 - 1608 - 214,215,215,215,215,215,215,215,215,215,215,215, & ! index 1609 - 1620 - 215,216,216,216,216,216,216,216,216,216,216,216, & ! index 1621 - 1632 - 216,217,217,217,217,217,217,217,217,217,217,218, & ! index 1633 - 1644 - 218,218,218,218,218,218,218,218,218,218,218,218, & ! index 1645 - 1656 - 218,218,218,218,218,218,218,218,218,218,218,218, & ! index 1657 - 1668 - 218,218,218,219,219,219,219,219,219,219,219,219, & ! index 1669 - 1680 - 219,219,219,219,219,219,219,219,219,219,219,219, & ! index 1681 - 1692 - 219,219,219,219,219,219,219,220,220,220,220,220, & ! index 1693 - 1704 - 220,220,221,221,221,221,221,221,221,221,221,221, & ! index 1705 - 1716 - 221,221,221,221,221,221,222,222,222,222,222,222, & ! index 1717 - 1728 - 222,222,223,223,223,223,223,223,223,223,223,223, & ! index 1729 - 1740 - 223,223,223,223,223,223,223,223,223,223,223,223, & ! index 1741 - 1752 - 223,223,223,223,223,223,223,223,223,223,223,223, & ! index 1753 - 1764 - 223,223,223,223,223,223,223,223,224,224,224,224, & ! index 1765 - 1776 - 224,225,225,225,225,225,225,225,225,225,226,226, & ! index 1777 - 1788 - 226,226,226,226,226,226,226,226,226,226,226,226 /) ! index up to 1800 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_5 = (/ & - 226,226,226,226,226,226,227,227,227,227,227,227, & ! index 1801 - 1812 - 227,227,227,227,227,227,227,227,228,228,228,228, & ! index 1813 - 1824 - 228,228,228,228,228,228,228,228,228,228,228,228, & ! index 1825 - 1836 - 228,228,228,228,229,229,229,229,229,229,229,229, & ! index 1837 - 1848 - 229,229,229,229,229,229,229,229,229,229,229,229, & ! index 1849 - 1860 - 230,230,230,230,230,230,230,230,230,230,230,230, & ! index 1861 - 1872 - 230,230,230,230,230,230,230,230,230,230,230,230, & ! index 1873 - 1884 - 230,230,230,230,230,230,230,230,230,231,231,231, & ! index 1885 - 1896 - 231,231,231,231,231,231,231,231,231,231,231,231, & ! index 1897 - 1908 - 231,231,231,231,231,231,231,231,231,231,231,231, & ! index 1909 - 1920 - 231,231,231,231,231,231,231,232,232,232,232,232, & ! index 1921 - 1932 - 232,232,232,232,232,232,232,232,232,233,233,233, & ! index 1933 - 1944 - 233,233,233,233,233,233,233,233,233,233,233,233, & ! index 1945 - 1956 - 233,233,233,233,233,233,233,233,233,233,233,233, & ! index 1957 - 1968 - 233,233,233,233,233,233,233,233,233,233,233,233, & ! index 1969 - 1980 - 233,233,233,233,233,233,233,233,233,233,233,233, & ! index 1981 - 1992 - 233,233,233,233,233,233,233,233,233,233,234,234, & ! index 1993 - 2004 - 234,234,234,234,234,234,234,234,234,234,234,234, & ! index 2005 - 2016 - 234,235,235,235,235,235,235,235,235,235,235,235, & ! index 2017 - 2028 - 235,236,236,236,236,236,236,236,236,236,236,236, & ! index 2029 - 2040 - 236,236,236,236,236,236,236,236,236,236,236,236, & ! index 2041 - 2052 - 236,236,236,236,236,236,236,236,236,236,236,236, & ! index 2053 - 2064 - 236,236,236,236,236,236,236,236,236,236,236,237, & ! index 2065 - 2076 - 237,237,237,237,237,237,237,237,237,237,237,237, & ! index 2077 - 2088 - 237,237,237,237,237,237,237,238,238,238,238,238, & ! index 2089 - 2100 - 238,238,238,238,238,239,239,239,239,239,239,239, & ! index 2101 - 2112 - 239,239,239,239,239,239,239,239,239,239,239,239, & ! index 2113 - 2124 - 239,239,240,240,240,240,240,240,240,240,240,240, & ! index 2125 - 2136 - 240,240,240,240,240,240,241,241,241,241,241,241, & ! index 2137 - 2148 - 241,241,241,241,241,241,241,241,241,241,241,241 /) ! index up to 2160 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_6 = (/ & - 241,241,241,241,241,241,241,241,241,241,242,242, & ! index 2161 - 2172 - 242,242,242,242,242,242,242,242,242,242,242,242, & ! index 2173 - 2184 - 242,242,242,242,242,242,242,242,242,242,242,242, & ! index 2185 - 2196 - 243,243,243,243,243,243,243,243,243,243,243,243, & ! index 2197 - 2208 - 243,243,243,243,243,243,243,243,243,243,244,244, & ! index 2209 - 2220 - 244,244,244,244,244,244,244,244,244,244,244,244, & ! index 2221 - 2232 - 245,245,245,245,245,245,245,245,245,245,245,245, & ! index 2233 - 2244 - 245,245,246,246,246,246,246,246,246,246,246,246, & ! index 2245 - 2256 - 246,246,247,247,247,247,247,247,247,247,247,247, & ! index 2257 - 2268 - 247,247,248,248,248,248,248,248,248,248,248,248, & ! index 2269 - 2280 - 248,248,248,248,248,248,248,248,248,248,248,248, & ! index 2281 - 2292 - 248,248,249,249,249,249,249,249,249,249,249,249, & ! index 2293 - 2304 - 249,249,249,249,249,249,249,249,249,249,249,250, & ! index 2305 - 2316 - 250,250,250,250,250,250,250,250,250,250,250,250, & ! index 2317 - 2328 - 250,250,250,250,250,250,250,250,250,250,250,250, & ! index 2329 - 2340 - 250,250,250,250,250,250,250,250,250,250,250,250, & ! index 2341 - 2352 - 250,250,250,250,250,250,250,250,250,250,250,250, & ! index 2353 - 2364 - 250,250,250,250,250,250,250,250,251,251,251,251, & ! index 2365 - 2376 - 251,251,251,251,251,251,251,251,251,251,251,251, & ! index 2377 - 2388 - 251,251,251,251,251,251,251,251,252,252,252,252, & ! index 2389 - 2400 - 252,252,252,252,252,252,252,252,252,252,252,252, & ! index 2401 - 2412 - 252,252,252,252,252,252,252,252,252,252,252,252, & ! index 2413 - 2424 - 252,253,253,253,253,253,253,253,253,253,253,253, & ! index 2425 - 2436 - 253,253,254,254,254,254,254,254,254,254,254,254, & ! index 2437 - 2448 - 254,254,254,254,254,255,255,255,255,255,255,255, & ! index 2449 - 2460 - 255,255,255,255,255,255,255,255,255,255,255,255, & ! index 2461 - 2472 - 255,255,255,256,256,256,256,256,256,256,256,256, & ! index 2473 - 2484 - 256,256,256,256,256,256,256,257,257,257,257,257, & ! index 2485 - 2496 - 257,257,257,257,257,257,257,257,257,258,258,258, & ! index 2497 - 2508 - 258,258,258,258,258,258,258,258,258,258,258,258 /) ! index up to 2520 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_7 = (/ & - 258,258,258,258,258,258,259,259,259,259,259,259, & ! index 2521 - 2532 - 259,259,259,259,259,259,259,259,259,259,259,259, & ! index 2533 - 2544 - 259,259,259,259,259,259,259,259,259,259,259,259, & ! index 2545 - 2556 - 259,259,259,259,259,259,259,260,260,260,260,260, & ! index 2557 - 2568 - 260,260,260,260,260,260,260,260,260,260,260,260, & ! index 2569 - 2580 - 260,261,261,261,261,261,261,261,261,261,261,261, & ! index 2581 - 2592 - 261,261,261,261,261,261,261,261,261,261,261,261, & ! index 2593 - 2604 - 261,261,261,261,261,261,261,261,261,261,261,261, & ! index 2605 - 2616 - 261,261,261,261,261,261,261,261,261,261,261,261, & ! index 2617 - 2628 - 261,261,261,261,261,261,261,261,261,261,261,261, & ! index 2629 - 2640 - 261,261,261,261,261,261,261,261,261,261,261,261, & ! index 2641 - 2652 - 261,261,262,262,262,262,262,262,262,262,262,262, & ! index 2653 - 2664 - 262,262,262,263,263,263,263,263,263,263,263,263, & ! index 2665 - 2676 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2677 - 2688 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2689 - 2700 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2701 - 2712 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2713 - 2724 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2725 - 2736 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2737 - 2748 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2749 - 2760 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 2761 - 2772 - 264,264,264,264,264,264,264,264,264,264,264,264, & ! index 2773 - 2784 - 264,264,264,264,264,264,264,264,264,264,264,264, & ! index 2785 - 2796 - 264,264,264,264,264,264,264,265,265,265,265,265, & ! index 2797 - 2808 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2809 - 2820 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2821 - 2832 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2833 - 2844 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2845 - 2856 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2857 - 2868 - 265,265,265,265,265,265,265,265,265,265,265,265 /) ! index up to 2880 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_8 = (/ & - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2881 - 2892 - 265,265,266,266,266,266,266,266,266,266,266,266, & ! index 2893 - 2904 - 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2905 - 2916 - 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2917 - 2928 - 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2929 - 2940 - 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2941 - 2952 - 266,266,266,266,267,267,267,267,267,267,267,267, & ! index 2953 - 2964 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 2965 - 2976 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 2977 - 2988 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 2989 - 3000 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 3001 - 3012 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 3013 - 3024 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 3025 - 3036 - 267,267,267,267,267,267,267,267,267,267,267,267, & ! index 3037 - 3048 - 267,267,267,267,267,267,267,267,267,268,268,268, & ! index 3049 - 3060 - 268,268,268,268,268,268,268,268,268,268,268,268, & ! index 3061 - 3072 - 268,268,268,268,269,269,269,269,269,269,269,269, & ! index 3073 - 3084 - 269,269,269,269,269,269,269,269,269,269,269,269, & ! index 3085 - 3096 - 269,269,269,269,269,269,269,269,269,270,270,270, & ! index 3097 - 3108 - 270,270,270,270,270,270,270,270,270,270,270,270, & ! index 3109 - 3120 - 270,270,270,270,271,271,271,271,271,271,271,271, & ! index 3121 - 3132 - 271,271,271,271,271,271,271,271,271,271,271,271, & ! index 3133 - 3144 - 271,271,271,271,271,271,271,271,271,271,271,271, & ! index 3145 - 3156 - 272,272,272,272,272,272,272,272,272,272,272,272, & ! index 3157 - 3168 - 272,272,272,272,272,272,272,272,272,272,272,272, & ! index 3169 - 3180 - 272,272,272,272,272,272,272,272,272,272,272,272, & ! index 3181 - 3192 - 272,272,272,272,272,272,272,272,272,272,272,272, & ! index 3193 - 3204 - 272,273,273,273,273,273,273,273,273,273,273,273, & ! index 3205 - 3216 - 273,273,273,273,273,273,273,273,273,273,273,273, & ! index 3217 - 3228 - 273,273,273,273,273,273,273,273,273,273,273,273 /) ! index up to 3240 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_9 = (/ & - 273,273,273,273,273,273,273,273,273,273,273,273, & ! index 3241 - 3252 - 273,273,273,273,273,273,273,273,273,274,274,274, & ! index 3253 - 3264 - 274,274,274,274,274,274,274,274,274,274,274,274, & ! index 3265 - 3276 - 274,274,274,274,274,274,274,274,274,274,274,274, & ! index 3277 - 3288 - 274,274,274,274,274,275,275,275,275,275,275,275, & ! index 3289 - 3300 - 275,275,275,275,275,275,275,275,275,275,275,275, & ! index 3301 - 3312 - 275,275,275,275,275,275,275,275,275,275,275,275, & ! index 3313 - 3324 - 275,275,275,275,275,275,275,275,275,275,275,275, & ! index 3325 - 3336 - 275,275,275,275,275,275,275,275,275,275,275,275, & ! index 3337 - 3348 - 275,275,275,275,275,275,275,275,275,275,275,275, & ! index 3349 - 3360 - 275,275,275,275,275,275,275,275,275,275,276,276, & ! index 3361 - 3372 - 276,276,276,276,276,276,276,276,276,276,276,276, & ! index 3373 - 3384 - 276,276,276,276,276,276,276,276,276,276,276,276, & ! index 3385 - 3396 - 276,276,276,276,276,276,276,276,276,276,276,276, & ! index 3397 - 3408 - 276,276,276,276,277,277,277,277,277,277,277,277, & ! index 3409 - 3420 - 277,277,277,277,277,277,277,277,277,277,277,277, & ! index 3421 - 3432 - 277,277,277,277,277,277,278,278,278,278,278,278, & ! index 3433 - 3444 - 278,278,278,278,278,278,278,278,278,278,278,278, & ! index 3445 - 3456 - 278,278,278,278,278,278,278,278,278,278,278,278, & ! index 3457 - 3468 - 278,278,278,278,278,278,278,278,278,278,278,278, & ! index 3469 - 3480 - 278,278,278,278,278,278,278,278,278,278,278,278, & ! index 3481 - 3492 - 278,278,278,278,278,278,278,278,278,278,278,278, & ! index 3493 - 3504 - 278,278,278,278,278,278,278,278,278,278,278,278, & ! index 3505 - 3516 - 278,278,278,278,278,278,278,278,278,278,279,279, & ! index 3517 - 3528 - 279,279,279,279,279,279,279,279,279,279,279,279, & ! index 3529 - 3540 - 279,279,279,279,279,279,279,279,279,279,279,279, & ! index 3541 - 3552 - 279,279,279,279,279,279,279,279,279,279,279,279, & ! index 3553 - 3564 - 279,279,279,279,279,279,279,279,279,279,279,279, & ! index 3565 - 3576 - 279,279,279,279,279,279,279,279,279,279,279,279, & ! index 3577 - 3588 - 279,279,279,279,279,279,279,279,279,279,279,279 /) ! index up to 3600 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_10 = (/ & - 279,279,279,279,279,279,279,279,279,279,279,279, & ! index 3601 - 3612 - 279,279,279,279,279,279,279,279,279,279,279,280, & ! index 3613 - 3624 - 280,280,280,280,280,280,280,280,280,280,280,280, & ! index 3625 - 3636 - 280,280,280,280,280,280,280,280,280,280,280,280, & ! index 3637 - 3648 - 280,280,280,280,280,280,280,280,281,281,281,281, & ! index 3649 - 3660 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3661 - 3672 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3673 - 3684 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3685 - 3696 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3697 - 3708 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3709 - 3720 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3721 - 3732 - 281,281,281,281,281,281,281,281,281,281,281,281, & ! index 3733 - 3744 - 281,281,281,281,282,282,282,282,282,282,282,282, & ! index 3745 - 3756 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 3757 - 3768 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 3769 - 3780 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 3781 - 3792 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 3793 - 3804 - 282,282,282,283,283,283,283,283,283,283,283,283, & ! index 3805 - 3816 - 283,283,283,283,283,283,283,283,283,283,283,283, & ! index 3817 - 3828 - 283,283,283,283,283,284,284,284,284,284,284,284, & ! index 3829 - 3840 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3841 - 3852 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3853 - 3864 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3865 - 3876 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3877 - 3888 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3889 - 3900 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3901 - 3912 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3913 - 3924 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3925 - 3936 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3937 - 3948 - 284,284,284,284,284,284,284,284,284,284,284,284 /) ! index up to 3960 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_11 = (/ & - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3961 - 3972 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3973 - 3984 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 3985 - 3996 - 284,284,284,284,284,284,284,284,285,285,285,285, & ! index 3997 - 4008 - 285,285,285,285,285,285,285,285,285,285,285,285, & ! index 4009 - 4020 - 285,285,285,285,285,285,285,285,285,285,285,285, & ! index 4021 - 4032 - 285,285,285,285,285,285,285,285,285,285,285,285, & ! index 4033 - 4044 - 285,285,285,285,285,285,285,285,285,285,285,285, & ! index 4045 - 4056 - 285,285,286,286,286,286,286,286,286,286,286,286, & ! index 4057 - 4068 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4069 - 4080 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4081 - 4092 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4093 - 4104 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4105 - 4116 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4117 - 4128 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4129 - 4140 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4141 - 4152 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4153 - 4164 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4165 - 4176 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4177 - 4188 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4189 - 4200 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4201 - 4212 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4213 - 4224 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4225 - 4236 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4237 - 4248 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4249 - 4260 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 4261 - 4272 - 286,286,287,287,287,287,287,287,287,287,287,287, & ! index 4273 - 4284 - 287,287,287,287,287,287,287,287,287,287,287,287, & ! index 4285 - 4296 - 287,287,287,287,287,287,287,287,287,287,287,288, & ! index 4297 - 4308 - 288,288,288,288,288,288,288,288,288,288,288,288 /) ! index up to 4320 - INTEGER, PARAMETER, DIMENSION(311) :: LU_IROW_12 = (/ & - 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 4321 - 4332 - 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 4333 - 4344 - 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 4345 - 4356 - 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 4357 - 4368 - 289,289,289,289,289,289,289,289,289,289,289,289, & ! index 4369 - 4380 - 289,289,289,289,289,289,289,289,289,289,289,289, & ! index 4381 - 4392 - 289,289,289,289,289,289,289,289,289,289,289,289, & ! index 4393 - 4404 - 289,289,289,290,290,290,290,290,290,290,290,290, & ! index 4405 - 4416 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4417 - 4428 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4429 - 4440 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4441 - 4452 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4453 - 4464 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4465 - 4476 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4477 - 4488 - 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 4489 - 4500 - 290,290,291,291,291,291,291,291,291,291,291,291, & ! index 4501 - 4512 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4513 - 4524 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4525 - 4536 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4537 - 4548 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4549 - 4560 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4561 - 4572 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4573 - 4584 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4585 - 4596 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4597 - 4608 - 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 4609 - 4620 - 291,291,291,291,291,291,291,291,291,291,291 /) ! index up to 4631 - INTEGER, PARAMETER, DIMENSION(4631) :: LU_IROW = (/& + 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 + 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 + 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 + 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 + 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 = (/& 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_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, 49, 69, 5,210, 6, 41, & ! index 1 - 12 - 286, 7, 66, 67, 70, 88, 97,104,121,123,136,150, & ! index 13 - 24 - 163,164,175,180,184,192,195,201,207,208,209,210, & ! index 25 - 36 - 211,215,217,219,224,231,234,236,237,238,239,246, & ! index 37 - 48 - 247,249,250,252,253,254,255,256,257,258,261,266, & ! index 49 - 60 - 267,279,281,282,284,286,290, 8, 45, 98, 9, 42, & ! index 61 - 72 - 44, 49, 69,203,268,270, 10, 42, 44, 49, 69,203, & ! index 73 - 84 - 268,270, 11, 13,284, 12, 13,279, 13, 64,279,284, & ! index 85 - 96 - 286, 14,224,286, 15,224,281, 16, 18,284, 17, 18, & ! index 97 - 108 - 279, 18, 19,279,284,286, 19,286, 20, 22,284, 21, & ! index 109 - 120 - 22,279, 22, 79,279,284,286, 23, 24, 24,157,162, & ! index 121 - 132 - 165,171,286, 25, 27,284, 26, 27,279, 27, 80,279, & ! index 133 - 144 - 284,286, 28, 90,286, 29,138,276,282, 30,104,223, & ! index 145 - 156 - 233, 31,105,116,130,131,174, 32,195,234,276,286, & ! index 157 - 168 - 33, 86,212,276,282,286, 34, 45, 61, 65, 67, 68, & ! index 169 - 180 - 74, 87, 89, 91, 96, 97, 98,102,103,121,123,128, & ! index 181 - 192 - 134,143,144,145,146,150,152,153,166,167,168,177, & ! index 193 - 204 - 179,180,182,183,184,187,189,191,193,194,195,197, & ! index 205 - 216 - 201,204,205,207,209,210,215,216,217,222,225,228, & ! index 217 - 228 - 229,232,234,235,237,238,239,241,244,245,246,247, & ! index 229 - 240 - 249,252,254,255,256,257,258,261,262,265,266,279, & ! index 241 - 252 - 284,286,290,291, 35, 42, 44, 49, 55, 56, 61, 62, & ! index 253 - 264 - 63, 66, 75, 76, 84, 90, 92,100,101,111,114,115, & ! index 265 - 276 - 118,134,138,139,140,142,147,148,149,151,154,155, & ! index 277 - 288 - 159,160,161,170,173,175,176,177,178,179,180,181, & ! index 289 - 300 - 184,190,191,199,200,202,203,208,212,213,214,215, & ! index 301 - 312 - 216,220,223,224,225,226,227,233,234,235,238,241, & ! index 313 - 324 - 242,243,246,247,248,249,251,253,259,260,262,263, & ! index 325 - 336 - 264,266,268,270,271,272,274,275,276,277,278,280, & ! index 337 - 348 - 281,282,283,284,285,286,287,288,289,291, 36, 58 /) ! index up to 360 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 64, 66, 72, 78, 79, 80,101,105,109,125,127,129, & ! index 361 - 372 - 132,136,148,149,150,153,154,155,156,157,159,162, & ! index 373 - 384 - 163,165,169,170,171,172,174,175,185,186,188,192, & ! index 385 - 396 - 194,200,205,206,207,208,210,213,214,220,221,223, & ! index 397 - 408 - 224,228,229,231,233,236,240,244,245,248,250,251, & ! index 409 - 420 - 253,259,263,264,266,273,279,281,282,284,286,288, & ! index 421 - 432 - 290, 37,195,234,267,286, 38, 86,147,195,212,234, & ! index 433 - 444 - 260,271,276,282,286, 39,190,272,286,290, 40,154, & ! index 445 - 456 - 155,170,195,224,234,248,278,282,284,286, 41,286, & ! index 457 - 468 - 42, 92, 43,286, 44,227, 45,134,178,199, 46,286, & ! index 469 - 480 - 47,272, 48,272, 49, 92,227, 50,255,291, 51,273, & ! index 481 - 492 - 291, 52,272, 53,272, 54,272, 55,272, 56,272, 57, & ! index 493 - 504 - 272, 58,286, 59,272, 60,269,279, 61, 65,272,291, & ! index 505 - 516 - 62,147,265,281, 63,138,265,281, 64,286, 65,279, & ! index 517 - 528 - 291, 66,286,288, 67,261,291, 68,179,279,286, 69, & ! index 529 - 540 - 269,284,286, 70,180,284,286, 71,272,286, 72,286, & ! index 541 - 552 - 290, 73,203,268,270,277,283, 74,266,291, 75,285, & ! index 553 - 564 - 286, 76,282,286, 77,272,286, 78,286,290, 79,286, & ! index 565 - 576 - 80,286, 81,272,286, 82,272,286, 83,272,286, 84, & ! index 577 - 588 - 272,286, 85,234,278,286, 86,263,276,286, 87,258, & ! index 589 - 600 - 279,286, 88,261,284,286, 89,266,279,286, 90,281, & ! index 601 - 612 - 286, 91,237,279,286, 42, 44, 49, 92,227,274,279, & ! index 613 - 624 - 93,256,284,286, 94,237,284,286, 95,258,284,286, & ! index 625 - 636 - 96,217,279,286, 97,180,286,291, 98,139,140,151, & ! index 637 - 648 - 175,181,200,202,213,214,220,241,242,243, 99,203, & ! index 649 - 660 - 227,268,270,280,285,287,100,272,286, 79, 80,101, & ! index 661 - 672 - 281,286,102,284,286,291, 75,103,266,274,285,286, & ! index 673 - 684 - 290,104,163,241,248,282,286,105,136,153,286,106, & ! index 685 - 696 - 255,284,286, 97,107,180,191,284,286,291,108,120, & ! index 697 - 708 - 179,266,279,281,109,186,188,240,286,110,217,239 /) ! index up to 720 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ & - 284,286,111,227,274,285,286,112,209,284,286,113, & ! index 721 - 732 - 201,284,286,114,281,286,290, 79, 80,115,281,286, & ! index 733 - 744 - 116,165,171,214,220,286,117,206,228,279,284,286, & ! index 745 - 756 - 64,118,281,286,119,225,238,284,286,120,179,266, & ! index 757 - 768 - 284,286,121,186,279,284,286, 86,122,147,195,212, & ! index 769 - 780 - 234,260,263,271,276,282,286,123,188,279,284,286, & ! index 781 - 792 - 124,273,286,290,125,228,229,286,126,151,243,246, & ! index 793 - 804 - 247,261,266,279,281,127,165,224,244,286,128,176, & ! index 805 - 816 - 260,273,274,277,283,286,289,129,171,224,245,286, & ! index 817 - 828 - 130,139,140,157,162,286,131,139,140,157,162,286, & ! index 829 - 840 - 132,206,229,279,284,286,133,217,239,266,286,290, & ! index 841 - 852 - 134,178,199,281,282,286,135,176,235,260,262,271, & ! index 853 - 864 - 274,275,277,280,283,285,287,289,136,207,284,286, & ! index 865 - 876 - 137,266,284,286,290,138,265,275,276,282,139,245, & ! index 877 - 888 - 279,286,140,244,279,286,141,182,183,187,284,286, & ! index 889 - 900 - 115,118,142,281,282,286, 60,143,203,269,270,279, & ! index 901 - 912 - 281,286,144,186,240,279,284,291,145,188,240,279, & ! index 913 - 924 - 284,291,146,243,279,284,286,147,265,275,276,282, & ! index 925 - 936 - 79, 80,115,148,281,282,286,149,272,286,290,150, & ! index 937 - 948 - 240,242,279,284,286,151,246,284,286,140,152,244, & ! index 949 - 960 - 279,284,286,153,207,249,286,291,154,281,282,286, & ! index 961 - 972 - 155,281,282,286,109,125,156,186,188,228,229,240, & ! index 973 - 984 - 286,157,245,284,286,158,201,209,216,225,237,238, & ! index 985 - 996 - 254,256,257,258,266,286, 64, 79, 80,118,142,159, & ! index 997 - 1008 - 210,281,282,286,107,115,118,142,160,180,191,266, & ! index 1009 - 1020 - 279,281,282,284,286,291,161,273,281,286,290,162, & ! index 1021 - 1032 - 244,284,286,163,186,188,240,242,286,141,164,182, & ! index 1033 - 1044 - 183,187,284,286,165,244,284,286,166,220,279,284, & ! index 1045 - 1056 - 286,139,167,245,279,284,286,168,214,279,284,286, & ! index 1057 - 1068 - 117,125,169,194,204,206,228,229,230,279,284,286 /) ! index up to 1080 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_3 = (/ & - 170,281,282,286,171,245,284,286,171,172,182,189, & ! index 1081 - 1092 - 222,224,242,245,279,284,286,173,275,278,280,281, & ! index 1093 - 1104 - 287,291,116,127,129,130,131,139,140,151,157,162, & ! index 1105 - 1116 - 165,171,174,186,188,214,220,224,240,244,245,246, & ! index 1117 - 1128 - 279,284,286,166,175,189,220,222,232,240,249,266, & ! index 1129 - 1140 - 279,284,286,176,273,274,275,278,291,149,177,190, & ! index 1141 - 1152 - 263,272,275,282,284,286,288,289,290,178,215,216, & ! index 1153 - 1164 - 238,261,266,279,281,284,286, 76,120,179,266,279, & ! index 1165 - 1176 - 281,282,284,286, 70, 97,101,180,266,279,281,284, & ! index 1177 - 1188 - 286,291,181,246,247,266,284,286,157,171,182,245, & ! index 1189 - 1200 - 279,284,286,162,165,183,244,279,284,286, 64, 79, & ! index 1201 - 1212 - 80,115,118,142,184,261,266,279,281,282,284,286, & ! index 1213 - 1224 - 117,125,132,163,185,186,188,206,228,229,230,240, & ! index 1225 - 1236 - 241,242,279,284,286,171,186,224,245,284,286,157, & ! index 1237 - 1248 - 162,187,244,245,279,284,286,165,188,224,244,284, & ! index 1249 - 1260 - 286,151,189,246,279,284,286,190,253,264,272,282, & ! index 1261 - 1272 - 286,290, 70,101,107,160,180,191,266,279,281,282, & ! index 1273 - 1284 - 284,286,291,165,171,192,214,220,244,245,266,279, & ! index 1285 - 1296 - 284,286, 62, 63,138,147,193,203,210,235,265,275, & ! index 1297 - 1308 - 276,277,279,280,281,282,283,286,287,289,291,116, & ! index 1309 - 1320 - 162,165,171,194,214,220,244,245,279,284,286,195, & ! index 1321 - 1332 - 253,267,276,278,279,282,291,165,183,189,196,222, & ! index 1333 - 1344 - 224,231,242,244,246,251,252,254,279,284,286,103, & ! index 1345 - 1356 - 197,235,262,266,271,272,274,275,280,285,286,287, & ! index 1357 - 1368 - 290,113,146,150,166,175,189,198,201,220,222,232, & ! index 1369 - 1380 - 240,242,243,246,249,251,266,279,281,284,286,199, & ! index 1381 - 1392 - 215,216,225,238,261,266,279,281,282,284,286,145, & ! index 1393 - 1404 - 167,188,200,205,224,240,242,244,245,249,279,284, & ! index 1405 - 1416 - 286,291,113,201,253,261,266,279,281,284,286,202, & ! index 1417 - 1428 - 254,256,257,279,284,286,203,269,277,280,283,287 /) ! index up to 1440 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_4 = (/ & - 291,144,186,204,224,240,245,248,279,284,286,291, & ! index 1441 - 1452 - 145,188,205,224,240,244,251,279,284,286,291,141, & ! index 1453 - 1464 - 182,183,187,194,206,214,220,228,229,244,245,279, & ! index 1465 - 1476 - 284,286,136,153,207,249,251,279,281,284,286,291, & ! index 1477 - 1488 - 146,150,168,189,208,214,222,232,240,241,242,243, & ! index 1489 - 1500 - 246,279,281,284,286,112,209,253,261,266,273,279, & ! index 1501 - 1512 - 284,286,290,115,118,142,160,180,191,210,266,279, & ! index 1513 - 1524 - 281,282,284,286,291, 58, 85,105,136,148,153,159, & ! index 1525 - 1536 - 163,170,186,188,207,210,211,224,234,236,238,240, & ! index 1537 - 1548 - 241,242,244,245,249,250,251,266,278,279,281,282, & ! index 1549 - 1560 - 284,286,290,291,154,155,170,195,212,224,234,248, & ! index 1561 - 1572 - 253,267,276,278,279,281,282,284,286,288,290,291, & ! index 1573 - 1584 - 152,166,167,168,189,194,213,214,220,222,228,229, & ! index 1585 - 1596 - 242,244,245,246,279,284,286,214,245,246,266,279, & ! index 1597 - 1608 - 286,154,155,170,215,216,261,266,279,281,282,284, & ! index 1609 - 1620 - 286,154,155,170,215,216,261,266,279,281,282,284, & ! index 1621 - 1632 - 286,161,217,261,266,273,279,281,284,286,290,179, & ! index 1633 - 1644 - 201,209,216,217,218,225,236,237,238,239,246,247, & ! index 1645 - 1656 - 252,253,254,256,257,258,261,266,273,279,281,282, & ! index 1657 - 1668 - 284,286,290,148,195,201,209,217,219,237,239,250, & ! index 1669 - 1680 - 252,253,254,256,257,258,261,266,267,273,276,278, & ! index 1681 - 1692 - 279,281,282,284,286,290,291,220,244,246,247,266, & ! index 1693 - 1704 - 279,286, 87, 95,202,221,238,254,256,257,258,261, & ! index 1705 - 1716 - 266,273,279,284,286,290,181,222,246,247,266,279, & ! index 1717 - 1728 - 284,286, 58, 64, 79, 80,118,156,159,163,164,172, & ! index 1729 - 1740 - 182,183,185,186,187,188,189,206,210,214,220,222, & ! index 1741 - 1752 - 223,224,228,229,230,236,240,241,242,244,245,246, & ! index 1753 - 1764 - 247,266,279,281,282,284,286,291,224,281,282,286, & ! index 1765 - 1776 - 290,170,225,261,266,279,281,282,284,286,119,154, & ! index 1777 - 1788 - 155,178,202,215,216,225,226,238,254,256,257,261 /) ! index up to 1800 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_5 = (/ & - 266,279,281,282,284,286, 44, 49, 92,227,268,269, & ! index 1801 - 1812 - 270,274,279,282,284,285,286,291,125,130,131,139, & ! index 1813 - 1824 - 140,157,162,192,214,220,228,229,244,245,246,247, & ! index 1825 - 1836 - 266,279,284,286,125,130,131,139,140,157,162,192, & ! index 1837 - 1848 - 214,220,228,229,244,245,246,247,266,279,284,286, & ! index 1849 - 1860 - 129,157,164,171,182,183,186,187,192,204,213,214, & ! index 1861 - 1872 - 220,222,224,228,229,230,240,242,244,245,246,247, & ! index 1873 - 1884 - 248,266,279,281,282,284,286,290,291,127,162,164, & ! index 1885 - 1896 - 165,182,183,187,188,192,205,206,213,214,220,222, & ! index 1897 - 1908 - 224,228,229,231,240,242,244,245,246,247,251,266, & ! index 1909 - 1920 - 279,281,282,284,286,290,291,126,151,181,232,242, & ! index 1921 - 1932 - 243,246,247,261,266,279,281,284,286, 79, 80,105, & ! index 1933 - 1944 - 136,148,153,156,163,164,165,171,174,182,183,185, & ! index 1945 - 1956 - 186,187,188,192,196,198,201,204,205,206,207,213, & ! index 1957 - 1968 - 214,220,222,224,228,229,230,231,232,233,240,241, & ! index 1969 - 1980 - 242,243,244,245,246,247,248,249,250,251,252,253, & ! index 1981 - 1992 - 254,261,266,279,281,282,284,286,290,291, 76,224, & ! index 1993 - 2004 - 234,248,251,253,267,276,278,279,281,282,286,290, & ! index 2005 - 2016 - 291,173,235,275,277,278,280,281,283,286,287,289, & ! index 2017 - 2028 - 291, 68,108,120,141,142,146,148,159,164,166,167, & ! index 2029 - 2040 - 179,182,183,187,204,206,210,213,214,220,222,224, & ! index 2041 - 2052 - 228,229,230,232,236,240,241,242,243,244,245,246, & ! index 2053 - 2064 - 247,248,261,266,279,281,282,284,286,290,291, 94, & ! index 2065 - 2076 - 124,202,226,237,238,254,255,256,257,259,261,266, & ! index 2077 - 2088 - 273,279,281,282,284,286,290,154,155,238,261,266, & ! index 2089 - 2100 - 279,281,282,284,286,110,170,202,217,226,238,239, & ! index 2101 - 2112 - 254,255,256,257,259,261,266,273,279,281,282,284, & ! index 2113 - 2124 - 286,290,126,151,214,220,240,243,244,245,246,247, & ! index 2125 - 2136 - 261,266,279,281,284,286,144,152,168,186,189,204, & ! index 2137 - 2148 - 214,222,224,232,240,241,242,243,244,245,246,247 /) ! index up to 2160 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_6 = (/ & - 248,261,266,279,281,282,284,286,290,291,151,152, & ! index 2161 - 2172 - 166,167,168,181,182,183,187,189,214,220,222,232, & ! index 2173 - 2184 - 242,243,244,245,246,247,261,266,279,281,284,286, & ! index 2185 - 2196 - 146,152,166,167,168,189,214,220,222,232,242,243, & ! index 2197 - 2208 - 244,245,246,247,261,266,279,281,284,286,151,162, & ! index 2209 - 2220 - 165,224,244,245,246,266,279,281,282,284,286,290, & ! index 2221 - 2232 - 151,157,171,224,244,245,246,266,279,281,282,284, & ! index 2233 - 2244 - 286,290,151,224,246,247,261,266,279,281,282,284, & ! index 2245 - 2256 - 286,290,181,224,246,247,261,266,279,281,282,284, & ! index 2257 - 2268 - 286,290, 79, 80,121,129,139,157,171,181,186,224, & ! index 2269 - 2280 - 243,244,245,246,247,248,261,266,279,281,282,284, & ! index 2281 - 2292 - 286,290,200,205,224,240,242,243,244,245,246,247, & ! index 2293 - 2304 - 249,251,261,266,279,281,282,284,286,290,291,112, & ! index 2305 - 2316 - 132,134,136,141,153,164,167,168,174,178,182,183, & ! index 2317 - 2328 - 186,187,188,194,199,200,205,206,207,209,214,215, & ! index 2329 - 2340 - 216,220,222,224,225,228,229,231,232,238,240,242, & ! index 2341 - 2352 - 243,244,245,246,247,249,250,251,252,253,261,266, & ! index 2353 - 2364 - 273,279,281,282,284,286,290,291,123,127,140,162, & ! index 2365 - 2376 - 165,170,181,188,224,225,243,244,245,246,247,251, & ! index 2377 - 2388 - 261,266,279,281,282,284,286,290,196,221,222,224, & ! index 2389 - 2400 - 231,238,240,242,243,244,245,246,247,251,252,254, & ! index 2401 - 2412 - 256,257,258,261,266,273,279,281,282,284,286,290, & ! index 2413 - 2424 - 291,170,225,248,253,261,266,273,279,281,282,284, & ! index 2425 - 2436 - 286,290,154,155,170,226,238,254,256,257,261,266, & ! index 2437 - 2448 - 279,281,282,284,286, 50,106,148,159,210,226,238, & ! index 2449 - 2460 - 248,254,255,256,257,259,261,266,279,281,282,284, & ! index 2461 - 2472 - 286,290,291, 93,114,119,148,225,238,256,257,261, & ! index 2473 - 2484 - 266,279,281,282,284,286,290,202,210,254,256,257, & ! index 2485 - 2496 - 261,266,279,281,282,284,286,290,291, 95,124,202, & ! index 2497 - 2508 - 226,238,254,255,256,257,258,259,261,266,273,279 /) ! index up to 2520 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_7 = (/ & - 281,282,284,286,290,291, 91, 93, 94,113,119,148, & ! index 2521 - 2532 - 154,155,158,159,199,201,202,209,210,215,216,225, & ! index 2533 - 2544 - 237,238,253,254,255,256,257,258,259,261,266,273, & ! index 2545 - 2556 - 279,281,282,284,286,290,291,128,176,260,273,274, & ! index 2557 - 2568 - 275,276,277,278,280,282,283,284,286,287,288,289, & ! index 2569 - 2580 - 291, 67, 88,104,105,136,153,156,163,169,171,184, & ! index 2581 - 2592 - 185,186,188,194,196,198,201,204,206,207,208,209, & ! index 2593 - 2604 - 214,215,216,217,220,221,222,224,225,226,228,229, & ! index 2605 - 2616 - 230,231,232,233,237,238,239,240,241,242,243,244, & ! index 2617 - 2628 - 245,246,247,248,249,250,251,252,253,254,255,256, & ! index 2629 - 2640 - 257,258,259,261,264,266,273,279,281,282,284,286, & ! index 2641 - 2652 - 290,291,262,275,277,278,280,283,285,286,287,288, & ! index 2653 - 2664 - 289,290,291, 74, 76, 85, 86, 88, 89, 90,108,112, & ! index 2665 - 2676 - 120,136,137,139,140,152,157,162,165,166,167,168, & ! index 2677 - 2688 - 169,170,171,172,174,179,180,181,182,183,184,186, & ! index 2689 - 2700 - 188,189,190,191,194,196,198,201,204,205,206,207, & ! index 2701 - 2712 - 208,209,214,215,216,217,218,220,222,223,224,225, & ! index 2713 - 2724 - 228,229,230,231,232,234,236,237,238,239,240,241, & ! index 2725 - 2736 - 242,243,244,245,246,247,248,249,250,251,252,253, & ! index 2737 - 2748 - 254,255,256,257,258,259,261,263,264,266,267,272, & ! index 2749 - 2760 - 273,276,278,279,281,282,284,285,286,288,290,291, & ! index 2761 - 2772 - 96,106,110,112,133,195,201,202,209,217,239,253, & ! index 2773 - 2784 - 254,255,256,257,259,261,264,266,267,273,276,278, & ! index 2785 - 2796 - 279,281,282,284,286,290,291, 45, 90, 98,101,114, & ! index 2797 - 2808 - 115,118,134,138,139,140,142,147,151,161,173,175, & ! index 2809 - 2820 - 176,178,181,189,199,200,202,205,208,210,213,214, & ! index 2821 - 2832 - 215,216,220,222,223,224,225,226,228,229,230,232, & ! index 2833 - 2844 - 233,236,238,240,241,242,243,244,245,246,247,248, & ! index 2845 - 2856 - 249,250,251,252,253,254,256,257,258,259,261,262, & ! index 2857 - 2868 - 263,264,265,266,267,270,272,273,274,275,276,277 /) ! index up to 2880 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_8 = (/ & - 278,279,280,281,282,283,284,285,286,287,288,289, & ! index 2881 - 2892 - 290,291, 46, 67, 74, 88, 90,100,106,136,137,149, & ! index 2893 - 2904 - 179,180,184,190,191,201,202,207,209,215,216,217, & ! index 2905 - 2916 - 219,221,224,225,226,237,238,239,244,245,246,247, & ! index 2917 - 2928 - 248,249,250,251,252,253,254,255,256,257,258,259, & ! index 2929 - 2940 - 261,264,266,267,272,273,276,278,279,281,282,284, & ! index 2941 - 2952 - 285,286,290,291, 58, 64, 66, 72, 78, 79, 80,101, & ! index 2953 - 2964 - 105,109,125,127,129,132,136,148,149,150,153,154, & ! index 2965 - 2976 - 155,156,157,159,162,163,165,169,170,171,172,174, & ! index 2977 - 2988 - 175,182,185,186,188,189,192,194,195,200,204,205, & ! index 2989 - 3000 - 206,207,208,210,213,214,220,221,222,223,224,228, & ! index 3001 - 3012 - 229,230,231,232,233,234,236,238,240,241,242,243, & ! index 3013 - 3024 - 244,245,246,247,248,249,250,251,252,253,254,256, & ! index 3025 - 3036 - 257,258,259,261,263,264,266,267,272,273,276,278, & ! index 3037 - 3048 - 279,281,282,284,285,286,288,290,291,143,203,227, & ! index 3049 - 3060 - 268,269,270,274,277,278,279,280,281,282,283,284, & ! index 3061 - 3072 - 285,286,287,291, 1, 2, 3, 44, 46, 60, 69, 73, & ! index 3073 - 3084 - 92, 99,143,203,227,268,269,270,274,277,278,279, & ! index 3085 - 3096 - 280,281,282,283,284,285,286,287,291,143,203,227, & ! index 3097 - 3108 - 268,269,270,274,277,278,279,280,281,282,283,284, & ! index 3109 - 3120 - 285,286,287,291, 75,111,197,227,235,262,266,267, & ! index 3121 - 3132 - 268,269,270,271,272,273,274,275,276,277,278,279, & ! index 3133 - 3144 - 280,281,282,283,284,285,286,287,288,289,290,291, & ! index 3145 - 3156 - 47, 48, 52, 53, 54, 55, 56, 57, 59, 61, 65, 71, & ! index 3157 - 3168 - 77, 81, 82, 83, 84,100,149,190,197,235,253,261, & ! index 3169 - 3180 - 262,264,266,267,271,272,273,274,275,276,277,278, & ! index 3181 - 3192 - 279,280,281,282,283,284,285,286,287,288,289,290, & ! index 3193 - 3204 - 291, 2, 47, 48, 51, 59, 71, 73, 77,100,124,128, & ! index 3205 - 3216 - 135,161,176,203,221,227,235,238,253,254,256,257, & ! index 3217 - 3228 - 258,259,260,261,262,263,264,266,267,268,269,270 /) ! index up to 3240 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_9 = (/ & - 271,272,273,274,275,276,277,278,279,280,281,282, & ! index 3241 - 3252 - 283,284,285,286,287,288,289,290,291, 47, 48, 59, & ! index 3253 - 3264 - 71, 77,100,176,227,260,268,269,270,272,273,274, & ! index 3265 - 3276 - 275,276,277,278,279,280,281,282,283,284,285,286, & ! index 3277 - 3288 - 287,288,289,290,291, 72, 78,114,124,133,137,138, & ! index 3289 - 3300 - 147,149,161,173,176,190,211,212,217,218,219,221, & ! index 3301 - 3312 - 224,225,234,235,236,237,238,239,240,241,242,243, & ! index 3313 - 3324 - 244,245,246,247,248,249,250,251,252,253,254,255, & ! index 3325 - 3336 - 256,257,258,259,260,261,262,263,264,265,266,267, & ! index 3337 - 3348 - 270,271,272,273,274,275,276,277,278,279,280,281, & ! index 3349 - 3360 - 282,283,284,285,286,287,288,289,290,291, 66, 86, & ! index 3361 - 3372 - 90,122,138,147,195,212,224,234,248,251,253,260, & ! index 3373 - 3384 - 261,263,264,265,266,267,270,271,272,273,274,275, & ! index 3385 - 3396 - 276,277,278,279,280,281,282,283,284,285,286,287, & ! index 3397 - 3408 - 288,289,290,291,203,235,260,262,268,269,270,273, & ! index 3409 - 3420 - 274,275,276,277,278,279,280,281,282,283,284,285, & ! index 3421 - 3432 - 286,287,288,289,290,291, 43, 46, 69, 81, 82, 83, & ! index 3433 - 3444 - 84,100,102,137,149,161,173,176,177,190,193,195, & ! index 3445 - 3456 - 196,202,203,210,211,212,219,221,222,224,226,231, & ! index 3457 - 3468 - 234,235,236,237,238,239,240,241,242,243,244,245, & ! index 3469 - 3480 - 246,247,248,249,250,251,252,253,254,255,256,257, & ! index 3481 - 3492 - 258,259,260,261,262,263,264,265,266,267,268,269, & ! index 3493 - 3504 - 270,271,272,273,274,275,276,277,278,279,280,281, & ! index 3505 - 3516 - 282,283,284,285,286,287,288,289,290,291, 60, 61, & ! index 3517 - 3528 - 65, 92,121,123,144,145,146,150,152,166,167,168, & ! index 3529 - 3540 - 179,180,182,183,184,186,187,188,189,191,193,194, & ! index 3541 - 3552 - 195,201,203,204,205,207,209,210,214,215,216,217, & ! index 3553 - 3564 - 220,222,224,225,227,228,229,232,234,235,237,238, & ! index 3565 - 3576 - 239,240,242,243,244,245,246,247,248,249,251,252, & ! index 3577 - 3588 - 253,254,255,256,257,258,259,261,264,265,266,267 /) ! index up to 3600 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_10 = (/ & - 268,269,270,272,273,274,275,276,277,278,279,280, & ! index 3601 - 3612 - 281,282,283,284,285,286,287,288,289,290,291,147, & ! index 3613 - 3624 - 173,203,235,260,262,265,266,267,268,269,270,271, & ! index 3625 - 3636 - 272,273,274,275,276,277,278,279,280,281,282,283, & ! index 3637 - 3648 - 284,285,286,287,288,289,290,291, 67, 74, 90,101, & ! index 3649 - 3660 - 102,114,115,118,134,142,143,153,154,155,161,170, & ! index 3661 - 3672 - 173,176,178,179,184,191,195,199,203,207,208,210, & ! index 3673 - 3684 - 214,215,216,222,223,224,225,226,228,229,230,232, & ! index 3685 - 3696 - 233,234,236,238,240,241,242,243,244,245,246,247, & ! index 3697 - 3708 - 248,249,250,251,252,253,254,256,257,258,259,261, & ! index 3709 - 3720 - 262,263,264,265,266,267,269,270,272,273,274,275, & ! index 3721 - 3732 - 276,277,278,279,280,281,282,283,284,285,286,287, & ! index 3733 - 3744 - 288,289,290,291, 76,138,142,147,148,154,155,159, & ! index 3745 - 3756 - 160,170,177,180,190,191,199,207,210,215,216,224, & ! index 3757 - 3768 - 225,234,238,248,249,251,253,255,256,257,259,261, & ! index 3769 - 3780 - 263,264,265,266,267,269,270,272,273,274,275,276, & ! index 3781 - 3792 - 277,278,279,280,281,282,283,284,285,286,287,288, & ! index 3793 - 3804 - 289,290,291,203,235,260,262,268,269,270,273,274, & ! index 3805 - 3816 - 275,276,277,278,279,280,281,282,283,284,285,286, & ! index 3817 - 3828 - 287,288,289,290,291, 58, 64, 72, 74, 78, 79, 80, & ! index 3829 - 3840 - 85, 87, 89, 91, 93, 94, 95, 96,100,101,102,104, & ! index 3841 - 3852 - 106,108,109,110,112,113,115,116,117,118,119,120, & ! index 3853 - 3864 - 121,123,125,126,127,129,130,131,132,133,137,139, & ! index 3865 - 3876 - 140,141,142,144,145,146,148,149,150,151,152,154, & ! index 3877 - 3888 - 155,156,157,158,159,162,163,164,165,166,167,168, & ! index 3889 - 3900 - 169,170,171,172,175,177,179,180,181,182,183,184, & ! index 3901 - 3912 - 185,186,187,188,189,190,191,192,194,200,201,202, & ! index 3913 - 3924 - 204,205,206,207,208,209,210,211,212,213,214,215, & ! index 3925 - 3936 - 216,217,218,220,222,223,224,225,227,228,229,230, & ! index 3937 - 3948 - 231,232,233,234,236,237,238,239,240,241,242,243 /) ! index up to 3960 + 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 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_11 = (/ & - 244,245,246,247,248,249,250,251,252,253,254,255, & ! index 3961 - 3972 - 256,257,258,259,261,263,264,266,267,268,269,270, & ! index 3973 - 3984 - 272,273,274,275,276,277,278,279,280,281,282,283, & ! index 3985 - 3996 - 284,285,286,287,288,289,290,291, 52, 53, 54, 55, & ! index 3997 - 4008 - 56, 57, 59, 75, 81, 82, 83, 84,103,111,149,197, & ! index 4009 - 4020 - 217,227,235,239,254,255,256,257,259,261,262,264, & ! index 4021 - 4032 - 266,267,268,269,270,271,272,273,274,275,276,277, & ! index 4033 - 4044 - 278,279,280,281,282,283,284,285,286,287,288,289, & ! index 4045 - 4056 - 290,291, 41, 43, 46, 58, 64, 66, 68, 69, 70, 71, & ! index 4057 - 4068 - 72, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, & ! index 4069 - 4080 - 86, 87, 88, 89, 90, 91, 93, 94, 95, 96, 97,100, & ! index 4081 - 4092 - 101,102,104,105,106,107,109,110,111,112,113,114, & ! index 4093 - 4104 - 115,116,117,118,119,120,121,122,123,124,125,127, & ! index 4105 - 4116 - 128,129,130,131,132,133,134,136,137,139,140,141, & ! index 4117 - 4128 - 142,143,144,145,146,147,148,149,150,151,152,153, & ! index 4129 - 4140 - 154,155,156,157,158,159,161,162,163,164,165,166, & ! index 4141 - 4152 - 167,168,169,170,171,172,175,176,177,178,179,180, & ! index 4153 - 4164 - 181,182,183,184,186,187,188,189,190,191,192,193, & ! index 4165 - 4176 - 194,195,196,197,198,199,200,201,202,203,204,205, & ! index 4177 - 4188 - 206,207,208,209,210,211,212,213,214,215,216,217, & ! index 4189 - 4200 - 218,219,220,221,222,223,224,225,226,227,228,229, & ! index 4201 - 4212 - 230,231,232,233,234,235,236,237,238,239,240,241, & ! index 4213 - 4224 - 242,243,244,245,246,247,248,249,250,251,252,253, & ! index 4225 - 4236 - 254,255,256,257,258,259,260,261,262,263,264,265, & ! index 4237 - 4248 - 266,267,268,269,270,271,272,273,274,275,276,277, & ! index 4249 - 4260 - 278,279,280,281,282,283,284,285,286,287,288,289, & ! index 4261 - 4272 - 290,291,138,173,203,235,260,262,265,266,267,268, & ! index 4273 - 4284 - 269,270,271,272,273,274,275,276,277,278,279,280, & ! index 4285 - 4296 - 281,282,283,284,285,286,287,288,289,290,291, 47, & ! index 4297 - 4308 - 48, 52, 53, 54, 55, 56, 57, 59, 65, 66, 71, 77 /) ! index up to 4320 - INTEGER, PARAMETER, DIMENSION(311) :: LU_ICOL_12 = (/ & - 81, 82, 83, 84,111,149,177,190,197,212,224,227, & ! index 4321 - 4332 - 234,235,248,251,253,260,261,262,263,264,266,267, & ! index 4333 - 4344 - 268,269,270,271,272,273,274,275,276,277,278,279, & ! index 4345 - 4356 - 280,281,282,283,284,285,286,287,288,289,290,291, & ! index 4357 - 4368 - 124,161,221,235,238,253,254,256,257,258,259,260, & ! index 4369 - 4380 - 261,262,263,264,266,267,271,272,273,274,275,276, & ! index 4381 - 4392 - 277,278,279,280,281,282,283,284,285,286,287,288, & ! index 4393 - 4404 - 289,290,291, 3, 43, 52, 53, 54, 55, 56, 57, 59, & ! index 4405 - 4416 - 72, 75, 78, 81, 82, 83, 84, 99,103,114,124,133, & ! index 4417 - 4428 - 135,137,149,161,176,190,197,203,211,212,217,218, & ! index 4429 - 4440 - 219,221,224,225,227,234,235,236,237,238,239,240, & ! index 4441 - 4452 - 241,242,243,244,245,246,247,248,249,250,251,252, & ! index 4453 - 4464 - 253,254,255,256,257,258,259,260,261,262,263,264, & ! index 4465 - 4476 - 266,267,268,269,270,271,272,273,274,275,276,277, & ! index 4477 - 4488 - 278,279,280,281,282,283,284,285,286,287,288,289, & ! index 4489 - 4500 - 290,291, 50, 51, 62, 63, 65, 67, 68, 74, 87, 89, & ! index 4501 - 4512 - 91, 92, 96, 97,102,113,121,123,134,138,139,140, & ! index 4513 - 4524 - 144,145,146,147,150,151,152,153,160,166,167,168, & ! index 4525 - 4536 - 173,176,178,179,180,181,182,183,184,186,187,188, & ! index 4537 - 4548 - 189,191,193,194,195,198,199,200,201,202,203,204, & ! index 4549 - 4560 - 205,207,208,209,210,213,214,215,216,217,220,222, & ! index 4561 - 4572 - 224,225,227,228,229,232,234,235,237,238,239,240, & ! index 4573 - 4584 - 241,242,243,244,245,246,247,248,249,251,252,253, & ! index 4585 - 4596 - 254,255,256,257,258,259,261,262,264,265,266,267, & ! index 4597 - 4608 - 268,269,270,272,273,274,275,276,277,278,279,280, & ! index 4609 - 4620 - 281,282,283,284,285,286,287,288,289,290,291 /) ! index up to 4631 - INTEGER, PARAMETER, DIMENSION(4631) :: LU_ICOL = (/& + 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 + 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 + 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 + 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 = (/& 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_10, LU_ICOL_11, LU_ICOL_12, LU_ICOL_13, LU_ICOL_14, & + LU_ICOL_15 /) - INTEGER, PARAMETER, DIMENSION(292) :: LU_CROW = (/ & - 1, 2, 3, 4, 9, 11, 14, 68, 71, 79, 87, 90, & ! index 1 - 12 - 93, 98,101,104,107,110,115,117,120,123,128,130, & ! index 13 - 24 - 136,139,142,147,150,154,158,164,169,175,257,359, & ! index 25 - 36 - 434,439,450,455,467,469,471,473,475,479,481,483, & ! index 37 - 48 - 485,488,491,494,496,498,500,502,504,506,508,510, & ! index 49 - 60 - 513,517,521,525,527,530,533,536,540,544,548,551, & ! index 61 - 72 - 554,560,563,566,569,572,575,577,579,582,585,588, & ! index 73 - 84 - 591,595,599,603,607,611,614,618,625,629,633,637, & ! index 85 - 96 - 641,645,659,667,670,675,679,686,692,696,700,707, & ! index 97 - 108 - 713,718,723,728,732,736,740,745,751,757,761,766, & ! index 109 - 120 - 771,776,788,793,797,801,810,815,824,829,835,841, & ! index 121 - 132 - 847,853,859,873,877,882,887,891,895,901,907,915, & ! index 133 - 144 - 921,927,932,937,944,948,954,958,964,969,973,977, & ! index 145 - 156 - 986,990,1003,1013,1027,1032,1036,1042,1049,1053,1058,1064, & ! index 157 - 168 - 1069,1081,1085,1089,1100,1107,1132,1144,1150,1162,1172,1181, & ! index 169 - 180 - 1191,1197,1204,1211,1225,1242,1248,1256,1262,1268,1275,1288, & ! index 181 - 192 - 1299,1320,1332,1340,1356,1370,1392,1404,1419,1428,1435,1442, & ! index 193 - 204 - 1453,1464,1479,1489,1506,1516,1530,1565,1585,1604,1610,1622, & ! index 205 - 216 - 1634,1644,1672,1700,1707,1723,1731,1773,1778,1787,1807,1821, & ! index 217 - 228 - 1841,1861,1894,1928,1942,2003,2018,2030,2076,2096,2106,2127, & ! index 229 - 240 - 2143,2171,2197,2219,2233,2247,2259,2271,2295,2316,2373,2397, & ! index 241 - 252 - 2426,2439,2454,2476,2492,2506,2527,2564,2582,2655,2668,2773, & ! index 253 - 264 - 2804,2895,2957,3058,3077,3106,3125,3157,3206,3262,3294,3371, & ! index 265 - 276 - 3413,3439,3527,3624,3657,3749,3808,3834,4005,4059,4275,4308, & ! index 277 - 288 - 4369,4408,4503,4632 /) ! index up to 292 + INTEGER, PARAMETER, DIMENSION(354) :: 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 - INTEGER, PARAMETER, DIMENSION(292) :: LU_DIAG = (/ & - 1, 2, 3, 4, 9, 11, 14, 68, 71, 79, 87, 90, & ! index 1 - 12 - 93, 98,101,104,107,110,115,117,120,123,128,130, & ! index 13 - 24 - 136,139,142,147,150,154,158,164,169,175,257,359, & ! index 25 - 36 - 434,439,450,455,467,469,471,473,475,479,481,483, & ! index 37 - 48 - 485,488,491,494,496,498,500,502,504,506,508,510, & ! index 49 - 60 - 513,517,521,525,527,530,533,536,540,544,548,551, & ! index 61 - 72 - 554,560,563,566,569,572,575,577,579,582,585,588, & ! index 73 - 84 - 591,595,599,603,607,611,614,621,625,629,633,637, & ! index 85 - 96 - 641,645,659,667,672,675,680,686,692,696,701,707, & ! index 97 - 108 - 713,718,723,728,732,736,742,745,751,758,761,766, & ! index 109 - 120 - 771,777,788,793,797,801,810,815,824,829,835,841, & ! index 121 - 132 - 847,853,859,873,877,882,887,891,895,903,908,915, & ! index 133 - 144 - 921,927,932,940,944,948,954,959,964,969,973,979, & ! index 145 - 156 - 986,990,1008,1017,1027,1032,1036,1043,1049,1053,1059,1064, & ! index 157 - 168 - 1071,1081,1085,1090,1100,1119,1133,1144,1151,1162,1174,1184, & ! index 169 - 180 - 1191,1199,1206,1217,1229,1243,1250,1257,1263,1268,1280,1290, & ! index 181 - 192 - 1303,1324,1332,1343,1357,1376,1392,1407,1420,1428,1435,1444, & ! index 193 - 204 - 1455,1469,1481,1493,1507,1522,1543,1569,1591,1604,1613,1626, & ! index 205 - 216 - 1635,1649,1677,1700,1710,1724,1753,1773,1779,1795,1810,1831, & ! index 217 - 228 - 1852,1878,1912,1931,1978,2005,2019,2057,2080,2098,2112,2131, & ! index 229 - 240 - 2154,2185,2208,2223,2238,2249,2262,2286,2305,2359,2388,2411, & ! index 241 - 252 - 2429,2444,2463,2482,2496,2515,2553,2566,2644,2655,2756,2791, & ! index 253 - 264 - 2871,2943,3044,3061,3091,3111,3136,3186,3243,3276,3354,3397, & ! index 265 - 276 - 3424,3513,3611,3645,3738,3798,3825,3997,4052,4269,4303,4365, & ! index 277 - 288 - 4405,4501,4631,4632 /) ! index up to 292 + INTEGER, PARAMETER, DIMENSION(354) :: 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 END MODULE gckpp_JacobianSP diff --git a/KPP/fullchem/gckpp_LinearAlgebra.F90 b/KPP/fullchem/gckpp_LinearAlgebra.F90 index c74c948e8..a4b4f078a 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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,1356 +648,1657 @@ SUBROUTINE KppSolve ( JVS, X ) ! X - Vector for variables REAL(kind=dp) :: X(NVAR) -IF (DO_SLV(92)) & - X(92) = X(92)-JVS(618)*X(42)-JVS(619)*X(44)-JVS(620)*X(49) -IF (DO_SLV(101)) & - X(101) = X(101)-JVS(670)*X(79)-JVS(671)*X(80) -IF (DO_SLV(103)) & - X(103) = X(103)-JVS(679)*X(75) -IF (DO_SLV(107)) & - X(107) = X(107)-JVS(700)*X(97) -IF (DO_SLV(115)) & - X(115) = X(115)-JVS(740)*X(79)-JVS(741)*X(80) -IF (DO_SLV(118)) & - X(118) = X(118)-JVS(757)*X(64) -IF (DO_SLV(122)) & - X(122) = X(122)-JVS(776)*X(86) -IF (DO_SLV(142)) & - X(142) = X(142)-JVS(901)*X(115)-JVS(902)*X(118) -IF (DO_SLV(143)) & - X(143) = X(143)-JVS(907)*X(60) -IF (DO_SLV(148)) & - X(148) = X(148)-JVS(937)*X(79)-JVS(938)*X(80)-JVS(939)*X(115) -IF (DO_SLV(152)) & - X(152) = X(152)-JVS(958)*X(140) -IF (DO_SLV(156)) & - X(156) = X(156)-JVS(977)*X(109)-JVS(978)*X(125) -IF (DO_SLV(159)) & - X(159) = X(159)-JVS(1003)*X(64)-JVS(1004)*X(79)-JVS(1005)*X(80)-JVS(1006)*X(118)-JVS(1007)*X(142) -IF (DO_SLV(160)) & - X(160) = X(160)-JVS(1013)*X(107)-JVS(1014)*X(115)-JVS(1015)*X(118)-JVS(1016)*X(142) -IF (DO_SLV(164)) & - X(164) = X(164)-JVS(1042)*X(141) -IF (DO_SLV(167)) & - X(167) = X(167)-JVS(1058)*X(139) -IF (DO_SLV(169)) & - X(169) = X(169)-JVS(1069)*X(117)-JVS(1070)*X(125) -IF (DO_SLV(172)) & - X(172) = X(172)-JVS(1089)*X(171) -IF (DO_SLV(174)) & - X(174) = X(174)-JVS(1107)*X(116)-JVS(1108)*X(127)-JVS(1109)*X(129)-JVS(1110)*X(130)-JVS(1111)*X(131)-JVS(1112)*X(139)& - &-JVS(1113)*X(140)-JVS(1114)*X(151)-JVS(1115)*X(157)-JVS(1116)*X(162)-JVS(1117)*X(165)-JVS(1118)*X(171) -IF (DO_SLV(175)) & - X(175) = X(175)-JVS(1132)*X(166) -IF (DO_SLV(177)) & - X(177) = X(177)-JVS(1150)*X(149) -IF (DO_SLV(179)) & - X(179) = X(179)-JVS(1172)*X(76)-JVS(1173)*X(120) -IF (DO_SLV(180)) & - X(180) = X(180)-JVS(1181)*X(70)-JVS(1182)*X(97)-JVS(1183)*X(101) -IF (DO_SLV(182)) & - X(182) = X(182)-JVS(1197)*X(157)-JVS(1198)*X(171) -IF (DO_SLV(183)) & - X(183) = X(183)-JVS(1204)*X(162)-JVS(1205)*X(165) -IF (DO_SLV(184)) & - X(184) = X(184)-JVS(1211)*X(64)-JVS(1212)*X(79)-JVS(1213)*X(80)-JVS(1214)*X(115)-JVS(1215)*X(118)-JVS(1216)*X(142) +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(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) +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) +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(1225)*X(117)-JVS(1226)*X(125)-JVS(1227)*X(132)-JVS(1228)*X(163) -IF (DO_SLV(186)) & - X(186) = X(186)-JVS(1242)*X(171) -IF (DO_SLV(187)) & - X(187) = X(187)-JVS(1248)*X(157)-JVS(1249)*X(162) -IF (DO_SLV(188)) & - X(188) = X(188)-JVS(1256)*X(165) + X(185) = X(185)-JVS(1217)*X(119)-JVS(1218)*X(147) IF (DO_SLV(189)) & - X(189) = X(189)-JVS(1262)*X(151) -IF (DO_SLV(191)) & - X(191) = X(191)-JVS(1275)*X(70)-JVS(1276)*X(101)-JVS(1277)*X(107)-JVS(1278)*X(160)-JVS(1279)*X(180) -IF (DO_SLV(192)) & - X(192) = X(192)-JVS(1288)*X(165)-JVS(1289)*X(171) -IF (DO_SLV(193)) & - X(193) = X(193)-JVS(1299)*X(62)-JVS(1300)*X(63)-JVS(1301)*X(138)-JVS(1302)*X(147) -IF (DO_SLV(194)) & - X(194) = X(194)-JVS(1320)*X(116)-JVS(1321)*X(162)-JVS(1322)*X(165)-JVS(1323)*X(171) + X(189) = X(189)-JVS(1247)*X(149) +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(1340)*X(165)-JVS(1341)*X(183)-JVS(1342)*X(189) + X(196) = X(196)-JVS(1287)*X(165)-JVS(1288)*X(178) IF (DO_SLV(197)) & - X(197) = X(197)-JVS(1356)*X(103) + X(197) = X(197)-JVS(1294)*X(126) IF (DO_SLV(198)) & - X(198) = X(198)-JVS(1370)*X(113)-JVS(1371)*X(146)-JVS(1372)*X(150)-JVS(1373)*X(166)-JVS(1374)*X(175)-JVS(1375)*X(189) -IF (DO_SLV(200)) & - X(200) = X(200)-JVS(1404)*X(145)-JVS(1405)*X(167)-JVS(1406)*X(188) + X(198) = X(198)-JVS(1301)*X(174) IF (DO_SLV(201)) & - X(201) = X(201)-JVS(1419)*X(113) + 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) IF (DO_SLV(204)) & - X(204) = X(204)-JVS(1442)*X(144)-JVS(1443)*X(186) + 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) IF (DO_SLV(205)) & - X(205) = X(205)-JVS(1453)*X(145)-JVS(1454)*X(188) -IF (DO_SLV(206)) & - X(206) = X(206)-JVS(1464)*X(141)-JVS(1465)*X(182)-JVS(1466)*X(183)-JVS(1467)*X(187)-JVS(1468)*X(194) -IF (DO_SLV(207)) & - X(207) = X(207)-JVS(1479)*X(136)-JVS(1480)*X(153) + X(205) = X(205)-JVS(1361)*X(175) IF (DO_SLV(208)) & - X(208) = X(208)-JVS(1489)*X(146)-JVS(1490)*X(150)-JVS(1491)*X(168)-JVS(1492)*X(189) -IF (DO_SLV(209)) & - X(209) = X(209)-JVS(1506)*X(112) + X(208) = X(208)-JVS(1377)*X(131)-JVS(1378)*X(147) IF (DO_SLV(210)) & - X(210) = X(210)-JVS(1516)*X(115)-JVS(1517)*X(118)-JVS(1518)*X(142)-JVS(1519)*X(160)-JVS(1520)*X(180)-JVS(1521)*X(191) -IF (DO_SLV(211)) & - X(211) = X(211)-JVS(1530)*X(58)-JVS(1531)*X(85)-JVS(1532)*X(105)-JVS(1533)*X(136)-JVS(1534)*X(148)-JVS(1535)*X(153)& - &-JVS(1536)*X(159)-JVS(1537)*X(163)-JVS(1538)*X(170)-JVS(1539)*X(186)-JVS(1540)*X(188)-JVS(1541)*X(207)& - &-JVS(1542)*X(210) + X(210) = X(210)-JVS(1393)*X(209) IF (DO_SLV(212)) & - X(212) = X(212)-JVS(1565)*X(154)-JVS(1566)*X(155)-JVS(1567)*X(170)-JVS(1568)*X(195) + X(212) = X(212)-JVS(1410)*X(140) IF (DO_SLV(213)) & - X(213) = X(213)-JVS(1585)*X(152)-JVS(1586)*X(166)-JVS(1587)*X(167)-JVS(1588)*X(168)-JVS(1589)*X(189)-JVS(1590)*X(194) + X(213) = X(213)-JVS(1417)*X(114) IF (DO_SLV(215)) & - X(215) = X(215)-JVS(1610)*X(154)-JVS(1611)*X(155)-JVS(1612)*X(170) + 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) IF (DO_SLV(216)) & - X(216) = X(216)-JVS(1622)*X(154)-JVS(1623)*X(155)-JVS(1624)*X(170)-JVS(1625)*X(215) + X(216) = X(216)-JVS(1457)*X(206) IF (DO_SLV(217)) & - X(217) = X(217)-JVS(1634)*X(161) -IF (DO_SLV(218)) & - X(218) = X(218)-JVS(1644)*X(179)-JVS(1645)*X(201)-JVS(1646)*X(209)-JVS(1647)*X(216)-JVS(1648)*X(217) -IF (DO_SLV(219)) & - X(219) = X(219)-JVS(1672)*X(148)-JVS(1673)*X(195)-JVS(1674)*X(201)-JVS(1675)*X(209)-JVS(1676)*X(217) + X(217) = X(217)-JVS(1469)*X(181) IF (DO_SLV(221)) & - X(221) = X(221)-JVS(1707)*X(87)-JVS(1708)*X(95)-JVS(1709)*X(202) -IF (DO_SLV(222)) & - X(222) = X(222)-JVS(1723)*X(181) + 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(1731)*X(58)-JVS(1732)*X(64)-JVS(1733)*X(79)-JVS(1734)*X(80)-JVS(1735)*X(118)-JVS(1736)*X(156)& - &-JVS(1737)*X(159)-JVS(1738)*X(163)-JVS(1739)*X(164)-JVS(1740)*X(172)-JVS(1741)*X(182)-JVS(1742)*X(183)& - &-JVS(1743)*X(185)-JVS(1744)*X(186)-JVS(1745)*X(187)-JVS(1746)*X(188)-JVS(1747)*X(189)-JVS(1748)*X(206)& - &-JVS(1749)*X(210)-JVS(1750)*X(214)-JVS(1751)*X(220)-JVS(1752)*X(222) + X(223) = X(223)-JVS(1514)*X(187)-JVS(1515)*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(1778)*X(170) + X(225) = X(225)-JVS(1528)*X(111)-JVS(1529)*X(137)-JVS(1530)*X(191) IF (DO_SLV(226)) & - X(226) = X(226)-JVS(1787)*X(119)-JVS(1788)*X(154)-JVS(1789)*X(155)-JVS(1790)*X(178)-JVS(1791)*X(202)-JVS(1792)*X(215)& - &-JVS(1793)*X(216)-JVS(1794)*X(225) + X(226) = X(226)-JVS(1540)*X(186) IF (DO_SLV(227)) & - X(227) = X(227)-JVS(1807)*X(44)-JVS(1808)*X(49)-JVS(1809)*X(92) -IF (DO_SLV(228)) & - X(228) = X(228)-JVS(1821)*X(125)-JVS(1822)*X(130)-JVS(1823)*X(131)-JVS(1824)*X(139)-JVS(1825)*X(140)-JVS(1826)*X(157)& - &-JVS(1827)*X(162)-JVS(1828)*X(192)-JVS(1829)*X(214)-JVS(1830)*X(220) -IF (DO_SLV(229)) & - X(229) = X(229)-JVS(1841)*X(125)-JVS(1842)*X(130)-JVS(1843)*X(131)-JVS(1844)*X(139)-JVS(1845)*X(140)-JVS(1846)*X(157)& - &-JVS(1847)*X(162)-JVS(1848)*X(192)-JVS(1849)*X(214)-JVS(1850)*X(220)-JVS(1851)*X(228) + X(227) = X(227)-JVS(1546)*X(131)-JVS(1547)*X(147)-JVS(1548)*X(153)-JVS(1549)*X(194) IF (DO_SLV(230)) & - X(230) = X(230)-JVS(1861)*X(129)-JVS(1862)*X(157)-JVS(1863)*X(164)-JVS(1864)*X(171)-JVS(1865)*X(182)-JVS(1866)*X(183)& - &-JVS(1867)*X(186)-JVS(1868)*X(187)-JVS(1869)*X(192)-JVS(1870)*X(204)-JVS(1871)*X(213)-JVS(1872)*X(214)& - &-JVS(1873)*X(220)-JVS(1874)*X(222)-JVS(1875)*X(224)-JVS(1876)*X(228)-JVS(1877)*X(229) + X(230) = X(230)-JVS(1576)*X(209) IF (DO_SLV(231)) & - X(231) = X(231)-JVS(1894)*X(127)-JVS(1895)*X(162)-JVS(1896)*X(164)-JVS(1897)*X(165)-JVS(1898)*X(182)-JVS(1899)*X(183)& - &-JVS(1900)*X(187)-JVS(1901)*X(188)-JVS(1902)*X(192)-JVS(1903)*X(205)-JVS(1904)*X(206)-JVS(1905)*X(213)& - &-JVS(1906)*X(214)-JVS(1907)*X(220)-JVS(1908)*X(222)-JVS(1909)*X(224)-JVS(1910)*X(228)-JVS(1911)*X(229) + X(231) = X(231)-JVS(1582)*X(199) IF (DO_SLV(232)) & - X(232) = X(232)-JVS(1928)*X(126)-JVS(1929)*X(151)-JVS(1930)*X(181) + X(232) = X(232)-JVS(1588)*X(187)-JVS(1589)*X(192) IF (DO_SLV(233)) & - X(233) = X(233)-JVS(1942)*X(79)-JVS(1943)*X(80)-JVS(1944)*X(105)-JVS(1945)*X(136)-JVS(1946)*X(148)-JVS(1947)*X(153)& - &-JVS(1948)*X(156)-JVS(1949)*X(163)-JVS(1950)*X(164)-JVS(1951)*X(165)-JVS(1952)*X(171)-JVS(1953)*X(174)& - &-JVS(1954)*X(182)-JVS(1955)*X(183)-JVS(1956)*X(185)-JVS(1957)*X(186)-JVS(1958)*X(187)-JVS(1959)*X(188)& - &-JVS(1960)*X(192)-JVS(1961)*X(196)-JVS(1962)*X(198)-JVS(1963)*X(201)-JVS(1964)*X(204)-JVS(1965)*X(205)& - &-JVS(1966)*X(206)-JVS(1967)*X(207)-JVS(1968)*X(213)-JVS(1969)*X(214)-JVS(1970)*X(220)-JVS(1971)*X(222)& - &-JVS(1972)*X(224)-JVS(1973)*X(228)-JVS(1974)*X(229)-JVS(1975)*X(230)-JVS(1976)*X(231)-JVS(1977)*X(232) + X(233) = X(233)-JVS(1596)*X(140)-JVS(1597)*X(212) IF (DO_SLV(234)) & - X(234) = X(234)-JVS(2003)*X(76)-JVS(2004)*X(224) + X(234) = X(234)-JVS(1604)*X(109)-JVS(1605)*X(136)-JVS(1606)*X(233) IF (DO_SLV(235)) & - X(235) = X(235)-JVS(2018)*X(173) + X(235) = X(235)-JVS(1615)*X(71)-JVS(1616)*X(90)-JVS(1617)*X(204)-JVS(1618)*X(220) IF (DO_SLV(236)) & - X(236) = X(236)-JVS(2030)*X(68)-JVS(2031)*X(108)-JVS(2032)*X(120)-JVS(2033)*X(141)-JVS(2034)*X(142)-JVS(2035)*X(146)& - &-JVS(2036)*X(148)-JVS(2037)*X(159)-JVS(2038)*X(164)-JVS(2039)*X(166)-JVS(2040)*X(167)-JVS(2041)*X(179)& - &-JVS(2042)*X(182)-JVS(2043)*X(183)-JVS(2044)*X(187)-JVS(2045)*X(204)-JVS(2046)*X(206)-JVS(2047)*X(210)& - &-JVS(2048)*X(213)-JVS(2049)*X(214)-JVS(2050)*X(220)-JVS(2051)*X(222)-JVS(2052)*X(224)-JVS(2053)*X(228)& - &-JVS(2054)*X(229)-JVS(2055)*X(230)-JVS(2056)*X(232) -IF (DO_SLV(237)) & - X(237) = X(237)-JVS(2076)*X(94)-JVS(2077)*X(124)-JVS(2078)*X(202)-JVS(2079)*X(226) + 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) IF (DO_SLV(238)) & - X(238) = X(238)-JVS(2096)*X(154)-JVS(2097)*X(155) + X(238) = X(238)-JVS(1650)*X(199)-JVS(1651)*X(209) IF (DO_SLV(239)) & - X(239) = X(239)-JVS(2106)*X(110)-JVS(2107)*X(170)-JVS(2108)*X(202)-JVS(2109)*X(217)-JVS(2110)*X(226)-JVS(2111)*X(238) + X(239) = X(239)-JVS(1661)*X(64)-JVS(1662)*X(65)-JVS(1663)*X(166)-JVS(1664)*X(179) IF (DO_SLV(240)) & - X(240) = X(240)-JVS(2127)*X(126)-JVS(2128)*X(151)-JVS(2129)*X(214)-JVS(2130)*X(220) -IF (DO_SLV(241)) & - X(241) = X(241)-JVS(2143)*X(144)-JVS(2144)*X(152)-JVS(2145)*X(168)-JVS(2146)*X(186)-JVS(2147)*X(189)-JVS(2148)*X(204)& - &-JVS(2149)*X(214)-JVS(2150)*X(222)-JVS(2151)*X(224)-JVS(2152)*X(232)-JVS(2153)*X(240) + X(240) = X(240)-JVS(1682)*X(122)-JVS(1683)*X(146)-JVS(1684)*X(200) IF (DO_SLV(242)) & - X(242) = X(242)-JVS(2171)*X(151)-JVS(2172)*X(152)-JVS(2173)*X(166)-JVS(2174)*X(167)-JVS(2175)*X(168)-JVS(2176)*X(181)& - &-JVS(2177)*X(182)-JVS(2178)*X(183)-JVS(2179)*X(187)-JVS(2180)*X(189)-JVS(2181)*X(214)-JVS(2182)*X(220)& - &-JVS(2183)*X(222)-JVS(2184)*X(232) + X(242) = X(242)-JVS(1699)*X(193) IF (DO_SLV(243)) & - X(243) = X(243)-JVS(2197)*X(146)-JVS(2198)*X(152)-JVS(2199)*X(166)-JVS(2200)*X(167)-JVS(2201)*X(168)-JVS(2202)*X(189)& - &-JVS(2203)*X(214)-JVS(2204)*X(220)-JVS(2205)*X(222)-JVS(2206)*X(232)-JVS(2207)*X(242) + 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(2219)*X(151)-JVS(2220)*X(162)-JVS(2221)*X(165)-JVS(2222)*X(224) + X(244) = X(244)-JVS(1723)*X(199)-JVS(1724)*X(224)-JVS(1725)*X(226) IF (DO_SLV(245)) & - X(245) = X(245)-JVS(2233)*X(151)-JVS(2234)*X(157)-JVS(2235)*X(171)-JVS(2236)*X(224)-JVS(2237)*X(244) + X(245) = X(245)-JVS(1739)*X(110) IF (DO_SLV(246)) & - X(246) = X(246)-JVS(2247)*X(151)-JVS(2248)*X(224) + X(246) = X(246)-JVS(1753)*X(113) IF (DO_SLV(247)) & - X(247) = X(247)-JVS(2259)*X(181)-JVS(2260)*X(224)-JVS(2261)*X(246) + 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) IF (DO_SLV(248)) & - X(248) = X(248)-JVS(2271)*X(79)-JVS(2272)*X(80)-JVS(2273)*X(121)-JVS(2274)*X(129)-JVS(2275)*X(139)-JVS(2276)*X(157)& - &-JVS(2277)*X(171)-JVS(2278)*X(181)-JVS(2279)*X(186)-JVS(2280)*X(224)-JVS(2281)*X(243)-JVS(2282)*X(244)& - &-JVS(2283)*X(245)-JVS(2284)*X(246)-JVS(2285)*X(247) -IF (DO_SLV(249)) & - X(249) = X(249)-JVS(2295)*X(200)-JVS(2296)*X(205)-JVS(2297)*X(224)-JVS(2298)*X(240)-JVS(2299)*X(242)-JVS(2300)*X(243)& - &-JVS(2301)*X(244)-JVS(2302)*X(245)-JVS(2303)*X(246)-JVS(2304)*X(247) + X(248) = X(248)-JVS(1782)*X(172)-JVS(1783)*X(205)-JVS(1784)*X(231) IF (DO_SLV(250)) & - X(250) = X(250)-JVS(2316)*X(112)-JVS(2317)*X(132)-JVS(2318)*X(134)-JVS(2319)*X(136)-JVS(2320)*X(141)-JVS(2321)*X(153)& - &-JVS(2322)*X(164)-JVS(2323)*X(167)-JVS(2324)*X(168)-JVS(2325)*X(174)-JVS(2326)*X(178)-JVS(2327)*X(182)& - &-JVS(2328)*X(183)-JVS(2329)*X(186)-JVS(2330)*X(187)-JVS(2331)*X(188)-JVS(2332)*X(194)-JVS(2333)*X(199)& - &-JVS(2334)*X(200)-JVS(2335)*X(205)-JVS(2336)*X(206)-JVS(2337)*X(207)-JVS(2338)*X(209)-JVS(2339)*X(214)& - &-JVS(2340)*X(215)-JVS(2341)*X(216)-JVS(2342)*X(220)-JVS(2343)*X(222)-JVS(2344)*X(224)-JVS(2345)*X(225)& - &-JVS(2346)*X(228)-JVS(2347)*X(229)-JVS(2348)*X(231)-JVS(2349)*X(232)-JVS(2350)*X(238)-JVS(2351)*X(240)& - &-JVS(2352)*X(242)-JVS(2353)*X(243)-JVS(2354)*X(244)-JVS(2355)*X(245)-JVS(2356)*X(246)-JVS(2357)*X(247)& - &-JVS(2358)*X(249) -IF (DO_SLV(251)) & - X(251) = X(251)-JVS(2373)*X(123)-JVS(2374)*X(127)-JVS(2375)*X(140)-JVS(2376)*X(162)-JVS(2377)*X(165)-JVS(2378)*X(170)& - &-JVS(2379)*X(181)-JVS(2380)*X(188)-JVS(2381)*X(224)-JVS(2382)*X(225)-JVS(2383)*X(243)-JVS(2384)*X(244)& - &-JVS(2385)*X(245)-JVS(2386)*X(246)-JVS(2387)*X(247) -IF (DO_SLV(252)) & - X(252) = X(252)-JVS(2397)*X(196)-JVS(2398)*X(221)-JVS(2399)*X(222)-JVS(2400)*X(224)-JVS(2401)*X(231)-JVS(2402)*X(238)& - &-JVS(2403)*X(240)-JVS(2404)*X(242)-JVS(2405)*X(243)-JVS(2406)*X(244)-JVS(2407)*X(245)-JVS(2408)*X(246)& - &-JVS(2409)*X(247)-JVS(2410)*X(251) + X(250) = X(250)-JVS(1804)*X(125) IF (DO_SLV(253)) & - X(253) = X(253)-JVS(2426)*X(170)-JVS(2427)*X(225)-JVS(2428)*X(248) + X(253) = X(253)-JVS(1827)*X(172)-JVS(1828)*X(231) IF (DO_SLV(254)) & - X(254) = X(254)-JVS(2439)*X(154)-JVS(2440)*X(155)-JVS(2441)*X(170)-JVS(2442)*X(226)-JVS(2443)*X(238) + X(254) = X(254)-JVS(1838)*X(171)-JVS(1839)*X(230) IF (DO_SLV(255)) & - X(255) = X(255)-JVS(2454)*X(50)-JVS(2455)*X(106)-JVS(2456)*X(148)-JVS(2457)*X(159)-JVS(2458)*X(210)-JVS(2459)*X(226)& - &-JVS(2460)*X(238)-JVS(2461)*X(248)-JVS(2462)*X(254) + X(255) = X(255)-JVS(1849)*X(167) IF (DO_SLV(256)) & - X(256) = X(256)-JVS(2476)*X(93)-JVS(2477)*X(114)-JVS(2478)*X(119)-JVS(2479)*X(148)-JVS(2480)*X(225)-JVS(2481)*X(238) + 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) IF (DO_SLV(257)) & - X(257) = X(257)-JVS(2492)*X(202)-JVS(2493)*X(210)-JVS(2494)*X(254)-JVS(2495)*X(256) + X(257) = X(257)-JVS(1881)*X(56)-JVS(1882)*X(74)-JVS(1883)*X(111)-JVS(1884)*X(225) IF (DO_SLV(258)) & - X(258) = X(258)-JVS(2506)*X(95)-JVS(2507)*X(124)-JVS(2508)*X(202)-JVS(2509)*X(226)-JVS(2510)*X(238)-JVS(2511)*X(254)& - &-JVS(2512)*X(255)-JVS(2513)*X(256)-JVS(2514)*X(257) + X(258) = X(258)-JVS(1895)*X(174)-JVS(1896)*X(223)-JVS(1897)*X(224)-JVS(1898)*X(232)-JVS(1899)*X(243) IF (DO_SLV(259)) & - X(259) = X(259)-JVS(2527)*X(91)-JVS(2528)*X(93)-JVS(2529)*X(94)-JVS(2530)*X(113)-JVS(2531)*X(119)-JVS(2532)*X(148)& - &-JVS(2533)*X(154)-JVS(2534)*X(155)-JVS(2535)*X(158)-JVS(2536)*X(159)-JVS(2537)*X(199)-JVS(2538)*X(201)& - &-JVS(2539)*X(202)-JVS(2540)*X(209)-JVS(2541)*X(210)-JVS(2542)*X(215)-JVS(2543)*X(216)-JVS(2544)*X(225)& - &-JVS(2545)*X(237)-JVS(2546)*X(238)-JVS(2547)*X(253)-JVS(2548)*X(254)-JVS(2549)*X(255)-JVS(2550)*X(256)& - &-JVS(2551)*X(257)-JVS(2552)*X(258) + X(259) = X(259)-JVS(1910)*X(159)-JVS(1911)*X(184) IF (DO_SLV(260)) & - X(260) = X(260)-JVS(2564)*X(128)-JVS(2565)*X(176) + X(260) = X(260)-JVS(1920)*X(123) IF (DO_SLV(261)) & - X(261) = X(261)-JVS(2582)*X(67)-JVS(2583)*X(88)-JVS(2584)*X(104)-JVS(2585)*X(105)-JVS(2586)*X(136)-JVS(2587)*X(153)& - &-JVS(2588)*X(156)-JVS(2589)*X(163)-JVS(2590)*X(169)-JVS(2591)*X(171)-JVS(2592)*X(184)-JVS(2593)*X(185)& - &-JVS(2594)*X(186)-JVS(2595)*X(188)-JVS(2596)*X(194)-JVS(2597)*X(196)-JVS(2598)*X(198)-JVS(2599)*X(201)& - &-JVS(2600)*X(204)-JVS(2601)*X(206)-JVS(2602)*X(207)-JVS(2603)*X(208)-JVS(2604)*X(209)-JVS(2605)*X(214)& - &-JVS(2606)*X(215)-JVS(2607)*X(216)-JVS(2608)*X(217)-JVS(2609)*X(220)-JVS(2610)*X(221)-JVS(2611)*X(222)& - &-JVS(2612)*X(224)-JVS(2613)*X(225)-JVS(2614)*X(226)-JVS(2615)*X(228)-JVS(2616)*X(229)-JVS(2617)*X(230)& - &-JVS(2618)*X(231)-JVS(2619)*X(232)-JVS(2620)*X(233)-JVS(2621)*X(237)-JVS(2622)*X(238)-JVS(2623)*X(239)& - &-JVS(2624)*X(240)-JVS(2625)*X(241)-JVS(2626)*X(242)-JVS(2627)*X(243)-JVS(2628)*X(244)-JVS(2629)*X(245)& - &-JVS(2630)*X(246)-JVS(2631)*X(247)-JVS(2632)*X(248)-JVS(2633)*X(249)-JVS(2634)*X(250)-JVS(2635)*X(251)& - &-JVS(2636)*X(252)-JVS(2637)*X(253)-JVS(2638)*X(254)-JVS(2639)*X(255)-JVS(2640)*X(256)-JVS(2641)*X(257)& - &-JVS(2642)*X(258)-JVS(2643)*X(259) + X(261) = X(261)-JVS(1930)*X(180)-JVS(1931)*X(182)-JVS(1932)*X(207)-JVS(1933)*X(226) +IF (DO_SLV(262)) & + X(262) = X(262)-JVS(1947)*X(193)-JVS(1948)*X(219)-JVS(1949)*X(229) IF (DO_SLV(263)) & - X(263) = X(263)-JVS(2668)*X(74)-JVS(2669)*X(76)-JVS(2670)*X(85)-JVS(2671)*X(86)-JVS(2672)*X(88)-JVS(2673)*X(89)& - &-JVS(2674)*X(90)-JVS(2675)*X(108)-JVS(2676)*X(112)-JVS(2677)*X(120)-JVS(2678)*X(136)-JVS(2679)*X(137)& - &-JVS(2680)*X(139)-JVS(2681)*X(140)-JVS(2682)*X(152)-JVS(2683)*X(157)-JVS(2684)*X(162)-JVS(2685)*X(165)& - &-JVS(2686)*X(166)-JVS(2687)*X(167)-JVS(2688)*X(168)-JVS(2689)*X(169)-JVS(2690)*X(170)-JVS(2691)*X(171)& - &-JVS(2692)*X(172)-JVS(2693)*X(174)-JVS(2694)*X(179)-JVS(2695)*X(180)-JVS(2696)*X(181)-JVS(2697)*X(182)& - &-JVS(2698)*X(183)-JVS(2699)*X(184)-JVS(2700)*X(186)-JVS(2701)*X(188)-JVS(2702)*X(189)-JVS(2703)*X(190)& - &-JVS(2704)*X(191)-JVS(2705)*X(194)-JVS(2706)*X(196)-JVS(2707)*X(198)-JVS(2708)*X(201)-JVS(2709)*X(204)& - &-JVS(2710)*X(205)-JVS(2711)*X(206)-JVS(2712)*X(207)-JVS(2713)*X(208)-JVS(2714)*X(209)-JVS(2715)*X(214)& - &-JVS(2716)*X(215)-JVS(2717)*X(216)-JVS(2718)*X(217)-JVS(2719)*X(218)-JVS(2720)*X(220)-JVS(2721)*X(222)& - &-JVS(2722)*X(223)-JVS(2723)*X(224)-JVS(2724)*X(225)-JVS(2725)*X(228)-JVS(2726)*X(229)-JVS(2727)*X(230)& - &-JVS(2728)*X(231)-JVS(2729)*X(232)-JVS(2730)*X(234)-JVS(2731)*X(236)-JVS(2732)*X(237)-JVS(2733)*X(238)& - &-JVS(2734)*X(239)-JVS(2735)*X(240)-JVS(2736)*X(241)-JVS(2737)*X(242)-JVS(2738)*X(243)-JVS(2739)*X(244)& - &-JVS(2740)*X(245)-JVS(2741)*X(246)-JVS(2742)*X(247)-JVS(2743)*X(248)-JVS(2744)*X(249)-JVS(2745)*X(250)& - &-JVS(2746)*X(251)-JVS(2747)*X(252)-JVS(2748)*X(253)-JVS(2749)*X(254)-JVS(2750)*X(255)-JVS(2751)*X(256)& - &-JVS(2752)*X(257)-JVS(2753)*X(258)-JVS(2754)*X(259)-JVS(2755)*X(261) + 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) IF (DO_SLV(264)) & - X(264) = X(264)-JVS(2773)*X(96)-JVS(2774)*X(106)-JVS(2775)*X(110)-JVS(2776)*X(112)-JVS(2777)*X(133)-JVS(2778)*X(195)& - &-JVS(2779)*X(201)-JVS(2780)*X(202)-JVS(2781)*X(209)-JVS(2782)*X(217)-JVS(2783)*X(239)-JVS(2784)*X(253)& - &-JVS(2785)*X(254)-JVS(2786)*X(255)-JVS(2787)*X(256)-JVS(2788)*X(257)-JVS(2789)*X(259)-JVS(2790)*X(261) + X(264) = X(264)-JVS(1993)*X(241) IF (DO_SLV(265)) & - X(265) = X(265)-JVS(2804)*X(45)-JVS(2805)*X(90)-JVS(2806)*X(98)-JVS(2807)*X(101)-JVS(2808)*X(114)-JVS(2809)*X(115)& - &-JVS(2810)*X(118)-JVS(2811)*X(134)-JVS(2812)*X(138)-JVS(2813)*X(139)-JVS(2814)*X(140)-JVS(2815)*X(142)& - &-JVS(2816)*X(147)-JVS(2817)*X(151)-JVS(2818)*X(161)-JVS(2819)*X(173)-JVS(2820)*X(175)-JVS(2821)*X(176)& - &-JVS(2822)*X(178)-JVS(2823)*X(181)-JVS(2824)*X(189)-JVS(2825)*X(199)-JVS(2826)*X(200)-JVS(2827)*X(202)& - &-JVS(2828)*X(205)-JVS(2829)*X(208)-JVS(2830)*X(210)-JVS(2831)*X(213)-JVS(2832)*X(214)-JVS(2833)*X(215)& - &-JVS(2834)*X(216)-JVS(2835)*X(220)-JVS(2836)*X(222)-JVS(2837)*X(223)-JVS(2838)*X(224)-JVS(2839)*X(225)& - &-JVS(2840)*X(226)-JVS(2841)*X(228)-JVS(2842)*X(229)-JVS(2843)*X(230)-JVS(2844)*X(232)-JVS(2845)*X(233)& - &-JVS(2846)*X(236)-JVS(2847)*X(238)-JVS(2848)*X(240)-JVS(2849)*X(241)-JVS(2850)*X(242)-JVS(2851)*X(243)& - &-JVS(2852)*X(244)-JVS(2853)*X(245)-JVS(2854)*X(246)-JVS(2855)*X(247)-JVS(2856)*X(248)-JVS(2857)*X(249)& - &-JVS(2858)*X(250)-JVS(2859)*X(251)-JVS(2860)*X(252)-JVS(2861)*X(253)-JVS(2862)*X(254)-JVS(2863)*X(256)& - &-JVS(2864)*X(257)-JVS(2865)*X(258)-JVS(2866)*X(259)-JVS(2867)*X(261)-JVS(2868)*X(262)-JVS(2869)*X(263)& - &-JVS(2870)*X(264) + 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) IF (DO_SLV(266)) & - X(266) = X(266)-JVS(2895)*X(46)-JVS(2896)*X(67)-JVS(2897)*X(74)-JVS(2898)*X(88)-JVS(2899)*X(90)-JVS(2900)*X(100)& - &-JVS(2901)*X(106)-JVS(2902)*X(136)-JVS(2903)*X(137)-JVS(2904)*X(149)-JVS(2905)*X(179)-JVS(2906)*X(180)& - &-JVS(2907)*X(184)-JVS(2908)*X(190)-JVS(2909)*X(191)-JVS(2910)*X(201)-JVS(2911)*X(202)-JVS(2912)*X(207)& - &-JVS(2913)*X(209)-JVS(2914)*X(215)-JVS(2915)*X(216)-JVS(2916)*X(217)-JVS(2917)*X(219)-JVS(2918)*X(221)& - &-JVS(2919)*X(224)-JVS(2920)*X(225)-JVS(2921)*X(226)-JVS(2922)*X(237)-JVS(2923)*X(238)-JVS(2924)*X(239)& - &-JVS(2925)*X(244)-JVS(2926)*X(245)-JVS(2927)*X(246)-JVS(2928)*X(247)-JVS(2929)*X(248)-JVS(2930)*X(249)& - &-JVS(2931)*X(250)-JVS(2932)*X(251)-JVS(2933)*X(252)-JVS(2934)*X(253)-JVS(2935)*X(254)-JVS(2936)*X(255)& - &-JVS(2937)*X(256)-JVS(2938)*X(257)-JVS(2939)*X(258)-JVS(2940)*X(259)-JVS(2941)*X(261)-JVS(2942)*X(264) -IF (DO_SLV(267)) & - X(267) = X(267)-JVS(2957)*X(58)-JVS(2958)*X(64)-JVS(2959)*X(66)-JVS(2960)*X(72)-JVS(2961)*X(78)-JVS(2962)*X(79)& - &-JVS(2963)*X(80)-JVS(2964)*X(101)-JVS(2965)*X(105)-JVS(2966)*X(109)-JVS(2967)*X(125)-JVS(2968)*X(127)& - &-JVS(2969)*X(129)-JVS(2970)*X(132)-JVS(2971)*X(136)-JVS(2972)*X(148)-JVS(2973)*X(149)-JVS(2974)*X(150)& - &-JVS(2975)*X(153)-JVS(2976)*X(154)-JVS(2977)*X(155)-JVS(2978)*X(156)-JVS(2979)*X(157)-JVS(2980)*X(159)& - &-JVS(2981)*X(162)-JVS(2982)*X(163)-JVS(2983)*X(165)-JVS(2984)*X(169)-JVS(2985)*X(170)-JVS(2986)*X(171)& - &-JVS(2987)*X(172)-JVS(2988)*X(174)-JVS(2989)*X(175)-JVS(2990)*X(182)-JVS(2991)*X(185)-JVS(2992)*X(186)& - &-JVS(2993)*X(188)-JVS(2994)*X(189)-JVS(2995)*X(192)-JVS(2996)*X(194)-JVS(2997)*X(195)-JVS(2998)*X(200)& - &-JVS(2999)*X(204)-JVS(3000)*X(205)-JVS(3001)*X(206)-JVS(3002)*X(207)-JVS(3003)*X(208)-JVS(3004)*X(210)& - &-JVS(3005)*X(213)-JVS(3006)*X(214)-JVS(3007)*X(220)-JVS(3008)*X(221)-JVS(3009)*X(222)-JVS(3010)*X(223)& - &-JVS(3011)*X(224)-JVS(3012)*X(228)-JVS(3013)*X(229)-JVS(3014)*X(230)-JVS(3015)*X(231)-JVS(3016)*X(232)& - &-JVS(3017)*X(233)-JVS(3018)*X(234)-JVS(3019)*X(236)-JVS(3020)*X(238)-JVS(3021)*X(240)-JVS(3022)*X(241)& - &-JVS(3023)*X(242)-JVS(3024)*X(243)-JVS(3025)*X(244)-JVS(3026)*X(245)-JVS(3027)*X(246)-JVS(3028)*X(247)& - &-JVS(3029)*X(248)-JVS(3030)*X(249)-JVS(3031)*X(250)-JVS(3032)*X(251)-JVS(3033)*X(252)-JVS(3034)*X(253)& - &-JVS(3035)*X(254)-JVS(3036)*X(256)-JVS(3037)*X(257)-JVS(3038)*X(258)-JVS(3039)*X(259)-JVS(3040)*X(261)& - &-JVS(3041)*X(263)-JVS(3042)*X(264)-JVS(3043)*X(266) -IF (DO_SLV(268)) & - X(268) = X(268)-JVS(3058)*X(143)-JVS(3059)*X(203)-JVS(3060)*X(227) + 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) IF (DO_SLV(269)) & - X(269) = X(269)-JVS(3077)*X(1)-JVS(3078)*X(2)-JVS(3079)*X(3)-JVS(3080)*X(44)-JVS(3081)*X(46)-JVS(3082)*X(60)-JVS(3083)& - &*X(69)-JVS(3084)*X(73)-JVS(3085)*X(92)-JVS(3086)*X(99)-JVS(3087)*X(143)-JVS(3088)*X(203)-JVS(3089)*X(227)& - &-JVS(3090)*X(268) + 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(3106)*X(143)-JVS(3107)*X(203)-JVS(3108)*X(227)-JVS(3109)*X(268)-JVS(3110)*X(269) + 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(3125)*X(75)-JVS(3126)*X(111)-JVS(3127)*X(197)-JVS(3128)*X(227)-JVS(3129)*X(235)-JVS(3130)*X(262)& - &-JVS(3131)*X(266)-JVS(3132)*X(267)-JVS(3133)*X(268)-JVS(3134)*X(269)-JVS(3135)*X(270) + X(271) = X(271)-JVS(2134)*X(222) IF (DO_SLV(272)) & - X(272) = X(272)-JVS(3157)*X(47)-JVS(3158)*X(48)-JVS(3159)*X(52)-JVS(3160)*X(53)-JVS(3161)*X(54)-JVS(3162)*X(55)& - &-JVS(3163)*X(56)-JVS(3164)*X(57)-JVS(3165)*X(59)-JVS(3166)*X(61)-JVS(3167)*X(65)-JVS(3168)*X(71)-JVS(3169)& - &*X(77)-JVS(3170)*X(81)-JVS(3171)*X(82)-JVS(3172)*X(83)-JVS(3173)*X(84)-JVS(3174)*X(100)-JVS(3175)*X(149)& - &-JVS(3176)*X(190)-JVS(3177)*X(197)-JVS(3178)*X(235)-JVS(3179)*X(253)-JVS(3180)*X(261)-JVS(3181)*X(262)& - &-JVS(3182)*X(264)-JVS(3183)*X(266)-JVS(3184)*X(267)-JVS(3185)*X(271) + X(272) = X(272)-JVS(2142)*X(211)-JVS(2143)*X(237) IF (DO_SLV(273)) & - X(273) = X(273)-JVS(3206)*X(2)-JVS(3207)*X(47)-JVS(3208)*X(48)-JVS(3209)*X(51)-JVS(3210)*X(59)-JVS(3211)*X(71)& - &-JVS(3212)*X(73)-JVS(3213)*X(77)-JVS(3214)*X(100)-JVS(3215)*X(124)-JVS(3216)*X(128)-JVS(3217)*X(135)-JVS(3218)& - &*X(161)-JVS(3219)*X(176)-JVS(3220)*X(203)-JVS(3221)*X(221)-JVS(3222)*X(227)-JVS(3223)*X(235)-JVS(3224)*X(238)& - &-JVS(3225)*X(253)-JVS(3226)*X(254)-JVS(3227)*X(256)-JVS(3228)*X(257)-JVS(3229)*X(258)-JVS(3230)*X(259)& - &-JVS(3231)*X(260)-JVS(3232)*X(261)-JVS(3233)*X(262)-JVS(3234)*X(263)-JVS(3235)*X(264)-JVS(3236)*X(266)& - &-JVS(3237)*X(267)-JVS(3238)*X(268)-JVS(3239)*X(269)-JVS(3240)*X(270)-JVS(3241)*X(271)-JVS(3242)*X(272) + X(273) = X(273)-JVS(2153)*X(129)-JVS(2154)*X(138)-JVS(2155)*X(161)-JVS(2156)*X(191) IF (DO_SLV(274)) & - X(274) = X(274)-JVS(3262)*X(47)-JVS(3263)*X(48)-JVS(3264)*X(59)-JVS(3265)*X(71)-JVS(3266)*X(77)-JVS(3267)*X(100)& - &-JVS(3268)*X(176)-JVS(3269)*X(227)-JVS(3270)*X(260)-JVS(3271)*X(268)-JVS(3272)*X(269)-JVS(3273)*X(270)& - &-JVS(3274)*X(272)-JVS(3275)*X(273) + 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) IF (DO_SLV(275)) & - X(275) = X(275)-JVS(3294)*X(72)-JVS(3295)*X(78)-JVS(3296)*X(114)-JVS(3297)*X(124)-JVS(3298)*X(133)-JVS(3299)*X(137)& - &-JVS(3300)*X(138)-JVS(3301)*X(147)-JVS(3302)*X(149)-JVS(3303)*X(161)-JVS(3304)*X(173)-JVS(3305)*X(176)& - &-JVS(3306)*X(190)-JVS(3307)*X(211)-JVS(3308)*X(212)-JVS(3309)*X(217)-JVS(3310)*X(218)-JVS(3311)*X(219)& - &-JVS(3312)*X(221)-JVS(3313)*X(224)-JVS(3314)*X(225)-JVS(3315)*X(234)-JVS(3316)*X(235)-JVS(3317)*X(236)& - &-JVS(3318)*X(237)-JVS(3319)*X(238)-JVS(3320)*X(239)-JVS(3321)*X(240)-JVS(3322)*X(241)-JVS(3323)*X(242)& - &-JVS(3324)*X(243)-JVS(3325)*X(244)-JVS(3326)*X(245)-JVS(3327)*X(246)-JVS(3328)*X(247)-JVS(3329)*X(248)& - &-JVS(3330)*X(249)-JVS(3331)*X(250)-JVS(3332)*X(251)-JVS(3333)*X(252)-JVS(3334)*X(253)-JVS(3335)*X(254)& - &-JVS(3336)*X(255)-JVS(3337)*X(256)-JVS(3338)*X(257)-JVS(3339)*X(258)-JVS(3340)*X(259)-JVS(3341)*X(260)& - &-JVS(3342)*X(261)-JVS(3343)*X(262)-JVS(3344)*X(263)-JVS(3345)*X(264)-JVS(3346)*X(265)-JVS(3347)*X(266)& - &-JVS(3348)*X(267)-JVS(3349)*X(270)-JVS(3350)*X(271)-JVS(3351)*X(272)-JVS(3352)*X(273)-JVS(3353)*X(274) -IF (DO_SLV(276)) & - X(276) = X(276)-JVS(3371)*X(66)-JVS(3372)*X(86)-JVS(3373)*X(90)-JVS(3374)*X(122)-JVS(3375)*X(138)-JVS(3376)*X(147)& - &-JVS(3377)*X(195)-JVS(3378)*X(212)-JVS(3379)*X(224)-JVS(3380)*X(234)-JVS(3381)*X(248)-JVS(3382)*X(251)& - &-JVS(3383)*X(253)-JVS(3384)*X(260)-JVS(3385)*X(261)-JVS(3386)*X(263)-JVS(3387)*X(264)-JVS(3388)*X(265)& - &-JVS(3389)*X(266)-JVS(3390)*X(267)-JVS(3391)*X(270)-JVS(3392)*X(271)-JVS(3393)*X(272)-JVS(3394)*X(273)& - &-JVS(3395)*X(274)-JVS(3396)*X(275) + X(275) = X(275)-JVS(2189)*X(112)-JVS(2190)*X(191)-JVS(2191)*X(219) IF (DO_SLV(277)) & - X(277) = X(277)-JVS(3413)*X(203)-JVS(3414)*X(235)-JVS(3415)*X(260)-JVS(3416)*X(262)-JVS(3417)*X(268)-JVS(3418)*X(269)& - &-JVS(3419)*X(270)-JVS(3420)*X(273)-JVS(3421)*X(274)-JVS(3422)*X(275)-JVS(3423)*X(276) + X(277) = X(277)-JVS(2205)*X(111)-JVS(2206)*X(191)-JVS(2207)*X(219) IF (DO_SLV(278)) & - X(278) = X(278)-JVS(3439)*X(43)-JVS(3440)*X(46)-JVS(3441)*X(69)-JVS(3442)*X(81)-JVS(3443)*X(82)-JVS(3444)*X(83)& - &-JVS(3445)*X(84)-JVS(3446)*X(100)-JVS(3447)*X(102)-JVS(3448)*X(137)-JVS(3449)*X(149)-JVS(3450)*X(161)& - &-JVS(3451)*X(173)-JVS(3452)*X(176)-JVS(3453)*X(177)-JVS(3454)*X(190)-JVS(3455)*X(193)-JVS(3456)*X(195)& - &-JVS(3457)*X(196)-JVS(3458)*X(202)-JVS(3459)*X(203)-JVS(3460)*X(210)-JVS(3461)*X(211)-JVS(3462)*X(212)& - &-JVS(3463)*X(219)-JVS(3464)*X(221)-JVS(3465)*X(222)-JVS(3466)*X(224)-JVS(3467)*X(226)-JVS(3468)*X(231)& - &-JVS(3469)*X(234)-JVS(3470)*X(235)-JVS(3471)*X(236)-JVS(3472)*X(237)-JVS(3473)*X(238)-JVS(3474)*X(239)& - &-JVS(3475)*X(240)-JVS(3476)*X(241)-JVS(3477)*X(242)-JVS(3478)*X(243)-JVS(3479)*X(244)-JVS(3480)*X(245)& - &-JVS(3481)*X(246)-JVS(3482)*X(247)-JVS(3483)*X(248)-JVS(3484)*X(249)-JVS(3485)*X(250)-JVS(3486)*X(251)& - &-JVS(3487)*X(252)-JVS(3488)*X(253)-JVS(3489)*X(254)-JVS(3490)*X(255)-JVS(3491)*X(256)-JVS(3492)*X(257)& - &-JVS(3493)*X(258)-JVS(3494)*X(259)-JVS(3495)*X(260)-JVS(3496)*X(261)-JVS(3497)*X(262)-JVS(3498)*X(263)& - &-JVS(3499)*X(264)-JVS(3500)*X(265)-JVS(3501)*X(266)-JVS(3502)*X(267)-JVS(3503)*X(268)-JVS(3504)*X(269)& - &-JVS(3505)*X(270)-JVS(3506)*X(271)-JVS(3507)*X(272)-JVS(3508)*X(273)-JVS(3509)*X(274)-JVS(3510)*X(275)& - &-JVS(3511)*X(276)-JVS(3512)*X(277) + 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(3527)*X(60)-JVS(3528)*X(61)-JVS(3529)*X(65)-JVS(3530)*X(92)-JVS(3531)*X(121)-JVS(3532)*X(123)& - &-JVS(3533)*X(144)-JVS(3534)*X(145)-JVS(3535)*X(146)-JVS(3536)*X(150)-JVS(3537)*X(152)-JVS(3538)*X(166)& - &-JVS(3539)*X(167)-JVS(3540)*X(168)-JVS(3541)*X(179)-JVS(3542)*X(180)-JVS(3543)*X(182)-JVS(3544)*X(183)& - &-JVS(3545)*X(184)-JVS(3546)*X(186)-JVS(3547)*X(187)-JVS(3548)*X(188)-JVS(3549)*X(189)-JVS(3550)*X(191)& - &-JVS(3551)*X(193)-JVS(3552)*X(194)-JVS(3553)*X(195)-JVS(3554)*X(201)-JVS(3555)*X(203)-JVS(3556)*X(204)& - &-JVS(3557)*X(205)-JVS(3558)*X(207)-JVS(3559)*X(209)-JVS(3560)*X(210)-JVS(3561)*X(214)-JVS(3562)*X(215)& - &-JVS(3563)*X(216)-JVS(3564)*X(217)-JVS(3565)*X(220)-JVS(3566)*X(222)-JVS(3567)*X(224)-JVS(3568)*X(225)& - &-JVS(3569)*X(227)-JVS(3570)*X(228)-JVS(3571)*X(229)-JVS(3572)*X(232)-JVS(3573)*X(234)-JVS(3574)*X(235)& - &-JVS(3575)*X(237)-JVS(3576)*X(238)-JVS(3577)*X(239)-JVS(3578)*X(240)-JVS(3579)*X(242)-JVS(3580)*X(243)& - &-JVS(3581)*X(244)-JVS(3582)*X(245)-JVS(3583)*X(246)-JVS(3584)*X(247)-JVS(3585)*X(248)-JVS(3586)*X(249)& - &-JVS(3587)*X(251)-JVS(3588)*X(252)-JVS(3589)*X(253)-JVS(3590)*X(254)-JVS(3591)*X(255)-JVS(3592)*X(256)& - &-JVS(3593)*X(257)-JVS(3594)*X(258)-JVS(3595)*X(259)-JVS(3596)*X(261)-JVS(3597)*X(264)-JVS(3598)*X(265)& - &-JVS(3599)*X(266)-JVS(3600)*X(267)-JVS(3601)*X(268)-JVS(3602)*X(269)-JVS(3603)*X(270)-JVS(3604)*X(272)& - &-JVS(3605)*X(273)-JVS(3606)*X(274)-JVS(3607)*X(275)-JVS(3608)*X(276)-JVS(3609)*X(277)-JVS(3610)*X(278) + X(279) = X(279)-JVS(2231)*X(249) IF (DO_SLV(280)) & - X(280) = X(280)-JVS(3624)*X(147)-JVS(3625)*X(173)-JVS(3626)*X(203)-JVS(3627)*X(235)-JVS(3628)*X(260)-JVS(3629)*X(262)& - &-JVS(3630)*X(265)-JVS(3631)*X(266)-JVS(3632)*X(267)-JVS(3633)*X(268)-JVS(3634)*X(269)-JVS(3635)*X(270)& - &-JVS(3636)*X(271)-JVS(3637)*X(272)-JVS(3638)*X(273)-JVS(3639)*X(274)-JVS(3640)*X(275)-JVS(3641)*X(276)& - &-JVS(3642)*X(277)-JVS(3643)*X(278)-JVS(3644)*X(279) + 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) IF (DO_SLV(281)) & - X(281) = X(281)-JVS(3657)*X(67)-JVS(3658)*X(74)-JVS(3659)*X(90)-JVS(3660)*X(101)-JVS(3661)*X(102)-JVS(3662)*X(114)& - &-JVS(3663)*X(115)-JVS(3664)*X(118)-JVS(3665)*X(134)-JVS(3666)*X(142)-JVS(3667)*X(143)-JVS(3668)*X(153)& - &-JVS(3669)*X(154)-JVS(3670)*X(155)-JVS(3671)*X(161)-JVS(3672)*X(170)-JVS(3673)*X(173)-JVS(3674)*X(176)& - &-JVS(3675)*X(178)-JVS(3676)*X(179)-JVS(3677)*X(184)-JVS(3678)*X(191)-JVS(3679)*X(195)-JVS(3680)*X(199)& - &-JVS(3681)*X(203)-JVS(3682)*X(207)-JVS(3683)*X(208)-JVS(3684)*X(210)-JVS(3685)*X(214)-JVS(3686)*X(215)& - &-JVS(3687)*X(216)-JVS(3688)*X(222)-JVS(3689)*X(223)-JVS(3690)*X(224)-JVS(3691)*X(225)-JVS(3692)*X(226)& - &-JVS(3693)*X(228)-JVS(3694)*X(229)-JVS(3695)*X(230)-JVS(3696)*X(232)-JVS(3697)*X(233)-JVS(3698)*X(234)& - &-JVS(3699)*X(236)-JVS(3700)*X(238)-JVS(3701)*X(240)-JVS(3702)*X(241)-JVS(3703)*X(242)-JVS(3704)*X(243)& - &-JVS(3705)*X(244)-JVS(3706)*X(245)-JVS(3707)*X(246)-JVS(3708)*X(247)-JVS(3709)*X(248)-JVS(3710)*X(249)& - &-JVS(3711)*X(250)-JVS(3712)*X(251)-JVS(3713)*X(252)-JVS(3714)*X(253)-JVS(3715)*X(254)-JVS(3716)*X(256)& - &-JVS(3717)*X(257)-JVS(3718)*X(258)-JVS(3719)*X(259)-JVS(3720)*X(261)-JVS(3721)*X(262)-JVS(3722)*X(263)& - &-JVS(3723)*X(264)-JVS(3724)*X(265)-JVS(3725)*X(266)-JVS(3726)*X(267)-JVS(3727)*X(269)-JVS(3728)*X(270)& - &-JVS(3729)*X(272)-JVS(3730)*X(273)-JVS(3731)*X(274)-JVS(3732)*X(275)-JVS(3733)*X(276)-JVS(3734)*X(277)& - &-JVS(3735)*X(278)-JVS(3736)*X(279)-JVS(3737)*X(280) + X(281) = X(281)-JVS(2256)*X(167)-JVS(2257)*X(191)-JVS(2258)*X(219) IF (DO_SLV(282)) & - X(282) = X(282)-JVS(3749)*X(76)-JVS(3750)*X(138)-JVS(3751)*X(142)-JVS(3752)*X(147)-JVS(3753)*X(148)-JVS(3754)*X(154)& - &-JVS(3755)*X(155)-JVS(3756)*X(159)-JVS(3757)*X(160)-JVS(3758)*X(170)-JVS(3759)*X(177)-JVS(3760)*X(180)& - &-JVS(3761)*X(190)-JVS(3762)*X(191)-JVS(3763)*X(199)-JVS(3764)*X(207)-JVS(3765)*X(210)-JVS(3766)*X(215)& - &-JVS(3767)*X(216)-JVS(3768)*X(224)-JVS(3769)*X(225)-JVS(3770)*X(234)-JVS(3771)*X(238)-JVS(3772)*X(248)& - &-JVS(3773)*X(249)-JVS(3774)*X(251)-JVS(3775)*X(253)-JVS(3776)*X(255)-JVS(3777)*X(256)-JVS(3778)*X(257)& - &-JVS(3779)*X(259)-JVS(3780)*X(261)-JVS(3781)*X(263)-JVS(3782)*X(264)-JVS(3783)*X(265)-JVS(3784)*X(266)& - &-JVS(3785)*X(267)-JVS(3786)*X(269)-JVS(3787)*X(270)-JVS(3788)*X(272)-JVS(3789)*X(273)-JVS(3790)*X(274)& - &-JVS(3791)*X(275)-JVS(3792)*X(276)-JVS(3793)*X(277)-JVS(3794)*X(278)-JVS(3795)*X(279)-JVS(3796)*X(280)& - &-JVS(3797)*X(281) + 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) IF (DO_SLV(283)) & - X(283) = X(283)-JVS(3808)*X(203)-JVS(3809)*X(235)-JVS(3810)*X(260)-JVS(3811)*X(262)-JVS(3812)*X(268)-JVS(3813)*X(269)& - &-JVS(3814)*X(270)-JVS(3815)*X(273)-JVS(3816)*X(274)-JVS(3817)*X(275)-JVS(3818)*X(276)-JVS(3819)*X(277)& - &-JVS(3820)*X(278)-JVS(3821)*X(279)-JVS(3822)*X(280)-JVS(3823)*X(281)-JVS(3824)*X(282) + 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) IF (DO_SLV(284)) & - X(284) = X(284)-JVS(3834)*X(58)-JVS(3835)*X(64)-JVS(3836)*X(72)-JVS(3837)*X(74)-JVS(3838)*X(78)-JVS(3839)*X(79)& - &-JVS(3840)*X(80)-JVS(3841)*X(85)-JVS(3842)*X(87)-JVS(3843)*X(89)-JVS(3844)*X(91)-JVS(3845)*X(93)-JVS(3846)& - &*X(94)-JVS(3847)*X(95)-JVS(3848)*X(96)-JVS(3849)*X(100)-JVS(3850)*X(101)-JVS(3851)*X(102)-JVS(3852)*X(104)& - &-JVS(3853)*X(106)-JVS(3854)*X(108)-JVS(3855)*X(109)-JVS(3856)*X(110)-JVS(3857)*X(112)-JVS(3858)*X(113)& - &-JVS(3859)*X(115)-JVS(3860)*X(116)-JVS(3861)*X(117)-JVS(3862)*X(118)-JVS(3863)*X(119)-JVS(3864)*X(120)& - &-JVS(3865)*X(121)-JVS(3866)*X(123)-JVS(3867)*X(125)-JVS(3868)*X(126)-JVS(3869)*X(127)-JVS(3870)*X(129)& - &-JVS(3871)*X(130)-JVS(3872)*X(131)-JVS(3873)*X(132)-JVS(3874)*X(133)-JVS(3875)*X(137)-JVS(3876)*X(139)& - &-JVS(3877)*X(140)-JVS(3878)*X(141)-JVS(3879)*X(142)-JVS(3880)*X(144)-JVS(3881)*X(145)-JVS(3882)*X(146)& - &-JVS(3883)*X(148)-JVS(3884)*X(149)-JVS(3885)*X(150)-JVS(3886)*X(151)-JVS(3887)*X(152)-JVS(3888)*X(154)& - &-JVS(3889)*X(155)-JVS(3890)*X(156)-JVS(3891)*X(157)-JVS(3892)*X(158)-JVS(3893)*X(159)-JVS(3894)*X(162)& - &-JVS(3895)*X(163)-JVS(3896)*X(164)-JVS(3897)*X(165)-JVS(3898)*X(166)-JVS(3899)*X(167)-JVS(3900)*X(168)& - &-JVS(3901)*X(169)-JVS(3902)*X(170)-JVS(3903)*X(171)-JVS(3904)*X(172)-JVS(3905)*X(175)-JVS(3906)*X(177)& - &-JVS(3907)*X(179)-JVS(3908)*X(180)-JVS(3909)*X(181)-JVS(3910)*X(182)-JVS(3911)*X(183)-JVS(3912)*X(184)& - &-JVS(3913)*X(185)-JVS(3914)*X(186)-JVS(3915)*X(187)-JVS(3916)*X(188)-JVS(3917)*X(189)-JVS(3918)*X(190)& - &-JVS(3919)*X(191)-JVS(3920)*X(192)-JVS(3921)*X(194)-JVS(3922)*X(200)-JVS(3923)*X(201)-JVS(3924)*X(202)& - &-JVS(3925)*X(204)-JVS(3926)*X(205)-JVS(3927)*X(206)-JVS(3928)*X(207)-JVS(3929)*X(208)-JVS(3930)*X(209)& - &-JVS(3931)*X(210)-JVS(3932)*X(211)-JVS(3933)*X(212)-JVS(3934)*X(213)-JVS(3935)*X(214)-JVS(3936)*X(215)& - &-JVS(3937)*X(216)-JVS(3938)*X(217)-JVS(3939)*X(218)-JVS(3940)*X(220)-JVS(3941)*X(222)-JVS(3942)*X(223)& - &-JVS(3943)*X(224)-JVS(3944)*X(225)-JVS(3945)*X(227)-JVS(3946)*X(228)-JVS(3947)*X(229)-JVS(3948)*X(230)& - &-JVS(3949)*X(231)-JVS(3950)*X(232)-JVS(3951)*X(233)-JVS(3952)*X(234)-JVS(3953)*X(236)-JVS(3954)*X(237)& - &-JVS(3955)*X(238)-JVS(3956)*X(239)-JVS(3957)*X(240)-JVS(3958)*X(241)-JVS(3959)*X(242)-JVS(3960)*X(243)& - &-JVS(3961)*X(244)-JVS(3962)*X(245)-JVS(3963)*X(246)-JVS(3964)*X(247)-JVS(3965)*X(248)-JVS(3966)*X(249)& - &-JVS(3967)*X(250)-JVS(3968)*X(251)-JVS(3969)*X(252)-JVS(3970)*X(253)-JVS(3971)*X(254)-JVS(3972)*X(255)& - &-JVS(3973)*X(256)-JVS(3974)*X(257)-JVS(3975)*X(258)-JVS(3976)*X(259)-JVS(3977)*X(261)-JVS(3978)*X(263)& - &-JVS(3979)*X(264)-JVS(3980)*X(266)-JVS(3981)*X(267)-JVS(3982)*X(268)-JVS(3983)*X(269)-JVS(3984)*X(270)& - &-JVS(3985)*X(272)-JVS(3986)*X(273)-JVS(3987)*X(274)-JVS(3988)*X(275)-JVS(3989)*X(276)-JVS(3990)*X(277)& - &-JVS(3991)*X(278)-JVS(3992)*X(279)-JVS(3993)*X(280)-JVS(3994)*X(281)-JVS(3995)*X(282)-JVS(3996)*X(283) + X(284) = X(284)-JVS(2340)*X(44)-JVS(2341)*X(55)-JVS(2342)*X(96) IF (DO_SLV(285)) & - X(285) = X(285)-JVS(4005)*X(52)-JVS(4006)*X(53)-JVS(4007)*X(54)-JVS(4008)*X(55)-JVS(4009)*X(56)-JVS(4010)*X(57)& - &-JVS(4011)*X(59)-JVS(4012)*X(75)-JVS(4013)*X(81)-JVS(4014)*X(82)-JVS(4015)*X(83)-JVS(4016)*X(84)-JVS(4017)& - &*X(103)-JVS(4018)*X(111)-JVS(4019)*X(149)-JVS(4020)*X(197)-JVS(4021)*X(217)-JVS(4022)*X(227)-JVS(4023)*X(235)& - &-JVS(4024)*X(239)-JVS(4025)*X(254)-JVS(4026)*X(255)-JVS(4027)*X(256)-JVS(4028)*X(257)-JVS(4029)*X(259)& - &-JVS(4030)*X(261)-JVS(4031)*X(262)-JVS(4032)*X(264)-JVS(4033)*X(266)-JVS(4034)*X(267)-JVS(4035)*X(268)& - &-JVS(4036)*X(269)-JVS(4037)*X(270)-JVS(4038)*X(271)-JVS(4039)*X(272)-JVS(4040)*X(273)-JVS(4041)*X(274)& - &-JVS(4042)*X(275)-JVS(4043)*X(276)-JVS(4044)*X(277)-JVS(4045)*X(278)-JVS(4046)*X(279)-JVS(4047)*X(280)& - &-JVS(4048)*X(281)-JVS(4049)*X(282)-JVS(4050)*X(283)-JVS(4051)*X(284) + 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) IF (DO_SLV(286)) & - X(286) = X(286)-JVS(4059)*X(41)-JVS(4060)*X(43)-JVS(4061)*X(46)-JVS(4062)*X(58)-JVS(4063)*X(64)-JVS(4064)*X(66)& - &-JVS(4065)*X(68)-JVS(4066)*X(69)-JVS(4067)*X(70)-JVS(4068)*X(71)-JVS(4069)*X(72)-JVS(4070)*X(75)-JVS(4071)& - &*X(76)-JVS(4072)*X(77)-JVS(4073)*X(78)-JVS(4074)*X(79)-JVS(4075)*X(80)-JVS(4076)*X(81)-JVS(4077)*X(82)& - &-JVS(4078)*X(83)-JVS(4079)*X(84)-JVS(4080)*X(85)-JVS(4081)*X(86)-JVS(4082)*X(87)-JVS(4083)*X(88)-JVS(4084)& - &*X(89)-JVS(4085)*X(90)-JVS(4086)*X(91)-JVS(4087)*X(93)-JVS(4088)*X(94)-JVS(4089)*X(95)-JVS(4090)*X(96)& - &-JVS(4091)*X(97)-JVS(4092)*X(100)-JVS(4093)*X(101)-JVS(4094)*X(102)-JVS(4095)*X(104)-JVS(4096)*X(105)& - &-JVS(4097)*X(106)-JVS(4098)*X(107)-JVS(4099)*X(109)-JVS(4100)*X(110)-JVS(4101)*X(111)-JVS(4102)*X(112)& - &-JVS(4103)*X(113)-JVS(4104)*X(114)-JVS(4105)*X(115)-JVS(4106)*X(116)-JVS(4107)*X(117)-JVS(4108)*X(118)& - &-JVS(4109)*X(119)-JVS(4110)*X(120)-JVS(4111)*X(121)-JVS(4112)*X(122)-JVS(4113)*X(123)-JVS(4114)*X(124)& - &-JVS(4115)*X(125)-JVS(4116)*X(127)-JVS(4117)*X(128)-JVS(4118)*X(129)-JVS(4119)*X(130)-JVS(4120)*X(131)& - &-JVS(4121)*X(132)-JVS(4122)*X(133)-JVS(4123)*X(134)-JVS(4124)*X(136)-JVS(4125)*X(137)-JVS(4126)*X(139)& - &-JVS(4127)*X(140)-JVS(4128)*X(141)-JVS(4129)*X(142)-JVS(4130)*X(143)-JVS(4131)*X(144)-JVS(4132)*X(145)& - &-JVS(4133)*X(146)-JVS(4134)*X(147)-JVS(4135)*X(148)-JVS(4136)*X(149)-JVS(4137)*X(150)-JVS(4138)*X(151)& - &-JVS(4139)*X(152)-JVS(4140)*X(153)-JVS(4141)*X(154)-JVS(4142)*X(155)-JVS(4143)*X(156)-JVS(4144)*X(157)& - &-JVS(4145)*X(158)-JVS(4146)*X(159)-JVS(4147)*X(161)-JVS(4148)*X(162)-JVS(4149)*X(163)-JVS(4150)*X(164)& - &-JVS(4151)*X(165)-JVS(4152)*X(166)-JVS(4153)*X(167)-JVS(4154)*X(168)-JVS(4155)*X(169)-JVS(4156)*X(170)& - &-JVS(4157)*X(171)-JVS(4158)*X(172)-JVS(4159)*X(175)-JVS(4160)*X(176)-JVS(4161)*X(177)-JVS(4162)*X(178)& - &-JVS(4163)*X(179)-JVS(4164)*X(180)-JVS(4165)*X(181)-JVS(4166)*X(182)-JVS(4167)*X(183)-JVS(4168)*X(184)& - &-JVS(4169)*X(186)-JVS(4170)*X(187)-JVS(4171)*X(188)-JVS(4172)*X(189)-JVS(4173)*X(190)-JVS(4174)*X(191)& - &-JVS(4175)*X(192)-JVS(4176)*X(193)-JVS(4177)*X(194)-JVS(4178)*X(195)-JVS(4179)*X(196)-JVS(4180)*X(197)& - &-JVS(4181)*X(198)-JVS(4182)*X(199)-JVS(4183)*X(200)-JVS(4184)*X(201)-JVS(4185)*X(202)-JVS(4186)*X(203)& - &-JVS(4187)*X(204)-JVS(4188)*X(205)-JVS(4189)*X(206)-JVS(4190)*X(207)-JVS(4191)*X(208)-JVS(4192)*X(209)& - &-JVS(4193)*X(210)-JVS(4194)*X(211)-JVS(4195)*X(212)-JVS(4196)*X(213)-JVS(4197)*X(214)-JVS(4198)*X(215)& - &-JVS(4199)*X(216)-JVS(4200)*X(217)-JVS(4201)*X(218)-JVS(4202)*X(219)-JVS(4203)*X(220)-JVS(4204)*X(221)& - &-JVS(4205)*X(222)-JVS(4206)*X(223)-JVS(4207)*X(224)-JVS(4208)*X(225)-JVS(4209)*X(226)-JVS(4210)*X(227)& - &-JVS(4211)*X(228)-JVS(4212)*X(229)-JVS(4213)*X(230)-JVS(4214)*X(231)-JVS(4215)*X(232)-JVS(4216)*X(233)& - &-JVS(4217)*X(234)-JVS(4218)*X(235)-JVS(4219)*X(236)-JVS(4220)*X(237)-JVS(4221)*X(238)-JVS(4222)*X(239)& - &-JVS(4223)*X(240)-JVS(4224)*X(241)-JVS(4225)*X(242)-JVS(4226)*X(243)-JVS(4227)*X(244)-JVS(4228)*X(245)& - &-JVS(4229)*X(246)-JVS(4230)*X(247)-JVS(4231)*X(248)-JVS(4232)*X(249)-JVS(4233)*X(250)-JVS(4234)*X(251)& - &-JVS(4235)*X(252)-JVS(4236)*X(253)-JVS(4237)*X(254)-JVS(4238)*X(255)-JVS(4239)*X(256)-JVS(4240)*X(257)& - &-JVS(4241)*X(258)-JVS(4242)*X(259)-JVS(4243)*X(260)-JVS(4244)*X(261)-JVS(4245)*X(262)-JVS(4246)*X(263)& - &-JVS(4247)*X(264)-JVS(4248)*X(265)-JVS(4249)*X(266)-JVS(4250)*X(267)-JVS(4251)*X(268)-JVS(4252)*X(269)& - &-JVS(4253)*X(270)-JVS(4254)*X(271)-JVS(4255)*X(272)-JVS(4256)*X(273)-JVS(4257)*X(274)-JVS(4258)*X(275)& - &-JVS(4259)*X(276)-JVS(4260)*X(277)-JVS(4261)*X(278)-JVS(4262)*X(279)-JVS(4263)*X(280)-JVS(4264)*X(281)& - &-JVS(4265)*X(282)-JVS(4266)*X(283)-JVS(4267)*X(284)-JVS(4268)*X(285) + 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) IF (DO_SLV(287)) & - X(287) = X(287)-JVS(4275)*X(138)-JVS(4276)*X(173)-JVS(4277)*X(203)-JVS(4278)*X(235)-JVS(4279)*X(260)-JVS(4280)*X(262)& - &-JVS(4281)*X(265)-JVS(4282)*X(266)-JVS(4283)*X(267)-JVS(4284)*X(268)-JVS(4285)*X(269)-JVS(4286)*X(270)& - &-JVS(4287)*X(271)-JVS(4288)*X(272)-JVS(4289)*X(273)-JVS(4290)*X(274)-JVS(4291)*X(275)-JVS(4292)*X(276)& - &-JVS(4293)*X(277)-JVS(4294)*X(278)-JVS(4295)*X(279)-JVS(4296)*X(280)-JVS(4297)*X(281)-JVS(4298)*X(282)& - &-JVS(4299)*X(283)-JVS(4300)*X(284)-JVS(4301)*X(285)-JVS(4302)*X(286) + 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) IF (DO_SLV(288)) & - X(288) = X(288)-JVS(4308)*X(47)-JVS(4309)*X(48)-JVS(4310)*X(52)-JVS(4311)*X(53)-JVS(4312)*X(54)-JVS(4313)*X(55)& - &-JVS(4314)*X(56)-JVS(4315)*X(57)-JVS(4316)*X(59)-JVS(4317)*X(65)-JVS(4318)*X(66)-JVS(4319)*X(71)-JVS(4320)& - &*X(77)-JVS(4321)*X(81)-JVS(4322)*X(82)-JVS(4323)*X(83)-JVS(4324)*X(84)-JVS(4325)*X(111)-JVS(4326)*X(149)& - &-JVS(4327)*X(177)-JVS(4328)*X(190)-JVS(4329)*X(197)-JVS(4330)*X(212)-JVS(4331)*X(224)-JVS(4332)*X(227)& - &-JVS(4333)*X(234)-JVS(4334)*X(235)-JVS(4335)*X(248)-JVS(4336)*X(251)-JVS(4337)*X(253)-JVS(4338)*X(260)& - &-JVS(4339)*X(261)-JVS(4340)*X(262)-JVS(4341)*X(263)-JVS(4342)*X(264)-JVS(4343)*X(266)-JVS(4344)*X(267)& - &-JVS(4345)*X(268)-JVS(4346)*X(269)-JVS(4347)*X(270)-JVS(4348)*X(271)-JVS(4349)*X(272)-JVS(4350)*X(273)& - &-JVS(4351)*X(274)-JVS(4352)*X(275)-JVS(4353)*X(276)-JVS(4354)*X(277)-JVS(4355)*X(278)-JVS(4356)*X(279)& - &-JVS(4357)*X(280)-JVS(4358)*X(281)-JVS(4359)*X(282)-JVS(4360)*X(283)-JVS(4361)*X(284)-JVS(4362)*X(285)& - &-JVS(4363)*X(286)-JVS(4364)*X(287) + 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) IF (DO_SLV(289)) & - X(289) = X(289)-JVS(4369)*X(124)-JVS(4370)*X(161)-JVS(4371)*X(221)-JVS(4372)*X(235)-JVS(4373)*X(238)-JVS(4374)*X(253)& - &-JVS(4375)*X(254)-JVS(4376)*X(256)-JVS(4377)*X(257)-JVS(4378)*X(258)-JVS(4379)*X(259)-JVS(4380)*X(260)& - &-JVS(4381)*X(261)-JVS(4382)*X(262)-JVS(4383)*X(263)-JVS(4384)*X(264)-JVS(4385)*X(266)-JVS(4386)*X(267)& - &-JVS(4387)*X(271)-JVS(4388)*X(272)-JVS(4389)*X(273)-JVS(4390)*X(274)-JVS(4391)*X(275)-JVS(4392)*X(276)& - &-JVS(4393)*X(277)-JVS(4394)*X(278)-JVS(4395)*X(279)-JVS(4396)*X(280)-JVS(4397)*X(281)-JVS(4398)*X(282)& - &-JVS(4399)*X(283)-JVS(4400)*X(284)-JVS(4401)*X(285)-JVS(4402)*X(286)-JVS(4403)*X(287)-JVS(4404)*X(288) -IF (DO_SLV(290)) & - X(290) = X(290)-JVS(4408)*X(3)-JVS(4409)*X(43)-JVS(4410)*X(52)-JVS(4411)*X(53)-JVS(4412)*X(54)-JVS(4413)*X(55)& - &-JVS(4414)*X(56)-JVS(4415)*X(57)-JVS(4416)*X(59)-JVS(4417)*X(72)-JVS(4418)*X(75)-JVS(4419)*X(78)-JVS(4420)& - &*X(81)-JVS(4421)*X(82)-JVS(4422)*X(83)-JVS(4423)*X(84)-JVS(4424)*X(99)-JVS(4425)*X(103)-JVS(4426)*X(114)& - &-JVS(4427)*X(124)-JVS(4428)*X(133)-JVS(4429)*X(135)-JVS(4430)*X(137)-JVS(4431)*X(149)-JVS(4432)*X(161)& - &-JVS(4433)*X(176)-JVS(4434)*X(190)-JVS(4435)*X(197)-JVS(4436)*X(203)-JVS(4437)*X(211)-JVS(4438)*X(212)& - &-JVS(4439)*X(217)-JVS(4440)*X(218)-JVS(4441)*X(219)-JVS(4442)*X(221)-JVS(4443)*X(224)-JVS(4444)*X(225)& - &-JVS(4445)*X(227)-JVS(4446)*X(234)-JVS(4447)*X(235)-JVS(4448)*X(236)-JVS(4449)*X(237)-JVS(4450)*X(238)& - &-JVS(4451)*X(239)-JVS(4452)*X(240)-JVS(4453)*X(241)-JVS(4454)*X(242)-JVS(4455)*X(243)-JVS(4456)*X(244)& - &-JVS(4457)*X(245)-JVS(4458)*X(246)-JVS(4459)*X(247)-JVS(4460)*X(248)-JVS(4461)*X(249)-JVS(4462)*X(250)& - &-JVS(4463)*X(251)-JVS(4464)*X(252)-JVS(4465)*X(253)-JVS(4466)*X(254)-JVS(4467)*X(255)-JVS(4468)*X(256)& - &-JVS(4469)*X(257)-JVS(4470)*X(258)-JVS(4471)*X(259)-JVS(4472)*X(260)-JVS(4473)*X(261)-JVS(4474)*X(262)& - &-JVS(4475)*X(263)-JVS(4476)*X(264)-JVS(4477)*X(266)-JVS(4478)*X(267)-JVS(4479)*X(268)-JVS(4480)*X(269)& - &-JVS(4481)*X(270)-JVS(4482)*X(271)-JVS(4483)*X(272)-JVS(4484)*X(273)-JVS(4485)*X(274)-JVS(4486)*X(275)& - &-JVS(4487)*X(276)-JVS(4488)*X(277)-JVS(4489)*X(278)-JVS(4490)*X(279)-JVS(4491)*X(280)-JVS(4492)*X(281)& - &-JVS(4493)*X(282)-JVS(4494)*X(283)-JVS(4495)*X(284)-JVS(4496)*X(285)-JVS(4497)*X(286)-JVS(4498)*X(287)& - &-JVS(4499)*X(288)-JVS(4500)*X(289) + X(289) = X(289)-JVS(2461)*X(167)-JVS(2462)*X(191)-JVS(2463)*X(219)-JVS(2464)*X(280) IF (DO_SLV(291)) & - X(291) = X(291)-JVS(4503)*X(50)-JVS(4504)*X(51)-JVS(4505)*X(62)-JVS(4506)*X(63)-JVS(4507)*X(65)-JVS(4508)*X(67)& - &-JVS(4509)*X(68)-JVS(4510)*X(74)-JVS(4511)*X(87)-JVS(4512)*X(89)-JVS(4513)*X(91)-JVS(4514)*X(92)-JVS(4515)& - &*X(96)-JVS(4516)*X(97)-JVS(4517)*X(102)-JVS(4518)*X(113)-JVS(4519)*X(121)-JVS(4520)*X(123)-JVS(4521)*X(134)& - &-JVS(4522)*X(138)-JVS(4523)*X(139)-JVS(4524)*X(140)-JVS(4525)*X(144)-JVS(4526)*X(145)-JVS(4527)*X(146)& - &-JVS(4528)*X(147)-JVS(4529)*X(150)-JVS(4530)*X(151)-JVS(4531)*X(152)-JVS(4532)*X(153)-JVS(4533)*X(160)& - &-JVS(4534)*X(166)-JVS(4535)*X(167)-JVS(4536)*X(168)-JVS(4537)*X(173)-JVS(4538)*X(176)-JVS(4539)*X(178)& - &-JVS(4540)*X(179)-JVS(4541)*X(180)-JVS(4542)*X(181)-JVS(4543)*X(182)-JVS(4544)*X(183)-JVS(4545)*X(184)& - &-JVS(4546)*X(186)-JVS(4547)*X(187)-JVS(4548)*X(188)-JVS(4549)*X(189)-JVS(4550)*X(191)-JVS(4551)*X(193)& - &-JVS(4552)*X(194)-JVS(4553)*X(195)-JVS(4554)*X(198)-JVS(4555)*X(199)-JVS(4556)*X(200)-JVS(4557)*X(201)& - &-JVS(4558)*X(202)-JVS(4559)*X(203)-JVS(4560)*X(204)-JVS(4561)*X(205)-JVS(4562)*X(207)-JVS(4563)*X(208)& - &-JVS(4564)*X(209)-JVS(4565)*X(210)-JVS(4566)*X(213)-JVS(4567)*X(214)-JVS(4568)*X(215)-JVS(4569)*X(216)& - &-JVS(4570)*X(217)-JVS(4571)*X(220)-JVS(4572)*X(222)-JVS(4573)*X(224)-JVS(4574)*X(225)-JVS(4575)*X(227)& - &-JVS(4576)*X(228)-JVS(4577)*X(229)-JVS(4578)*X(232)-JVS(4579)*X(234)-JVS(4580)*X(235)-JVS(4581)*X(237)& - &-JVS(4582)*X(238)-JVS(4583)*X(239)-JVS(4584)*X(240)-JVS(4585)*X(241)-JVS(4586)*X(242)-JVS(4587)*X(243)& - &-JVS(4588)*X(244)-JVS(4589)*X(245)-JVS(4590)*X(246)-JVS(4591)*X(247)-JVS(4592)*X(248)-JVS(4593)*X(249)& - &-JVS(4594)*X(251)-JVS(4595)*X(252)-JVS(4596)*X(253)-JVS(4597)*X(254)-JVS(4598)*X(255)-JVS(4599)*X(256)& - &-JVS(4600)*X(257)-JVS(4601)*X(258)-JVS(4602)*X(259)-JVS(4603)*X(261)-JVS(4604)*X(262)-JVS(4605)*X(264)& - &-JVS(4606)*X(265)-JVS(4607)*X(266)-JVS(4608)*X(267)-JVS(4609)*X(268)-JVS(4610)*X(269)-JVS(4611)*X(270)& - &-JVS(4612)*X(272)-JVS(4613)*X(273)-JVS(4614)*X(274)-JVS(4615)*X(275)-JVS(4616)*X(276)-JVS(4617)*X(277)& - &-JVS(4618)*X(278)-JVS(4619)*X(279)-JVS(4620)*X(280)-JVS(4621)*X(281)-JVS(4622)*X(282)-JVS(4623)*X(283)& - &-JVS(4624)*X(284)-JVS(4625)*X(285)-JVS(4626)*X(286)-JVS(4627)*X(287)-JVS(4628)*X(288)-JVS(4629)*X(289)& - &-JVS(4630)*X(290) + X(291) = X(291)-JVS(2481)*X(219) +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) +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) +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) +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) +IF (DO_SLV(297)) & + X(297) = X(297)-JVS(2652)*X(214) +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) +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) +IF (DO_SLV(300)) & + X(300) = X(300)-JVS(2739)*X(102)-JVS(2740)*X(142)-JVS(2741)*X(201) +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) +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) +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) +IF (DO_SLV(304)) & + X(304) = X(304)-JVS(2822)*X(186)-JVS(2823)*X(192)-JVS(2824)*X(199)-JVS(2825)*X(276) +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) +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) +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) +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) +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) +IF (DO_SLV(310)) & + X(310) = X(310)-JVS(3014)*X(222)-JVS(3015)*X(276) +IF (DO_SLV(311)) & + X(311) = X(311)-JVS(3026)*X(186)-JVS(3027)*X(276)-JVS(3028)*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) +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) +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) +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) +IF (DO_SLV(316)) & + X(316) = X(316)-JVS(3146)*X(148)-JVS(3147)*X(218) +IF (DO_SLV(318)) & + X(318) = X(318)-JVS(3177)*X(251)-JVS(3178)*X(269) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +IF (DO_SLV(330)) & + X(330) = X(330)-JVS(3885)*X(170)-JVS(3886)*X(252)-JVS(3887)*X(284) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +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) +IF (DO_SLV(353)) & + X(353) = X(353)/JVS(5683) +IF (DO_SLV(352)) & + X(352) = (X(352)-JVS(5650)*X(353))/(JVS(5649)) +IF (DO_SLV(351)) & + X(351) = (X(351)-JVS(5610)*X(352)-JVS(5611)*X(353))/(JVS(5609)) +IF (DO_SLV(350)) & + X(350) = (X(350)-JVS(5488)*X(351)-JVS(5489)*X(352)-JVS(5490)*X(353))/(JVS(5487)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) +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)) IF (DO_SLV(291)) & - X(291) = X(291)/JVS(4631) + 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)) IF (DO_SLV(290)) & - X(290) = (X(290)-JVS(4502)*X(291))/(JVS(4501)) + 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)) IF (DO_SLV(289)) & - X(289) = (X(289)-JVS(4406)*X(290)-JVS(4407)*X(291))/(JVS(4405)) + 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)) IF (DO_SLV(288)) & - X(288) = (X(288)-JVS(4366)*X(289)-JVS(4367)*X(290)-JVS(4368)*X(291))/(JVS(4365)) + 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)) IF (DO_SLV(287)) & - X(287) = (X(287)-JVS(4304)*X(288)-JVS(4305)*X(289)-JVS(4306)*X(290)-JVS(4307)*X(291))/(JVS(4303)) + 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)) IF (DO_SLV(286)) & - X(286) = (X(286)-JVS(4270)*X(287)-JVS(4271)*X(288)-JVS(4272)*X(289)-JVS(4273)*X(290)-JVS(4274)*X(291))/(JVS(4269)) + 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)) IF (DO_SLV(285)) & - X(285) = (X(285)-JVS(4053)*X(286)-JVS(4054)*X(287)-JVS(4055)*X(288)-JVS(4056)*X(289)-JVS(4057)*X(290)-JVS(4058)& - &*X(291))/(JVS(4052)) + 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)) IF (DO_SLV(284)) & - X(284) = (X(284)-JVS(3998)*X(285)-JVS(3999)*X(286)-JVS(4000)*X(287)-JVS(4001)*X(288)-JVS(4002)*X(289)-JVS(4003)*X(290)& - &-JVS(4004)*X(291))/(JVS(3997)) + 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)) IF (DO_SLV(283)) & - X(283) = (X(283)-JVS(3826)*X(284)-JVS(3827)*X(285)-JVS(3828)*X(286)-JVS(3829)*X(287)-JVS(3830)*X(288)-JVS(3831)*X(289)& - &-JVS(3832)*X(290)-JVS(3833)*X(291))/(JVS(3825)) + 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)) IF (DO_SLV(282)) & - X(282) = (X(282)-JVS(3799)*X(283)-JVS(3800)*X(284)-JVS(3801)*X(285)-JVS(3802)*X(286)-JVS(3803)*X(287)-JVS(3804)*X(288)& - &-JVS(3805)*X(289)-JVS(3806)*X(290)-JVS(3807)*X(291))/(JVS(3798)) + 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)) IF (DO_SLV(281)) & - X(281) = (X(281)-JVS(3739)*X(282)-JVS(3740)*X(283)-JVS(3741)*X(284)-JVS(3742)*X(285)-JVS(3743)*X(286)-JVS(3744)*X(287)& - &-JVS(3745)*X(288)-JVS(3746)*X(289)-JVS(3747)*X(290)-JVS(3748)*X(291))/(JVS(3738)) + 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)) IF (DO_SLV(280)) & - X(280) = (X(280)-JVS(3646)*X(281)-JVS(3647)*X(282)-JVS(3648)*X(283)-JVS(3649)*X(284)-JVS(3650)*X(285)-JVS(3651)*X(286)& - &-JVS(3652)*X(287)-JVS(3653)*X(288)-JVS(3654)*X(289)-JVS(3655)*X(290)-JVS(3656)*X(291))/(JVS(3645)) + 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)) IF (DO_SLV(279)) & - X(279) = (X(279)-JVS(3612)*X(280)-JVS(3613)*X(281)-JVS(3614)*X(282)-JVS(3615)*X(283)-JVS(3616)*X(284)-JVS(3617)*X(285)& - &-JVS(3618)*X(286)-JVS(3619)*X(287)-JVS(3620)*X(288)-JVS(3621)*X(289)-JVS(3622)*X(290)-JVS(3623)*X(291))& - &/(JVS(3611)) + 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)) IF (DO_SLV(278)) & - X(278) = (X(278)-JVS(3514)*X(279)-JVS(3515)*X(280)-JVS(3516)*X(281)-JVS(3517)*X(282)-JVS(3518)*X(283)-JVS(3519)*X(284)& - &-JVS(3520)*X(285)-JVS(3521)*X(286)-JVS(3522)*X(287)-JVS(3523)*X(288)-JVS(3524)*X(289)-JVS(3525)*X(290)& - &-JVS(3526)*X(291))/(JVS(3513)) + 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)) IF (DO_SLV(277)) & - X(277) = (X(277)-JVS(3425)*X(278)-JVS(3426)*X(279)-JVS(3427)*X(280)-JVS(3428)*X(281)-JVS(3429)*X(282)-JVS(3430)*X(283)& - &-JVS(3431)*X(284)-JVS(3432)*X(285)-JVS(3433)*X(286)-JVS(3434)*X(287)-JVS(3435)*X(288)-JVS(3436)*X(289)& - &-JVS(3437)*X(290)-JVS(3438)*X(291))/(JVS(3424)) + 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)) IF (DO_SLV(276)) & - X(276) = (X(276)-JVS(3398)*X(277)-JVS(3399)*X(278)-JVS(3400)*X(279)-JVS(3401)*X(280)-JVS(3402)*X(281)-JVS(3403)*X(282)& - &-JVS(3404)*X(283)-JVS(3405)*X(284)-JVS(3406)*X(285)-JVS(3407)*X(286)-JVS(3408)*X(287)-JVS(3409)*X(288)& - &-JVS(3410)*X(289)-JVS(3411)*X(290)-JVS(3412)*X(291))/(JVS(3397)) + X(276) = (X(276)-JVS(2201)*X(340)-JVS(2202)*X(341)-JVS(2203)*X(345)-JVS(2204)*X(351))/(JVS(2200)) IF (DO_SLV(275)) & - X(275) = (X(275)-JVS(3355)*X(276)-JVS(3356)*X(277)-JVS(3357)*X(278)-JVS(3358)*X(279)-JVS(3359)*X(280)-JVS(3360)*X(281)& - &-JVS(3361)*X(282)-JVS(3362)*X(283)-JVS(3363)*X(284)-JVS(3364)*X(285)-JVS(3365)*X(286)-JVS(3366)*X(287)& - &-JVS(3367)*X(288)-JVS(3368)*X(289)-JVS(3369)*X(290)-JVS(3370)*X(291))/(JVS(3354)) + 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)) IF (DO_SLV(274)) & - X(274) = (X(274)-JVS(3277)*X(275)-JVS(3278)*X(276)-JVS(3279)*X(277)-JVS(3280)*X(278)-JVS(3281)*X(279)-JVS(3282)*X(280)& - &-JVS(3283)*X(281)-JVS(3284)*X(282)-JVS(3285)*X(283)-JVS(3286)*X(284)-JVS(3287)*X(285)-JVS(3288)*X(286)& - &-JVS(3289)*X(287)-JVS(3290)*X(288)-JVS(3291)*X(289)-JVS(3292)*X(290)-JVS(3293)*X(291))/(JVS(3276)) + 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)) IF (DO_SLV(273)) & - X(273) = (X(273)-JVS(3244)*X(274)-JVS(3245)*X(275)-JVS(3246)*X(276)-JVS(3247)*X(277)-JVS(3248)*X(278)-JVS(3249)*X(279)& - &-JVS(3250)*X(280)-JVS(3251)*X(281)-JVS(3252)*X(282)-JVS(3253)*X(283)-JVS(3254)*X(284)-JVS(3255)*X(285)& - &-JVS(3256)*X(286)-JVS(3257)*X(287)-JVS(3258)*X(288)-JVS(3259)*X(289)-JVS(3260)*X(290)-JVS(3261)*X(291))& - &/(JVS(3243)) + 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)) IF (DO_SLV(272)) & - X(272) = (X(272)-JVS(3187)*X(273)-JVS(3188)*X(274)-JVS(3189)*X(275)-JVS(3190)*X(276)-JVS(3191)*X(277)-JVS(3192)*X(278)& - &-JVS(3193)*X(279)-JVS(3194)*X(280)-JVS(3195)*X(281)-JVS(3196)*X(282)-JVS(3197)*X(283)-JVS(3198)*X(284)& - &-JVS(3199)*X(285)-JVS(3200)*X(286)-JVS(3201)*X(287)-JVS(3202)*X(288)-JVS(3203)*X(289)-JVS(3204)*X(290)& - &-JVS(3205)*X(291))/(JVS(3186)) + 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)) IF (DO_SLV(271)) & - X(271) = (X(271)-JVS(3137)*X(272)-JVS(3138)*X(273)-JVS(3139)*X(274)-JVS(3140)*X(275)-JVS(3141)*X(276)-JVS(3142)*X(277)& - &-JVS(3143)*X(278)-JVS(3144)*X(279)-JVS(3145)*X(280)-JVS(3146)*X(281)-JVS(3147)*X(282)-JVS(3148)*X(283)& - &-JVS(3149)*X(284)-JVS(3150)*X(285)-JVS(3151)*X(286)-JVS(3152)*X(287)-JVS(3153)*X(288)-JVS(3154)*X(289)& - &-JVS(3155)*X(290)-JVS(3156)*X(291))/(JVS(3136)) + 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)) IF (DO_SLV(270)) & - X(270) = (X(270)-JVS(3112)*X(274)-JVS(3113)*X(277)-JVS(3114)*X(278)-JVS(3115)*X(279)-JVS(3116)*X(280)-JVS(3117)*X(281)& - &-JVS(3118)*X(282)-JVS(3119)*X(283)-JVS(3120)*X(284)-JVS(3121)*X(285)-JVS(3122)*X(286)-JVS(3123)*X(287)& - &-JVS(3124)*X(291))/(JVS(3111)) + 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)) IF (DO_SLV(269)) & - X(269) = (X(269)-JVS(3092)*X(270)-JVS(3093)*X(274)-JVS(3094)*X(277)-JVS(3095)*X(278)-JVS(3096)*X(279)-JVS(3097)*X(280)& - &-JVS(3098)*X(281)-JVS(3099)*X(282)-JVS(3100)*X(283)-JVS(3101)*X(284)-JVS(3102)*X(285)-JVS(3103)*X(286)& - &-JVS(3104)*X(287)-JVS(3105)*X(291))/(JVS(3091)) + 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)) IF (DO_SLV(268)) & - X(268) = (X(268)-JVS(3062)*X(269)-JVS(3063)*X(270)-JVS(3064)*X(274)-JVS(3065)*X(277)-JVS(3066)*X(278)-JVS(3067)*X(279)& - &-JVS(3068)*X(280)-JVS(3069)*X(281)-JVS(3070)*X(282)-JVS(3071)*X(283)-JVS(3072)*X(284)-JVS(3073)*X(285)& - &-JVS(3074)*X(286)-JVS(3075)*X(287)-JVS(3076)*X(291))/(JVS(3061)) + 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)) IF (DO_SLV(267)) & - X(267) = (X(267)-JVS(3045)*X(272)-JVS(3046)*X(273)-JVS(3047)*X(276)-JVS(3048)*X(278)-JVS(3049)*X(279)-JVS(3050)*X(281)& - &-JVS(3051)*X(282)-JVS(3052)*X(284)-JVS(3053)*X(285)-JVS(3054)*X(286)-JVS(3055)*X(288)-JVS(3056)*X(290)& - &-JVS(3057)*X(291))/(JVS(3044)) + 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)) IF (DO_SLV(266)) & - X(266) = (X(266)-JVS(2944)*X(267)-JVS(2945)*X(272)-JVS(2946)*X(273)-JVS(2947)*X(276)-JVS(2948)*X(278)-JVS(2949)*X(279)& - &-JVS(2950)*X(281)-JVS(2951)*X(282)-JVS(2952)*X(284)-JVS(2953)*X(285)-JVS(2954)*X(286)-JVS(2955)*X(290)& - &-JVS(2956)*X(291))/(JVS(2943)) + 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)) IF (DO_SLV(265)) & - X(265) = (X(265)-JVS(2872)*X(266)-JVS(2873)*X(267)-JVS(2874)*X(270)-JVS(2875)*X(272)-JVS(2876)*X(273)-JVS(2877)*X(274)& - &-JVS(2878)*X(275)-JVS(2879)*X(276)-JVS(2880)*X(277)-JVS(2881)*X(278)-JVS(2882)*X(279)-JVS(2883)*X(280)& - &-JVS(2884)*X(281)-JVS(2885)*X(282)-JVS(2886)*X(283)-JVS(2887)*X(284)-JVS(2888)*X(285)-JVS(2889)*X(286)& - &-JVS(2890)*X(287)-JVS(2891)*X(288)-JVS(2892)*X(289)-JVS(2893)*X(290)-JVS(2894)*X(291))/(JVS(2871)) + 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)) IF (DO_SLV(264)) & - X(264) = (X(264)-JVS(2792)*X(266)-JVS(2793)*X(267)-JVS(2794)*X(273)-JVS(2795)*X(276)-JVS(2796)*X(278)-JVS(2797)*X(279)& - &-JVS(2798)*X(281)-JVS(2799)*X(282)-JVS(2800)*X(284)-JVS(2801)*X(286)-JVS(2802)*X(290)-JVS(2803)*X(291))& - &/(JVS(2791)) + 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)) IF (DO_SLV(263)) & - X(263) = (X(263)-JVS(2757)*X(264)-JVS(2758)*X(266)-JVS(2759)*X(267)-JVS(2760)*X(272)-JVS(2761)*X(273)-JVS(2762)*X(276)& - &-JVS(2763)*X(278)-JVS(2764)*X(279)-JVS(2765)*X(281)-JVS(2766)*X(282)-JVS(2767)*X(284)-JVS(2768)*X(285)& - &-JVS(2769)*X(286)-JVS(2770)*X(288)-JVS(2771)*X(290)-JVS(2772)*X(291))/(JVS(2756)) + 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)) IF (DO_SLV(262)) & - X(262) = (X(262)-JVS(2656)*X(275)-JVS(2657)*X(277)-JVS(2658)*X(278)-JVS(2659)*X(280)-JVS(2660)*X(283)-JVS(2661)*X(285)& - &-JVS(2662)*X(286)-JVS(2663)*X(287)-JVS(2664)*X(288)-JVS(2665)*X(289)-JVS(2666)*X(290)-JVS(2667)*X(291))& - &/(JVS(2655)) + 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)) IF (DO_SLV(261)) & - X(261) = (X(261)-JVS(2645)*X(264)-JVS(2646)*X(266)-JVS(2647)*X(273)-JVS(2648)*X(279)-JVS(2649)*X(281)-JVS(2650)*X(282)& - &-JVS(2651)*X(284)-JVS(2652)*X(286)-JVS(2653)*X(290)-JVS(2654)*X(291))/(JVS(2644)) + 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)) IF (DO_SLV(260)) & - X(260) = (X(260)-JVS(2567)*X(273)-JVS(2568)*X(274)-JVS(2569)*X(275)-JVS(2570)*X(276)-JVS(2571)*X(277)-JVS(2572)*X(278)& - &-JVS(2573)*X(280)-JVS(2574)*X(282)-JVS(2575)*X(283)-JVS(2576)*X(284)-JVS(2577)*X(286)-JVS(2578)*X(287)& - &-JVS(2579)*X(288)-JVS(2580)*X(289)-JVS(2581)*X(291))/(JVS(2566)) + 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)) IF (DO_SLV(259)) & - X(259) = (X(259)-JVS(2554)*X(261)-JVS(2555)*X(266)-JVS(2556)*X(273)-JVS(2557)*X(279)-JVS(2558)*X(281)-JVS(2559)*X(282)& - &-JVS(2560)*X(284)-JVS(2561)*X(286)-JVS(2562)*X(290)-JVS(2563)*X(291))/(JVS(2553)) + 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)) IF (DO_SLV(258)) & - X(258) = (X(258)-JVS(2516)*X(259)-JVS(2517)*X(261)-JVS(2518)*X(266)-JVS(2519)*X(273)-JVS(2520)*X(279)-JVS(2521)*X(281)& - &-JVS(2522)*X(282)-JVS(2523)*X(284)-JVS(2524)*X(286)-JVS(2525)*X(290)-JVS(2526)*X(291))/(JVS(2515)) + 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)) IF (DO_SLV(257)) & - X(257) = (X(257)-JVS(2497)*X(261)-JVS(2498)*X(266)-JVS(2499)*X(279)-JVS(2500)*X(281)-JVS(2501)*X(282)-JVS(2502)*X(284)& - &-JVS(2503)*X(286)-JVS(2504)*X(290)-JVS(2505)*X(291))/(JVS(2496)) + 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)) IF (DO_SLV(256)) & - X(256) = (X(256)-JVS(2483)*X(257)-JVS(2484)*X(261)-JVS(2485)*X(266)-JVS(2486)*X(279)-JVS(2487)*X(281)-JVS(2488)*X(282)& - &-JVS(2489)*X(284)-JVS(2490)*X(286)-JVS(2491)*X(290))/(JVS(2482)) + 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)) IF (DO_SLV(255)) & - X(255) = (X(255)-JVS(2464)*X(256)-JVS(2465)*X(257)-JVS(2466)*X(259)-JVS(2467)*X(261)-JVS(2468)*X(266)-JVS(2469)*X(279)& - &-JVS(2470)*X(281)-JVS(2471)*X(282)-JVS(2472)*X(284)-JVS(2473)*X(286)-JVS(2474)*X(290)-JVS(2475)*X(291))& - &/(JVS(2463)) + 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)) IF (DO_SLV(254)) & - X(254) = (X(254)-JVS(2445)*X(256)-JVS(2446)*X(257)-JVS(2447)*X(261)-JVS(2448)*X(266)-JVS(2449)*X(279)-JVS(2450)*X(281)& - &-JVS(2451)*X(282)-JVS(2452)*X(284)-JVS(2453)*X(286))/(JVS(2444)) + 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)) IF (DO_SLV(253)) & - X(253) = (X(253)-JVS(2430)*X(261)-JVS(2431)*X(266)-JVS(2432)*X(273)-JVS(2433)*X(279)-JVS(2434)*X(281)-JVS(2435)*X(282)& - &-JVS(2436)*X(284)-JVS(2437)*X(286)-JVS(2438)*X(290))/(JVS(2429)) + 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)) IF (DO_SLV(252)) & - X(252) = (X(252)-JVS(2412)*X(254)-JVS(2413)*X(256)-JVS(2414)*X(257)-JVS(2415)*X(258)-JVS(2416)*X(261)-JVS(2417)*X(266)& - &-JVS(2418)*X(273)-JVS(2419)*X(279)-JVS(2420)*X(281)-JVS(2421)*X(282)-JVS(2422)*X(284)-JVS(2423)*X(286)& - &-JVS(2424)*X(290)-JVS(2425)*X(291))/(JVS(2411)) + 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)) IF (DO_SLV(251)) & - X(251) = (X(251)-JVS(2389)*X(261)-JVS(2390)*X(266)-JVS(2391)*X(279)-JVS(2392)*X(281)-JVS(2393)*X(282)-JVS(2394)*X(284)& - &-JVS(2395)*X(286)-JVS(2396)*X(290))/(JVS(2388)) + 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)) IF (DO_SLV(250)) & - X(250) = (X(250)-JVS(2360)*X(251)-JVS(2361)*X(252)-JVS(2362)*X(253)-JVS(2363)*X(261)-JVS(2364)*X(266)-JVS(2365)*X(273)& - &-JVS(2366)*X(279)-JVS(2367)*X(281)-JVS(2368)*X(282)-JVS(2369)*X(284)-JVS(2370)*X(286)-JVS(2371)*X(290)& - &-JVS(2372)*X(291))/(JVS(2359)) + 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)) IF (DO_SLV(249)) & - X(249) = (X(249)-JVS(2306)*X(251)-JVS(2307)*X(261)-JVS(2308)*X(266)-JVS(2309)*X(279)-JVS(2310)*X(281)-JVS(2311)*X(282)& - &-JVS(2312)*X(284)-JVS(2313)*X(286)-JVS(2314)*X(290)-JVS(2315)*X(291))/(JVS(2305)) + 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)) IF (DO_SLV(248)) & - X(248) = (X(248)-JVS(2287)*X(261)-JVS(2288)*X(266)-JVS(2289)*X(279)-JVS(2290)*X(281)-JVS(2291)*X(282)-JVS(2292)*X(284)& - &-JVS(2293)*X(286)-JVS(2294)*X(290))/(JVS(2286)) + 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)) IF (DO_SLV(247)) & - X(247) = (X(247)-JVS(2263)*X(261)-JVS(2264)*X(266)-JVS(2265)*X(279)-JVS(2266)*X(281)-JVS(2267)*X(282)-JVS(2268)*X(284)& - &-JVS(2269)*X(286)-JVS(2270)*X(290))/(JVS(2262)) + 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)) IF (DO_SLV(246)) & - X(246) = (X(246)-JVS(2250)*X(247)-JVS(2251)*X(261)-JVS(2252)*X(266)-JVS(2253)*X(279)-JVS(2254)*X(281)-JVS(2255)*X(282)& - &-JVS(2256)*X(284)-JVS(2257)*X(286)-JVS(2258)*X(290))/(JVS(2249)) + 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)) IF (DO_SLV(245)) & - X(245) = (X(245)-JVS(2239)*X(246)-JVS(2240)*X(266)-JVS(2241)*X(279)-JVS(2242)*X(281)-JVS(2243)*X(282)-JVS(2244)*X(284)& - &-JVS(2245)*X(286)-JVS(2246)*X(290))/(JVS(2238)) + 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)) IF (DO_SLV(244)) & - X(244) = (X(244)-JVS(2224)*X(245)-JVS(2225)*X(246)-JVS(2226)*X(266)-JVS(2227)*X(279)-JVS(2228)*X(281)-JVS(2229)*X(282)& - &-JVS(2230)*X(284)-JVS(2231)*X(286)-JVS(2232)*X(290))/(JVS(2223)) + 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)) IF (DO_SLV(243)) & - X(243) = (X(243)-JVS(2209)*X(244)-JVS(2210)*X(245)-JVS(2211)*X(246)-JVS(2212)*X(247)-JVS(2213)*X(261)-JVS(2214)*X(266)& - &-JVS(2215)*X(279)-JVS(2216)*X(281)-JVS(2217)*X(284)-JVS(2218)*X(286))/(JVS(2208)) + 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)) IF (DO_SLV(242)) & - X(242) = (X(242)-JVS(2186)*X(243)-JVS(2187)*X(244)-JVS(2188)*X(245)-JVS(2189)*X(246)-JVS(2190)*X(247)-JVS(2191)*X(261)& - &-JVS(2192)*X(266)-JVS(2193)*X(279)-JVS(2194)*X(281)-JVS(2195)*X(284)-JVS(2196)*X(286))/(JVS(2185)) + 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)) IF (DO_SLV(241)) & - X(241) = (X(241)-JVS(2155)*X(242)-JVS(2156)*X(243)-JVS(2157)*X(244)-JVS(2158)*X(245)-JVS(2159)*X(246)-JVS(2160)*X(247)& - &-JVS(2161)*X(248)-JVS(2162)*X(261)-JVS(2163)*X(266)-JVS(2164)*X(279)-JVS(2165)*X(281)-JVS(2166)*X(282)& - &-JVS(2167)*X(284)-JVS(2168)*X(286)-JVS(2169)*X(290)-JVS(2170)*X(291))/(JVS(2154)) + 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)) IF (DO_SLV(240)) & - X(240) = (X(240)-JVS(2132)*X(243)-JVS(2133)*X(244)-JVS(2134)*X(245)-JVS(2135)*X(246)-JVS(2136)*X(247)-JVS(2137)*X(261)& - &-JVS(2138)*X(266)-JVS(2139)*X(279)-JVS(2140)*X(281)-JVS(2141)*X(284)-JVS(2142)*X(286))/(JVS(2131)) + 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)) IF (DO_SLV(239)) & - X(239) = (X(239)-JVS(2113)*X(254)-JVS(2114)*X(255)-JVS(2115)*X(256)-JVS(2116)*X(257)-JVS(2117)*X(259)-JVS(2118)*X(261)& - &-JVS(2119)*X(266)-JVS(2120)*X(273)-JVS(2121)*X(279)-JVS(2122)*X(281)-JVS(2123)*X(282)-JVS(2124)*X(284)& - &-JVS(2125)*X(286)-JVS(2126)*X(290))/(JVS(2112)) + 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)) IF (DO_SLV(238)) & - X(238) = (X(238)-JVS(2099)*X(261)-JVS(2100)*X(266)-JVS(2101)*X(279)-JVS(2102)*X(281)-JVS(2103)*X(282)-JVS(2104)*X(284)& - &-JVS(2105)*X(286))/(JVS(2098)) + 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)) IF (DO_SLV(237)) & - X(237) = (X(237)-JVS(2081)*X(238)-JVS(2082)*X(254)-JVS(2083)*X(255)-JVS(2084)*X(256)-JVS(2085)*X(257)-JVS(2086)*X(259)& - &-JVS(2087)*X(261)-JVS(2088)*X(266)-JVS(2089)*X(273)-JVS(2090)*X(279)-JVS(2091)*X(281)-JVS(2092)*X(282)& - &-JVS(2093)*X(284)-JVS(2094)*X(286)-JVS(2095)*X(290))/(JVS(2080)) + 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)) IF (DO_SLV(236)) & - X(236) = (X(236)-JVS(2058)*X(240)-JVS(2059)*X(241)-JVS(2060)*X(242)-JVS(2061)*X(243)-JVS(2062)*X(244)-JVS(2063)*X(245)& - &-JVS(2064)*X(246)-JVS(2065)*X(247)-JVS(2066)*X(248)-JVS(2067)*X(261)-JVS(2068)*X(266)-JVS(2069)*X(279)& - &-JVS(2070)*X(281)-JVS(2071)*X(282)-JVS(2072)*X(284)-JVS(2073)*X(286)-JVS(2074)*X(290)-JVS(2075)*X(291))& - &/(JVS(2057)) + 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)) IF (DO_SLV(235)) & - X(235) = (X(235)-JVS(2020)*X(275)-JVS(2021)*X(277)-JVS(2022)*X(278)-JVS(2023)*X(280)-JVS(2024)*X(281)-JVS(2025)*X(283)& - &-JVS(2026)*X(286)-JVS(2027)*X(287)-JVS(2028)*X(289)-JVS(2029)*X(291))/(JVS(2019)) + 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)) IF (DO_SLV(234)) & - X(234) = (X(234)-JVS(2006)*X(248)-JVS(2007)*X(251)-JVS(2008)*X(253)-JVS(2009)*X(267)-JVS(2010)*X(276)-JVS(2011)*X(278)& - &-JVS(2012)*X(279)-JVS(2013)*X(281)-JVS(2014)*X(282)-JVS(2015)*X(286)-JVS(2016)*X(290)-JVS(2017)*X(291))& - &/(JVS(2005)) + 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)) IF (DO_SLV(233)) & - X(233) = (X(233)-JVS(1979)*X(240)-JVS(1980)*X(241)-JVS(1981)*X(242)-JVS(1982)*X(243)-JVS(1983)*X(244)-JVS(1984)*X(245)& - &-JVS(1985)*X(246)-JVS(1986)*X(247)-JVS(1987)*X(248)-JVS(1988)*X(249)-JVS(1989)*X(250)-JVS(1990)*X(251)& - &-JVS(1991)*X(252)-JVS(1992)*X(253)-JVS(1993)*X(254)-JVS(1994)*X(261)-JVS(1995)*X(266)-JVS(1996)*X(279)& - &-JVS(1997)*X(281)-JVS(1998)*X(282)-JVS(1999)*X(284)-JVS(2000)*X(286)-JVS(2001)*X(290)-JVS(2002)*X(291))& - &/(JVS(1978)) + 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)) IF (DO_SLV(232)) & - X(232) = (X(232)-JVS(1932)*X(242)-JVS(1933)*X(243)-JVS(1934)*X(246)-JVS(1935)*X(247)-JVS(1936)*X(261)-JVS(1937)*X(266)& - &-JVS(1938)*X(279)-JVS(1939)*X(281)-JVS(1940)*X(284)-JVS(1941)*X(286))/(JVS(1931)) + 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)) IF (DO_SLV(231)) & - X(231) = (X(231)-JVS(1913)*X(240)-JVS(1914)*X(242)-JVS(1915)*X(244)-JVS(1916)*X(245)-JVS(1917)*X(246)-JVS(1918)*X(247)& - &-JVS(1919)*X(251)-JVS(1920)*X(266)-JVS(1921)*X(279)-JVS(1922)*X(281)-JVS(1923)*X(282)-JVS(1924)*X(284)& - &-JVS(1925)*X(286)-JVS(1926)*X(290)-JVS(1927)*X(291))/(JVS(1912)) + X(231) = (X(231)-JVS(1584)*X(276)-JVS(1585)*X(304)-JVS(1586)*X(337)-JVS(1587)*X(345))/(JVS(1583)) IF (DO_SLV(230)) & - X(230) = (X(230)-JVS(1879)*X(240)-JVS(1880)*X(242)-JVS(1881)*X(244)-JVS(1882)*X(245)-JVS(1883)*X(246)-JVS(1884)*X(247)& - &-JVS(1885)*X(248)-JVS(1886)*X(266)-JVS(1887)*X(279)-JVS(1888)*X(281)-JVS(1889)*X(282)-JVS(1890)*X(284)& - &-JVS(1891)*X(286)-JVS(1892)*X(290)-JVS(1893)*X(291))/(JVS(1878)) + X(230) = (X(230)-JVS(1578)*X(276)-JVS(1579)*X(305)-JVS(1580)*X(337)-JVS(1581)*X(345))/(JVS(1577)) IF (DO_SLV(229)) & - X(229) = (X(229)-JVS(1853)*X(244)-JVS(1854)*X(245)-JVS(1855)*X(246)-JVS(1856)*X(247)-JVS(1857)*X(266)-JVS(1858)*X(279)& - &-JVS(1859)*X(284)-JVS(1860)*X(286))/(JVS(1852)) + 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)) IF (DO_SLV(228)) & - X(228) = (X(228)-JVS(1832)*X(229)-JVS(1833)*X(244)-JVS(1834)*X(245)-JVS(1835)*X(246)-JVS(1836)*X(247)-JVS(1837)*X(266)& - &-JVS(1838)*X(279)-JVS(1839)*X(284)-JVS(1840)*X(286))/(JVS(1831)) + 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)) IF (DO_SLV(227)) & - X(227) = (X(227)-JVS(1811)*X(268)-JVS(1812)*X(269)-JVS(1813)*X(270)-JVS(1814)*X(274)-JVS(1815)*X(279)-JVS(1816)*X(282)& - &-JVS(1817)*X(284)-JVS(1818)*X(285)-JVS(1819)*X(286)-JVS(1820)*X(291))/(JVS(1810)) + 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)) IF (DO_SLV(226)) & - X(226) = (X(226)-JVS(1796)*X(238)-JVS(1797)*X(254)-JVS(1798)*X(256)-JVS(1799)*X(257)-JVS(1800)*X(261)-JVS(1801)*X(266)& - &-JVS(1802)*X(279)-JVS(1803)*X(281)-JVS(1804)*X(282)-JVS(1805)*X(284)-JVS(1806)*X(286))/(JVS(1795)) + X(226) = (X(226)-JVS(1542)*X(311)-JVS(1543)*X(337)-JVS(1544)*X(345)-JVS(1545)*X(346))/(JVS(1541)) IF (DO_SLV(225)) & - X(225) = (X(225)-JVS(1780)*X(261)-JVS(1781)*X(266)-JVS(1782)*X(279)-JVS(1783)*X(281)-JVS(1784)*X(282)-JVS(1785)*X(284)& - &-JVS(1786)*X(286))/(JVS(1779)) + 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)) IF (DO_SLV(224)) & - X(224) = (X(224)-JVS(1774)*X(281)-JVS(1775)*X(282)-JVS(1776)*X(286)-JVS(1777)*X(290))/(JVS(1773)) + X(224) = (X(224)-JVS(1524)*X(304)-JVS(1525)*X(337)-JVS(1526)*X(345)-JVS(1527)*X(346))/(JVS(1523)) IF (DO_SLV(223)) & - X(223) = (X(223)-JVS(1754)*X(224)-JVS(1755)*X(228)-JVS(1756)*X(229)-JVS(1757)*X(230)-JVS(1758)*X(236)-JVS(1759)*X(240)& - &-JVS(1760)*X(241)-JVS(1761)*X(242)-JVS(1762)*X(244)-JVS(1763)*X(245)-JVS(1764)*X(246)-JVS(1765)*X(247)& - &-JVS(1766)*X(266)-JVS(1767)*X(279)-JVS(1768)*X(281)-JVS(1769)*X(282)-JVS(1770)*X(284)-JVS(1771)*X(286)& - &-JVS(1772)*X(291))/(JVS(1753)) + X(223) = (X(223)-JVS(1517)*X(305)-JVS(1518)*X(337)-JVS(1519)*X(345)-JVS(1520)*X(346))/(JVS(1516)) IF (DO_SLV(222)) & - X(222) = (X(222)-JVS(1725)*X(246)-JVS(1726)*X(247)-JVS(1727)*X(266)-JVS(1728)*X(279)-JVS(1729)*X(284)-JVS(1730)& - &*X(286))/(JVS(1724)) + 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)) IF (DO_SLV(221)) & - X(221) = (X(221)-JVS(1711)*X(238)-JVS(1712)*X(254)-JVS(1713)*X(256)-JVS(1714)*X(257)-JVS(1715)*X(258)-JVS(1716)*X(261)& - &-JVS(1717)*X(266)-JVS(1718)*X(273)-JVS(1719)*X(279)-JVS(1720)*X(284)-JVS(1721)*X(286)-JVS(1722)*X(290))& - &/(JVS(1710)) + X(221) = (X(221)-JVS(1504)*X(269)-JVS(1505)*X(341)-JVS(1506)*X(345)-JVS(1507)*X(351))/(JVS(1503)) IF (DO_SLV(220)) & - X(220) = (X(220)-JVS(1701)*X(244)-JVS(1702)*X(246)-JVS(1703)*X(247)-JVS(1704)*X(266)-JVS(1705)*X(279)-JVS(1706)& - &*X(286))/(JVS(1700)) + X(220) = (X(220)-JVS(1492)*X(341)-JVS(1493)*X(345)-JVS(1494)*X(351))/(JVS(1491)) IF (DO_SLV(219)) & - X(219) = (X(219)-JVS(1678)*X(237)-JVS(1679)*X(239)-JVS(1680)*X(250)-JVS(1681)*X(252)-JVS(1682)*X(253)-JVS(1683)*X(254)& - &-JVS(1684)*X(256)-JVS(1685)*X(257)-JVS(1686)*X(258)-JVS(1687)*X(261)-JVS(1688)*X(266)-JVS(1689)*X(267)& - &-JVS(1690)*X(273)-JVS(1691)*X(276)-JVS(1692)*X(278)-JVS(1693)*X(279)-JVS(1694)*X(281)-JVS(1695)*X(282)& - &-JVS(1696)*X(284)-JVS(1697)*X(286)-JVS(1698)*X(290)-JVS(1699)*X(291))/(JVS(1677)) + X(219) = (X(219)-JVS(1488)*X(341)-JVS(1489)*X(345)-JVS(1490)*X(351))/(JVS(1487)) IF (DO_SLV(218)) & - X(218) = (X(218)-JVS(1650)*X(225)-JVS(1651)*X(236)-JVS(1652)*X(237)-JVS(1653)*X(238)-JVS(1654)*X(239)-JVS(1655)*X(246)& - &-JVS(1656)*X(247)-JVS(1657)*X(252)-JVS(1658)*X(253)-JVS(1659)*X(254)-JVS(1660)*X(256)-JVS(1661)*X(257)& - &-JVS(1662)*X(258)-JVS(1663)*X(261)-JVS(1664)*X(266)-JVS(1665)*X(273)-JVS(1666)*X(279)-JVS(1667)*X(281)& - &-JVS(1668)*X(282)-JVS(1669)*X(284)-JVS(1670)*X(286)-JVS(1671)*X(290))/(JVS(1649)) + 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)) IF (DO_SLV(217)) & - X(217) = (X(217)-JVS(1636)*X(261)-JVS(1637)*X(266)-JVS(1638)*X(273)-JVS(1639)*X(279)-JVS(1640)*X(281)-JVS(1641)*X(284)& - &-JVS(1642)*X(286)-JVS(1643)*X(290))/(JVS(1635)) + 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)) IF (DO_SLV(216)) & - X(216) = (X(216)-JVS(1627)*X(261)-JVS(1628)*X(266)-JVS(1629)*X(279)-JVS(1630)*X(281)-JVS(1631)*X(282)-JVS(1632)*X(284)& - &-JVS(1633)*X(286))/(JVS(1626)) + 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)) IF (DO_SLV(215)) & - X(215) = (X(215)-JVS(1614)*X(216)-JVS(1615)*X(261)-JVS(1616)*X(266)-JVS(1617)*X(279)-JVS(1618)*X(281)-JVS(1619)*X(282)& - &-JVS(1620)*X(284)-JVS(1621)*X(286))/(JVS(1613)) + 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)) IF (DO_SLV(214)) & - X(214) = (X(214)-JVS(1605)*X(245)-JVS(1606)*X(246)-JVS(1607)*X(266)-JVS(1608)*X(279)-JVS(1609)*X(286))/(JVS(1604)) + 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)) IF (DO_SLV(213)) & - X(213) = (X(213)-JVS(1592)*X(214)-JVS(1593)*X(220)-JVS(1594)*X(222)-JVS(1595)*X(228)-JVS(1596)*X(229)-JVS(1597)*X(242)& - &-JVS(1598)*X(244)-JVS(1599)*X(245)-JVS(1600)*X(246)-JVS(1601)*X(279)-JVS(1602)*X(284)-JVS(1603)*X(286))& - &/(JVS(1591)) + 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)) IF (DO_SLV(212)) & - X(212) = (X(212)-JVS(1570)*X(224)-JVS(1571)*X(234)-JVS(1572)*X(248)-JVS(1573)*X(253)-JVS(1574)*X(267)-JVS(1575)*X(276)& - &-JVS(1576)*X(278)-JVS(1577)*X(279)-JVS(1578)*X(281)-JVS(1579)*X(282)-JVS(1580)*X(284)-JVS(1581)*X(286)& - &-JVS(1582)*X(288)-JVS(1583)*X(290)-JVS(1584)*X(291))/(JVS(1569)) + 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)) IF (DO_SLV(211)) & - X(211) = (X(211)-JVS(1544)*X(224)-JVS(1545)*X(234)-JVS(1546)*X(236)-JVS(1547)*X(238)-JVS(1548)*X(240)-JVS(1549)*X(241)& - &-JVS(1550)*X(242)-JVS(1551)*X(244)-JVS(1552)*X(245)-JVS(1553)*X(249)-JVS(1554)*X(250)-JVS(1555)*X(251)& - &-JVS(1556)*X(266)-JVS(1557)*X(278)-JVS(1558)*X(279)-JVS(1559)*X(281)-JVS(1560)*X(282)-JVS(1561)*X(284)& - &-JVS(1562)*X(286)-JVS(1563)*X(290)-JVS(1564)*X(291))/(JVS(1543)) + 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)) IF (DO_SLV(210)) & - X(210) = (X(210)-JVS(1523)*X(266)-JVS(1524)*X(279)-JVS(1525)*X(281)-JVS(1526)*X(282)-JVS(1527)*X(284)-JVS(1528)*X(286)& - &-JVS(1529)*X(291))/(JVS(1522)) + 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)) IF (DO_SLV(209)) & - X(209) = (X(209)-JVS(1508)*X(253)-JVS(1509)*X(261)-JVS(1510)*X(266)-JVS(1511)*X(273)-JVS(1512)*X(279)-JVS(1513)*X(284)& - &-JVS(1514)*X(286)-JVS(1515)*X(290))/(JVS(1507)) + X(209) = (X(209)-JVS(1390)*X(305)-JVS(1391)*X(337)-JVS(1392)*X(345))/(JVS(1389)) IF (DO_SLV(208)) & - X(208) = (X(208)-JVS(1494)*X(214)-JVS(1495)*X(222)-JVS(1496)*X(232)-JVS(1497)*X(240)-JVS(1498)*X(241)-JVS(1499)*X(242)& - &-JVS(1500)*X(243)-JVS(1501)*X(246)-JVS(1502)*X(279)-JVS(1503)*X(281)-JVS(1504)*X(284)-JVS(1505)*X(286))& - &/(JVS(1493)) + 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)) IF (DO_SLV(207)) & - X(207) = (X(207)-JVS(1482)*X(249)-JVS(1483)*X(251)-JVS(1484)*X(279)-JVS(1485)*X(281)-JVS(1486)*X(284)-JVS(1487)*X(286)& - &-JVS(1488)*X(291))/(JVS(1481)) + X(207) = (X(207)-JVS(1373)*X(267)-JVS(1374)*X(337)-JVS(1375)*X(345)-JVS(1376)*X(346))/(JVS(1372)) IF (DO_SLV(206)) & - X(206) = (X(206)-JVS(1470)*X(214)-JVS(1471)*X(220)-JVS(1472)*X(228)-JVS(1473)*X(229)-JVS(1474)*X(244)-JVS(1475)*X(245)& - &-JVS(1476)*X(279)-JVS(1477)*X(284)-JVS(1478)*X(286))/(JVS(1469)) + X(206) = (X(206)-JVS(1368)*X(268)-JVS(1369)*X(337)-JVS(1370)*X(345)-JVS(1371)*X(346))/(JVS(1367)) IF (DO_SLV(205)) & - X(205) = (X(205)-JVS(1456)*X(224)-JVS(1457)*X(240)-JVS(1458)*X(244)-JVS(1459)*X(251)-JVS(1460)*X(279)-JVS(1461)*X(284)& - &-JVS(1462)*X(286)-JVS(1463)*X(291))/(JVS(1455)) + X(205) = (X(205)-JVS(1363)*X(305)-JVS(1364)*X(337)-JVS(1365)*X(345)-JVS(1366)*X(346))/(JVS(1362)) IF (DO_SLV(204)) & - X(204) = (X(204)-JVS(1445)*X(224)-JVS(1446)*X(240)-JVS(1447)*X(245)-JVS(1448)*X(248)-JVS(1449)*X(279)-JVS(1450)*X(284)& - &-JVS(1451)*X(286)-JVS(1452)*X(291))/(JVS(1444)) + 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)) IF (DO_SLV(203)) & - X(203) = (X(203)-JVS(1436)*X(269)-JVS(1437)*X(277)-JVS(1438)*X(280)-JVS(1439)*X(283)-JVS(1440)*X(287)-JVS(1441)& - &*X(291))/(JVS(1435)) + 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)) IF (DO_SLV(202)) & - X(202) = (X(202)-JVS(1429)*X(254)-JVS(1430)*X(256)-JVS(1431)*X(257)-JVS(1432)*X(279)-JVS(1433)*X(284)-JVS(1434)& - &*X(286))/(JVS(1428)) + X(202) = (X(202)-JVS(1328)*X(220)-JVS(1329)*X(341)-JVS(1330)*X(345)-JVS(1331)*X(351))/(JVS(1327)) IF (DO_SLV(201)) & - X(201) = (X(201)-JVS(1421)*X(253)-JVS(1422)*X(261)-JVS(1423)*X(266)-JVS(1424)*X(279)-JVS(1425)*X(281)-JVS(1426)*X(284)& - &-JVS(1427)*X(286))/(JVS(1420)) + X(201) = (X(201)-JVS(1321)*X(341)-JVS(1322)*X(345)-JVS(1323)*X(351))/(JVS(1320)) IF (DO_SLV(200)) & - X(200) = (X(200)-JVS(1408)*X(205)-JVS(1409)*X(224)-JVS(1410)*X(240)-JVS(1411)*X(242)-JVS(1412)*X(244)-JVS(1413)*X(245)& - &-JVS(1414)*X(249)-JVS(1415)*X(279)-JVS(1416)*X(284)-JVS(1417)*X(286)-JVS(1418)*X(291))/(JVS(1407)) + X(200) = (X(200)-JVS(1313)*X(345)-JVS(1314)*X(351))/(JVS(1312)) IF (DO_SLV(199)) & - X(199) = (X(199)-JVS(1393)*X(215)-JVS(1394)*X(216)-JVS(1395)*X(225)-JVS(1396)*X(238)-JVS(1397)*X(261)-JVS(1398)*X(266)& - &-JVS(1399)*X(279)-JVS(1400)*X(281)-JVS(1401)*X(282)-JVS(1402)*X(284)-JVS(1403)*X(286))/(JVS(1392)) + X(199) = (X(199)-JVS(1309)*X(304)-JVS(1310)*X(337)-JVS(1311)*X(345))/(JVS(1308)) IF (DO_SLV(198)) & - X(198) = (X(198)-JVS(1377)*X(201)-JVS(1378)*X(220)-JVS(1379)*X(222)-JVS(1380)*X(232)-JVS(1381)*X(240)-JVS(1382)*X(242)& - &-JVS(1383)*X(243)-JVS(1384)*X(246)-JVS(1385)*X(249)-JVS(1386)*X(251)-JVS(1387)*X(266)-JVS(1388)*X(279)& - &-JVS(1389)*X(281)-JVS(1390)*X(284)-JVS(1391)*X(286))/(JVS(1376)) + 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)) IF (DO_SLV(197)) & - X(197) = (X(197)-JVS(1358)*X(235)-JVS(1359)*X(262)-JVS(1360)*X(266)-JVS(1361)*X(271)-JVS(1362)*X(272)-JVS(1363)*X(274)& - &-JVS(1364)*X(275)-JVS(1365)*X(280)-JVS(1366)*X(285)-JVS(1367)*X(286)-JVS(1368)*X(287)-JVS(1369)*X(290))& - &/(JVS(1357)) + 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)) IF (DO_SLV(196)) & - X(196) = (X(196)-JVS(1344)*X(222)-JVS(1345)*X(224)-JVS(1346)*X(231)-JVS(1347)*X(242)-JVS(1348)*X(244)-JVS(1349)*X(246)& - &-JVS(1350)*X(251)-JVS(1351)*X(252)-JVS(1352)*X(254)-JVS(1353)*X(279)-JVS(1354)*X(284)-JVS(1355)*X(286))& - &/(JVS(1343)) + X(196) = (X(196)-JVS(1290)*X(337)-JVS(1291)*X(345)-JVS(1292)*X(346)-JVS(1293)*X(351))/(JVS(1289)) IF (DO_SLV(195)) & - X(195) = (X(195)-JVS(1333)*X(253)-JVS(1334)*X(267)-JVS(1335)*X(276)-JVS(1336)*X(278)-JVS(1337)*X(279)-JVS(1338)*X(282)& - &-JVS(1339)*X(291))/(JVS(1332)) + X(195) = (X(195)-JVS(1283)*X(220)-JVS(1284)*X(341)-JVS(1285)*X(345)-JVS(1286)*X(351))/(JVS(1282)) IF (DO_SLV(194)) & - X(194) = (X(194)-JVS(1325)*X(214)-JVS(1326)*X(220)-JVS(1327)*X(244)-JVS(1328)*X(245)-JVS(1329)*X(279)-JVS(1330)*X(284)& - &-JVS(1331)*X(286))/(JVS(1324)) + 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)) IF (DO_SLV(193)) & - X(193) = (X(193)-JVS(1304)*X(203)-JVS(1305)*X(210)-JVS(1306)*X(235)-JVS(1307)*X(265)-JVS(1308)*X(275)-JVS(1309)*X(276)& - &-JVS(1310)*X(277)-JVS(1311)*X(279)-JVS(1312)*X(280)-JVS(1313)*X(281)-JVS(1314)*X(282)-JVS(1315)*X(283)& - &-JVS(1316)*X(286)-JVS(1317)*X(287)-JVS(1318)*X(289)-JVS(1319)*X(291))/(JVS(1303)) + 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)) IF (DO_SLV(192)) & - X(192) = (X(192)-JVS(1291)*X(214)-JVS(1292)*X(220)-JVS(1293)*X(244)-JVS(1294)*X(245)-JVS(1295)*X(266)-JVS(1296)*X(279)& - &-JVS(1297)*X(284)-JVS(1298)*X(286))/(JVS(1290)) + X(192) = (X(192)-JVS(1266)*X(304)-JVS(1267)*X(337)-JVS(1268)*X(345))/(JVS(1265)) IF (DO_SLV(191)) & - X(191) = (X(191)-JVS(1281)*X(266)-JVS(1282)*X(279)-JVS(1283)*X(281)-JVS(1284)*X(282)-JVS(1285)*X(284)-JVS(1286)*X(286)& - &-JVS(1287)*X(291))/(JVS(1280)) + X(191) = (X(191)-JVS(1262)*X(341)-JVS(1263)*X(345)-JVS(1264)*X(351))/(JVS(1261)) IF (DO_SLV(190)) & - X(190) = (X(190)-JVS(1269)*X(253)-JVS(1270)*X(264)-JVS(1271)*X(272)-JVS(1272)*X(282)-JVS(1273)*X(286)-JVS(1274)& - &*X(290))/(JVS(1268)) + X(190) = (X(190)-JVS(1257)*X(304)-JVS(1258)*X(337)-JVS(1259)*X(345)-JVS(1260)*X(346))/(JVS(1256)) IF (DO_SLV(189)) & - X(189) = (X(189)-JVS(1264)*X(246)-JVS(1265)*X(279)-JVS(1266)*X(284)-JVS(1267)*X(286))/(JVS(1263)) + 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)) IF (DO_SLV(188)) & - X(188) = (X(188)-JVS(1258)*X(224)-JVS(1259)*X(244)-JVS(1260)*X(284)-JVS(1261)*X(286))/(JVS(1257)) + 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)) IF (DO_SLV(187)) & - X(187) = (X(187)-JVS(1251)*X(244)-JVS(1252)*X(245)-JVS(1253)*X(279)-JVS(1254)*X(284)-JVS(1255)*X(286))/(JVS(1250)) + X(187) = (X(187)-JVS(1231)*X(305)-JVS(1232)*X(337)-JVS(1233)*X(345))/(JVS(1230)) IF (DO_SLV(186)) & - X(186) = (X(186)-JVS(1244)*X(224)-JVS(1245)*X(245)-JVS(1246)*X(284)-JVS(1247)*X(286))/(JVS(1243)) + X(186) = (X(186)-JVS(1227)*X(311)-JVS(1228)*X(337)-JVS(1229)*X(345))/(JVS(1226)) IF (DO_SLV(185)) & - X(185) = (X(185)-JVS(1230)*X(186)-JVS(1231)*X(188)-JVS(1232)*X(206)-JVS(1233)*X(228)-JVS(1234)*X(229)-JVS(1235)*X(230)& - &-JVS(1236)*X(240)-JVS(1237)*X(241)-JVS(1238)*X(242)-JVS(1239)*X(279)-JVS(1240)*X(284)-JVS(1241)*X(286))& - &/(JVS(1229)) + 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)) IF (DO_SLV(184)) & - X(184) = (X(184)-JVS(1218)*X(261)-JVS(1219)*X(266)-JVS(1220)*X(279)-JVS(1221)*X(281)-JVS(1222)*X(282)-JVS(1223)*X(284)& - &-JVS(1224)*X(286))/(JVS(1217)) + X(184) = (X(184)-JVS(1213)*X(259)-JVS(1214)*X(308)-JVS(1215)*X(335)-JVS(1216)*X(345))/(JVS(1212)) IF (DO_SLV(183)) & - X(183) = (X(183)-JVS(1207)*X(244)-JVS(1208)*X(279)-JVS(1209)*X(284)-JVS(1210)*X(286))/(JVS(1206)) + X(183) = (X(183)-JVS(1208)*X(340)-JVS(1209)*X(342)-JVS(1210)*X(345)-JVS(1211)*X(351))/(JVS(1207)) IF (DO_SLV(182)) & - X(182) = (X(182)-JVS(1200)*X(245)-JVS(1201)*X(279)-JVS(1202)*X(284)-JVS(1203)*X(286))/(JVS(1199)) + 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)) IF (DO_SLV(181)) & - X(181) = (X(181)-JVS(1192)*X(246)-JVS(1193)*X(247)-JVS(1194)*X(266)-JVS(1195)*X(284)-JVS(1196)*X(286))/(JVS(1191)) + X(181) = (X(181)-JVS(1198)*X(334)-JVS(1199)*X(340)-JVS(1200)*X(345))/(JVS(1197)) IF (DO_SLV(180)) & - X(180) = (X(180)-JVS(1185)*X(266)-JVS(1186)*X(279)-JVS(1187)*X(281)-JVS(1188)*X(284)-JVS(1189)*X(286)-JVS(1190)& - &*X(291))/(JVS(1184)) + X(180) = (X(180)-JVS(1193)*X(299)-JVS(1194)*X(337)-JVS(1195)*X(345)-JVS(1196)*X(346))/(JVS(1192)) IF (DO_SLV(179)) & - X(179) = (X(179)-JVS(1175)*X(266)-JVS(1176)*X(279)-JVS(1177)*X(281)-JVS(1178)*X(282)-JVS(1179)*X(284)-JVS(1180)& - &*X(286))/(JVS(1174)) + X(179) = (X(179)-JVS(1188)*X(327)-JVS(1189)*X(339)-JVS(1190)*X(341)-JVS(1191)*X(348))/(JVS(1187)) IF (DO_SLV(178)) & - X(178) = (X(178)-JVS(1163)*X(215)-JVS(1164)*X(216)-JVS(1165)*X(238)-JVS(1166)*X(261)-JVS(1167)*X(266)-JVS(1168)*X(279)& - &-JVS(1169)*X(281)-JVS(1170)*X(284)-JVS(1171)*X(286))/(JVS(1162)) + X(178) = (X(178)-JVS(1183)*X(337)-JVS(1184)*X(345)-JVS(1185)*X(346)-JVS(1186)*X(351))/(JVS(1182)) IF (DO_SLV(177)) & - X(177) = (X(177)-JVS(1152)*X(190)-JVS(1153)*X(263)-JVS(1154)*X(272)-JVS(1155)*X(275)-JVS(1156)*X(282)-JVS(1157)*X(284)& - &-JVS(1158)*X(286)-JVS(1159)*X(288)-JVS(1160)*X(289)-JVS(1161)*X(290))/(JVS(1151)) + 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)) IF (DO_SLV(176)) & - X(176) = (X(176)-JVS(1145)*X(273)-JVS(1146)*X(274)-JVS(1147)*X(275)-JVS(1148)*X(278)-JVS(1149)*X(291))/(JVS(1144)) + X(176) = (X(176)-JVS(1167)*X(277)-JVS(1168)*X(278)-JVS(1169)*X(345)-JVS(1170)*X(346))/(JVS(1166)) IF (DO_SLV(175)) & - X(175) = (X(175)-JVS(1134)*X(189)-JVS(1135)*X(220)-JVS(1136)*X(222)-JVS(1137)*X(232)-JVS(1138)*X(240)-JVS(1139)*X(249)& - &-JVS(1140)*X(266)-JVS(1141)*X(279)-JVS(1142)*X(284)-JVS(1143)*X(286))/(JVS(1133)) + X(175) = (X(175)-JVS(1162)*X(305)-JVS(1163)*X(345)-JVS(1164)*X(346))/(JVS(1161)) IF (DO_SLV(174)) & - X(174) = (X(174)-JVS(1120)*X(186)-JVS(1121)*X(188)-JVS(1122)*X(214)-JVS(1123)*X(220)-JVS(1124)*X(224)-JVS(1125)*X(240)& - &-JVS(1126)*X(244)-JVS(1127)*X(245)-JVS(1128)*X(246)-JVS(1129)*X(279)-JVS(1130)*X(284)-JVS(1131)*X(286))& - &/(JVS(1119)) + 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)) IF (DO_SLV(173)) & - X(173) = (X(173)-JVS(1101)*X(275)-JVS(1102)*X(278)-JVS(1103)*X(280)-JVS(1104)*X(281)-JVS(1105)*X(287)-JVS(1106)& - &*X(291))/(JVS(1100)) + 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)) IF (DO_SLV(172)) & - X(172) = (X(172)-JVS(1091)*X(182)-JVS(1092)*X(189)-JVS(1093)*X(222)-JVS(1094)*X(224)-JVS(1095)*X(242)-JVS(1096)*X(245)& - &-JVS(1097)*X(279)-JVS(1098)*X(284)-JVS(1099)*X(286))/(JVS(1090)) + 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)) IF (DO_SLV(171)) & - X(171) = (X(171)-JVS(1086)*X(245)-JVS(1087)*X(284)-JVS(1088)*X(286))/(JVS(1085)) + 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)) IF (DO_SLV(170)) & - X(170) = (X(170)-JVS(1082)*X(281)-JVS(1083)*X(282)-JVS(1084)*X(286))/(JVS(1081)) + 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)) IF (DO_SLV(169)) & - X(169) = (X(169)-JVS(1072)*X(194)-JVS(1073)*X(204)-JVS(1074)*X(206)-JVS(1075)*X(228)-JVS(1076)*X(229)-JVS(1077)*X(230)& - &-JVS(1078)*X(279)-JVS(1079)*X(284)-JVS(1080)*X(286))/(JVS(1071)) + 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)) IF (DO_SLV(168)) & - X(168) = (X(168)-JVS(1065)*X(214)-JVS(1066)*X(279)-JVS(1067)*X(284)-JVS(1068)*X(286))/(JVS(1064)) + X(168) = (X(168)-JVS(1114)*X(304)-JVS(1115)*X(345)-JVS(1116)*X(346))/(JVS(1113)) IF (DO_SLV(167)) & - X(167) = (X(167)-JVS(1060)*X(245)-JVS(1061)*X(279)-JVS(1062)*X(284)-JVS(1063)*X(286))/(JVS(1059)) + X(167) = (X(167)-JVS(1110)*X(341)-JVS(1111)*X(345)-JVS(1112)*X(351))/(JVS(1109)) IF (DO_SLV(166)) & - X(166) = (X(166)-JVS(1054)*X(220)-JVS(1055)*X(279)-JVS(1056)*X(284)-JVS(1057)*X(286))/(JVS(1053)) + X(166) = (X(166)-JVS(1105)*X(327)-JVS(1106)*X(339)-JVS(1107)*X(341)-JVS(1108)*X(348))/(JVS(1104)) IF (DO_SLV(165)) & - X(165) = (X(165)-JVS(1050)*X(244)-JVS(1051)*X(284)-JVS(1052)*X(286))/(JVS(1049)) + X(165) = (X(165)-JVS(1100)*X(196)-JVS(1101)*X(337)-JVS(1102)*X(345)-JVS(1103)*X(346))/(JVS(1099)) IF (DO_SLV(164)) & - X(164) = (X(164)-JVS(1044)*X(182)-JVS(1045)*X(183)-JVS(1046)*X(187)-JVS(1047)*X(284)-JVS(1048)*X(286))/(JVS(1043)) + X(164) = (X(164)-JVS(1095)*X(328)-JVS(1096)*X(337)-JVS(1097)*X(340)-JVS(1098)*X(345))/(JVS(1094)) IF (DO_SLV(163)) & - X(163) = (X(163)-JVS(1037)*X(186)-JVS(1038)*X(188)-JVS(1039)*X(240)-JVS(1040)*X(242)-JVS(1041)*X(286))/(JVS(1036)) + 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)) IF (DO_SLV(162)) & - X(162) = (X(162)-JVS(1033)*X(244)-JVS(1034)*X(284)-JVS(1035)*X(286))/(JVS(1032)) + X(162) = (X(162)-JVS(1082)*X(273)-JVS(1083)*X(275)-JVS(1084)*X(345)-JVS(1085)*X(346))/(JVS(1081)) IF (DO_SLV(161)) & - X(161) = (X(161)-JVS(1028)*X(273)-JVS(1029)*X(281)-JVS(1030)*X(286)-JVS(1031)*X(290))/(JVS(1027)) + X(161) = (X(161)-JVS(1076)*X(273)-JVS(1077)*X(328)-JVS(1078)*X(337)-JVS(1079)*X(345))/(JVS(1075)) IF (DO_SLV(160)) & - X(160) = (X(160)-JVS(1018)*X(180)-JVS(1019)*X(191)-JVS(1020)*X(266)-JVS(1021)*X(279)-JVS(1022)*X(281)-JVS(1023)*X(282)& - &-JVS(1024)*X(284)-JVS(1025)*X(286)-JVS(1026)*X(291))/(JVS(1017)) + X(160) = (X(160)-JVS(1071)*X(278)-JVS(1072)*X(328)-JVS(1073)*X(337)-JVS(1074)*X(345))/(JVS(1070)) IF (DO_SLV(159)) & - X(159) = (X(159)-JVS(1009)*X(210)-JVS(1010)*X(281)-JVS(1011)*X(282)-JVS(1012)*X(286))/(JVS(1008)) + X(159) = (X(159)-JVS(1067)*X(259)-JVS(1068)*X(337)-JVS(1069)*X(345))/(JVS(1066)) IF (DO_SLV(158)) & - X(158) = (X(158)-JVS(991)*X(201)-JVS(992)*X(209)-JVS(993)*X(216)-JVS(994)*X(225)-JVS(995)*X(237)-JVS(996)*X(238)& - &-JVS(997)*X(254)-JVS(998)*X(256)-JVS(999)*X(257)-JVS(1000)*X(258)-JVS(1001)*X(266)-JVS(1002)*X(286))& - &/(JVS(990)) + X(158) = (X(158)-JVS(1063)*X(200)-JVS(1064)*X(345)-JVS(1065)*X(351))/(JVS(1062)) IF (DO_SLV(157)) & - X(157) = (X(157)-JVS(987)*X(245)-JVS(988)*X(284)-JVS(989)*X(286))/(JVS(986)) + 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)) IF (DO_SLV(156)) & - X(156) = (X(156)-JVS(980)*X(186)-JVS(981)*X(188)-JVS(982)*X(228)-JVS(983)*X(229)-JVS(984)*X(240)-JVS(985)*X(286))& - &/(JVS(979)) + 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)) IF (DO_SLV(155)) & - X(155) = (X(155)-JVS(974)*X(281)-JVS(975)*X(282)-JVS(976)*X(286))/(JVS(973)) + 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)) IF (DO_SLV(154)) & - X(154) = (X(154)-JVS(970)*X(281)-JVS(971)*X(282)-JVS(972)*X(286))/(JVS(969)) + 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)) IF (DO_SLV(153)) & - X(153) = (X(153)-JVS(965)*X(207)-JVS(966)*X(249)-JVS(967)*X(286)-JVS(968)*X(291))/(JVS(964)) + 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)) IF (DO_SLV(152)) & - X(152) = (X(152)-JVS(960)*X(244)-JVS(961)*X(279)-JVS(962)*X(284)-JVS(963)*X(286))/(JVS(959)) + 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)) IF (DO_SLV(151)) & - X(151) = (X(151)-JVS(955)*X(246)-JVS(956)*X(284)-JVS(957)*X(286))/(JVS(954)) + 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)) IF (DO_SLV(150)) & - X(150) = (X(150)-JVS(949)*X(240)-JVS(950)*X(242)-JVS(951)*X(279)-JVS(952)*X(284)-JVS(953)*X(286))/(JVS(948)) + X(150) = (X(150)-JVS(1005)*X(209)-JVS(1006)*X(276)-JVS(1007)*X(305)-JVS(1008)*X(345))/(JVS(1004)) IF (DO_SLV(149)) & - X(149) = (X(149)-JVS(945)*X(272)-JVS(946)*X(286)-JVS(947)*X(290))/(JVS(944)) + X(149) = (X(149)-JVS(1002)*X(345)-JVS(1003)*X(351))/(JVS(1001)) IF (DO_SLV(148)) & - X(148) = (X(148)-JVS(941)*X(281)-JVS(942)*X(282)-JVS(943)*X(286))/(JVS(940)) + 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)) IF (DO_SLV(147)) & - X(147) = (X(147)-JVS(933)*X(265)-JVS(934)*X(275)-JVS(935)*X(276)-JVS(936)*X(282))/(JVS(932)) + X(147) = (X(147)-JVS(989)*X(285)-JVS(990)*X(286)-JVS(991)*X(345))/(JVS(988)) IF (DO_SLV(146)) & - X(146) = (X(146)-JVS(928)*X(243)-JVS(929)*X(279)-JVS(930)*X(284)-JVS(931)*X(286))/(JVS(927)) + X(146) = (X(146)-JVS(984)*X(200)-JVS(985)*X(337)-JVS(986)*X(345)-JVS(987)*X(346))/(JVS(983)) IF (DO_SLV(145)) & - X(145) = (X(145)-JVS(922)*X(188)-JVS(923)*X(240)-JVS(924)*X(279)-JVS(925)*X(284)-JVS(926)*X(291))/(JVS(921)) + 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)) IF (DO_SLV(144)) & - X(144) = (X(144)-JVS(916)*X(186)-JVS(917)*X(240)-JVS(918)*X(279)-JVS(919)*X(284)-JVS(920)*X(291))/(JVS(915)) + X(144) = (X(144)-JVS(969)*X(199)-JVS(970)*X(276)-JVS(971)*X(304)-JVS(972)*X(345))/(JVS(968)) IF (DO_SLV(143)) & - X(143) = (X(143)-JVS(909)*X(203)-JVS(910)*X(269)-JVS(911)*X(270)-JVS(912)*X(279)-JVS(913)*X(281)-JVS(914)*X(286))& - &/(JVS(908)) + X(143) = (X(143)-JVS(965)*X(220)-JVS(966)*X(341)-JVS(967)*X(345))/(JVS(964)) IF (DO_SLV(142)) & - X(142) = (X(142)-JVS(904)*X(281)-JVS(905)*X(282)-JVS(906)*X(286))/(JVS(903)) + X(142) = (X(142)-JVS(961)*X(340)-JVS(962)*X(345)-JVS(963)*X(351))/(JVS(960)) IF (DO_SLV(141)) & - X(141) = (X(141)-JVS(896)*X(182)-JVS(897)*X(183)-JVS(898)*X(187)-JVS(899)*X(284)-JVS(900)*X(286))/(JVS(895)) + X(141) = (X(141)-JVS(957)*X(340)-JVS(958)*X(342)-JVS(959)*X(345))/(JVS(956)) IF (DO_SLV(140)) & - X(140) = (X(140)-JVS(892)*X(244)-JVS(893)*X(279)-JVS(894)*X(286))/(JVS(891)) + X(140) = (X(140)-JVS(953)*X(341)-JVS(954)*X(345)-JVS(955)*X(351))/(JVS(952)) IF (DO_SLV(139)) & - X(139) = (X(139)-JVS(888)*X(245)-JVS(889)*X(279)-JVS(890)*X(286))/(JVS(887)) + X(139) = (X(139)-JVS(949)*X(324)-JVS(950)*X(335)-JVS(951)*X(345))/(JVS(948)) IF (DO_SLV(138)) & - X(138) = (X(138)-JVS(883)*X(265)-JVS(884)*X(275)-JVS(885)*X(276)-JVS(886)*X(282))/(JVS(882)) + X(138) = (X(138)-JVS(945)*X(275)-JVS(946)*X(345)-JVS(947)*X(346))/(JVS(944)) IF (DO_SLV(137)) & - X(137) = (X(137)-JVS(878)*X(266)-JVS(879)*X(284)-JVS(880)*X(286)-JVS(881)*X(290))/(JVS(877)) + X(137) = (X(137)-JVS(941)*X(277)-JVS(942)*X(345)-JVS(943)*X(346))/(JVS(940)) IF (DO_SLV(136)) & - X(136) = (X(136)-JVS(874)*X(207)-JVS(875)*X(284)-JVS(876)*X(286))/(JVS(873)) + X(136) = (X(136)-JVS(936)*X(234)-JVS(937)*X(328)-JVS(938)*X(337)-JVS(939)*X(345))/(JVS(935)) IF (DO_SLV(135)) & - X(135) = (X(135)-JVS(860)*X(176)-JVS(861)*X(235)-JVS(862)*X(260)-JVS(863)*X(262)-JVS(864)*X(271)-JVS(865)*X(274)& - &-JVS(866)*X(275)-JVS(867)*X(277)-JVS(868)*X(280)-JVS(869)*X(283)-JVS(870)*X(285)-JVS(871)*X(287)-JVS(872)& - &*X(289))/(JVS(859)) + X(135) = (X(135)-JVS(931)*X(231)-JVS(932)*X(337)-JVS(933)*X(345)-JVS(934)*X(346))/(JVS(930)) IF (DO_SLV(134)) & - X(134) = (X(134)-JVS(854)*X(178)-JVS(855)*X(199)-JVS(856)*X(281)-JVS(857)*X(282)-JVS(858)*X(286))/(JVS(853)) + 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)) IF (DO_SLV(133)) & - X(133) = (X(133)-JVS(848)*X(217)-JVS(849)*X(239)-JVS(850)*X(266)-JVS(851)*X(286)-JVS(852)*X(290))/(JVS(847)) + X(133) = (X(133)-JVS(914)*X(230)-JVS(915)*X(337)-JVS(916)*X(345)-JVS(917)*X(346))/(JVS(913)) IF (DO_SLV(132)) & - X(132) = (X(132)-JVS(842)*X(206)-JVS(843)*X(229)-JVS(844)*X(279)-JVS(845)*X(284)-JVS(846)*X(286))/(JVS(841)) + X(132) = (X(132)-JVS(909)*X(233)-JVS(910)*X(337)-JVS(911)*X(345)-JVS(912)*X(346))/(JVS(908)) IF (DO_SLV(131)) & - X(131) = (X(131)-JVS(836)*X(139)-JVS(837)*X(140)-JVS(838)*X(157)-JVS(839)*X(162)-JVS(840)*X(286))/(JVS(835)) + 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)) IF (DO_SLV(130)) & - X(130) = (X(130)-JVS(830)*X(139)-JVS(831)*X(140)-JVS(832)*X(157)-JVS(833)*X(162)-JVS(834)*X(286))/(JVS(829)) + X(130) = (X(130)-JVS(898)*X(274)-JVS(899)*X(328)-JVS(900)*X(337)-JVS(901)*X(345))/(JVS(897)) IF (DO_SLV(129)) & - X(129) = (X(129)-JVS(825)*X(171)-JVS(826)*X(224)-JVS(827)*X(245)-JVS(828)*X(286))/(JVS(824)) + 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)) IF (DO_SLV(128)) & - X(128) = (X(128)-JVS(816)*X(176)-JVS(817)*X(260)-JVS(818)*X(273)-JVS(819)*X(274)-JVS(820)*X(277)-JVS(821)*X(283)& - &-JVS(822)*X(286)-JVS(823)*X(289))/(JVS(815)) + 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)) IF (DO_SLV(127)) & - X(127) = (X(127)-JVS(811)*X(165)-JVS(812)*X(224)-JVS(813)*X(244)-JVS(814)*X(286))/(JVS(810)) + X(127) = (X(127)-JVS(876)*X(212)-JVS(877)*X(345)-JVS(878)*X(346))/(JVS(875)) IF (DO_SLV(126)) & - X(126) = (X(126)-JVS(802)*X(151)-JVS(803)*X(243)-JVS(804)*X(246)-JVS(805)*X(247)-JVS(806)*X(261)-JVS(807)*X(266)& - &-JVS(808)*X(279)-JVS(809)*X(281))/(JVS(801)) + X(126) = (X(126)-JVS(872)*X(197)-JVS(873)*X(335)-JVS(874)*X(345))/(JVS(871)) IF (DO_SLV(125)) & - X(125) = (X(125)-JVS(798)*X(228)-JVS(799)*X(229)-JVS(800)*X(286))/(JVS(797)) + X(125) = (X(125)-JVS(868)*X(250)-JVS(869)*X(337)-JVS(870)*X(345))/(JVS(867)) IF (DO_SLV(124)) & - X(124) = (X(124)-JVS(794)*X(273)-JVS(795)*X(286)-JVS(796)*X(290))/(JVS(793)) + X(124) = (X(124)-JVS(864)*X(322)-JVS(865)*X(335)-JVS(866)*X(345))/(JVS(863)) IF (DO_SLV(123)) & - X(123) = (X(123)-JVS(789)*X(188)-JVS(790)*X(279)-JVS(791)*X(284)-JVS(792)*X(286))/(JVS(788)) + X(123) = (X(123)-JVS(860)*X(260)-JVS(861)*X(337)-JVS(862)*X(345))/(JVS(859)) IF (DO_SLV(122)) & - X(122) = (X(122)-JVS(778)*X(147)-JVS(779)*X(195)-JVS(780)*X(212)-JVS(781)*X(234)-JVS(782)*X(260)-JVS(783)*X(263)& - &-JVS(784)*X(271)-JVS(785)*X(276)-JVS(786)*X(282)-JVS(787)*X(286))/(JVS(777)) + X(122) = (X(122)-JVS(856)*X(240)-JVS(857)*X(335)-JVS(858)*X(345))/(JVS(855)) IF (DO_SLV(121)) & - X(121) = (X(121)-JVS(772)*X(186)-JVS(773)*X(279)-JVS(774)*X(284)-JVS(775)*X(286))/(JVS(771)) + X(121) = (X(121)-JVS(851)*X(200)-JVS(852)*X(337)-JVS(853)*X(345)-JVS(854)*X(346))/(JVS(850)) IF (DO_SLV(120)) & - X(120) = (X(120)-JVS(767)*X(179)-JVS(768)*X(266)-JVS(769)*X(284)-JVS(770)*X(286))/(JVS(766)) + X(120) = (X(120)-JVS(845)*X(284)-JVS(846)*X(338)-JVS(847)*X(345)-JVS(848)*X(347))/(JVS(844)) IF (DO_SLV(119)) & - X(119) = (X(119)-JVS(762)*X(225)-JVS(763)*X(238)-JVS(764)*X(284)-JVS(765)*X(286))/(JVS(761)) + X(119) = (X(119)-JVS(840)*X(230)-JVS(841)*X(231)-JVS(842)*X(301)-JVS(843)*X(345))/(JVS(839)) IF (DO_SLV(118)) & - X(118) = (X(118)-JVS(759)*X(281)-JVS(760)*X(286))/(JVS(758)) + X(118) = (X(118)-JVS(835)*X(296)-JVS(836)*X(315)-JVS(837)*X(337)-JVS(838)*X(345))/(JVS(834)) IF (DO_SLV(117)) & - X(117) = (X(117)-JVS(752)*X(206)-JVS(753)*X(228)-JVS(754)*X(279)-JVS(755)*X(284)-JVS(756)*X(286))/(JVS(751)) + 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)) IF (DO_SLV(116)) & - X(116) = (X(116)-JVS(746)*X(165)-JVS(747)*X(171)-JVS(748)*X(214)-JVS(749)*X(220)-JVS(750)*X(286))/(JVS(745)) + X(116) = (X(116)-JVS(824)*X(189)-JVS(825)*X(345)-JVS(826)*X(346))/(JVS(823)) IF (DO_SLV(115)) & - X(115) = (X(115)-JVS(743)*X(281)-JVS(744)*X(286))/(JVS(742)) + 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)) IF (DO_SLV(114)) & - X(114) = (X(114)-JVS(737)*X(281)-JVS(738)*X(286)-JVS(739)*X(290))/(JVS(736)) + X(114) = (X(114)-JVS(814)*X(213)-JVS(815)*X(335)-JVS(816)*X(345))/(JVS(813)) IF (DO_SLV(113)) & - X(113) = (X(113)-JVS(733)*X(201)-JVS(734)*X(284)-JVS(735)*X(286))/(JVS(732)) + X(113) = (X(113)-JVS(810)*X(246)-JVS(811)*X(335)-JVS(812)*X(345))/(JVS(809)) IF (DO_SLV(112)) & - X(112) = (X(112)-JVS(729)*X(209)-JVS(730)*X(284)-JVS(731)*X(286))/(JVS(728)) + X(112) = (X(112)-JVS(806)*X(275)-JVS(807)*X(337)-JVS(808)*X(345))/(JVS(805)) IF (DO_SLV(111)) & - X(111) = (X(111)-JVS(724)*X(227)-JVS(725)*X(274)-JVS(726)*X(285)-JVS(727)*X(286))/(JVS(723)) + X(111) = (X(111)-JVS(802)*X(277)-JVS(803)*X(337)-JVS(804)*X(345))/(JVS(801)) IF (DO_SLV(110)) & - X(110) = (X(110)-JVS(719)*X(217)-JVS(720)*X(239)-JVS(721)*X(284)-JVS(722)*X(286))/(JVS(718)) + 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)) IF (DO_SLV(109)) & - X(109) = (X(109)-JVS(714)*X(186)-JVS(715)*X(188)-JVS(716)*X(240)-JVS(717)*X(286))/(JVS(713)) + X(109) = (X(109)-JVS(791)*X(233)-JVS(792)*X(341)-JVS(793)*X(345))/(JVS(790)) IF (DO_SLV(108)) & - X(108) = (X(108)-JVS(708)*X(120)-JVS(709)*X(179)-JVS(710)*X(266)-JVS(711)*X(279)-JVS(712)*X(281))/(JVS(707)) + X(108) = (X(108)-JVS(787)*X(335)-JVS(788)*X(337)-JVS(789)*X(345))/(JVS(786)) IF (DO_SLV(107)) & - X(107) = (X(107)-JVS(702)*X(180)-JVS(703)*X(191)-JVS(704)*X(284)-JVS(705)*X(286)-JVS(706)*X(291))/(JVS(701)) + X(107) = (X(107)-JVS(783)*X(159)-JVS(784)*X(184)-JVS(785)*X(345))/(JVS(782)) IF (DO_SLV(106)) & - X(106) = (X(106)-JVS(697)*X(255)-JVS(698)*X(284)-JVS(699)*X(286))/(JVS(696)) + 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)) IF (DO_SLV(105)) & - X(105) = (X(105)-JVS(693)*X(136)-JVS(694)*X(153)-JVS(695)*X(286))/(JVS(692)) + X(105) = (X(105)-JVS(774)*X(334)-JVS(775)*X(345))/(JVS(773)) IF (DO_SLV(104)) & - X(104) = (X(104)-JVS(687)*X(163)-JVS(688)*X(241)-JVS(689)*X(248)-JVS(690)*X(282)-JVS(691)*X(286))/(JVS(686)) + 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)) IF (DO_SLV(103)) & - X(103) = (X(103)-JVS(681)*X(266)-JVS(682)*X(274)-JVS(683)*X(285)-JVS(684)*X(286)-JVS(685)*X(290))/(JVS(680)) + 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)) IF (DO_SLV(102)) & - X(102) = (X(102)-JVS(676)*X(284)-JVS(677)*X(286)-JVS(678)*X(291))/(JVS(675)) + X(102) = (X(102)-JVS(748)*X(300)-JVS(749)*X(337)-JVS(750)*X(345))/(JVS(747)) IF (DO_SLV(101)) & - X(101) = (X(101)-JVS(673)*X(281)-JVS(674)*X(286))/(JVS(672)) + X(101) = (X(101)-JVS(746)*X(345))/(JVS(745)) IF (DO_SLV(100)) & - X(100) = (X(100)-JVS(668)*X(272)-JVS(669)*X(286))/(JVS(667)) + X(100) = (X(100)-JVS(742)*X(323)-JVS(743)*X(337)-JVS(744)*X(345))/(JVS(741)) IF (DO_SLV(99)) & - X(99) = (X(99)-JVS(660)*X(203)-JVS(661)*X(227)-JVS(662)*X(268)-JVS(663)*X(270)-JVS(664)*X(280)-JVS(665)*X(285)& - &-JVS(666)*X(287))/(JVS(659)) + X(99) = (X(99)-JVS(738)*X(321)-JVS(739)*X(337)-JVS(740)*X(345))/(JVS(737)) IF (DO_SLV(98)) & - X(98) = (X(98)-JVS(646)*X(139)-JVS(647)*X(140)-JVS(648)*X(151)-JVS(649)*X(175)-JVS(650)*X(181)-JVS(651)*X(200)& - &-JVS(652)*X(202)-JVS(653)*X(213)-JVS(654)*X(214)-JVS(655)*X(220)-JVS(656)*X(241)-JVS(657)*X(242)-JVS(658)& - &*X(243))/(JVS(645)) + X(98) = (X(98)-JVS(734)*X(178)-JVS(735)*X(337)-JVS(736)*X(345))/(JVS(733)) IF (DO_SLV(97)) & - X(97) = (X(97)-JVS(642)*X(180)-JVS(643)*X(286)-JVS(644)*X(291))/(JVS(641)) + X(97) = (X(97)-JVS(730)*X(319)-JVS(731)*X(337)-JVS(732)*X(345))/(JVS(729)) IF (DO_SLV(96)) & - X(96) = (X(96)-JVS(638)*X(217)-JVS(639)*X(279)-JVS(640)*X(286))/(JVS(637)) + X(96) = (X(96)-JVS(726)*X(284)-JVS(727)*X(346)-JVS(728)*X(347))/(JVS(725)) IF (DO_SLV(95)) & - X(95) = (X(95)-JVS(634)*X(258)-JVS(635)*X(284)-JVS(636)*X(286))/(JVS(633)) + X(95) = (X(95)-JVS(719)*X(321)-JVS(720)*X(345)-JVS(721)*X(346))/(JVS(718)) IF (DO_SLV(94)) & - X(94) = (X(94)-JVS(630)*X(237)-JVS(631)*X(284)-JVS(632)*X(286))/(JVS(629)) + X(94) = (X(94)-JVS(716)*X(345)-JVS(717)*X(351))/(JVS(715)) IF (DO_SLV(93)) & - X(93) = (X(93)-JVS(626)*X(256)-JVS(627)*X(284)-JVS(628)*X(286))/(JVS(625)) + X(93) = (X(93)-JVS(712)*X(328)-JVS(713)*X(345)-JVS(714)*X(346))/(JVS(711)) IF (DO_SLV(92)) & - X(92) = (X(92)-JVS(622)*X(227)-JVS(623)*X(274)-JVS(624)*X(279))/(JVS(621)) + X(92) = (X(92)-JVS(708)*X(324)-JVS(709)*X(337)-JVS(710)*X(345))/(JVS(707)) IF (DO_SLV(91)) & - X(91) = (X(91)-JVS(615)*X(237)-JVS(616)*X(279)-JVS(617)*X(286))/(JVS(614)) + X(91) = (X(91)-JVS(704)*X(323)-JVS(705)*X(345)-JVS(706)*X(346))/(JVS(703)) IF (DO_SLV(90)) & - X(90) = (X(90)-JVS(612)*X(281)-JVS(613)*X(286))/(JVS(611)) + X(90) = (X(90)-JVS(700)*X(235)-JVS(701)*X(335)-JVS(702)*X(345))/(JVS(699)) IF (DO_SLV(89)) & - X(89) = (X(89)-JVS(608)*X(266)-JVS(609)*X(279)-JVS(610)*X(286))/(JVS(607)) + X(89) = (X(89)-JVS(696)*X(325)-JVS(697)*X(345)-JVS(698)*X(348))/(JVS(695)) IF (DO_SLV(88)) & - X(88) = (X(88)-JVS(604)*X(261)-JVS(605)*X(284)-JVS(606)*X(286))/(JVS(603)) + X(88) = (X(88)-JVS(692)*X(312)-JVS(693)*X(336)-JVS(694)*X(345))/(JVS(691)) IF (DO_SLV(87)) & - X(87) = (X(87)-JVS(600)*X(258)-JVS(601)*X(279)-JVS(602)*X(286))/(JVS(599)) + X(87) = (X(87)-JVS(689)*X(334)-JVS(690)*X(345))/(JVS(688)) IF (DO_SLV(86)) & - X(86) = (X(86)-JVS(596)*X(263)-JVS(597)*X(276)-JVS(598)*X(286))/(JVS(595)) + X(86) = (X(86)-JVS(686)*X(334)-JVS(687)*X(345))/(JVS(685)) IF (DO_SLV(85)) & - X(85) = (X(85)-JVS(592)*X(234)-JVS(593)*X(278)-JVS(594)*X(286))/(JVS(591)) + X(85) = (X(85)-JVS(683)*X(334)-JVS(684)*X(345))/(JVS(682)) IF (DO_SLV(84)) & - X(84) = (X(84)-JVS(589)*X(272)-JVS(590)*X(286))/(JVS(588)) + X(84) = (X(84)-JVS(680)*X(334)-JVS(681)*X(345))/(JVS(679)) IF (DO_SLV(83)) & - X(83) = (X(83)-JVS(586)*X(272)-JVS(587)*X(286))/(JVS(585)) + X(83) = (X(83)-JVS(676)*X(296)-JVS(677)*X(345)-JVS(678)*X(346))/(JVS(675)) IF (DO_SLV(82)) & - X(82) = (X(82)-JVS(583)*X(272)-JVS(584)*X(286))/(JVS(582)) + X(82) = (X(82)-JVS(674)*X(345))/(JVS(673)) IF (DO_SLV(81)) & - X(81) = (X(81)-JVS(580)*X(272)-JVS(581)*X(286))/(JVS(579)) + X(81) = (X(81)-JVS(671)*X(334)-JVS(672)*X(345))/(JVS(670)) IF (DO_SLV(80)) & - X(80) = (X(80)-JVS(578)*X(286))/(JVS(577)) + X(80) = (X(80)-JVS(668)*X(328)-JVS(669)*X(335))/(JVS(667)) IF (DO_SLV(79)) & - X(79) = (X(79)-JVS(576)*X(286))/(JVS(575)) + X(79) = (X(79)-JVS(665)*X(340)-JVS(666)*X(345))/(JVS(664)) IF (DO_SLV(78)) & - X(78) = (X(78)-JVS(573)*X(286)-JVS(574)*X(290))/(JVS(572)) + X(78) = (X(78)-JVS(662)*X(334)-JVS(663)*X(345))/(JVS(661)) IF (DO_SLV(77)) & - X(77) = (X(77)-JVS(570)*X(272)-JVS(571)*X(286))/(JVS(569)) + 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)) IF (DO_SLV(76)) & - X(76) = (X(76)-JVS(567)*X(282)-JVS(568)*X(286))/(JVS(566)) + X(76) = (X(76)-JVS(653)*X(338)-JVS(654)*X(345))/(JVS(652)) IF (DO_SLV(75)) & - X(75) = (X(75)-JVS(564)*X(285)-JVS(565)*X(286))/(JVS(563)) + X(75) = (X(75)-JVS(650)*X(340)-JVS(651)*X(345))/(JVS(649)) IF (DO_SLV(74)) & - X(74) = (X(74)-JVS(561)*X(266)-JVS(562)*X(291))/(JVS(560)) + X(74) = (X(74)-JVS(646)*X(257)-JVS(647)*X(337)-JVS(648)*X(345))/(JVS(645)) IF (DO_SLV(73)) & - X(73) = (X(73)-JVS(555)*X(203)-JVS(556)*X(268)-JVS(557)*X(270)-JVS(558)*X(277)-JVS(559)*X(283))/(JVS(554)) + X(73) = (X(73)-JVS(642)*X(331)-JVS(643)*X(337)-JVS(644)*X(345))/(JVS(641)) IF (DO_SLV(72)) & - X(72) = (X(72)-JVS(552)*X(286)-JVS(553)*X(290))/(JVS(551)) + X(72) = (X(72)-JVS(638)*X(213)-JVS(639)*X(337)-JVS(640)*X(345))/(JVS(637)) IF (DO_SLV(71)) & - X(71) = (X(71)-JVS(549)*X(272)-JVS(550)*X(286))/(JVS(548)) + X(71) = (X(71)-JVS(634)*X(235)-JVS(635)*X(337)-JVS(636)*X(345))/(JVS(633)) IF (DO_SLV(70)) & - X(70) = (X(70)-JVS(545)*X(180)-JVS(546)*X(284)-JVS(547)*X(286))/(JVS(544)) + X(70) = (X(70)-JVS(630)*X(234)-JVS(631)*X(345)-JVS(632)*X(346))/(JVS(629)) IF (DO_SLV(69)) & - X(69) = (X(69)-JVS(541)*X(269)-JVS(542)*X(284)-JVS(543)*X(286))/(JVS(540)) + X(69) = (X(69)-JVS(627)*X(345)-JVS(628)*X(351))/(JVS(626)) IF (DO_SLV(68)) & - X(68) = (X(68)-JVS(537)*X(179)-JVS(538)*X(279)-JVS(539)*X(286))/(JVS(536)) + X(68) = (X(68)-JVS(624)*X(343)-JVS(625)*X(345))/(JVS(623)) IF (DO_SLV(67)) & - X(67) = (X(67)-JVS(534)*X(261)-JVS(535)*X(291))/(JVS(533)) + X(67) = (X(67)-JVS(621)*X(335)-JVS(622)*X(346))/(JVS(620)) IF (DO_SLV(66)) & - X(66) = (X(66)-JVS(531)*X(286)-JVS(532)*X(288))/(JVS(530)) + X(66) = (X(66)-JVS(616)*X(257)-JVS(617)*X(328)-JVS(618)*X(337)-JVS(619)*X(345))/(JVS(615)) IF (DO_SLV(65)) & - X(65) = (X(65)-JVS(528)*X(279)-JVS(529)*X(291))/(JVS(527)) + X(65) = (X(65)-JVS(612)*X(166)-JVS(613)*X(327)-JVS(614)*X(351))/(JVS(611)) IF (DO_SLV(64)) & - X(64) = (X(64)-JVS(526)*X(286))/(JVS(525)) + X(64) = (X(64)-JVS(608)*X(179)-JVS(609)*X(327)-JVS(610)*X(351))/(JVS(607)) IF (DO_SLV(63)) & - X(63) = (X(63)-JVS(522)*X(138)-JVS(523)*X(265)-JVS(524)*X(281))/(JVS(521)) + X(63) = (X(63)-JVS(604)*X(67)-JVS(605)*X(334)-JVS(606)*X(335))/(JVS(603)) IF (DO_SLV(62)) & - X(62) = (X(62)-JVS(518)*X(147)-JVS(519)*X(265)-JVS(520)*X(281))/(JVS(517)) + X(62) = (X(62)-JVS(601)*X(331)-JVS(602)*X(346))/(JVS(600)) IF (DO_SLV(61)) & - X(61) = (X(61)-JVS(514)*X(65)-JVS(515)*X(272)-JVS(516)*X(291))/(JVS(513)) + X(61) = (X(61)-JVS(599)*X(334))/(JVS(598)) IF (DO_SLV(60)) & - X(60) = (X(60)-JVS(511)*X(269)-JVS(512)*X(279))/(JVS(510)) + X(60) = (X(60)-JVS(597)*X(345))/(JVS(596)) IF (DO_SLV(59)) & - X(59) = (X(59)-JVS(509)*X(272))/(JVS(508)) + X(59) = (X(59)-JVS(594)*X(335)-JVS(595)*X(342))/(JVS(593)) IF (DO_SLV(58)) & - X(58) = (X(58)-JVS(507)*X(286))/(JVS(506)) + X(58) = (X(58)-JVS(591)*X(200)-JVS(592)*X(345))/(JVS(590)) IF (DO_SLV(57)) & - X(57) = (X(57)-JVS(505)*X(272))/(JVS(504)) + X(57) = (X(57)-JVS(588)*X(274)-JVS(589)*X(335))/(JVS(587)) IF (DO_SLV(56)) & - X(56) = (X(56)-JVS(503)*X(272))/(JVS(502)) + X(56) = (X(56)-JVS(585)*X(257)-JVS(586)*X(335))/(JVS(584)) IF (DO_SLV(55)) & - X(55) = (X(55)-JVS(501)*X(272))/(JVS(500)) + X(55) = (X(55)-JVS(582)*X(96)-JVS(583)*X(284))/(JVS(581)) IF (DO_SLV(54)) & - X(54) = (X(54)-JVS(499)*X(272))/(JVS(498)) + X(54) = (X(54)-JVS(580)*X(334))/(JVS(579)) IF (DO_SLV(53)) & - X(53) = (X(53)-JVS(497)*X(272))/(JVS(496)) + X(53) = (X(53)-JVS(578)*X(334))/(JVS(577)) IF (DO_SLV(52)) & - X(52) = (X(52)-JVS(495)*X(272))/(JVS(494)) + X(52) = (X(52)-JVS(576)*X(345))/(JVS(575)) IF (DO_SLV(51)) & - X(51) = (X(51)-JVS(492)*X(273)-JVS(493)*X(291))/(JVS(491)) + X(51) = (X(51)-JVS(574)*X(334))/(JVS(573)) IF (DO_SLV(50)) & - X(50) = (X(50)-JVS(489)*X(255)-JVS(490)*X(291))/(JVS(488)) + X(50) = (X(50)-JVS(572)*X(334))/(JVS(571)) IF (DO_SLV(49)) & - X(49) = (X(49)-JVS(486)*X(92)-JVS(487)*X(227))/(JVS(485)) + X(49) = (X(49)-JVS(570)*X(334))/(JVS(569)) IF (DO_SLV(48)) & - X(48) = (X(48)-JVS(484)*X(272))/(JVS(483)) + X(48) = (X(48)-JVS(568)*X(334))/(JVS(567)) IF (DO_SLV(47)) & - X(47) = (X(47)-JVS(482)*X(272))/(JVS(481)) + X(47) = (X(47)-JVS(566)*X(334))/(JVS(565)) IF (DO_SLV(46)) & - X(46) = (X(46)-JVS(480)*X(286))/(JVS(479)) + X(46) = (X(46)-JVS(564)*X(334))/(JVS(563)) IF (DO_SLV(45)) & - X(45) = (X(45)-JVS(476)*X(134)-JVS(477)*X(178)-JVS(478)*X(199))/(JVS(475)) + X(45) = (X(45)-JVS(560)*X(154)-JVS(561)*X(242)-JVS(562)*X(256))/(JVS(559)) IF (DO_SLV(44)) & - X(44) = (X(44)-JVS(474)*X(227))/(JVS(473)) + X(44) = (X(44)-JVS(558)*X(284))/(JVS(557)) IF (DO_SLV(43)) & - X(43) = (X(43)-JVS(472)*X(286))/(JVS(471)) + X(43) = (X(43)-JVS(556)*X(345))/(JVS(555)) IF (DO_SLV(42)) & - X(42) = (X(42)-JVS(470)*X(92))/(JVS(469)) + X(42) = (X(42)-JVS(554)*X(96))/(JVS(553)) IF (DO_SLV(41)) & - X(41) = (X(41)-JVS(468)*X(286))/(JVS(467)) + X(41) = (X(41)-JVS(552)*X(345))/(JVS(551)) IF (DO_SLV(40)) & - X(40) = (X(40)-JVS(456)*X(154)-JVS(457)*X(155)-JVS(458)*X(170)-JVS(459)*X(195)-JVS(460)*X(224)-JVS(461)*X(234)& - &-JVS(462)*X(248)-JVS(463)*X(278)-JVS(464)*X(282)-JVS(465)*X(284)-JVS(466)*X(286))/(JVS(455)) + 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)) IF (DO_SLV(39)) & - X(39) = (X(39)-JVS(451)*X(190)-JVS(452)*X(272)-JVS(453)*X(286)-JVS(454)*X(290))/(JVS(450)) + X(39) = (X(39)-JVS(538)*X(228)-JVS(539)*X(334)-JVS(540)*X(340)-JVS(541)*X(345))/(JVS(537)) IF (DO_SLV(38)) & - X(38) = (X(38)-JVS(440)*X(86)-JVS(441)*X(147)-JVS(442)*X(195)-JVS(443)*X(212)-JVS(444)*X(234)-JVS(445)*X(260)-JVS(446)& - &*X(271)-JVS(447)*X(276)-JVS(448)*X(282)-JVS(449)*X(286))/(JVS(439)) + 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)) IF (DO_SLV(37)) & - X(37) = (X(37)-JVS(435)*X(195)-JVS(436)*X(234)-JVS(437)*X(267)-JVS(438)*X(286))/(JVS(434)) + X(37) = (X(37)-JVS(522)*X(241)-JVS(523)*X(312)-JVS(524)*X(329)-JVS(525)*X(345))/(JVS(521)) IF (DO_SLV(36)) & - X(36) = (X(36)-JVS(360)*X(58)-JVS(361)*X(64)-JVS(362)*X(66)-JVS(363)*X(72)-JVS(364)*X(78)-JVS(365)*X(79)-JVS(366)& - &*X(80)-JVS(367)*X(101)-JVS(368)*X(105)-JVS(369)*X(109)-JVS(370)*X(125)-JVS(371)*X(127)-JVS(372)*X(129)-JVS(373)& - &*X(132)-JVS(374)*X(136)-JVS(375)*X(148)-JVS(376)*X(149)-JVS(377)*X(150)-JVS(378)*X(153)-JVS(379)*X(154)& - &-JVS(380)*X(155)-JVS(381)*X(156)-JVS(382)*X(157)-JVS(383)*X(159)-JVS(384)*X(162)-JVS(385)*X(163)-JVS(386)& - &*X(165)-JVS(387)*X(169)-JVS(388)*X(170)-JVS(389)*X(171)-JVS(390)*X(172)-JVS(391)*X(174)-JVS(392)*X(175)& - &-JVS(393)*X(185)-JVS(394)*X(186)-JVS(395)*X(188)-JVS(396)*X(192)-JVS(397)*X(194)-JVS(398)*X(200)-JVS(399)& - &*X(205)-JVS(400)*X(206)-JVS(401)*X(207)-JVS(402)*X(208)-JVS(403)*X(210)-JVS(404)*X(213)-JVS(405)*X(214)& - &-JVS(406)*X(220)-JVS(407)*X(221)-JVS(408)*X(223)-JVS(409)*X(224)-JVS(410)*X(228)-JVS(411)*X(229)-JVS(412)& - &*X(231)-JVS(413)*X(233)-JVS(414)*X(236)-JVS(415)*X(240)-JVS(416)*X(244)-JVS(417)*X(245)-JVS(418)*X(248)& - &-JVS(419)*X(250)-JVS(420)*X(251)-JVS(421)*X(253)-JVS(422)*X(259)-JVS(423)*X(263)-JVS(424)*X(264)-JVS(425)& - &*X(266)-JVS(426)*X(273)-JVS(427)*X(279)-JVS(428)*X(281)-JVS(429)*X(282)-JVS(430)*X(284)-JVS(431)*X(286)& - &-JVS(432)*X(288)-JVS(433)*X(290))/(JVS(359)) + 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)) IF (DO_SLV(35)) & - X(35) = (X(35)-JVS(258)*X(42)-JVS(259)*X(44)-JVS(260)*X(49)-JVS(261)*X(55)-JVS(262)*X(56)-JVS(263)*X(61)-JVS(264)& - &*X(62)-JVS(265)*X(63)-JVS(266)*X(66)-JVS(267)*X(75)-JVS(268)*X(76)-JVS(269)*X(84)-JVS(270)*X(90)-JVS(271)*X(92)& - &-JVS(272)*X(100)-JVS(273)*X(101)-JVS(274)*X(111)-JVS(275)*X(114)-JVS(276)*X(115)-JVS(277)*X(118)-JVS(278)& - &*X(134)-JVS(279)*X(138)-JVS(280)*X(139)-JVS(281)*X(140)-JVS(282)*X(142)-JVS(283)*X(147)-JVS(284)*X(148)& - &-JVS(285)*X(149)-JVS(286)*X(151)-JVS(287)*X(154)-JVS(288)*X(155)-JVS(289)*X(159)-JVS(290)*X(160)-JVS(291)& - &*X(161)-JVS(292)*X(170)-JVS(293)*X(173)-JVS(294)*X(175)-JVS(295)*X(176)-JVS(296)*X(177)-JVS(297)*X(178)& - &-JVS(298)*X(179)-JVS(299)*X(180)-JVS(300)*X(181)-JVS(301)*X(184)-JVS(302)*X(190)-JVS(303)*X(191)-JVS(304)& - &*X(199)-JVS(305)*X(200)-JVS(306)*X(202)-JVS(307)*X(203)-JVS(308)*X(208)-JVS(309)*X(212)-JVS(310)*X(213)& - &-JVS(311)*X(214)-JVS(312)*X(215)-JVS(313)*X(216)-JVS(314)*X(220)-JVS(315)*X(223)-JVS(316)*X(224)-JVS(317)& - &*X(225)-JVS(318)*X(226)-JVS(319)*X(227)-JVS(320)*X(233)-JVS(321)*X(234)-JVS(322)*X(235)-JVS(323)*X(238)& - &-JVS(324)*X(241)-JVS(325)*X(242)-JVS(326)*X(243)-JVS(327)*X(246)-JVS(328)*X(247)-JVS(329)*X(248)-JVS(330)& - &*X(249)-JVS(331)*X(251)-JVS(332)*X(253)-JVS(333)*X(259)-JVS(334)*X(260)-JVS(335)*X(262)-JVS(336)*X(263)& - &-JVS(337)*X(264)-JVS(338)*X(266)-JVS(339)*X(268)-JVS(340)*X(270)-JVS(341)*X(271)-JVS(342)*X(272)-JVS(343)& - &*X(274)-JVS(344)*X(275)-JVS(345)*X(276)-JVS(346)*X(277)-JVS(347)*X(278)-JVS(348)*X(280)-JVS(349)*X(281)& - &-JVS(350)*X(282)-JVS(351)*X(283)-JVS(352)*X(284)-JVS(353)*X(285)-JVS(354)*X(286)-JVS(355)*X(287)-JVS(356)& - &*X(288)-JVS(357)*X(289)-JVS(358)*X(291))/(JVS(257)) + 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)) IF (DO_SLV(34)) & - X(34) = (X(34)-JVS(176)*X(45)-JVS(177)*X(61)-JVS(178)*X(65)-JVS(179)*X(67)-JVS(180)*X(68)-JVS(181)*X(74)-JVS(182)& - &*X(87)-JVS(183)*X(89)-JVS(184)*X(91)-JVS(185)*X(96)-JVS(186)*X(97)-JVS(187)*X(98)-JVS(188)*X(102)-JVS(189)& - &*X(103)-JVS(190)*X(121)-JVS(191)*X(123)-JVS(192)*X(128)-JVS(193)*X(134)-JVS(194)*X(143)-JVS(195)*X(144)& - &-JVS(196)*X(145)-JVS(197)*X(146)-JVS(198)*X(150)-JVS(199)*X(152)-JVS(200)*X(153)-JVS(201)*X(166)-JVS(202)& - &*X(167)-JVS(203)*X(168)-JVS(204)*X(177)-JVS(205)*X(179)-JVS(206)*X(180)-JVS(207)*X(182)-JVS(208)*X(183)& - &-JVS(209)*X(184)-JVS(210)*X(187)-JVS(211)*X(189)-JVS(212)*X(191)-JVS(213)*X(193)-JVS(214)*X(194)-JVS(215)& - &*X(195)-JVS(216)*X(197)-JVS(217)*X(201)-JVS(218)*X(204)-JVS(219)*X(205)-JVS(220)*X(207)-JVS(221)*X(209)& - &-JVS(222)*X(210)-JVS(223)*X(215)-JVS(224)*X(216)-JVS(225)*X(217)-JVS(226)*X(222)-JVS(227)*X(225)-JVS(228)& - &*X(228)-JVS(229)*X(229)-JVS(230)*X(232)-JVS(231)*X(234)-JVS(232)*X(235)-JVS(233)*X(237)-JVS(234)*X(238)& - &-JVS(235)*X(239)-JVS(236)*X(241)-JVS(237)*X(244)-JVS(238)*X(245)-JVS(239)*X(246)-JVS(240)*X(247)-JVS(241)& - &*X(249)-JVS(242)*X(252)-JVS(243)*X(254)-JVS(244)*X(255)-JVS(245)*X(256)-JVS(246)*X(257)-JVS(247)*X(258)& - &-JVS(248)*X(261)-JVS(249)*X(262)-JVS(250)*X(265)-JVS(251)*X(266)-JVS(252)*X(279)-JVS(253)*X(284)-JVS(254)& - &*X(286)-JVS(255)*X(290)-JVS(256)*X(291))/(JVS(175)) + 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)) IF (DO_SLV(33)) & - X(33) = (X(33)-JVS(170)*X(86)-JVS(171)*X(212)-JVS(172)*X(276)-JVS(173)*X(282)-JVS(174)*X(286))/(JVS(169)) + X(33) = (X(33)-JVS(185)*X(89)-JVS(186)*X(345)-JVS(187)*X(348))/(JVS(184)) IF (DO_SLV(32)) & - X(32) = (X(32)-JVS(165)*X(195)-JVS(166)*X(234)-JVS(167)*X(276)-JVS(168)*X(286))/(JVS(164)) + X(32) = (X(32)-JVS(180)*X(241)-JVS(181)*X(312)-JVS(182)*X(345)-JVS(183)*X(348))/(JVS(179)) IF (DO_SLV(31)) & - X(31) = (X(31)-JVS(159)*X(105)-JVS(160)*X(116)-JVS(161)*X(130)-JVS(162)*X(131)-JVS(163)*X(174))/(JVS(158)) + 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)) IF (DO_SLV(30)) & - X(30) = (X(30)-JVS(155)*X(104)-JVS(156)*X(223)-JVS(157)*X(233))/(JVS(154)) + X(30) = (X(30)-JVS(170)*X(115)-JVS(171)*X(270)-JVS(172)*X(294))/(JVS(169)) IF (DO_SLV(29)) & - X(29) = (X(29)-JVS(151)*X(138)-JVS(152)*X(276)-JVS(153)*X(282))/(JVS(150)) + X(29) = (X(29)-JVS(166)*X(166)-JVS(167)*X(341)-JVS(168)*X(348))/(JVS(165)) IF (DO_SLV(28)) & - X(28) = (X(28)-JVS(148)*X(90)-JVS(149)*X(286))/(JVS(147)) + X(28) = (X(28)-JVS(163)*X(94)-JVS(164)*X(345))/(JVS(162)) IF (DO_SLV(27)) & - X(27) = (X(27)-JVS(143)*X(80)-JVS(144)*X(279)-JVS(145)*X(284)-JVS(146)*X(286))/(JVS(142)) + X(27) = (X(27)-JVS(158)*X(101)-JVS(159)*X(337)-JVS(160)*X(345)-JVS(161)*X(346))/(JVS(157)) IF (DO_SLV(26)) & - X(26) = (X(26)-JVS(140)*X(27)-JVS(141)*X(279))/(JVS(139)) + X(26) = (X(26)-JVS(155)*X(27)-JVS(156)*X(346))/(JVS(154)) IF (DO_SLV(25)) & - X(25) = (X(25)-JVS(137)*X(27)-JVS(138)*X(284))/(JVS(136)) + X(25) = (X(25)-JVS(152)*X(27)-JVS(153)*X(337))/(JVS(151)) IF (DO_SLV(24)) & - X(24) = (X(24)-JVS(131)*X(157)-JVS(132)*X(162)-JVS(133)*X(165)-JVS(134)*X(171)-JVS(135)*X(286))/(JVS(130)) + 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)) IF (DO_SLV(23)) & - X(23) = (X(23)-JVS(129)*X(24))/(JVS(128)) + X(23) = (X(23)-JVS(144)*X(24))/(JVS(143)) IF (DO_SLV(22)) & - X(22) = (X(22)-JVS(124)*X(79)-JVS(125)*X(279)-JVS(126)*X(284)-JVS(127)*X(286))/(JVS(123)) + X(22) = (X(22)-JVS(139)*X(82)-JVS(140)*X(337)-JVS(141)*X(345)-JVS(142)*X(346))/(JVS(138)) IF (DO_SLV(21)) & - X(21) = (X(21)-JVS(121)*X(22)-JVS(122)*X(279))/(JVS(120)) + X(21) = (X(21)-JVS(136)*X(22)-JVS(137)*X(346))/(JVS(135)) IF (DO_SLV(20)) & - X(20) = (X(20)-JVS(118)*X(22)-JVS(119)*X(284))/(JVS(117)) + X(20) = (X(20)-JVS(133)*X(22)-JVS(134)*X(337))/(JVS(132)) IF (DO_SLV(19)) & - X(19) = (X(19)-JVS(116)*X(286))/(JVS(115)) + X(19) = (X(19)-JVS(131)*X(345))/(JVS(130)) IF (DO_SLV(18)) & - X(18) = (X(18)-JVS(111)*X(19)-JVS(112)*X(279)-JVS(113)*X(284)-JVS(114)*X(286))/(JVS(110)) + X(18) = (X(18)-JVS(126)*X(19)-JVS(127)*X(337)-JVS(128)*X(345)-JVS(129)*X(346))/(JVS(125)) IF (DO_SLV(17)) & - X(17) = (X(17)-JVS(108)*X(18)-JVS(109)*X(279))/(JVS(107)) + X(17) = (X(17)-JVS(123)*X(18)-JVS(124)*X(346))/(JVS(122)) IF (DO_SLV(16)) & - X(16) = (X(16)-JVS(105)*X(18)-JVS(106)*X(284))/(JVS(104)) + X(16) = (X(16)-JVS(120)*X(18)-JVS(121)*X(337))/(JVS(119)) IF (DO_SLV(15)) & - X(15) = (X(15)-JVS(102)*X(224)-JVS(103)*X(281))/(JVS(101)) + X(15) = (X(15)-JVS(117)*X(276)-JVS(118)*X(351))/(JVS(116)) IF (DO_SLV(14)) & - X(14) = (X(14)-JVS(99)*X(224)-JVS(100)*X(286))/(JVS(98)) + X(14) = (X(14)-JVS(114)*X(276)-JVS(115)*X(345))/(JVS(113)) IF (DO_SLV(13)) & - X(13) = (X(13)-JVS(94)*X(64)-JVS(95)*X(279)-JVS(96)*X(284)-JVS(97)*X(286))/(JVS(93)) + X(13) = (X(13)-JVS(109)*X(143)-JVS(110)*X(337)-JVS(111)*X(345)-JVS(112)*X(346))/(JVS(108)) IF (DO_SLV(12)) & - X(12) = (X(12)-JVS(91)*X(13)-JVS(92)*X(279))/(JVS(90)) + X(12) = (X(12)-JVS(106)*X(13)-JVS(107)*X(346))/(JVS(105)) IF (DO_SLV(11)) & - X(11) = (X(11)-JVS(88)*X(13)-JVS(89)*X(284))/(JVS(87)) + X(11) = (X(11)-JVS(103)*X(13)-JVS(104)*X(337))/(JVS(102)) IF (DO_SLV(10)) & - X(10) = (X(10)-JVS(80)*X(42)-JVS(81)*X(44)-JVS(82)*X(49)-JVS(83)*X(69)-JVS(84)*X(203)-JVS(85)*X(268)-JVS(86)*X(270))& - &/(JVS(79)) + 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))& + &/(JVS(94)) IF (DO_SLV(9)) & - X(9) = (X(9)-JVS(72)*X(42)-JVS(73)*X(44)-JVS(74)*X(49)-JVS(75)*X(69)-JVS(76)*X(203)-JVS(77)*X(268)-JVS(78)*X(270))& - &/(JVS(71)) + 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))& + &/(JVS(86)) IF (DO_SLV(8)) & - X(8) = (X(8)-JVS(69)*X(45)-JVS(70)*X(98))/(JVS(68)) + X(8) = (X(8)-JVS(84)*X(45)-JVS(85)*X(103))/(JVS(83)) IF (DO_SLV(7)) & - X(7) = (X(7)-JVS(15)*X(66)-JVS(16)*X(67)-JVS(17)*X(70)-JVS(18)*X(88)-JVS(19)*X(97)-JVS(20)*X(104)-JVS(21)*X(121)& - &-JVS(22)*X(123)-JVS(23)*X(136)-JVS(24)*X(150)-JVS(25)*X(163)-JVS(26)*X(164)-JVS(27)*X(175)-JVS(28)*X(180)& - &-JVS(29)*X(184)-JVS(30)*X(192)-JVS(31)*X(195)-JVS(32)*X(201)-JVS(33)*X(207)-JVS(34)*X(208)-JVS(35)*X(209)& - &-JVS(36)*X(210)-JVS(37)*X(211)-JVS(38)*X(215)-JVS(39)*X(217)-JVS(40)*X(219)-JVS(41)*X(224)-JVS(42)*X(231)& - &-JVS(43)*X(234)-JVS(44)*X(236)-JVS(45)*X(237)-JVS(46)*X(238)-JVS(47)*X(239)-JVS(48)*X(246)-JVS(49)*X(247)& - &-JVS(50)*X(249)-JVS(51)*X(250)-JVS(52)*X(252)-JVS(53)*X(253)-JVS(54)*X(254)-JVS(55)*X(255)-JVS(56)*X(256)& - &-JVS(57)*X(257)-JVS(58)*X(258)-JVS(59)*X(261)-JVS(60)*X(266)-JVS(61)*X(267)-JVS(62)*X(279)-JVS(63)*X(281)& - &-JVS(64)*X(282)-JVS(65)*X(284)-JVS(66)*X(286)-JVS(67)*X(290))/(JVS(14)) + 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)) IF (DO_SLV(6)) & - X(6) = (X(6)-JVS(12)*X(41)-JVS(13)*X(286))/(JVS(11)) + X(6) = (X(6)-JVS(12)*X(41)-JVS(13)*X(345))/(JVS(11)) IF (DO_SLV(5)) & - X(5) = (X(5)-JVS(10)*X(210))/(JVS(9)) + X(5) = (X(5)-JVS(10)*X(269))/(JVS(9)) IF (DO_SLV(4)) & - X(4) = (X(4)-JVS(5)*X(42)-JVS(6)*X(44)-JVS(7)*X(49)-JVS(8)*X(69))/(JVS(4)) + X(4) = (X(4)-JVS(5)*X(42)-JVS(6)*X(44)-JVS(7)*X(55)-JVS(8)*X(73))/(JVS(4)) IF (DO_SLV(3)) & X(3) = X(3)/JVS(3) IF (DO_SLV(2)) & @@ -2037,1072 +2338,1323 @@ SUBROUTINE KppSolveTR ( JVS, X, XX ) XX(5) = X(5)/JVS(9) XX(6) = X(6)/JVS(11) XX(7) = X(7)/JVS(14) - XX(8) = X(8)/JVS(68) - XX(9) = X(9)/JVS(71) - XX(10) = X(10)/JVS(79) - XX(11) = X(11)/JVS(87) - XX(12) = X(12)/JVS(90) - XX(13) = (X(13)-JVS(88)*XX(11)-JVS(91)*XX(12))/(JVS(93)) - XX(14) = X(14)/JVS(98) - XX(15) = X(15)/JVS(101) - XX(16) = X(16)/JVS(104) - XX(17) = X(17)/JVS(107) - XX(18) = (X(18)-JVS(105)*XX(16)-JVS(108)*XX(17))/(JVS(110)) - XX(19) = (X(19)-JVS(111)*XX(18))/(JVS(115)) - XX(20) = X(20)/JVS(117) - XX(21) = X(21)/JVS(120) - XX(22) = (X(22)-JVS(118)*XX(20)-JVS(121)*XX(21))/(JVS(123)) - XX(23) = X(23)/JVS(128) - XX(24) = (X(24)-JVS(129)*XX(23))/(JVS(130)) - XX(25) = X(25)/JVS(136) - XX(26) = X(26)/JVS(139) - XX(27) = (X(27)-JVS(137)*XX(25)-JVS(140)*XX(26))/(JVS(142)) - XX(28) = X(28)/JVS(147) - XX(29) = X(29)/JVS(150) - XX(30) = X(30)/JVS(154) - XX(31) = X(31)/JVS(158) - XX(32) = X(32)/JVS(164) - XX(33) = X(33)/JVS(169) - XX(34) = X(34)/JVS(175) - XX(35) = X(35)/JVS(257) - XX(36) = X(36)/JVS(359) - XX(37) = X(37)/JVS(434) - XX(38) = X(38)/JVS(439) - XX(39) = X(39)/JVS(450) - XX(40) = X(40)/JVS(455) - XX(41) = (X(41)-JVS(12)*XX(6))/(JVS(467)) - XX(42) = (X(42)-JVS(5)*XX(4)-JVS(72)*XX(9)-JVS(80)*XX(10)-JVS(258)*XX(35))/(JVS(469)) - XX(43) = X(43)/JVS(471) - XX(44) = (X(44)-JVS(6)*XX(4)-JVS(73)*XX(9)-JVS(81)*XX(10)-JVS(259)*XX(35))/(JVS(473)) - XX(45) = (X(45)-JVS(69)*XX(8)-JVS(176)*XX(34))/(JVS(475)) - XX(46) = X(46)/JVS(479) - XX(47) = X(47)/JVS(481) - XX(48) = X(48)/JVS(483) - XX(49) = (X(49)-JVS(7)*XX(4)-JVS(74)*XX(9)-JVS(82)*XX(10)-JVS(260)*XX(35))/(JVS(485)) - XX(50) = X(50)/JVS(488) - XX(51) = X(51)/JVS(491) - XX(52) = X(52)/JVS(494) - XX(53) = X(53)/JVS(496) - XX(54) = X(54)/JVS(498) - XX(55) = (X(55)-JVS(261)*XX(35))/(JVS(500)) - XX(56) = (X(56)-JVS(262)*XX(35))/(JVS(502)) - XX(57) = X(57)/JVS(504) - XX(58) = (X(58)-JVS(360)*XX(36))/(JVS(506)) - XX(59) = X(59)/JVS(508) - XX(60) = X(60)/JVS(510) - XX(61) = (X(61)-JVS(177)*XX(34)-JVS(263)*XX(35))/(JVS(513)) - XX(62) = (X(62)-JVS(264)*XX(35))/(JVS(517)) - XX(63) = (X(63)-JVS(265)*XX(35))/(JVS(521)) - XX(64) = (X(64)-JVS(94)*XX(13)-JVS(361)*XX(36))/(JVS(525)) - XX(65) = (X(65)-JVS(178)*XX(34)-JVS(514)*XX(61))/(JVS(527)) - XX(66) = (X(66)-JVS(15)*XX(7)-JVS(266)*XX(35)-JVS(362)*XX(36))/(JVS(530)) - XX(67) = (X(67)-JVS(16)*XX(7)-JVS(179)*XX(34))/(JVS(533)) - XX(68) = (X(68)-JVS(180)*XX(34))/(JVS(536)) - XX(69) = (X(69)-JVS(8)*XX(4)-JVS(75)*XX(9)-JVS(83)*XX(10))/(JVS(540)) - XX(70) = (X(70)-JVS(17)*XX(7))/(JVS(544)) - XX(71) = X(71)/JVS(548) - XX(72) = (X(72)-JVS(363)*XX(36))/(JVS(551)) - XX(73) = X(73)/JVS(554) - XX(74) = (X(74)-JVS(181)*XX(34))/(JVS(560)) - XX(75) = (X(75)-JVS(267)*XX(35))/(JVS(563)) - XX(76) = (X(76)-JVS(268)*XX(35))/(JVS(566)) - XX(77) = X(77)/JVS(569) - XX(78) = (X(78)-JVS(364)*XX(36))/(JVS(572)) - XX(79) = (X(79)-JVS(124)*XX(22)-JVS(365)*XX(36))/(JVS(575)) - XX(80) = (X(80)-JVS(143)*XX(27)-JVS(366)*XX(36))/(JVS(577)) - XX(81) = X(81)/JVS(579) - XX(82) = X(82)/JVS(582) - XX(83) = X(83)/JVS(585) - XX(84) = (X(84)-JVS(269)*XX(35))/(JVS(588)) - XX(85) = X(85)/JVS(591) - XX(86) = (X(86)-JVS(170)*XX(33)-JVS(440)*XX(38))/(JVS(595)) - XX(87) = (X(87)-JVS(182)*XX(34))/(JVS(599)) - XX(88) = (X(88)-JVS(18)*XX(7))/(JVS(603)) - XX(89) = (X(89)-JVS(183)*XX(34))/(JVS(607)) - XX(90) = (X(90)-JVS(148)*XX(28)-JVS(270)*XX(35))/(JVS(611)) - XX(91) = (X(91)-JVS(184)*XX(34))/(JVS(614)) - XX(92) = (X(92)-JVS(271)*XX(35)-JVS(470)*XX(42)-JVS(486)*XX(49))/(JVS(621)) - XX(93) = X(93)/JVS(625) - XX(94) = X(94)/JVS(629) - XX(95) = X(95)/JVS(633) - XX(96) = (X(96)-JVS(185)*XX(34))/(JVS(637)) - XX(97) = (X(97)-JVS(19)*XX(7)-JVS(186)*XX(34))/(JVS(641)) - XX(98) = (X(98)-JVS(70)*XX(8)-JVS(187)*XX(34))/(JVS(645)) - XX(99) = X(99)/JVS(659) - XX(100) = (X(100)-JVS(272)*XX(35))/(JVS(667)) - XX(101) = (X(101)-JVS(273)*XX(35)-JVS(367)*XX(36))/(JVS(672)) - XX(102) = (X(102)-JVS(188)*XX(34))/(JVS(675)) - XX(103) = (X(103)-JVS(189)*XX(34))/(JVS(680)) - XX(104) = (X(104)-JVS(20)*XX(7)-JVS(155)*XX(30))/(JVS(686)) - XX(105) = (X(105)-JVS(159)*XX(31)-JVS(368)*XX(36))/(JVS(692)) - XX(106) = X(106)/JVS(696) - XX(107) = X(107)/JVS(701) - XX(108) = X(108)/JVS(707) - XX(109) = (X(109)-JVS(369)*XX(36))/(JVS(713)) - XX(110) = X(110)/JVS(718) - XX(111) = (X(111)-JVS(274)*XX(35))/(JVS(723)) - XX(112) = X(112)/JVS(728) - XX(113) = X(113)/JVS(732) - XX(114) = (X(114)-JVS(275)*XX(35))/(JVS(736)) - XX(115) = (X(115)-JVS(276)*XX(35))/(JVS(742)) - XX(116) = (X(116)-JVS(160)*XX(31))/(JVS(745)) - XX(117) = X(117)/JVS(751) - XX(118) = (X(118)-JVS(277)*XX(35))/(JVS(758)) - XX(119) = X(119)/JVS(761) - XX(120) = (X(120)-JVS(708)*XX(108))/(JVS(766)) - XX(121) = (X(121)-JVS(21)*XX(7)-JVS(190)*XX(34))/(JVS(771)) - XX(122) = X(122)/JVS(777) - XX(123) = (X(123)-JVS(22)*XX(7)-JVS(191)*XX(34))/(JVS(788)) - XX(124) = X(124)/JVS(793) - XX(125) = (X(125)-JVS(370)*XX(36))/(JVS(797)) - XX(126) = X(126)/JVS(801) - XX(127) = (X(127)-JVS(371)*XX(36))/(JVS(810)) - XX(128) = (X(128)-JVS(192)*XX(34))/(JVS(815)) - XX(129) = (X(129)-JVS(372)*XX(36))/(JVS(824)) - XX(130) = (X(130)-JVS(161)*XX(31))/(JVS(829)) - XX(131) = (X(131)-JVS(162)*XX(31))/(JVS(835)) - XX(132) = (X(132)-JVS(373)*XX(36))/(JVS(841)) - XX(133) = X(133)/JVS(847) - XX(134) = (X(134)-JVS(193)*XX(34)-JVS(278)*XX(35)-JVS(476)*XX(45))/(JVS(853)) - XX(135) = X(135)/JVS(859) - XX(136) = (X(136)-JVS(23)*XX(7)-JVS(374)*XX(36)-JVS(693)*XX(105))/(JVS(873)) - XX(137) = X(137)/JVS(877) - XX(138) = (X(138)-JVS(151)*XX(29)-JVS(279)*XX(35)-JVS(522)*XX(63))/(JVS(882)) - XX(139) = (X(139)-JVS(280)*XX(35)-JVS(646)*XX(98)-JVS(830)*XX(130)-JVS(836)*XX(131))/(JVS(887)) - XX(140) = (X(140)-JVS(281)*XX(35)-JVS(647)*XX(98)-JVS(831)*XX(130)-JVS(837)*XX(131))/(JVS(891)) - XX(141) = X(141)/JVS(895) - XX(142) = (X(142)-JVS(282)*XX(35))/(JVS(903)) - XX(143) = (X(143)-JVS(194)*XX(34))/(JVS(908)) - XX(144) = (X(144)-JVS(195)*XX(34))/(JVS(915)) - XX(145) = (X(145)-JVS(196)*XX(34))/(JVS(921)) - XX(146) = (X(146)-JVS(197)*XX(34))/(JVS(927)) - XX(147) = (X(147)-JVS(283)*XX(35)-JVS(441)*XX(38)-JVS(518)*XX(62)-JVS(778)*XX(122))/(JVS(932)) - XX(148) = (X(148)-JVS(284)*XX(35)-JVS(375)*XX(36))/(JVS(940)) - XX(149) = (X(149)-JVS(285)*XX(35)-JVS(376)*XX(36))/(JVS(944)) - XX(150) = (X(150)-JVS(24)*XX(7)-JVS(198)*XX(34)-JVS(377)*XX(36))/(JVS(948)) - XX(151) = (X(151)-JVS(286)*XX(35)-JVS(648)*XX(98)-JVS(802)*XX(126))/(JVS(954)) - XX(152) = (X(152)-JVS(199)*XX(34))/(JVS(959)) - XX(153) = (X(153)-JVS(200)*XX(34)-JVS(378)*XX(36)-JVS(694)*XX(105))/(JVS(964)) - XX(154) = (X(154)-JVS(287)*XX(35)-JVS(379)*XX(36)-JVS(456)*XX(40))/(JVS(969)) - XX(155) = (X(155)-JVS(288)*XX(35)-JVS(380)*XX(36)-JVS(457)*XX(40))/(JVS(973)) - XX(156) = (X(156)-JVS(381)*XX(36))/(JVS(979)) - XX(157) = (X(157)-JVS(131)*XX(24)-JVS(382)*XX(36)-JVS(832)*XX(130)-JVS(838)*XX(131))/(JVS(986)) - XX(158) = X(158)/JVS(990) - XX(159) = (X(159)-JVS(289)*XX(35)-JVS(383)*XX(36))/(JVS(1008)) - XX(160) = (X(160)-JVS(290)*XX(35))/(JVS(1017)) - XX(161) = (X(161)-JVS(291)*XX(35))/(JVS(1027)) - XX(162) = (X(162)-JVS(132)*XX(24)-JVS(384)*XX(36)-JVS(833)*XX(130)-JVS(839)*XX(131))/(JVS(1032)) - XX(163) = (X(163)-JVS(25)*XX(7)-JVS(385)*XX(36)-JVS(687)*XX(104))/(JVS(1036)) - XX(164) = (X(164)-JVS(26)*XX(7))/(JVS(1043)) - XX(165) = (X(165)-JVS(133)*XX(24)-JVS(386)*XX(36)-JVS(746)*XX(116)-JVS(811)*XX(127))/(JVS(1049)) - XX(166) = (X(166)-JVS(201)*XX(34))/(JVS(1053)) - XX(167) = (X(167)-JVS(202)*XX(34))/(JVS(1059)) - XX(168) = (X(168)-JVS(203)*XX(34))/(JVS(1064)) - XX(169) = (X(169)-JVS(387)*XX(36))/(JVS(1071)) - XX(170) = (X(170)-JVS(292)*XX(35)-JVS(388)*XX(36)-JVS(458)*XX(40))/(JVS(1081)) - XX(171) = (X(171)-JVS(134)*XX(24)-JVS(389)*XX(36)-JVS(747)*XX(116)-JVS(825)*XX(129))/(JVS(1085)) - XX(172) = (X(172)-JVS(390)*XX(36))/(JVS(1090)) - XX(173) = (X(173)-JVS(293)*XX(35))/(JVS(1100)) - XX(174) = (X(174)-JVS(163)*XX(31)-JVS(391)*XX(36))/(JVS(1119)) - XX(175) = (X(175)-JVS(27)*XX(7)-JVS(294)*XX(35)-JVS(392)*XX(36)-JVS(649)*XX(98))/(JVS(1133)) - XX(176) = (X(176)-JVS(295)*XX(35)-JVS(816)*XX(128)-JVS(860)*XX(135))/(JVS(1144)) - XX(177) = (X(177)-JVS(204)*XX(34)-JVS(296)*XX(35))/(JVS(1151)) - XX(178) = (X(178)-JVS(297)*XX(35)-JVS(477)*XX(45)-JVS(854)*XX(134))/(JVS(1162)) - XX(179) = (X(179)-JVS(205)*XX(34)-JVS(298)*XX(35)-JVS(537)*XX(68)-JVS(709)*XX(108)-JVS(767)*XX(120))/(JVS(1174)) - XX(180) = (X(180)-JVS(28)*XX(7)-JVS(206)*XX(34)-JVS(299)*XX(35)-JVS(545)*XX(70)-JVS(642)*XX(97)-JVS(702)*XX(107)& - &-JVS(1018)*XX(160))/(JVS(1184)) - XX(181) = (X(181)-JVS(300)*XX(35)-JVS(650)*XX(98))/(JVS(1191)) - XX(182) = (X(182)-JVS(207)*XX(34)-JVS(896)*XX(141)-JVS(1044)*XX(164)-JVS(1091)*XX(172))/(JVS(1199)) - XX(183) = (X(183)-JVS(208)*XX(34)-JVS(897)*XX(141)-JVS(1045)*XX(164))/(JVS(1206)) - XX(184) = (X(184)-JVS(29)*XX(7)-JVS(209)*XX(34)-JVS(301)*XX(35))/(JVS(1217)) - XX(185) = (X(185)-JVS(393)*XX(36))/(JVS(1229)) - XX(186) = (X(186)-JVS(394)*XX(36)-JVS(714)*XX(109)-JVS(772)*XX(121)-JVS(916)*XX(144)-JVS(980)*XX(156)-JVS(1037)& - &*XX(163)-JVS(1120)*XX(174)-JVS(1230)*XX(185))/(JVS(1243)) - XX(187) = (X(187)-JVS(210)*XX(34)-JVS(898)*XX(141)-JVS(1046)*XX(164))/(JVS(1250)) - XX(188) = (X(188)-JVS(395)*XX(36)-JVS(715)*XX(109)-JVS(789)*XX(123)-JVS(922)*XX(145)-JVS(981)*XX(156)-JVS(1038)& - &*XX(163)-JVS(1121)*XX(174)-JVS(1231)*XX(185))/(JVS(1257)) - XX(189) = (X(189)-JVS(211)*XX(34)-JVS(1092)*XX(172)-JVS(1134)*XX(175))/(JVS(1263)) - XX(190) = (X(190)-JVS(302)*XX(35)-JVS(451)*XX(39)-JVS(1152)*XX(177))/(JVS(1268)) - XX(191) = (X(191)-JVS(212)*XX(34)-JVS(303)*XX(35)-JVS(703)*XX(107)-JVS(1019)*XX(160))/(JVS(1280)) - XX(192) = (X(192)-JVS(30)*XX(7)-JVS(396)*XX(36))/(JVS(1290)) - XX(193) = (X(193)-JVS(213)*XX(34))/(JVS(1303)) - XX(194) = (X(194)-JVS(214)*XX(34)-JVS(397)*XX(36)-JVS(1072)*XX(169))/(JVS(1324)) - XX(195) = (X(195)-JVS(31)*XX(7)-JVS(165)*XX(32)-JVS(215)*XX(34)-JVS(435)*XX(37)-JVS(442)*XX(38)-JVS(459)*XX(40)& - &-JVS(779)*XX(122))/(JVS(1332)) - XX(196) = X(196)/JVS(1343) - XX(197) = (X(197)-JVS(216)*XX(34))/(JVS(1357)) - XX(198) = X(198)/JVS(1376) - XX(199) = (X(199)-JVS(304)*XX(35)-JVS(478)*XX(45)-JVS(855)*XX(134))/(JVS(1392)) - XX(200) = (X(200)-JVS(305)*XX(35)-JVS(398)*XX(36)-JVS(651)*XX(98))/(JVS(1407)) - XX(201) = (X(201)-JVS(32)*XX(7)-JVS(217)*XX(34)-JVS(733)*XX(113)-JVS(991)*XX(158)-JVS(1377)*XX(198))/(JVS(1420)) - XX(202) = (X(202)-JVS(306)*XX(35)-JVS(652)*XX(98))/(JVS(1428)) - XX(203) = (X(203)-JVS(76)*XX(9)-JVS(84)*XX(10)-JVS(307)*XX(35)-JVS(555)*XX(73)-JVS(660)*XX(99)-JVS(909)*XX(143)& - &-JVS(1304)*XX(193))/(JVS(1435)) - XX(204) = (X(204)-JVS(218)*XX(34)-JVS(1073)*XX(169))/(JVS(1444)) - XX(205) = (X(205)-JVS(219)*XX(34)-JVS(399)*XX(36)-JVS(1408)*XX(200))/(JVS(1455)) - XX(206) = (X(206)-JVS(400)*XX(36)-JVS(752)*XX(117)-JVS(842)*XX(132)-JVS(1074)*XX(169)-JVS(1232)*XX(185))/(JVS(1469)) - XX(207) = (X(207)-JVS(33)*XX(7)-JVS(220)*XX(34)-JVS(401)*XX(36)-JVS(874)*XX(136)-JVS(965)*XX(153))/(JVS(1481)) - XX(208) = (X(208)-JVS(34)*XX(7)-JVS(308)*XX(35)-JVS(402)*XX(36))/(JVS(1493)) - XX(209) = (X(209)-JVS(35)*XX(7)-JVS(221)*XX(34)-JVS(729)*XX(112)-JVS(992)*XX(158))/(JVS(1507)) - XX(210) = (X(210)-JVS(10)*XX(5)-JVS(36)*XX(7)-JVS(222)*XX(34)-JVS(403)*XX(36)-JVS(1009)*XX(159)-JVS(1305)*XX(193))& - &/(JVS(1522)) - XX(211) = (X(211)-JVS(37)*XX(7))/(JVS(1543)) - XX(212) = (X(212)-JVS(171)*XX(33)-JVS(309)*XX(35)-JVS(443)*XX(38)-JVS(780)*XX(122))/(JVS(1569)) - XX(213) = (X(213)-JVS(310)*XX(35)-JVS(404)*XX(36)-JVS(653)*XX(98))/(JVS(1591)) - XX(214) = (X(214)-JVS(311)*XX(35)-JVS(405)*XX(36)-JVS(654)*XX(98)-JVS(748)*XX(116)-JVS(1065)*XX(168)-JVS(1122)*XX(174)& - &-JVS(1291)*XX(192)-JVS(1325)*XX(194)-JVS(1470)*XX(206)-JVS(1494)*XX(208)-JVS(1592)*XX(213))/(JVS(1604)) - XX(215) = (X(215)-JVS(38)*XX(7)-JVS(223)*XX(34)-JVS(312)*XX(35)-JVS(1163)*XX(178)-JVS(1393)*XX(199))/(JVS(1613)) - XX(216) = (X(216)-JVS(224)*XX(34)-JVS(313)*XX(35)-JVS(993)*XX(158)-JVS(1164)*XX(178)-JVS(1394)*XX(199)-JVS(1614)& - &*XX(215))/(JVS(1626)) - XX(217) = (X(217)-JVS(39)*XX(7)-JVS(225)*XX(34)-JVS(638)*XX(96)-JVS(719)*XX(110)-JVS(848)*XX(133))/(JVS(1635)) - XX(218) = X(218)/JVS(1649) - XX(219) = (X(219)-JVS(40)*XX(7))/(JVS(1677)) - XX(220) = (X(220)-JVS(314)*XX(35)-JVS(406)*XX(36)-JVS(655)*XX(98)-JVS(749)*XX(116)-JVS(1054)*XX(166)-JVS(1123)*XX(174)& - &-JVS(1135)*XX(175)-JVS(1292)*XX(192)-JVS(1326)*XX(194)-JVS(1378)*XX(198)-JVS(1471)*XX(206)-JVS(1593)*XX(213))& - &/(JVS(1700)) - XX(221) = (X(221)-JVS(407)*XX(36))/(JVS(1710)) - XX(222) = (X(222)-JVS(226)*XX(34)-JVS(1093)*XX(172)-JVS(1136)*XX(175)-JVS(1344)*XX(196)-JVS(1379)*XX(198)-JVS(1495)& - &*XX(208)-JVS(1594)*XX(213))/(JVS(1724)) - XX(223) = (X(223)-JVS(156)*XX(30)-JVS(315)*XX(35)-JVS(408)*XX(36))/(JVS(1753)) - XX(224) = (X(224)-JVS(41)*XX(7)-JVS(99)*XX(14)-JVS(102)*XX(15)-JVS(316)*XX(35)-JVS(409)*XX(36)-JVS(460)*XX(40)& - &-JVS(812)*XX(127)-JVS(826)*XX(129)-JVS(1094)*XX(172)-JVS(1124)*XX(174)-JVS(1244)*XX(186)-JVS(1258)*XX(188)& - &-JVS(1345)*XX(196)-JVS(1409)*XX(200)-JVS(1445)*XX(204)-JVS(1456)*XX(205)-JVS(1544)*XX(211)-JVS(1570)*XX(212)& - &-JVS(1754)*XX(223))/(JVS(1773)) - XX(225) = (X(225)-JVS(227)*XX(34)-JVS(317)*XX(35)-JVS(762)*XX(119)-JVS(994)*XX(158)-JVS(1395)*XX(199)-JVS(1650)& - &*XX(218))/(JVS(1779)) - XX(226) = (X(226)-JVS(318)*XX(35))/(JVS(1795)) - XX(227) = (X(227)-JVS(319)*XX(35)-JVS(474)*XX(44)-JVS(487)*XX(49)-JVS(622)*XX(92)-JVS(661)*XX(99)-JVS(724)*XX(111))& - &/(JVS(1810)) - XX(228) = (X(228)-JVS(228)*XX(34)-JVS(410)*XX(36)-JVS(753)*XX(117)-JVS(798)*XX(125)-JVS(982)*XX(156)-JVS(1075)*XX(169)& - &-JVS(1233)*XX(185)-JVS(1472)*XX(206)-JVS(1595)*XX(213)-JVS(1755)*XX(223))/(JVS(1831)) - XX(229) = (X(229)-JVS(229)*XX(34)-JVS(411)*XX(36)-JVS(799)*XX(125)-JVS(843)*XX(132)-JVS(983)*XX(156)-JVS(1076)*XX(169)& - &-JVS(1234)*XX(185)-JVS(1473)*XX(206)-JVS(1596)*XX(213)-JVS(1756)*XX(223)-JVS(1832)*XX(228))/(JVS(1852)) - XX(230) = (X(230)-JVS(1077)*XX(169)-JVS(1235)*XX(185)-JVS(1757)*XX(223))/(JVS(1878)) - XX(231) = (X(231)-JVS(42)*XX(7)-JVS(412)*XX(36)-JVS(1346)*XX(196))/(JVS(1912)) - XX(232) = (X(232)-JVS(230)*XX(34)-JVS(1137)*XX(175)-JVS(1380)*XX(198)-JVS(1496)*XX(208))/(JVS(1931)) - XX(233) = (X(233)-JVS(157)*XX(30)-JVS(320)*XX(35)-JVS(413)*XX(36))/(JVS(1978)) - XX(234) = (X(234)-JVS(43)*XX(7)-JVS(166)*XX(32)-JVS(231)*XX(34)-JVS(321)*XX(35)-JVS(436)*XX(37)-JVS(444)*XX(38)& - &-JVS(461)*XX(40)-JVS(592)*XX(85)-JVS(781)*XX(122)-JVS(1545)*XX(211)-JVS(1571)*XX(212))/(JVS(2005)) - XX(235) = (X(235)-JVS(232)*XX(34)-JVS(322)*XX(35)-JVS(861)*XX(135)-JVS(1306)*XX(193)-JVS(1358)*XX(197))/(JVS(2019)) - XX(236) = (X(236)-JVS(44)*XX(7)-JVS(414)*XX(36)-JVS(1546)*XX(211)-JVS(1651)*XX(218)-JVS(1758)*XX(223))/(JVS(2057)) - XX(237) = (X(237)-JVS(45)*XX(7)-JVS(233)*XX(34)-JVS(615)*XX(91)-JVS(630)*XX(94)-JVS(995)*XX(158)-JVS(1652)*XX(218)& - &-JVS(1678)*XX(219))/(JVS(2080)) - XX(238) = (X(238)-JVS(46)*XX(7)-JVS(234)*XX(34)-JVS(323)*XX(35)-JVS(763)*XX(119)-JVS(996)*XX(158)-JVS(1165)*XX(178)& - &-JVS(1396)*XX(199)-JVS(1547)*XX(211)-JVS(1653)*XX(218)-JVS(1711)*XX(221)-JVS(1796)*XX(226)-JVS(2081)*XX(237))& - &/(JVS(2098)) - XX(239) = (X(239)-JVS(47)*XX(7)-JVS(235)*XX(34)-JVS(720)*XX(110)-JVS(849)*XX(133)-JVS(1654)*XX(218)-JVS(1679)*XX(219))& - &/(JVS(2112)) - XX(240) = (X(240)-JVS(415)*XX(36)-JVS(716)*XX(109)-JVS(917)*XX(144)-JVS(923)*XX(145)-JVS(949)*XX(150)-JVS(984)*XX(156)& - &-JVS(1039)*XX(163)-JVS(1125)*XX(174)-JVS(1138)*XX(175)-JVS(1236)*XX(185)-JVS(1381)*XX(198)-JVS(1410)*XX(200)& - &-JVS(1446)*XX(204)-JVS(1457)*XX(205)-JVS(1497)*XX(208)-JVS(1548)*XX(211)-JVS(1759)*XX(223)-JVS(1879)*XX(230)& - &-JVS(1913)*XX(231)-JVS(1979)*XX(233)-JVS(2058)*XX(236))/(JVS(2131)) - XX(241) = (X(241)-JVS(236)*XX(34)-JVS(324)*XX(35)-JVS(656)*XX(98)-JVS(688)*XX(104)-JVS(1237)*XX(185)-JVS(1498)*XX(208)& - &-JVS(1549)*XX(211)-JVS(1760)*XX(223)-JVS(1980)*XX(233)-JVS(2059)*XX(236))/(JVS(2154)) - XX(242) = (X(242)-JVS(325)*XX(35)-JVS(657)*XX(98)-JVS(950)*XX(150)-JVS(1040)*XX(163)-JVS(1095)*XX(172)-JVS(1238)& - &*XX(185)-JVS(1347)*XX(196)-JVS(1382)*XX(198)-JVS(1411)*XX(200)-JVS(1499)*XX(208)-JVS(1550)*XX(211)-JVS(1597)& - &*XX(213)-JVS(1761)*XX(223)-JVS(1880)*XX(230)-JVS(1914)*XX(231)-JVS(1932)*XX(232)-JVS(1981)*XX(233)-JVS(2060)& - &*XX(236)-JVS(2155)*XX(241))/(JVS(2185)) - XX(243) = (X(243)-JVS(326)*XX(35)-JVS(658)*XX(98)-JVS(803)*XX(126)-JVS(928)*XX(146)-JVS(1383)*XX(198)-JVS(1500)& - &*XX(208)-JVS(1933)*XX(232)-JVS(1982)*XX(233)-JVS(2061)*XX(236)-JVS(2132)*XX(240)-JVS(2156)*XX(241)-JVS(2186)& - &*XX(242))/(JVS(2208)) - XX(244) = (X(244)-JVS(237)*XX(34)-JVS(416)*XX(36)-JVS(813)*XX(127)-JVS(892)*XX(140)-JVS(960)*XX(152)-JVS(1033)*XX(162)& - &-JVS(1050)*XX(165)-JVS(1126)*XX(174)-JVS(1207)*XX(183)-JVS(1251)*XX(187)-JVS(1259)*XX(188)-JVS(1293)*XX(192)& - &-JVS(1327)*XX(194)-JVS(1348)*XX(196)-JVS(1412)*XX(200)-JVS(1458)*XX(205)-JVS(1474)*XX(206)-JVS(1551)*XX(211)& - &-JVS(1598)*XX(213)-JVS(1701)*XX(220)-JVS(1762)*XX(223)-JVS(1833)*XX(228)-JVS(1853)*XX(229)-JVS(1881)*XX(230)& - &-JVS(1915)*XX(231)-JVS(1983)*XX(233)-JVS(2062)*XX(236)-JVS(2133)*XX(240)-JVS(2157)*XX(241)-JVS(2187)*XX(242)& - &-JVS(2209)*XX(243))/(JVS(2223)) - XX(245) = (X(245)-JVS(238)*XX(34)-JVS(417)*XX(36)-JVS(827)*XX(129)-JVS(888)*XX(139)-JVS(987)*XX(157)-JVS(1060)*XX(167)& - &-JVS(1086)*XX(171)-JVS(1096)*XX(172)-JVS(1127)*XX(174)-JVS(1200)*XX(182)-JVS(1245)*XX(186)-JVS(1252)*XX(187)& - &-JVS(1294)*XX(192)-JVS(1328)*XX(194)-JVS(1413)*XX(200)-JVS(1447)*XX(204)-JVS(1475)*XX(206)-JVS(1552)*XX(211)& - &-JVS(1599)*XX(213)-JVS(1605)*XX(214)-JVS(1763)*XX(223)-JVS(1834)*XX(228)-JVS(1854)*XX(229)-JVS(1882)*XX(230)& - &-JVS(1916)*XX(231)-JVS(1984)*XX(233)-JVS(2063)*XX(236)-JVS(2134)*XX(240)-JVS(2158)*XX(241)-JVS(2188)*XX(242)& - &-JVS(2210)*XX(243)-JVS(2224)*XX(244))/(JVS(2238)) - XX(246) = (X(246)-JVS(48)*XX(7)-JVS(239)*XX(34)-JVS(327)*XX(35)-JVS(804)*XX(126)-JVS(955)*XX(151)-JVS(1128)*XX(174)& - &-JVS(1192)*XX(181)-JVS(1264)*XX(189)-JVS(1349)*XX(196)-JVS(1384)*XX(198)-JVS(1501)*XX(208)-JVS(1600)*XX(213)& - &-JVS(1606)*XX(214)-JVS(1655)*XX(218)-JVS(1702)*XX(220)-JVS(1725)*XX(222)-JVS(1764)*XX(223)-JVS(1835)*XX(228)& - &-JVS(1855)*XX(229)-JVS(1883)*XX(230)-JVS(1917)*XX(231)-JVS(1934)*XX(232)-JVS(1985)*XX(233)-JVS(2064)*XX(236)& - &-JVS(2135)*XX(240)-JVS(2159)*XX(241)-JVS(2189)*XX(242)-JVS(2211)*XX(243)-JVS(2225)*XX(244)-JVS(2239)*XX(245))& - &/(JVS(2249)) - XX(247) = (X(247)-JVS(49)*XX(7)-JVS(240)*XX(34)-JVS(328)*XX(35)-JVS(805)*XX(126)-JVS(1193)*XX(181)-JVS(1656)*XX(218)& - &-JVS(1703)*XX(220)-JVS(1726)*XX(222)-JVS(1765)*XX(223)-JVS(1836)*XX(228)-JVS(1856)*XX(229)-JVS(1884)*XX(230)& - &-JVS(1918)*XX(231)-JVS(1935)*XX(232)-JVS(1986)*XX(233)-JVS(2065)*XX(236)-JVS(2136)*XX(240)-JVS(2160)*XX(241)& - &-JVS(2190)*XX(242)-JVS(2212)*XX(243)-JVS(2250)*XX(246))/(JVS(2262)) - XX(248) = (X(248)-JVS(329)*XX(35)-JVS(418)*XX(36)-JVS(462)*XX(40)-JVS(689)*XX(104)-JVS(1448)*XX(204)-JVS(1572)*XX(212)& - &-JVS(1885)*XX(230)-JVS(1987)*XX(233)-JVS(2006)*XX(234)-JVS(2066)*XX(236)-JVS(2161)*XX(241))/(JVS(2286)) - XX(249) = (X(249)-JVS(50)*XX(7)-JVS(241)*XX(34)-JVS(330)*XX(35)-JVS(966)*XX(153)-JVS(1139)*XX(175)-JVS(1385)*XX(198)& - &-JVS(1414)*XX(200)-JVS(1482)*XX(207)-JVS(1553)*XX(211)-JVS(1988)*XX(233))/(JVS(2305)) - XX(250) = (X(250)-JVS(51)*XX(7)-JVS(419)*XX(36)-JVS(1554)*XX(211)-JVS(1680)*XX(219)-JVS(1989)*XX(233))/(JVS(2359)) - XX(251) = (X(251)-JVS(331)*XX(35)-JVS(420)*XX(36)-JVS(1350)*XX(196)-JVS(1386)*XX(198)-JVS(1459)*XX(205)-JVS(1483)& - &*XX(207)-JVS(1555)*XX(211)-JVS(1919)*XX(231)-JVS(1990)*XX(233)-JVS(2007)*XX(234)-JVS(2306)*XX(249)-JVS(2360)& - &*XX(250))/(JVS(2388)) - XX(252) = (X(252)-JVS(52)*XX(7)-JVS(242)*XX(34)-JVS(1351)*XX(196)-JVS(1657)*XX(218)-JVS(1681)*XX(219)-JVS(1991)& - &*XX(233)-JVS(2361)*XX(250))/(JVS(2411)) - XX(253) = (X(253)-JVS(53)*XX(7)-JVS(332)*XX(35)-JVS(421)*XX(36)-JVS(1269)*XX(190)-JVS(1333)*XX(195)-JVS(1421)*XX(201)& - &-JVS(1508)*XX(209)-JVS(1573)*XX(212)-JVS(1658)*XX(218)-JVS(1682)*XX(219)-JVS(1992)*XX(233)-JVS(2008)*XX(234)& - &-JVS(2362)*XX(250))/(JVS(2429)) - XX(254) = (X(254)-JVS(54)*XX(7)-JVS(243)*XX(34)-JVS(997)*XX(158)-JVS(1352)*XX(196)-JVS(1429)*XX(202)-JVS(1659)*XX(218)& - &-JVS(1683)*XX(219)-JVS(1712)*XX(221)-JVS(1797)*XX(226)-JVS(1993)*XX(233)-JVS(2082)*XX(237)-JVS(2113)*XX(239)& - &-JVS(2412)*XX(252))/(JVS(2444)) - XX(255) = (X(255)-JVS(55)*XX(7)-JVS(244)*XX(34)-JVS(489)*XX(50)-JVS(697)*XX(106)-JVS(2083)*XX(237)-JVS(2114)*XX(239))& - &/(JVS(2463)) - XX(256) = (X(256)-JVS(56)*XX(7)-JVS(245)*XX(34)-JVS(626)*XX(93)-JVS(998)*XX(158)-JVS(1430)*XX(202)-JVS(1660)*XX(218)& - &-JVS(1684)*XX(219)-JVS(1713)*XX(221)-JVS(1798)*XX(226)-JVS(2084)*XX(237)-JVS(2115)*XX(239)-JVS(2413)*XX(252)& - &-JVS(2445)*XX(254)-JVS(2464)*XX(255))/(JVS(2482)) - XX(257) = (X(257)-JVS(57)*XX(7)-JVS(246)*XX(34)-JVS(999)*XX(158)-JVS(1431)*XX(202)-JVS(1661)*XX(218)-JVS(1685)*XX(219)& - &-JVS(1714)*XX(221)-JVS(1799)*XX(226)-JVS(2085)*XX(237)-JVS(2116)*XX(239)-JVS(2414)*XX(252)-JVS(2446)*XX(254)& - &-JVS(2465)*XX(255)-JVS(2483)*XX(256))/(JVS(2496)) - XX(258) = (X(258)-JVS(58)*XX(7)-JVS(247)*XX(34)-JVS(600)*XX(87)-JVS(634)*XX(95)-JVS(1000)*XX(158)-JVS(1662)*XX(218)& - &-JVS(1686)*XX(219)-JVS(1715)*XX(221)-JVS(2415)*XX(252))/(JVS(2515)) - XX(259) = (X(259)-JVS(333)*XX(35)-JVS(422)*XX(36)-JVS(2086)*XX(237)-JVS(2117)*XX(239)-JVS(2466)*XX(255)-JVS(2516)& - &*XX(258))/(JVS(2553)) - XX(260) = (X(260)-JVS(334)*XX(35)-JVS(445)*XX(38)-JVS(782)*XX(122)-JVS(817)*XX(128)-JVS(862)*XX(135))/(JVS(2566)) - XX(261) = (X(261)-JVS(59)*XX(7)-JVS(248)*XX(34)-JVS(534)*XX(67)-JVS(604)*XX(88)-JVS(806)*XX(126)-JVS(1166)*XX(178)& - &-JVS(1218)*XX(184)-JVS(1397)*XX(199)-JVS(1422)*XX(201)-JVS(1509)*XX(209)-JVS(1615)*XX(215)-JVS(1627)*XX(216)& - &-JVS(1636)*XX(217)-JVS(1663)*XX(218)-JVS(1687)*XX(219)-JVS(1716)*XX(221)-JVS(1780)*XX(225)-JVS(1800)*XX(226)& - &-JVS(1936)*XX(232)-JVS(1994)*XX(233)-JVS(2067)*XX(236)-JVS(2087)*XX(237)-JVS(2099)*XX(238)-JVS(2118)*XX(239)& - &-JVS(2137)*XX(240)-JVS(2162)*XX(241)-JVS(2191)*XX(242)-JVS(2213)*XX(243)-JVS(2251)*XX(246)-JVS(2263)*XX(247)& - &-JVS(2287)*XX(248)-JVS(2307)*XX(249)-JVS(2363)*XX(250)-JVS(2389)*XX(251)-JVS(2416)*XX(252)-JVS(2430)*XX(253)& - &-JVS(2447)*XX(254)-JVS(2467)*XX(255)-JVS(2484)*XX(256)-JVS(2497)*XX(257)-JVS(2517)*XX(258)-JVS(2554)*XX(259))& - &/(JVS(2644)) - XX(262) = (X(262)-JVS(249)*XX(34)-JVS(335)*XX(35)-JVS(863)*XX(135)-JVS(1359)*XX(197))/(JVS(2655)) - XX(263) = (X(263)-JVS(336)*XX(35)-JVS(423)*XX(36)-JVS(596)*XX(86)-JVS(783)*XX(122)-JVS(1153)*XX(177))/(JVS(2756)) - XX(264) = (X(264)-JVS(337)*XX(35)-JVS(424)*XX(36)-JVS(1270)*XX(190)-JVS(2645)*XX(261)-JVS(2757)*XX(263))/(JVS(2791)) - XX(265) = (X(265)-JVS(250)*XX(34)-JVS(519)*XX(62)-JVS(523)*XX(63)-JVS(883)*XX(138)-JVS(933)*XX(147)-JVS(1307)*XX(193))& - &/(JVS(2871)) - XX(266) = (X(266)-JVS(60)*XX(7)-JVS(251)*XX(34)-JVS(338)*XX(35)-JVS(425)*XX(36)-JVS(561)*XX(74)-JVS(608)*XX(89)& - &-JVS(681)*XX(103)-JVS(710)*XX(108)-JVS(768)*XX(120)-JVS(807)*XX(126)-JVS(850)*XX(133)-JVS(878)*XX(137)& - &-JVS(1001)*XX(158)-JVS(1020)*XX(160)-JVS(1140)*XX(175)-JVS(1167)*XX(178)-JVS(1175)*XX(179)-JVS(1185)*XX(180)& - &-JVS(1194)*XX(181)-JVS(1219)*XX(184)-JVS(1281)*XX(191)-JVS(1295)*XX(192)-JVS(1360)*XX(197)-JVS(1387)*XX(198)& - &-JVS(1398)*XX(199)-JVS(1423)*XX(201)-JVS(1510)*XX(209)-JVS(1523)*XX(210)-JVS(1556)*XX(211)-JVS(1607)*XX(214)& - &-JVS(1616)*XX(215)-JVS(1628)*XX(216)-JVS(1637)*XX(217)-JVS(1664)*XX(218)-JVS(1688)*XX(219)-JVS(1704)*XX(220)& - &-JVS(1717)*XX(221)-JVS(1727)*XX(222)-JVS(1766)*XX(223)-JVS(1781)*XX(225)-JVS(1801)*XX(226)-JVS(1837)*XX(228)& - &-JVS(1857)*XX(229)-JVS(1886)*XX(230)-JVS(1920)*XX(231)-JVS(1937)*XX(232)-JVS(1995)*XX(233)-JVS(2068)*XX(236)& - &-JVS(2088)*XX(237)-JVS(2100)*XX(238)-JVS(2119)*XX(239)-JVS(2138)*XX(240)-JVS(2163)*XX(241)-JVS(2192)*XX(242)& - &-JVS(2214)*XX(243)-JVS(2226)*XX(244)-JVS(2240)*XX(245)-JVS(2252)*XX(246)-JVS(2264)*XX(247)-JVS(2288)*XX(248)& - &-JVS(2308)*XX(249)-JVS(2364)*XX(250)-JVS(2390)*XX(251)-JVS(2417)*XX(252)-JVS(2431)*XX(253)-JVS(2448)*XX(254)& - &-JVS(2468)*XX(255)-JVS(2485)*XX(256)-JVS(2498)*XX(257)-JVS(2518)*XX(258)-JVS(2555)*XX(259)-JVS(2646)*XX(261)& - &-JVS(2758)*XX(263)-JVS(2792)*XX(264)-JVS(2872)*XX(265))/(JVS(2943)) - XX(267) = (X(267)-JVS(61)*XX(7)-JVS(437)*XX(37)-JVS(1334)*XX(195)-JVS(1574)*XX(212)-JVS(1689)*XX(219)-JVS(2009)& - &*XX(234)-JVS(2759)*XX(263)-JVS(2793)*XX(264)-JVS(2873)*XX(265)-JVS(2944)*XX(266))/(JVS(3044)) - XX(268) = (X(268)-JVS(77)*XX(9)-JVS(85)*XX(10)-JVS(339)*XX(35)-JVS(556)*XX(73)-JVS(662)*XX(99)-JVS(1811)*XX(227))& - &/(JVS(3061)) - XX(269) = (X(269)-JVS(511)*XX(60)-JVS(541)*XX(69)-JVS(910)*XX(143)-JVS(1436)*XX(203)-JVS(1812)*XX(227)-JVS(3062)& - &*XX(268))/(JVS(3091)) - XX(270) = (X(270)-JVS(78)*XX(9)-JVS(86)*XX(10)-JVS(340)*XX(35)-JVS(557)*XX(73)-JVS(663)*XX(99)-JVS(911)*XX(143)& - &-JVS(1813)*XX(227)-JVS(2874)*XX(265)-JVS(3063)*XX(268)-JVS(3092)*XX(269))/(JVS(3111)) - XX(271) = (X(271)-JVS(341)*XX(35)-JVS(446)*XX(38)-JVS(784)*XX(122)-JVS(864)*XX(135)-JVS(1361)*XX(197))/(JVS(3136)) - XX(272) = (X(272)-JVS(342)*XX(35)-JVS(452)*XX(39)-JVS(482)*XX(47)-JVS(484)*XX(48)-JVS(495)*XX(52)-JVS(497)*XX(53)& - &-JVS(499)*XX(54)-JVS(501)*XX(55)-JVS(503)*XX(56)-JVS(505)*XX(57)-JVS(509)*XX(59)-JVS(515)*XX(61)-JVS(549)& - &*XX(71)-JVS(570)*XX(77)-JVS(580)*XX(81)-JVS(583)*XX(82)-JVS(586)*XX(83)-JVS(589)*XX(84)-JVS(668)*XX(100)& - &-JVS(945)*XX(149)-JVS(1154)*XX(177)-JVS(1271)*XX(190)-JVS(1362)*XX(197)-JVS(2760)*XX(263)-JVS(2875)*XX(265)& - &-JVS(2945)*XX(266)-JVS(3045)*XX(267)-JVS(3137)*XX(271))/(JVS(3186)) - XX(273) = (X(273)-JVS(426)*XX(36)-JVS(492)*XX(51)-JVS(794)*XX(124)-JVS(818)*XX(128)-JVS(1028)*XX(161)-JVS(1145)& - &*XX(176)-JVS(1511)*XX(209)-JVS(1638)*XX(217)-JVS(1665)*XX(218)-JVS(1690)*XX(219)-JVS(1718)*XX(221)-JVS(2089)& - &*XX(237)-JVS(2120)*XX(239)-JVS(2365)*XX(250)-JVS(2418)*XX(252)-JVS(2432)*XX(253)-JVS(2519)*XX(258)-JVS(2556)& - &*XX(259)-JVS(2567)*XX(260)-JVS(2647)*XX(261)-JVS(2761)*XX(263)-JVS(2794)*XX(264)-JVS(2876)*XX(265)-JVS(2946)& - &*XX(266)-JVS(3046)*XX(267)-JVS(3138)*XX(271)-JVS(3187)*XX(272))/(JVS(3243)) - XX(274) = (X(274)-JVS(343)*XX(35)-JVS(623)*XX(92)-JVS(682)*XX(103)-JVS(725)*XX(111)-JVS(819)*XX(128)-JVS(865)*XX(135)& - &-JVS(1146)*XX(176)-JVS(1363)*XX(197)-JVS(1814)*XX(227)-JVS(2568)*XX(260)-JVS(2877)*XX(265)-JVS(3064)*XX(268)& - &-JVS(3093)*XX(269)-JVS(3112)*XX(270)-JVS(3139)*XX(271)-JVS(3188)*XX(272)-JVS(3244)*XX(273))/(JVS(3276)) - XX(275) = (X(275)-JVS(344)*XX(35)-JVS(866)*XX(135)-JVS(884)*XX(138)-JVS(934)*XX(147)-JVS(1101)*XX(173)-JVS(1147)& - &*XX(176)-JVS(1155)*XX(177)-JVS(1308)*XX(193)-JVS(1364)*XX(197)-JVS(2020)*XX(235)-JVS(2569)*XX(260)-JVS(2656)& - &*XX(262)-JVS(2878)*XX(265)-JVS(3140)*XX(271)-JVS(3189)*XX(272)-JVS(3245)*XX(273)-JVS(3277)*XX(274))& - &/(JVS(3354)) - XX(276) = (X(276)-JVS(152)*XX(29)-JVS(167)*XX(32)-JVS(172)*XX(33)-JVS(345)*XX(35)-JVS(447)*XX(38)-JVS(597)*XX(86)& - &-JVS(785)*XX(122)-JVS(885)*XX(138)-JVS(935)*XX(147)-JVS(1309)*XX(193)-JVS(1335)*XX(195)-JVS(1575)*XX(212)& - &-JVS(1691)*XX(219)-JVS(2010)*XX(234)-JVS(2570)*XX(260)-JVS(2762)*XX(263)-JVS(2795)*XX(264)-JVS(2879)*XX(265)& - &-JVS(2947)*XX(266)-JVS(3047)*XX(267)-JVS(3141)*XX(271)-JVS(3190)*XX(272)-JVS(3246)*XX(273)-JVS(3278)*XX(274)& - &-JVS(3355)*XX(275))/(JVS(3397)) - XX(277) = (X(277)-JVS(346)*XX(35)-JVS(558)*XX(73)-JVS(820)*XX(128)-JVS(867)*XX(135)-JVS(1310)*XX(193)-JVS(1437)& - &*XX(203)-JVS(2021)*XX(235)-JVS(2571)*XX(260)-JVS(2657)*XX(262)-JVS(2880)*XX(265)-JVS(3065)*XX(268)-JVS(3094)& - &*XX(269)-JVS(3113)*XX(270)-JVS(3142)*XX(271)-JVS(3191)*XX(272)-JVS(3247)*XX(273)-JVS(3279)*XX(274)-JVS(3356)& - &*XX(275)-JVS(3398)*XX(276))/(JVS(3424)) - XX(278) = (X(278)-JVS(347)*XX(35)-JVS(463)*XX(40)-JVS(593)*XX(85)-JVS(1102)*XX(173)-JVS(1148)*XX(176)-JVS(1336)& - &*XX(195)-JVS(1557)*XX(211)-JVS(1576)*XX(212)-JVS(1692)*XX(219)-JVS(2011)*XX(234)-JVS(2022)*XX(235)-JVS(2572)& - &*XX(260)-JVS(2658)*XX(262)-JVS(2763)*XX(263)-JVS(2796)*XX(264)-JVS(2881)*XX(265)-JVS(2948)*XX(266)-JVS(3048)& - &*XX(267)-JVS(3066)*XX(268)-JVS(3095)*XX(269)-JVS(3114)*XX(270)-JVS(3143)*XX(271)-JVS(3192)*XX(272)-JVS(3248)& - &*XX(273)-JVS(3280)*XX(274)-JVS(3357)*XX(275)-JVS(3399)*XX(276)-JVS(3425)*XX(277))/(JVS(3513)) - XX(279) = (X(279)-JVS(62)*XX(7)-JVS(92)*XX(12)-JVS(95)*XX(13)-JVS(109)*XX(17)-JVS(112)*XX(18)-JVS(122)*XX(21)-JVS(125)& - &*XX(22)-JVS(141)*XX(26)-JVS(144)*XX(27)-JVS(252)*XX(34)-JVS(427)*XX(36)-JVS(512)*XX(60)-JVS(528)*XX(65)& - &-JVS(538)*XX(68)-JVS(601)*XX(87)-JVS(609)*XX(89)-JVS(616)*XX(91)-JVS(624)*XX(92)-JVS(639)*XX(96)-JVS(711)& - &*XX(108)-JVS(754)*XX(117)-JVS(773)*XX(121)-JVS(790)*XX(123)-JVS(808)*XX(126)-JVS(844)*XX(132)-JVS(889)& - &*XX(139)-JVS(893)*XX(140)-JVS(912)*XX(143)-JVS(918)*XX(144)-JVS(924)*XX(145)-JVS(929)*XX(146)-JVS(951)& - &*XX(150)-JVS(961)*XX(152)-JVS(1021)*XX(160)-JVS(1055)*XX(166)-JVS(1061)*XX(167)-JVS(1066)*XX(168)-JVS(1078)& - &*XX(169)-JVS(1097)*XX(172)-JVS(1129)*XX(174)-JVS(1141)*XX(175)-JVS(1168)*XX(178)-JVS(1176)*XX(179)-JVS(1186)& - &*XX(180)-JVS(1201)*XX(182)-JVS(1208)*XX(183)-JVS(1220)*XX(184)-JVS(1239)*XX(185)-JVS(1253)*XX(187)-JVS(1265)& - &*XX(189)-JVS(1282)*XX(191)-JVS(1296)*XX(192)-JVS(1311)*XX(193)-JVS(1329)*XX(194)-JVS(1337)*XX(195)-JVS(1353)& - &*XX(196)-JVS(1388)*XX(198)-JVS(1399)*XX(199)-JVS(1415)*XX(200)-JVS(1424)*XX(201)-JVS(1432)*XX(202)-JVS(1449)& - &*XX(204)-JVS(1460)*XX(205)-JVS(1476)*XX(206)-JVS(1484)*XX(207)-JVS(1502)*XX(208)-JVS(1512)*XX(209)-JVS(1524)& - &*XX(210)-JVS(1558)*XX(211)-JVS(1577)*XX(212)-JVS(1601)*XX(213)-JVS(1608)*XX(214)-JVS(1617)*XX(215)-JVS(1629)& - &*XX(216)-JVS(1639)*XX(217)-JVS(1666)*XX(218)-JVS(1693)*XX(219)-JVS(1705)*XX(220)-JVS(1719)*XX(221)-JVS(1728)& - &*XX(222)-JVS(1767)*XX(223)-JVS(1782)*XX(225)-JVS(1802)*XX(226)-JVS(1815)*XX(227)-JVS(1838)*XX(228)-JVS(1858)& - &*XX(229)-JVS(1887)*XX(230)-JVS(1921)*XX(231)-JVS(1938)*XX(232)-JVS(1996)*XX(233)-JVS(2012)*XX(234)-JVS(2069)& - &*XX(236)-JVS(2090)*XX(237)-JVS(2101)*XX(238)-JVS(2121)*XX(239)-JVS(2139)*XX(240)-JVS(2164)*XX(241)-JVS(2193)& - &*XX(242)-JVS(2215)*XX(243)-JVS(2227)*XX(244)-JVS(2241)*XX(245)-JVS(2253)*XX(246)-JVS(2265)*XX(247)-JVS(2289)& - &*XX(248)-JVS(2309)*XX(249)-JVS(2366)*XX(250)-JVS(2391)*XX(251)-JVS(2419)*XX(252)-JVS(2433)*XX(253)-JVS(2449)& - &*XX(254)-JVS(2469)*XX(255)-JVS(2486)*XX(256)-JVS(2499)*XX(257)-JVS(2520)*XX(258)-JVS(2557)*XX(259)-JVS(2648)& - &*XX(261)-JVS(2764)*XX(263)-JVS(2797)*XX(264)-JVS(2882)*XX(265)-JVS(2949)*XX(266)-JVS(3049)*XX(267)-JVS(3067)& - &*XX(268)-JVS(3096)*XX(269)-JVS(3115)*XX(270)-JVS(3144)*XX(271)-JVS(3193)*XX(272)-JVS(3249)*XX(273)-JVS(3281)& - &*XX(274)-JVS(3358)*XX(275)-JVS(3400)*XX(276)-JVS(3426)*XX(277)-JVS(3514)*XX(278))/(JVS(3611)) - XX(280) = (X(280)-JVS(348)*XX(35)-JVS(664)*XX(99)-JVS(868)*XX(135)-JVS(1103)*XX(173)-JVS(1312)*XX(193)-JVS(1365)& - &*XX(197)-JVS(1438)*XX(203)-JVS(2023)*XX(235)-JVS(2573)*XX(260)-JVS(2659)*XX(262)-JVS(2883)*XX(265)-JVS(3068)& - &*XX(268)-JVS(3097)*XX(269)-JVS(3116)*XX(270)-JVS(3145)*XX(271)-JVS(3194)*XX(272)-JVS(3250)*XX(273)-JVS(3282)& - &*XX(274)-JVS(3359)*XX(275)-JVS(3401)*XX(276)-JVS(3427)*XX(277)-JVS(3515)*XX(278)-JVS(3612)*XX(279))& - &/(JVS(3645)) - XX(281) = (X(281)-JVS(63)*XX(7)-JVS(103)*XX(15)-JVS(349)*XX(35)-JVS(428)*XX(36)-JVS(520)*XX(62)-JVS(524)*XX(63)& - &-JVS(612)*XX(90)-JVS(673)*XX(101)-JVS(712)*XX(108)-JVS(737)*XX(114)-JVS(743)*XX(115)-JVS(759)*XX(118)& - &-JVS(809)*XX(126)-JVS(856)*XX(134)-JVS(904)*XX(142)-JVS(913)*XX(143)-JVS(941)*XX(148)-JVS(970)*XX(154)& - &-JVS(974)*XX(155)-JVS(1010)*XX(159)-JVS(1022)*XX(160)-JVS(1029)*XX(161)-JVS(1082)*XX(170)-JVS(1104)*XX(173)& - &-JVS(1169)*XX(178)-JVS(1177)*XX(179)-JVS(1187)*XX(180)-JVS(1221)*XX(184)-JVS(1283)*XX(191)-JVS(1313)*XX(193)& - &-JVS(1389)*XX(198)-JVS(1400)*XX(199)-JVS(1425)*XX(201)-JVS(1485)*XX(207)-JVS(1503)*XX(208)-JVS(1525)*XX(210)& - &-JVS(1559)*XX(211)-JVS(1578)*XX(212)-JVS(1618)*XX(215)-JVS(1630)*XX(216)-JVS(1640)*XX(217)-JVS(1667)*XX(218)& - &-JVS(1694)*XX(219)-JVS(1768)*XX(223)-JVS(1774)*XX(224)-JVS(1783)*XX(225)-JVS(1803)*XX(226)-JVS(1888)*XX(230)& - &-JVS(1922)*XX(231)-JVS(1939)*XX(232)-JVS(1997)*XX(233)-JVS(2013)*XX(234)-JVS(2024)*XX(235)-JVS(2070)*XX(236)& - &-JVS(2091)*XX(237)-JVS(2102)*XX(238)-JVS(2122)*XX(239)-JVS(2140)*XX(240)-JVS(2165)*XX(241)-JVS(2194)*XX(242)& - &-JVS(2216)*XX(243)-JVS(2228)*XX(244)-JVS(2242)*XX(245)-JVS(2254)*XX(246)-JVS(2266)*XX(247)-JVS(2290)*XX(248)& - &-JVS(2310)*XX(249)-JVS(2367)*XX(250)-JVS(2392)*XX(251)-JVS(2420)*XX(252)-JVS(2434)*XX(253)-JVS(2450)*XX(254)& - &-JVS(2470)*XX(255)-JVS(2487)*XX(256)-JVS(2500)*XX(257)-JVS(2521)*XX(258)-JVS(2558)*XX(259)-JVS(2649)*XX(261)& - &-JVS(2765)*XX(263)-JVS(2798)*XX(264)-JVS(2884)*XX(265)-JVS(2950)*XX(266)-JVS(3050)*XX(267)-JVS(3069)*XX(268)& - &-JVS(3098)*XX(269)-JVS(3117)*XX(270)-JVS(3146)*XX(271)-JVS(3195)*XX(272)-JVS(3251)*XX(273)-JVS(3283)*XX(274)& - &-JVS(3360)*XX(275)-JVS(3402)*XX(276)-JVS(3428)*XX(277)-JVS(3516)*XX(278)-JVS(3613)*XX(279)-JVS(3646)*XX(280))& - &/(JVS(3738)) - XX(282) = (X(282)-JVS(64)*XX(7)-JVS(153)*XX(29)-JVS(173)*XX(33)-JVS(350)*XX(35)-JVS(429)*XX(36)-JVS(448)*XX(38)& - &-JVS(464)*XX(40)-JVS(567)*XX(76)-JVS(690)*XX(104)-JVS(786)*XX(122)-JVS(857)*XX(134)-JVS(886)*XX(138)-JVS(905)& - &*XX(142)-JVS(936)*XX(147)-JVS(942)*XX(148)-JVS(971)*XX(154)-JVS(975)*XX(155)-JVS(1011)*XX(159)-JVS(1023)& - &*XX(160)-JVS(1083)*XX(170)-JVS(1156)*XX(177)-JVS(1178)*XX(179)-JVS(1222)*XX(184)-JVS(1272)*XX(190)-JVS(1284)& - &*XX(191)-JVS(1314)*XX(193)-JVS(1338)*XX(195)-JVS(1401)*XX(199)-JVS(1526)*XX(210)-JVS(1560)*XX(211)-JVS(1579)& - &*XX(212)-JVS(1619)*XX(215)-JVS(1631)*XX(216)-JVS(1668)*XX(218)-JVS(1695)*XX(219)-JVS(1769)*XX(223)-JVS(1775)& - &*XX(224)-JVS(1784)*XX(225)-JVS(1804)*XX(226)-JVS(1816)*XX(227)-JVS(1889)*XX(230)-JVS(1923)*XX(231)-JVS(1998)& - &*XX(233)-JVS(2014)*XX(234)-JVS(2071)*XX(236)-JVS(2092)*XX(237)-JVS(2103)*XX(238)-JVS(2123)*XX(239)-JVS(2166)& - &*XX(241)-JVS(2229)*XX(244)-JVS(2243)*XX(245)-JVS(2255)*XX(246)-JVS(2267)*XX(247)-JVS(2291)*XX(248)-JVS(2311)& - &*XX(249)-JVS(2368)*XX(250)-JVS(2393)*XX(251)-JVS(2421)*XX(252)-JVS(2435)*XX(253)-JVS(2451)*XX(254)-JVS(2471)& - &*XX(255)-JVS(2488)*XX(256)-JVS(2501)*XX(257)-JVS(2522)*XX(258)-JVS(2559)*XX(259)-JVS(2574)*XX(260)-JVS(2650)& - &*XX(261)-JVS(2766)*XX(263)-JVS(2799)*XX(264)-JVS(2885)*XX(265)-JVS(2951)*XX(266)-JVS(3051)*XX(267)-JVS(3070)& - &*XX(268)-JVS(3099)*XX(269)-JVS(3118)*XX(270)-JVS(3147)*XX(271)-JVS(3196)*XX(272)-JVS(3252)*XX(273)-JVS(3284)& - &*XX(274)-JVS(3361)*XX(275)-JVS(3403)*XX(276)-JVS(3429)*XX(277)-JVS(3517)*XX(278)-JVS(3614)*XX(279)-JVS(3647)& - &*XX(280)-JVS(3739)*XX(281))/(JVS(3798)) - XX(283) = (X(283)-JVS(351)*XX(35)-JVS(559)*XX(73)-JVS(821)*XX(128)-JVS(869)*XX(135)-JVS(1315)*XX(193)-JVS(1439)& - &*XX(203)-JVS(2025)*XX(235)-JVS(2575)*XX(260)-JVS(2660)*XX(262)-JVS(2886)*XX(265)-JVS(3071)*XX(268)-JVS(3100)& - &*XX(269)-JVS(3119)*XX(270)-JVS(3148)*XX(271)-JVS(3197)*XX(272)-JVS(3253)*XX(273)-JVS(3285)*XX(274)-JVS(3362)& - &*XX(275)-JVS(3404)*XX(276)-JVS(3430)*XX(277)-JVS(3518)*XX(278)-JVS(3615)*XX(279)-JVS(3648)*XX(280)-JVS(3740)& - &*XX(281)-JVS(3799)*XX(282))/(JVS(3825)) - XX(284) = (X(284)-JVS(65)*XX(7)-JVS(89)*XX(11)-JVS(96)*XX(13)-JVS(106)*XX(16)-JVS(113)*XX(18)-JVS(119)*XX(20)-JVS(126)& - &*XX(22)-JVS(138)*XX(25)-JVS(145)*XX(27)-JVS(253)*XX(34)-JVS(352)*XX(35)-JVS(430)*XX(36)-JVS(465)*XX(40)& - &-JVS(542)*XX(69)-JVS(546)*XX(70)-JVS(605)*XX(88)-JVS(627)*XX(93)-JVS(631)*XX(94)-JVS(635)*XX(95)-JVS(676)& - &*XX(102)-JVS(698)*XX(106)-JVS(704)*XX(107)-JVS(721)*XX(110)-JVS(730)*XX(112)-JVS(734)*XX(113)-JVS(755)& - &*XX(117)-JVS(764)*XX(119)-JVS(769)*XX(120)-JVS(774)*XX(121)-JVS(791)*XX(123)-JVS(845)*XX(132)-JVS(875)& - &*XX(136)-JVS(879)*XX(137)-JVS(899)*XX(141)-JVS(919)*XX(144)-JVS(925)*XX(145)-JVS(930)*XX(146)-JVS(952)& - &*XX(150)-JVS(956)*XX(151)-JVS(962)*XX(152)-JVS(988)*XX(157)-JVS(1024)*XX(160)-JVS(1034)*XX(162)-JVS(1047)& - &*XX(164)-JVS(1051)*XX(165)-JVS(1056)*XX(166)-JVS(1062)*XX(167)-JVS(1067)*XX(168)-JVS(1079)*XX(169)-JVS(1087)& - &*XX(171)-JVS(1098)*XX(172)-JVS(1130)*XX(174)-JVS(1142)*XX(175)-JVS(1157)*XX(177)-JVS(1170)*XX(178)-JVS(1179)& - &*XX(179)-JVS(1188)*XX(180)-JVS(1195)*XX(181)-JVS(1202)*XX(182)-JVS(1209)*XX(183)-JVS(1223)*XX(184)-JVS(1240)& - &*XX(185)-JVS(1246)*XX(186)-JVS(1254)*XX(187)-JVS(1260)*XX(188)-JVS(1266)*XX(189)-JVS(1285)*XX(191)-JVS(1297)& - &*XX(192)-JVS(1330)*XX(194)-JVS(1354)*XX(196)-JVS(1390)*XX(198)-JVS(1402)*XX(199)-JVS(1416)*XX(200)-JVS(1426)& - &*XX(201)-JVS(1433)*XX(202)-JVS(1450)*XX(204)-JVS(1461)*XX(205)-JVS(1477)*XX(206)-JVS(1486)*XX(207)-JVS(1504)& - &*XX(208)-JVS(1513)*XX(209)-JVS(1527)*XX(210)-JVS(1561)*XX(211)-JVS(1580)*XX(212)-JVS(1602)*XX(213)-JVS(1620)& - &*XX(215)-JVS(1632)*XX(216)-JVS(1641)*XX(217)-JVS(1669)*XX(218)-JVS(1696)*XX(219)-JVS(1720)*XX(221)-JVS(1729)& - &*XX(222)-JVS(1770)*XX(223)-JVS(1785)*XX(225)-JVS(1805)*XX(226)-JVS(1817)*XX(227)-JVS(1839)*XX(228)-JVS(1859)& - &*XX(229)-JVS(1890)*XX(230)-JVS(1924)*XX(231)-JVS(1940)*XX(232)-JVS(1999)*XX(233)-JVS(2072)*XX(236)-JVS(2093)& - &*XX(237)-JVS(2104)*XX(238)-JVS(2124)*XX(239)-JVS(2141)*XX(240)-JVS(2167)*XX(241)-JVS(2195)*XX(242)-JVS(2217)& - &*XX(243)-JVS(2230)*XX(244)-JVS(2244)*XX(245)-JVS(2256)*XX(246)-JVS(2268)*XX(247)-JVS(2292)*XX(248)-JVS(2312)& - &*XX(249)-JVS(2369)*XX(250)-JVS(2394)*XX(251)-JVS(2422)*XX(252)-JVS(2436)*XX(253)-JVS(2452)*XX(254)-JVS(2472)& - &*XX(255)-JVS(2489)*XX(256)-JVS(2502)*XX(257)-JVS(2523)*XX(258)-JVS(2560)*XX(259)-JVS(2576)*XX(260)-JVS(2651)& - &*XX(261)-JVS(2767)*XX(263)-JVS(2800)*XX(264)-JVS(2887)*XX(265)-JVS(2952)*XX(266)-JVS(3052)*XX(267)-JVS(3072)& - &*XX(268)-JVS(3101)*XX(269)-JVS(3120)*XX(270)-JVS(3149)*XX(271)-JVS(3198)*XX(272)-JVS(3254)*XX(273)-JVS(3286)& - &*XX(274)-JVS(3363)*XX(275)-JVS(3405)*XX(276)-JVS(3431)*XX(277)-JVS(3519)*XX(278)-JVS(3616)*XX(279)-JVS(3649)& - &*XX(280)-JVS(3741)*XX(281)-JVS(3800)*XX(282)-JVS(3826)*XX(283))/(JVS(3997)) - XX(285) = (X(285)-JVS(353)*XX(35)-JVS(564)*XX(75)-JVS(665)*XX(99)-JVS(683)*XX(103)-JVS(726)*XX(111)-JVS(870)*XX(135)& - &-JVS(1366)*XX(197)-JVS(1818)*XX(227)-JVS(2661)*XX(262)-JVS(2768)*XX(263)-JVS(2888)*XX(265)-JVS(2953)*XX(266)& - &-JVS(3053)*XX(267)-JVS(3073)*XX(268)-JVS(3102)*XX(269)-JVS(3121)*XX(270)-JVS(3150)*XX(271)-JVS(3199)*XX(272)& - &-JVS(3255)*XX(273)-JVS(3287)*XX(274)-JVS(3364)*XX(275)-JVS(3406)*XX(276)-JVS(3432)*XX(277)-JVS(3520)*XX(278)& - &-JVS(3617)*XX(279)-JVS(3650)*XX(280)-JVS(3742)*XX(281)-JVS(3801)*XX(282)-JVS(3827)*XX(283)-JVS(3998)*XX(284))& - &/(JVS(4052)) - XX(286) = (X(286)-JVS(13)*XX(6)-JVS(66)*XX(7)-JVS(97)*XX(13)-JVS(100)*XX(14)-JVS(114)*XX(18)-JVS(116)*XX(19)-JVS(127)& - &*XX(22)-JVS(135)*XX(24)-JVS(146)*XX(27)-JVS(149)*XX(28)-JVS(168)*XX(32)-JVS(174)*XX(33)-JVS(254)*XX(34)& - &-JVS(354)*XX(35)-JVS(431)*XX(36)-JVS(438)*XX(37)-JVS(449)*XX(38)-JVS(453)*XX(39)-JVS(466)*XX(40)-JVS(468)& - &*XX(41)-JVS(472)*XX(43)-JVS(480)*XX(46)-JVS(507)*XX(58)-JVS(526)*XX(64)-JVS(531)*XX(66)-JVS(539)*XX(68)& - &-JVS(543)*XX(69)-JVS(547)*XX(70)-JVS(550)*XX(71)-JVS(552)*XX(72)-JVS(565)*XX(75)-JVS(568)*XX(76)-JVS(571)& - &*XX(77)-JVS(573)*XX(78)-JVS(576)*XX(79)-JVS(578)*XX(80)-JVS(581)*XX(81)-JVS(584)*XX(82)-JVS(587)*XX(83)& - &-JVS(590)*XX(84)-JVS(594)*XX(85)-JVS(598)*XX(86)-JVS(602)*XX(87)-JVS(606)*XX(88)-JVS(610)*XX(89)-JVS(613)& - &*XX(90)-JVS(617)*XX(91)-JVS(628)*XX(93)-JVS(632)*XX(94)-JVS(636)*XX(95)-JVS(640)*XX(96)-JVS(643)*XX(97)& - &-JVS(669)*XX(100)-JVS(674)*XX(101)-JVS(677)*XX(102)-JVS(684)*XX(103)-JVS(691)*XX(104)-JVS(695)*XX(105)& - &-JVS(699)*XX(106)-JVS(705)*XX(107)-JVS(717)*XX(109)-JVS(722)*XX(110)-JVS(727)*XX(111)-JVS(731)*XX(112)& - &-JVS(735)*XX(113)-JVS(738)*XX(114)-JVS(744)*XX(115)-JVS(750)*XX(116)-JVS(756)*XX(117)-JVS(760)*XX(118)& - &-JVS(765)*XX(119)-JVS(770)*XX(120)-JVS(775)*XX(121)-JVS(787)*XX(122)-JVS(792)*XX(123)-JVS(795)*XX(124)& - &-JVS(800)*XX(125)-JVS(814)*XX(127)-JVS(822)*XX(128)-JVS(828)*XX(129)-JVS(834)*XX(130)-JVS(840)*XX(131)& - &-JVS(846)*XX(132)-JVS(851)*XX(133)-JVS(858)*XX(134)-JVS(876)*XX(136)-JVS(880)*XX(137)-JVS(890)*XX(139)& - &-JVS(894)*XX(140)-JVS(900)*XX(141)-JVS(906)*XX(142)-JVS(914)*XX(143)-JVS(931)*XX(146)-JVS(943)*XX(148)& - &-JVS(946)*XX(149)-JVS(953)*XX(150)-JVS(957)*XX(151)-JVS(963)*XX(152)-JVS(967)*XX(153)-JVS(972)*XX(154)& - &-JVS(976)*XX(155)-JVS(985)*XX(156)-JVS(989)*XX(157)-JVS(1002)*XX(158)-JVS(1012)*XX(159)-JVS(1025)*XX(160)& - &-JVS(1030)*XX(161)-JVS(1035)*XX(162)-JVS(1041)*XX(163)-JVS(1048)*XX(164)-JVS(1052)*XX(165)-JVS(1057)*XX(166)& - &-JVS(1063)*XX(167)-JVS(1068)*XX(168)-JVS(1080)*XX(169)-JVS(1084)*XX(170)-JVS(1088)*XX(171)-JVS(1099)*XX(172)& - &-JVS(1131)*XX(174)-JVS(1143)*XX(175)-JVS(1158)*XX(177)-JVS(1171)*XX(178)-JVS(1180)*XX(179)-JVS(1189)*XX(180)& - &-JVS(1196)*XX(181)-JVS(1203)*XX(182)-JVS(1210)*XX(183)-JVS(1224)*XX(184)-JVS(1241)*XX(185)-JVS(1247)*XX(186)& - &-JVS(1255)*XX(187)-JVS(1261)*XX(188)-JVS(1267)*XX(189)-JVS(1273)*XX(190)-JVS(1286)*XX(191)-JVS(1298)*XX(192)& - &-JVS(1316)*XX(193)-JVS(1331)*XX(194)-JVS(1355)*XX(196)-JVS(1367)*XX(197)-JVS(1391)*XX(198)-JVS(1403)*XX(199)& - &-JVS(1417)*XX(200)-JVS(1427)*XX(201)-JVS(1434)*XX(202)-JVS(1451)*XX(204)-JVS(1462)*XX(205)-JVS(1478)*XX(206)& - &-JVS(1487)*XX(207)-JVS(1505)*XX(208)-JVS(1514)*XX(209)-JVS(1528)*XX(210)-JVS(1562)*XX(211)-JVS(1581)*XX(212)& - &-JVS(1603)*XX(213)-JVS(1609)*XX(214)-JVS(1621)*XX(215)-JVS(1633)*XX(216)-JVS(1642)*XX(217)-JVS(1670)*XX(218)& - &-JVS(1697)*XX(219)-JVS(1706)*XX(220)-JVS(1721)*XX(221)-JVS(1730)*XX(222)-JVS(1771)*XX(223)-JVS(1776)*XX(224)& - &-JVS(1786)*XX(225)-JVS(1806)*XX(226)-JVS(1819)*XX(227)-JVS(1840)*XX(228)-JVS(1860)*XX(229)-JVS(1891)*XX(230)& - &-JVS(1925)*XX(231)-JVS(1941)*XX(232)-JVS(2000)*XX(233)-JVS(2015)*XX(234)-JVS(2026)*XX(235)-JVS(2073)*XX(236)& - &-JVS(2094)*XX(237)-JVS(2105)*XX(238)-JVS(2125)*XX(239)-JVS(2142)*XX(240)-JVS(2168)*XX(241)-JVS(2196)*XX(242)& - &-JVS(2218)*XX(243)-JVS(2231)*XX(244)-JVS(2245)*XX(245)-JVS(2257)*XX(246)-JVS(2269)*XX(247)-JVS(2293)*XX(248)& - &-JVS(2313)*XX(249)-JVS(2370)*XX(250)-JVS(2395)*XX(251)-JVS(2423)*XX(252)-JVS(2437)*XX(253)-JVS(2453)*XX(254)& - &-JVS(2473)*XX(255)-JVS(2490)*XX(256)-JVS(2503)*XX(257)-JVS(2524)*XX(258)-JVS(2561)*XX(259)-JVS(2577)*XX(260)& - &-JVS(2652)*XX(261)-JVS(2662)*XX(262)-JVS(2769)*XX(263)-JVS(2801)*XX(264)-JVS(2889)*XX(265)-JVS(2954)*XX(266)& - &-JVS(3054)*XX(267)-JVS(3074)*XX(268)-JVS(3103)*XX(269)-JVS(3122)*XX(270)-JVS(3151)*XX(271)-JVS(3200)*XX(272)& - &-JVS(3256)*XX(273)-JVS(3288)*XX(274)-JVS(3365)*XX(275)-JVS(3407)*XX(276)-JVS(3433)*XX(277)-JVS(3521)*XX(278)& - &-JVS(3618)*XX(279)-JVS(3651)*XX(280)-JVS(3743)*XX(281)-JVS(3802)*XX(282)-JVS(3828)*XX(283)-JVS(3999)*XX(284)& - &-JVS(4053)*XX(285))/(JVS(4269)) - XX(287) = (X(287)-JVS(355)*XX(35)-JVS(666)*XX(99)-JVS(871)*XX(135)-JVS(1105)*XX(173)-JVS(1317)*XX(193)-JVS(1368)& - &*XX(197)-JVS(1440)*XX(203)-JVS(2027)*XX(235)-JVS(2578)*XX(260)-JVS(2663)*XX(262)-JVS(2890)*XX(265)-JVS(3075)& - &*XX(268)-JVS(3104)*XX(269)-JVS(3123)*XX(270)-JVS(3152)*XX(271)-JVS(3201)*XX(272)-JVS(3257)*XX(273)-JVS(3289)& - &*XX(274)-JVS(3366)*XX(275)-JVS(3408)*XX(276)-JVS(3434)*XX(277)-JVS(3522)*XX(278)-JVS(3619)*XX(279)-JVS(3652)& - &*XX(280)-JVS(3744)*XX(281)-JVS(3803)*XX(282)-JVS(3829)*XX(283)-JVS(4000)*XX(284)-JVS(4054)*XX(285)-JVS(4270)& - &*XX(286))/(JVS(4303)) - XX(288) = (X(288)-JVS(356)*XX(35)-JVS(432)*XX(36)-JVS(532)*XX(66)-JVS(1159)*XX(177)-JVS(1582)*XX(212)-JVS(2579)& - &*XX(260)-JVS(2664)*XX(262)-JVS(2770)*XX(263)-JVS(2891)*XX(265)-JVS(3055)*XX(267)-JVS(3153)*XX(271)-JVS(3202)& - &*XX(272)-JVS(3258)*XX(273)-JVS(3290)*XX(274)-JVS(3367)*XX(275)-JVS(3409)*XX(276)-JVS(3435)*XX(277)-JVS(3523)& - &*XX(278)-JVS(3620)*XX(279)-JVS(3653)*XX(280)-JVS(3745)*XX(281)-JVS(3804)*XX(282)-JVS(3830)*XX(283)-JVS(4001)& - &*XX(284)-JVS(4055)*XX(285)-JVS(4271)*XX(286)-JVS(4304)*XX(287))/(JVS(4365)) - XX(289) = (X(289)-JVS(357)*XX(35)-JVS(823)*XX(128)-JVS(872)*XX(135)-JVS(1160)*XX(177)-JVS(1318)*XX(193)-JVS(2028)& - &*XX(235)-JVS(2580)*XX(260)-JVS(2665)*XX(262)-JVS(2892)*XX(265)-JVS(3154)*XX(271)-JVS(3203)*XX(272)-JVS(3259)& - &*XX(273)-JVS(3291)*XX(274)-JVS(3368)*XX(275)-JVS(3410)*XX(276)-JVS(3436)*XX(277)-JVS(3524)*XX(278)-JVS(3621)& - &*XX(279)-JVS(3654)*XX(280)-JVS(3746)*XX(281)-JVS(3805)*XX(282)-JVS(3831)*XX(283)-JVS(4002)*XX(284)-JVS(4056)& - &*XX(285)-JVS(4272)*XX(286)-JVS(4305)*XX(287)-JVS(4366)*XX(288))/(JVS(4405)) - XX(290) = (X(290)-JVS(67)*XX(7)-JVS(255)*XX(34)-JVS(433)*XX(36)-JVS(454)*XX(39)-JVS(553)*XX(72)-JVS(574)*XX(78)& - &-JVS(685)*XX(103)-JVS(739)*XX(114)-JVS(796)*XX(124)-JVS(852)*XX(133)-JVS(881)*XX(137)-JVS(947)*XX(149)& - &-JVS(1031)*XX(161)-JVS(1161)*XX(177)-JVS(1274)*XX(190)-JVS(1369)*XX(197)-JVS(1515)*XX(209)-JVS(1563)*XX(211)& - &-JVS(1583)*XX(212)-JVS(1643)*XX(217)-JVS(1671)*XX(218)-JVS(1698)*XX(219)-JVS(1722)*XX(221)-JVS(1777)*XX(224)& - &-JVS(1892)*XX(230)-JVS(1926)*XX(231)-JVS(2001)*XX(233)-JVS(2016)*XX(234)-JVS(2074)*XX(236)-JVS(2095)*XX(237)& - &-JVS(2126)*XX(239)-JVS(2169)*XX(241)-JVS(2232)*XX(244)-JVS(2246)*XX(245)-JVS(2258)*XX(246)-JVS(2270)*XX(247)& - &-JVS(2294)*XX(248)-JVS(2314)*XX(249)-JVS(2371)*XX(250)-JVS(2396)*XX(251)-JVS(2424)*XX(252)-JVS(2438)*XX(253)& - &-JVS(2474)*XX(255)-JVS(2491)*XX(256)-JVS(2504)*XX(257)-JVS(2525)*XX(258)-JVS(2562)*XX(259)-JVS(2653)*XX(261)& - &-JVS(2666)*XX(262)-JVS(2771)*XX(263)-JVS(2802)*XX(264)-JVS(2893)*XX(265)-JVS(2955)*XX(266)-JVS(3056)*XX(267)& - &-JVS(3155)*XX(271)-JVS(3204)*XX(272)-JVS(3260)*XX(273)-JVS(3292)*XX(274)-JVS(3369)*XX(275)-JVS(3411)*XX(276)& - &-JVS(3437)*XX(277)-JVS(3525)*XX(278)-JVS(3622)*XX(279)-JVS(3655)*XX(280)-JVS(3747)*XX(281)-JVS(3806)*XX(282)& - &-JVS(3832)*XX(283)-JVS(4003)*XX(284)-JVS(4057)*XX(285)-JVS(4273)*XX(286)-JVS(4306)*XX(287)-JVS(4367)*XX(288)& - &-JVS(4406)*XX(289))/(JVS(4501)) - XX(291) = (X(291)-JVS(256)*XX(34)-JVS(358)*XX(35)-JVS(490)*XX(50)-JVS(493)*XX(51)-JVS(516)*XX(61)-JVS(529)*XX(65)& - &-JVS(535)*XX(67)-JVS(562)*XX(74)-JVS(644)*XX(97)-JVS(678)*XX(102)-JVS(706)*XX(107)-JVS(920)*XX(144)-JVS(926)& - &*XX(145)-JVS(968)*XX(153)-JVS(1026)*XX(160)-JVS(1106)*XX(173)-JVS(1149)*XX(176)-JVS(1190)*XX(180)-JVS(1287)& - &*XX(191)-JVS(1319)*XX(193)-JVS(1339)*XX(195)-JVS(1418)*XX(200)-JVS(1441)*XX(203)-JVS(1452)*XX(204)-JVS(1463)& - &*XX(205)-JVS(1488)*XX(207)-JVS(1529)*XX(210)-JVS(1564)*XX(211)-JVS(1584)*XX(212)-JVS(1699)*XX(219)-JVS(1772)& - &*XX(223)-JVS(1820)*XX(227)-JVS(1893)*XX(230)-JVS(1927)*XX(231)-JVS(2002)*XX(233)-JVS(2017)*XX(234)-JVS(2029)& - &*XX(235)-JVS(2075)*XX(236)-JVS(2170)*XX(241)-JVS(2315)*XX(249)-JVS(2372)*XX(250)-JVS(2425)*XX(252)-JVS(2475)& - &*XX(255)-JVS(2505)*XX(257)-JVS(2526)*XX(258)-JVS(2563)*XX(259)-JVS(2581)*XX(260)-JVS(2654)*XX(261)-JVS(2667)& - &*XX(262)-JVS(2772)*XX(263)-JVS(2803)*XX(264)-JVS(2894)*XX(265)-JVS(2956)*XX(266)-JVS(3057)*XX(267)-JVS(3076)& - &*XX(268)-JVS(3105)*XX(269)-JVS(3124)*XX(270)-JVS(3156)*XX(271)-JVS(3205)*XX(272)-JVS(3261)*XX(273)-JVS(3293)& - &*XX(274)-JVS(3370)*XX(275)-JVS(3412)*XX(276)-JVS(3438)*XX(277)-JVS(3526)*XX(278)-JVS(3623)*XX(279)-JVS(3656)& - &*XX(280)-JVS(3748)*XX(281)-JVS(3807)*XX(282)-JVS(3833)*XX(283)-JVS(4004)*XX(284)-JVS(4058)*XX(285)-JVS(4274)& - &*XX(286)-JVS(4307)*XX(287)-JVS(4368)*XX(288)-JVS(4407)*XX(289)-JVS(4502)*XX(290))/(JVS(4631)) - XX(291) = XX(291) - XX(290) = XX(290)-JVS(4630)*XX(291) - XX(289) = XX(289)-JVS(4500)*XX(290)-JVS(4629)*XX(291) - XX(288) = XX(288)-JVS(4404)*XX(289)-JVS(4499)*XX(290)-JVS(4628)*XX(291) - XX(287) = XX(287)-JVS(4364)*XX(288)-JVS(4403)*XX(289)-JVS(4498)*XX(290)-JVS(4627)*XX(291) - XX(286) = XX(286)-JVS(4302)*XX(287)-JVS(4363)*XX(288)-JVS(4402)*XX(289)-JVS(4497)*XX(290)-JVS(4626)*XX(291) - XX(285) = XX(285)-JVS(4268)*XX(286)-JVS(4301)*XX(287)-JVS(4362)*XX(288)-JVS(4401)*XX(289)-JVS(4496)*XX(290)-JVS(4625)& - &*XX(291) - XX(284) = XX(284)-JVS(4051)*XX(285)-JVS(4267)*XX(286)-JVS(4300)*XX(287)-JVS(4361)*XX(288)-JVS(4400)*XX(289)-JVS(4495)& - &*XX(290)-JVS(4624)*XX(291) - XX(283) = XX(283)-JVS(3996)*XX(284)-JVS(4050)*XX(285)-JVS(4266)*XX(286)-JVS(4299)*XX(287)-JVS(4360)*XX(288)-JVS(4399)& - &*XX(289)-JVS(4494)*XX(290)-JVS(4623)*XX(291) - XX(282) = XX(282)-JVS(3824)*XX(283)-JVS(3995)*XX(284)-JVS(4049)*XX(285)-JVS(4265)*XX(286)-JVS(4298)*XX(287)-JVS(4359)& - &*XX(288)-JVS(4398)*XX(289)-JVS(4493)*XX(290)-JVS(4622)*XX(291) - XX(281) = XX(281)-JVS(3797)*XX(282)-JVS(3823)*XX(283)-JVS(3994)*XX(284)-JVS(4048)*XX(285)-JVS(4264)*XX(286)-JVS(4297)& - &*XX(287)-JVS(4358)*XX(288)-JVS(4397)*XX(289)-JVS(4492)*XX(290)-JVS(4621)*XX(291) - XX(280) = XX(280)-JVS(3737)*XX(281)-JVS(3796)*XX(282)-JVS(3822)*XX(283)-JVS(3993)*XX(284)-JVS(4047)*XX(285)-JVS(4263)& - &*XX(286)-JVS(4296)*XX(287)-JVS(4357)*XX(288)-JVS(4396)*XX(289)-JVS(4491)*XX(290)-JVS(4620)*XX(291) - XX(279) = XX(279)-JVS(3644)*XX(280)-JVS(3736)*XX(281)-JVS(3795)*XX(282)-JVS(3821)*XX(283)-JVS(3992)*XX(284)-JVS(4046)& - &*XX(285)-JVS(4262)*XX(286)-JVS(4295)*XX(287)-JVS(4356)*XX(288)-JVS(4395)*XX(289)-JVS(4490)*XX(290)-JVS(4619)& - &*XX(291) - XX(278) = XX(278)-JVS(3610)*XX(279)-JVS(3643)*XX(280)-JVS(3735)*XX(281)-JVS(3794)*XX(282)-JVS(3820)*XX(283)-JVS(3991)& - &*XX(284)-JVS(4045)*XX(285)-JVS(4261)*XX(286)-JVS(4294)*XX(287)-JVS(4355)*XX(288)-JVS(4394)*XX(289)-JVS(4489)& - &*XX(290)-JVS(4618)*XX(291) - XX(277) = XX(277)-JVS(3512)*XX(278)-JVS(3609)*XX(279)-JVS(3642)*XX(280)-JVS(3734)*XX(281)-JVS(3793)*XX(282)-JVS(3819)& - &*XX(283)-JVS(3990)*XX(284)-JVS(4044)*XX(285)-JVS(4260)*XX(286)-JVS(4293)*XX(287)-JVS(4354)*XX(288)-JVS(4393)& - &*XX(289)-JVS(4488)*XX(290)-JVS(4617)*XX(291) - XX(276) = XX(276)-JVS(3423)*XX(277)-JVS(3511)*XX(278)-JVS(3608)*XX(279)-JVS(3641)*XX(280)-JVS(3733)*XX(281)-JVS(3792)& - &*XX(282)-JVS(3818)*XX(283)-JVS(3989)*XX(284)-JVS(4043)*XX(285)-JVS(4259)*XX(286)-JVS(4292)*XX(287)-JVS(4353)& - &*XX(288)-JVS(4392)*XX(289)-JVS(4487)*XX(290)-JVS(4616)*XX(291) - XX(275) = XX(275)-JVS(3396)*XX(276)-JVS(3422)*XX(277)-JVS(3510)*XX(278)-JVS(3607)*XX(279)-JVS(3640)*XX(280)-JVS(3732)& - &*XX(281)-JVS(3791)*XX(282)-JVS(3817)*XX(283)-JVS(3988)*XX(284)-JVS(4042)*XX(285)-JVS(4258)*XX(286)-JVS(4291)& - &*XX(287)-JVS(4352)*XX(288)-JVS(4391)*XX(289)-JVS(4486)*XX(290)-JVS(4615)*XX(291) - XX(274) = XX(274)-JVS(3353)*XX(275)-JVS(3395)*XX(276)-JVS(3421)*XX(277)-JVS(3509)*XX(278)-JVS(3606)*XX(279)-JVS(3639)& - &*XX(280)-JVS(3731)*XX(281)-JVS(3790)*XX(282)-JVS(3816)*XX(283)-JVS(3987)*XX(284)-JVS(4041)*XX(285)-JVS(4257)& - &*XX(286)-JVS(4290)*XX(287)-JVS(4351)*XX(288)-JVS(4390)*XX(289)-JVS(4485)*XX(290)-JVS(4614)*XX(291) - XX(273) = XX(273)-JVS(3275)*XX(274)-JVS(3352)*XX(275)-JVS(3394)*XX(276)-JVS(3420)*XX(277)-JVS(3508)*XX(278)-JVS(3605)& - &*XX(279)-JVS(3638)*XX(280)-JVS(3730)*XX(281)-JVS(3789)*XX(282)-JVS(3815)*XX(283)-JVS(3986)*XX(284)-JVS(4040)& - &*XX(285)-JVS(4256)*XX(286)-JVS(4289)*XX(287)-JVS(4350)*XX(288)-JVS(4389)*XX(289)-JVS(4484)*XX(290)-JVS(4613)& - &*XX(291) - XX(272) = XX(272)-JVS(3242)*XX(273)-JVS(3274)*XX(274)-JVS(3351)*XX(275)-JVS(3393)*XX(276)-JVS(3507)*XX(278)-JVS(3604)& - &*XX(279)-JVS(3637)*XX(280)-JVS(3729)*XX(281)-JVS(3788)*XX(282)-JVS(3985)*XX(284)-JVS(4039)*XX(285)-JVS(4255)& - &*XX(286)-JVS(4288)*XX(287)-JVS(4349)*XX(288)-JVS(4388)*XX(289)-JVS(4483)*XX(290)-JVS(4612)*XX(291) - XX(271) = XX(271)-JVS(3185)*XX(272)-JVS(3241)*XX(273)-JVS(3350)*XX(275)-JVS(3392)*XX(276)-JVS(3506)*XX(278)-JVS(3636)& - &*XX(280)-JVS(4038)*XX(285)-JVS(4254)*XX(286)-JVS(4287)*XX(287)-JVS(4348)*XX(288)-JVS(4387)*XX(289)-JVS(4482)& - &*XX(290) - XX(270) = XX(270)-JVS(3135)*XX(271)-JVS(3240)*XX(273)-JVS(3273)*XX(274)-JVS(3349)*XX(275)-JVS(3391)*XX(276)-JVS(3419)& - &*XX(277)-JVS(3505)*XX(278)-JVS(3603)*XX(279)-JVS(3635)*XX(280)-JVS(3728)*XX(281)-JVS(3787)*XX(282)-JVS(3814)& - &*XX(283)-JVS(3984)*XX(284)-JVS(4037)*XX(285)-JVS(4253)*XX(286)-JVS(4286)*XX(287)-JVS(4347)*XX(288)-JVS(4481)& - &*XX(290)-JVS(4611)*XX(291) - XX(269) = XX(269)-JVS(3110)*XX(270)-JVS(3134)*XX(271)-JVS(3239)*XX(273)-JVS(3272)*XX(274)-JVS(3418)*XX(277)-JVS(3504)& - &*XX(278)-JVS(3602)*XX(279)-JVS(3634)*XX(280)-JVS(3727)*XX(281)-JVS(3786)*XX(282)-JVS(3813)*XX(283)-JVS(3983)& - &*XX(284)-JVS(4036)*XX(285)-JVS(4252)*XX(286)-JVS(4285)*XX(287)-JVS(4346)*XX(288)-JVS(4480)*XX(290)-JVS(4610)& - &*XX(291) - XX(268) = XX(268)-JVS(3090)*XX(269)-JVS(3109)*XX(270)-JVS(3133)*XX(271)-JVS(3238)*XX(273)-JVS(3271)*XX(274)-JVS(3417)& - &*XX(277)-JVS(3503)*XX(278)-JVS(3601)*XX(279)-JVS(3633)*XX(280)-JVS(3812)*XX(283)-JVS(3982)*XX(284)-JVS(4035)& - &*XX(285)-JVS(4251)*XX(286)-JVS(4284)*XX(287)-JVS(4345)*XX(288)-JVS(4479)*XX(290)-JVS(4609)*XX(291) - XX(267) = XX(267)-JVS(3132)*XX(271)-JVS(3184)*XX(272)-JVS(3237)*XX(273)-JVS(3348)*XX(275)-JVS(3390)*XX(276)-JVS(3502)& - &*XX(278)-JVS(3600)*XX(279)-JVS(3632)*XX(280)-JVS(3726)*XX(281)-JVS(3785)*XX(282)-JVS(3981)*XX(284)-JVS(4034)& - &*XX(285)-JVS(4250)*XX(286)-JVS(4283)*XX(287)-JVS(4344)*XX(288)-JVS(4386)*XX(289)-JVS(4478)*XX(290)-JVS(4608)& - &*XX(291) - XX(266) = XX(266)-JVS(3043)*XX(267)-JVS(3131)*XX(271)-JVS(3183)*XX(272)-JVS(3236)*XX(273)-JVS(3347)*XX(275)-JVS(3389)& - &*XX(276)-JVS(3501)*XX(278)-JVS(3599)*XX(279)-JVS(3631)*XX(280)-JVS(3725)*XX(281)-JVS(3784)*XX(282)-JVS(3980)& - &*XX(284)-JVS(4033)*XX(285)-JVS(4249)*XX(286)-JVS(4282)*XX(287)-JVS(4343)*XX(288)-JVS(4385)*XX(289)-JVS(4477)& - &*XX(290)-JVS(4607)*XX(291) - XX(265) = XX(265)-JVS(3346)*XX(275)-JVS(3388)*XX(276)-JVS(3500)*XX(278)-JVS(3598)*XX(279)-JVS(3630)*XX(280)-JVS(3724)& - &*XX(281)-JVS(3783)*XX(282)-JVS(4248)*XX(286)-JVS(4281)*XX(287)-JVS(4606)*XX(291) - XX(264) = XX(264)-JVS(2870)*XX(265)-JVS(2942)*XX(266)-JVS(3042)*XX(267)-JVS(3182)*XX(272)-JVS(3235)*XX(273)-JVS(3345)& - &*XX(275)-JVS(3387)*XX(276)-JVS(3499)*XX(278)-JVS(3597)*XX(279)-JVS(3723)*XX(281)-JVS(3782)*XX(282)-JVS(3979)& - &*XX(284)-JVS(4032)*XX(285)-JVS(4247)*XX(286)-JVS(4342)*XX(288)-JVS(4384)*XX(289)-JVS(4476)*XX(290)-JVS(4605)& - &*XX(291) - XX(263) = XX(263)-JVS(2869)*XX(265)-JVS(3041)*XX(267)-JVS(3234)*XX(273)-JVS(3344)*XX(275)-JVS(3386)*XX(276)-JVS(3498)& - &*XX(278)-JVS(3722)*XX(281)-JVS(3781)*XX(282)-JVS(3978)*XX(284)-JVS(4246)*XX(286)-JVS(4341)*XX(288)-JVS(4383)& - &*XX(289)-JVS(4475)*XX(290) - XX(262) = XX(262)-JVS(2868)*XX(265)-JVS(3130)*XX(271)-JVS(3181)*XX(272)-JVS(3233)*XX(273)-JVS(3343)*XX(275)-JVS(3416)& - &*XX(277)-JVS(3497)*XX(278)-JVS(3629)*XX(280)-JVS(3721)*XX(281)-JVS(3811)*XX(283)-JVS(4031)*XX(285)-JVS(4245)& - &*XX(286)-JVS(4280)*XX(287)-JVS(4340)*XX(288)-JVS(4382)*XX(289)-JVS(4474)*XX(290)-JVS(4604)*XX(291) - XX(261) = XX(261)-JVS(2755)*XX(263)-JVS(2790)*XX(264)-JVS(2867)*XX(265)-JVS(2941)*XX(266)-JVS(3040)*XX(267)-JVS(3180)& - &*XX(272)-JVS(3232)*XX(273)-JVS(3342)*XX(275)-JVS(3385)*XX(276)-JVS(3496)*XX(278)-JVS(3596)*XX(279)-JVS(3720)& - &*XX(281)-JVS(3780)*XX(282)-JVS(3977)*XX(284)-JVS(4030)*XX(285)-JVS(4244)*XX(286)-JVS(4339)*XX(288)-JVS(4381)& - &*XX(289)-JVS(4473)*XX(290)-JVS(4603)*XX(291) - XX(260) = XX(260)-JVS(3231)*XX(273)-JVS(3270)*XX(274)-JVS(3341)*XX(275)-JVS(3384)*XX(276)-JVS(3415)*XX(277)-JVS(3495)& - &*XX(278)-JVS(3628)*XX(280)-JVS(3810)*XX(283)-JVS(4243)*XX(286)-JVS(4279)*XX(287)-JVS(4338)*XX(288)-JVS(4380)& - &*XX(289)-JVS(4472)*XX(290) - XX(259) = XX(259)-JVS(2643)*XX(261)-JVS(2754)*XX(263)-JVS(2789)*XX(264)-JVS(2866)*XX(265)-JVS(2940)*XX(266)-JVS(3039)& - &*XX(267)-JVS(3230)*XX(273)-JVS(3340)*XX(275)-JVS(3494)*XX(278)-JVS(3595)*XX(279)-JVS(3719)*XX(281)-JVS(3779)& - &*XX(282)-JVS(3976)*XX(284)-JVS(4029)*XX(285)-JVS(4242)*XX(286)-JVS(4379)*XX(289)-JVS(4471)*XX(290)-JVS(4602)& - &*XX(291) - XX(258) = XX(258)-JVS(2552)*XX(259)-JVS(2642)*XX(261)-JVS(2753)*XX(263)-JVS(2865)*XX(265)-JVS(2939)*XX(266)-JVS(3038)& - &*XX(267)-JVS(3229)*XX(273)-JVS(3339)*XX(275)-JVS(3493)*XX(278)-JVS(3594)*XX(279)-JVS(3718)*XX(281)-JVS(3975)& - &*XX(284)-JVS(4241)*XX(286)-JVS(4378)*XX(289)-JVS(4470)*XX(290)-JVS(4601)*XX(291) - XX(257) = XX(257)-JVS(2514)*XX(258)-JVS(2551)*XX(259)-JVS(2641)*XX(261)-JVS(2752)*XX(263)-JVS(2788)*XX(264)-JVS(2864)& - &*XX(265)-JVS(2938)*XX(266)-JVS(3037)*XX(267)-JVS(3228)*XX(273)-JVS(3338)*XX(275)-JVS(3492)*XX(278)-JVS(3593)& - &*XX(279)-JVS(3717)*XX(281)-JVS(3778)*XX(282)-JVS(3974)*XX(284)-JVS(4028)*XX(285)-JVS(4240)*XX(286)-JVS(4377)& - &*XX(289)-JVS(4469)*XX(290)-JVS(4600)*XX(291) - XX(256) = XX(256)-JVS(2495)*XX(257)-JVS(2513)*XX(258)-JVS(2550)*XX(259)-JVS(2640)*XX(261)-JVS(2751)*XX(263)-JVS(2787)& - &*XX(264)-JVS(2863)*XX(265)-JVS(2937)*XX(266)-JVS(3036)*XX(267)-JVS(3227)*XX(273)-JVS(3337)*XX(275)-JVS(3491)& - &*XX(278)-JVS(3592)*XX(279)-JVS(3716)*XX(281)-JVS(3777)*XX(282)-JVS(3973)*XX(284)-JVS(4027)*XX(285)-JVS(4239)& - &*XX(286)-JVS(4376)*XX(289)-JVS(4468)*XX(290)-JVS(4599)*XX(291) - XX(255) = XX(255)-JVS(2512)*XX(258)-JVS(2549)*XX(259)-JVS(2639)*XX(261)-JVS(2750)*XX(263)-JVS(2786)*XX(264)-JVS(2936)& - &*XX(266)-JVS(3336)*XX(275)-JVS(3490)*XX(278)-JVS(3591)*XX(279)-JVS(3776)*XX(282)-JVS(3972)*XX(284)-JVS(4026)& - &*XX(285)-JVS(4238)*XX(286)-JVS(4467)*XX(290)-JVS(4598)*XX(291) - XX(254) = XX(254)-JVS(2462)*XX(255)-JVS(2494)*XX(257)-JVS(2511)*XX(258)-JVS(2548)*XX(259)-JVS(2638)*XX(261)-JVS(2749)& - &*XX(263)-JVS(2785)*XX(264)-JVS(2862)*XX(265)-JVS(2935)*XX(266)-JVS(3035)*XX(267)-JVS(3226)*XX(273)-JVS(3335)& - &*XX(275)-JVS(3489)*XX(278)-JVS(3590)*XX(279)-JVS(3715)*XX(281)-JVS(3971)*XX(284)-JVS(4025)*XX(285)-JVS(4237)& - &*XX(286)-JVS(4375)*XX(289)-JVS(4466)*XX(290)-JVS(4597)*XX(291) - XX(253) = XX(253)-JVS(2547)*XX(259)-JVS(2637)*XX(261)-JVS(2748)*XX(263)-JVS(2784)*XX(264)-JVS(2861)*XX(265)-JVS(2934)& - &*XX(266)-JVS(3034)*XX(267)-JVS(3179)*XX(272)-JVS(3225)*XX(273)-JVS(3334)*XX(275)-JVS(3383)*XX(276)-JVS(3488)& - &*XX(278)-JVS(3589)*XX(279)-JVS(3714)*XX(281)-JVS(3775)*XX(282)-JVS(3970)*XX(284)-JVS(4236)*XX(286)-JVS(4337)& - &*XX(288)-JVS(4374)*XX(289)-JVS(4465)*XX(290)-JVS(4596)*XX(291) - XX(252) = XX(252)-JVS(2636)*XX(261)-JVS(2747)*XX(263)-JVS(2860)*XX(265)-JVS(2933)*XX(266)-JVS(3033)*XX(267)-JVS(3333)& - &*XX(275)-JVS(3487)*XX(278)-JVS(3588)*XX(279)-JVS(3713)*XX(281)-JVS(3969)*XX(284)-JVS(4235)*XX(286)-JVS(4464)& - &*XX(290)-JVS(4595)*XX(291) - XX(251) = XX(251)-JVS(2410)*XX(252)-JVS(2635)*XX(261)-JVS(2746)*XX(263)-JVS(2859)*XX(265)-JVS(2932)*XX(266)-JVS(3032)& - &*XX(267)-JVS(3332)*XX(275)-JVS(3382)*XX(276)-JVS(3486)*XX(278)-JVS(3587)*XX(279)-JVS(3712)*XX(281)-JVS(3774)& - &*XX(282)-JVS(3968)*XX(284)-JVS(4234)*XX(286)-JVS(4336)*XX(288)-JVS(4463)*XX(290)-JVS(4594)*XX(291) - XX(250) = XX(250)-JVS(2634)*XX(261)-JVS(2745)*XX(263)-JVS(2858)*XX(265)-JVS(2931)*XX(266)-JVS(3031)*XX(267)-JVS(3331)& - &*XX(275)-JVS(3485)*XX(278)-JVS(3711)*XX(281)-JVS(3967)*XX(284)-JVS(4233)*XX(286)-JVS(4462)*XX(290) - XX(249) = XX(249)-JVS(2358)*XX(250)-JVS(2633)*XX(261)-JVS(2744)*XX(263)-JVS(2857)*XX(265)-JVS(2930)*XX(266)-JVS(3030)& - &*XX(267)-JVS(3330)*XX(275)-JVS(3484)*XX(278)-JVS(3586)*XX(279)-JVS(3710)*XX(281)-JVS(3773)*XX(282)-JVS(3966)& - &*XX(284)-JVS(4232)*XX(286)-JVS(4461)*XX(290)-JVS(4593)*XX(291) - XX(248) = XX(248)-JVS(2428)*XX(253)-JVS(2461)*XX(255)-JVS(2632)*XX(261)-JVS(2743)*XX(263)-JVS(2856)*XX(265)-JVS(2929)& - &*XX(266)-JVS(3029)*XX(267)-JVS(3329)*XX(275)-JVS(3381)*XX(276)-JVS(3483)*XX(278)-JVS(3585)*XX(279)-JVS(3709)& - &*XX(281)-JVS(3772)*XX(282)-JVS(3965)*XX(284)-JVS(4231)*XX(286)-JVS(4335)*XX(288)-JVS(4460)*XX(290)-JVS(4592)& - &*XX(291) - XX(247) = XX(247)-JVS(2285)*XX(248)-JVS(2304)*XX(249)-JVS(2357)*XX(250)-JVS(2387)*XX(251)-JVS(2409)*XX(252)-JVS(2631)& - &*XX(261)-JVS(2742)*XX(263)-JVS(2855)*XX(265)-JVS(2928)*XX(266)-JVS(3028)*XX(267)-JVS(3328)*XX(275)-JVS(3482)& - &*XX(278)-JVS(3584)*XX(279)-JVS(3708)*XX(281)-JVS(3964)*XX(284)-JVS(4230)*XX(286)-JVS(4459)*XX(290)-JVS(4591)& - &*XX(291) - XX(246) = XX(246)-JVS(2261)*XX(247)-JVS(2284)*XX(248)-JVS(2303)*XX(249)-JVS(2356)*XX(250)-JVS(2386)*XX(251)-JVS(2408)& - &*XX(252)-JVS(2630)*XX(261)-JVS(2741)*XX(263)-JVS(2854)*XX(265)-JVS(2927)*XX(266)-JVS(3027)*XX(267)-JVS(3327)& - &*XX(275)-JVS(3481)*XX(278)-JVS(3583)*XX(279)-JVS(3707)*XX(281)-JVS(3963)*XX(284)-JVS(4229)*XX(286)-JVS(4458)& - &*XX(290)-JVS(4590)*XX(291) - XX(245) = XX(245)-JVS(2283)*XX(248)-JVS(2302)*XX(249)-JVS(2355)*XX(250)-JVS(2385)*XX(251)-JVS(2407)*XX(252)-JVS(2629)& - &*XX(261)-JVS(2740)*XX(263)-JVS(2853)*XX(265)-JVS(2926)*XX(266)-JVS(3026)*XX(267)-JVS(3326)*XX(275)-JVS(3480)& - &*XX(278)-JVS(3582)*XX(279)-JVS(3706)*XX(281)-JVS(3962)*XX(284)-JVS(4228)*XX(286)-JVS(4457)*XX(290)-JVS(4589)& - &*XX(291) - XX(244) = XX(244)-JVS(2237)*XX(245)-JVS(2282)*XX(248)-JVS(2301)*XX(249)-JVS(2354)*XX(250)-JVS(2384)*XX(251)-JVS(2406)& - &*XX(252)-JVS(2628)*XX(261)-JVS(2739)*XX(263)-JVS(2852)*XX(265)-JVS(2925)*XX(266)-JVS(3025)*XX(267)-JVS(3325)& - &*XX(275)-JVS(3479)*XX(278)-JVS(3581)*XX(279)-JVS(3705)*XX(281)-JVS(3961)*XX(284)-JVS(4227)*XX(286)-JVS(4456)& - &*XX(290)-JVS(4588)*XX(291) - XX(243) = XX(243)-JVS(2281)*XX(248)-JVS(2300)*XX(249)-JVS(2353)*XX(250)-JVS(2383)*XX(251)-JVS(2405)*XX(252)-JVS(2627)& - &*XX(261)-JVS(2738)*XX(263)-JVS(2851)*XX(265)-JVS(3024)*XX(267)-JVS(3324)*XX(275)-JVS(3478)*XX(278)-JVS(3580)& - &*XX(279)-JVS(3704)*XX(281)-JVS(3960)*XX(284)-JVS(4226)*XX(286)-JVS(4455)*XX(290)-JVS(4587)*XX(291) - XX(242) = XX(242)-JVS(2207)*XX(243)-JVS(2299)*XX(249)-JVS(2352)*XX(250)-JVS(2404)*XX(252)-JVS(2626)*XX(261)-JVS(2737)& - &*XX(263)-JVS(2850)*XX(265)-JVS(3023)*XX(267)-JVS(3323)*XX(275)-JVS(3477)*XX(278)-JVS(3579)*XX(279)-JVS(3703)& - &*XX(281)-JVS(3959)*XX(284)-JVS(4225)*XX(286)-JVS(4454)*XX(290)-JVS(4586)*XX(291) - XX(241) = XX(241)-JVS(2625)*XX(261)-JVS(2736)*XX(263)-JVS(2849)*XX(265)-JVS(3022)*XX(267)-JVS(3322)*XX(275)-JVS(3476)& - &*XX(278)-JVS(3702)*XX(281)-JVS(3958)*XX(284)-JVS(4224)*XX(286)-JVS(4453)*XX(290)-JVS(4585)*XX(291) - XX(240) = XX(240)-JVS(2153)*XX(241)-JVS(2298)*XX(249)-JVS(2351)*XX(250)-JVS(2403)*XX(252)-JVS(2624)*XX(261)-JVS(2735)& - &*XX(263)-JVS(2848)*XX(265)-JVS(3021)*XX(267)-JVS(3321)*XX(275)-JVS(3475)*XX(278)-JVS(3578)*XX(279)-JVS(3701)& - &*XX(281)-JVS(3957)*XX(284)-JVS(4223)*XX(286)-JVS(4452)*XX(290)-JVS(4584)*XX(291) - XX(239) = XX(239)-JVS(2623)*XX(261)-JVS(2734)*XX(263)-JVS(2783)*XX(264)-JVS(2924)*XX(266)-JVS(3320)*XX(275)-JVS(3474)& - &*XX(278)-JVS(3577)*XX(279)-JVS(3956)*XX(284)-JVS(4024)*XX(285)-JVS(4222)*XX(286)-JVS(4451)*XX(290)-JVS(4583)& - &*XX(291) - XX(238) = XX(238)-JVS(2111)*XX(239)-JVS(2350)*XX(250)-JVS(2402)*XX(252)-JVS(2443)*XX(254)-JVS(2460)*XX(255)-JVS(2481)& - &*XX(256)-JVS(2510)*XX(258)-JVS(2546)*XX(259)-JVS(2622)*XX(261)-JVS(2733)*XX(263)-JVS(2847)*XX(265)-JVS(2923)& - &*XX(266)-JVS(3020)*XX(267)-JVS(3224)*XX(273)-JVS(3319)*XX(275)-JVS(3473)*XX(278)-JVS(3576)*XX(279)-JVS(3700)& - &*XX(281)-JVS(3771)*XX(282)-JVS(3955)*XX(284)-JVS(4221)*XX(286)-JVS(4373)*XX(289)-JVS(4450)*XX(290)-JVS(4582)& - &*XX(291) - XX(237) = XX(237)-JVS(2545)*XX(259)-JVS(2621)*XX(261)-JVS(2732)*XX(263)-JVS(2922)*XX(266)-JVS(3318)*XX(275)-JVS(3472)& - &*XX(278)-JVS(3575)*XX(279)-JVS(3954)*XX(284)-JVS(4220)*XX(286)-JVS(4449)*XX(290)-JVS(4581)*XX(291) - XX(236) = XX(236)-JVS(2731)*XX(263)-JVS(2846)*XX(265)-JVS(3019)*XX(267)-JVS(3317)*XX(275)-JVS(3471)*XX(278)-JVS(3699)& - &*XX(281)-JVS(3953)*XX(284)-JVS(4219)*XX(286)-JVS(4448)*XX(290) - XX(235) = XX(235)-JVS(3129)*XX(271)-JVS(3178)*XX(272)-JVS(3223)*XX(273)-JVS(3316)*XX(275)-JVS(3414)*XX(277)-JVS(3470)& - &*XX(278)-JVS(3574)*XX(279)-JVS(3627)*XX(280)-JVS(3809)*XX(283)-JVS(4023)*XX(285)-JVS(4218)*XX(286)-JVS(4278)& - &*XX(287)-JVS(4334)*XX(288)-JVS(4372)*XX(289)-JVS(4447)*XX(290)-JVS(4580)*XX(291) - XX(234) = XX(234)-JVS(2730)*XX(263)-JVS(3018)*XX(267)-JVS(3315)*XX(275)-JVS(3380)*XX(276)-JVS(3469)*XX(278)-JVS(3573)& - &*XX(279)-JVS(3698)*XX(281)-JVS(3770)*XX(282)-JVS(3952)*XX(284)-JVS(4217)*XX(286)-JVS(4333)*XX(288)-JVS(4446)& - &*XX(290)-JVS(4579)*XX(291) - XX(233) = XX(233)-JVS(2620)*XX(261)-JVS(2845)*XX(265)-JVS(3017)*XX(267)-JVS(3697)*XX(281)-JVS(3951)*XX(284)-JVS(4216)& - &*XX(286) - XX(232) = XX(232)-JVS(1977)*XX(233)-JVS(2056)*XX(236)-JVS(2152)*XX(241)-JVS(2184)*XX(242)-JVS(2206)*XX(243)-JVS(2349)& - &*XX(250)-JVS(2619)*XX(261)-JVS(2729)*XX(263)-JVS(2844)*XX(265)-JVS(3016)*XX(267)-JVS(3572)*XX(279)-JVS(3696)& - &*XX(281)-JVS(3950)*XX(284)-JVS(4215)*XX(286)-JVS(4578)*XX(291) - XX(231) = XX(231)-JVS(1976)*XX(233)-JVS(2348)*XX(250)-JVS(2401)*XX(252)-JVS(2618)*XX(261)-JVS(2728)*XX(263)-JVS(3015)& - &*XX(267)-JVS(3468)*XX(278)-JVS(3949)*XX(284)-JVS(4214)*XX(286) - XX(230) = XX(230)-JVS(1975)*XX(233)-JVS(2055)*XX(236)-JVS(2617)*XX(261)-JVS(2727)*XX(263)-JVS(2843)*XX(265)-JVS(3014)& - &*XX(267)-JVS(3695)*XX(281)-JVS(3948)*XX(284)-JVS(4213)*XX(286) - XX(229) = XX(229)-JVS(1877)*XX(230)-JVS(1911)*XX(231)-JVS(1974)*XX(233)-JVS(2054)*XX(236)-JVS(2347)*XX(250)-JVS(2616)& - &*XX(261)-JVS(2726)*XX(263)-JVS(2842)*XX(265)-JVS(3013)*XX(267)-JVS(3571)*XX(279)-JVS(3694)*XX(281)-JVS(3947)& - &*XX(284)-JVS(4212)*XX(286)-JVS(4577)*XX(291) - XX(228) = XX(228)-JVS(1851)*XX(229)-JVS(1876)*XX(230)-JVS(1910)*XX(231)-JVS(1973)*XX(233)-JVS(2053)*XX(236)-JVS(2346)& - &*XX(250)-JVS(2615)*XX(261)-JVS(2725)*XX(263)-JVS(2841)*XX(265)-JVS(3012)*XX(267)-JVS(3570)*XX(279)-JVS(3693)& - &*XX(281)-JVS(3946)*XX(284)-JVS(4211)*XX(286)-JVS(4576)*XX(291) - XX(227) = XX(227)-JVS(3060)*XX(268)-JVS(3089)*XX(269)-JVS(3108)*XX(270)-JVS(3128)*XX(271)-JVS(3222)*XX(273)-JVS(3269)& - &*XX(274)-JVS(3569)*XX(279)-JVS(3945)*XX(284)-JVS(4022)*XX(285)-JVS(4210)*XX(286)-JVS(4332)*XX(288)-JVS(4445)& - &*XX(290)-JVS(4575)*XX(291) - XX(226) = XX(226)-JVS(2079)*XX(237)-JVS(2110)*XX(239)-JVS(2442)*XX(254)-JVS(2459)*XX(255)-JVS(2509)*XX(258)-JVS(2614)& - &*XX(261)-JVS(2840)*XX(265)-JVS(2921)*XX(266)-JVS(3467)*XX(278)-JVS(3692)*XX(281)-JVS(4209)*XX(286) - XX(225) = XX(225)-JVS(1794)*XX(226)-JVS(2345)*XX(250)-JVS(2382)*XX(251)-JVS(2427)*XX(253)-JVS(2480)*XX(256)-JVS(2544)& - &*XX(259)-JVS(2613)*XX(261)-JVS(2724)*XX(263)-JVS(2839)*XX(265)-JVS(2920)*XX(266)-JVS(3314)*XX(275)-JVS(3568)& - &*XX(279)-JVS(3691)*XX(281)-JVS(3769)*XX(282)-JVS(3944)*XX(284)-JVS(4208)*XX(286)-JVS(4444)*XX(290)-JVS(4574)& - &*XX(291) - XX(224) = XX(224)-JVS(1875)*XX(230)-JVS(1909)*XX(231)-JVS(1972)*XX(233)-JVS(2004)*XX(234)-JVS(2052)*XX(236)-JVS(2151)& - &*XX(241)-JVS(2222)*XX(244)-JVS(2236)*XX(245)-JVS(2248)*XX(246)-JVS(2260)*XX(247)-JVS(2280)*XX(248)-JVS(2297)& - &*XX(249)-JVS(2344)*XX(250)-JVS(2381)*XX(251)-JVS(2400)*XX(252)-JVS(2612)*XX(261)-JVS(2723)*XX(263)-JVS(2838)& - &*XX(265)-JVS(2919)*XX(266)-JVS(3011)*XX(267)-JVS(3313)*XX(275)-JVS(3379)*XX(276)-JVS(3466)*XX(278)-JVS(3567)& - &*XX(279)-JVS(3690)*XX(281)-JVS(3768)*XX(282)-JVS(3943)*XX(284)-JVS(4207)*XX(286)-JVS(4331)*XX(288)-JVS(4443)& - &*XX(290)-JVS(4573)*XX(291) - XX(223) = XX(223)-JVS(2722)*XX(263)-JVS(2837)*XX(265)-JVS(3010)*XX(267)-JVS(3689)*XX(281)-JVS(3942)*XX(284)-JVS(4206)& - &*XX(286) - XX(222) = XX(222)-JVS(1752)*XX(223)-JVS(1874)*XX(230)-JVS(1908)*XX(231)-JVS(1971)*XX(233)-JVS(2051)*XX(236)-JVS(2150)& - &*XX(241)-JVS(2183)*XX(242)-JVS(2205)*XX(243)-JVS(2343)*XX(250)-JVS(2399)*XX(252)-JVS(2611)*XX(261)-JVS(2721)& - &*XX(263)-JVS(2836)*XX(265)-JVS(3009)*XX(267)-JVS(3465)*XX(278)-JVS(3566)*XX(279)-JVS(3688)*XX(281)-JVS(3941)& - &*XX(284)-JVS(4205)*XX(286)-JVS(4572)*XX(291) - XX(221) = XX(221)-JVS(2398)*XX(252)-JVS(2610)*XX(261)-JVS(2918)*XX(266)-JVS(3008)*XX(267)-JVS(3221)*XX(273)-JVS(3312)& - &*XX(275)-JVS(3464)*XX(278)-JVS(4204)*XX(286)-JVS(4371)*XX(289)-JVS(4442)*XX(290) - XX(220) = XX(220)-JVS(1751)*XX(223)-JVS(1830)*XX(228)-JVS(1850)*XX(229)-JVS(1873)*XX(230)-JVS(1907)*XX(231)-JVS(1970)& - &*XX(233)-JVS(2050)*XX(236)-JVS(2130)*XX(240)-JVS(2182)*XX(242)-JVS(2204)*XX(243)-JVS(2342)*XX(250)-JVS(2609)& - &*XX(261)-JVS(2720)*XX(263)-JVS(2835)*XX(265)-JVS(3007)*XX(267)-JVS(3565)*XX(279)-JVS(3940)*XX(284)-JVS(4203)& - &*XX(286)-JVS(4571)*XX(291) - XX(219) = XX(219)-JVS(2917)*XX(266)-JVS(3311)*XX(275)-JVS(3463)*XX(278)-JVS(4202)*XX(286)-JVS(4441)*XX(290) - XX(218) = XX(218)-JVS(2719)*XX(263)-JVS(3310)*XX(275)-JVS(3939)*XX(284)-JVS(4201)*XX(286)-JVS(4440)*XX(290) - XX(217) = XX(217)-JVS(1648)*XX(218)-JVS(1676)*XX(219)-JVS(2109)*XX(239)-JVS(2608)*XX(261)-JVS(2718)*XX(263)-JVS(2782)& - &*XX(264)-JVS(2916)*XX(266)-JVS(3309)*XX(275)-JVS(3564)*XX(279)-JVS(3938)*XX(284)-JVS(4021)*XX(285)-JVS(4200)& - &*XX(286)-JVS(4439)*XX(290)-JVS(4570)*XX(291) - XX(216) = XX(216)-JVS(1647)*XX(218)-JVS(1793)*XX(226)-JVS(2341)*XX(250)-JVS(2543)*XX(259)-JVS(2607)*XX(261)-JVS(2717)& - &*XX(263)-JVS(2834)*XX(265)-JVS(2915)*XX(266)-JVS(3563)*XX(279)-JVS(3687)*XX(281)-JVS(3767)*XX(282)-JVS(3937)& - &*XX(284)-JVS(4199)*XX(286)-JVS(4569)*XX(291) - XX(215) = XX(215)-JVS(1625)*XX(216)-JVS(1792)*XX(226)-JVS(2340)*XX(250)-JVS(2542)*XX(259)-JVS(2606)*XX(261)-JVS(2716)& - &*XX(263)-JVS(2833)*XX(265)-JVS(2914)*XX(266)-JVS(3562)*XX(279)-JVS(3686)*XX(281)-JVS(3766)*XX(282)-JVS(3936)& - &*XX(284)-JVS(4198)*XX(286)-JVS(4568)*XX(291) - XX(214) = XX(214)-JVS(1750)*XX(223)-JVS(1829)*XX(228)-JVS(1849)*XX(229)-JVS(1872)*XX(230)-JVS(1906)*XX(231)-JVS(1969)& - &*XX(233)-JVS(2049)*XX(236)-JVS(2129)*XX(240)-JVS(2149)*XX(241)-JVS(2181)*XX(242)-JVS(2203)*XX(243)-JVS(2339)& - &*XX(250)-JVS(2605)*XX(261)-JVS(2715)*XX(263)-JVS(2832)*XX(265)-JVS(3006)*XX(267)-JVS(3561)*XX(279)-JVS(3685)& - &*XX(281)-JVS(3935)*XX(284)-JVS(4197)*XX(286)-JVS(4567)*XX(291) - XX(213) = XX(213)-JVS(1871)*XX(230)-JVS(1905)*XX(231)-JVS(1968)*XX(233)-JVS(2048)*XX(236)-JVS(2831)*XX(265)-JVS(3005)& - &*XX(267)-JVS(3934)*XX(284)-JVS(4196)*XX(286)-JVS(4566)*XX(291) - XX(212) = XX(212)-JVS(3308)*XX(275)-JVS(3378)*XX(276)-JVS(3462)*XX(278)-JVS(3933)*XX(284)-JVS(4195)*XX(286)-JVS(4330)& - &*XX(288)-JVS(4438)*XX(290) - XX(211) = XX(211)-JVS(3307)*XX(275)-JVS(3461)*XX(278)-JVS(3932)*XX(284)-JVS(4194)*XX(286)-JVS(4437)*XX(290) - XX(210) = XX(210)-JVS(1542)*XX(211)-JVS(1749)*XX(223)-JVS(2047)*XX(236)-JVS(2458)*XX(255)-JVS(2493)*XX(257)-JVS(2541)& - &*XX(259)-JVS(2830)*XX(265)-JVS(3004)*XX(267)-JVS(3460)*XX(278)-JVS(3560)*XX(279)-JVS(3684)*XX(281)-JVS(3765)& - &*XX(282)-JVS(3931)*XX(284)-JVS(4193)*XX(286)-JVS(4565)*XX(291) - XX(209) = XX(209)-JVS(1646)*XX(218)-JVS(1675)*XX(219)-JVS(2338)*XX(250)-JVS(2540)*XX(259)-JVS(2604)*XX(261)-JVS(2714)& - &*XX(263)-JVS(2781)*XX(264)-JVS(2913)*XX(266)-JVS(3559)*XX(279)-JVS(3930)*XX(284)-JVS(4192)*XX(286)-JVS(4564)& - &*XX(291) - XX(208) = XX(208)-JVS(2603)*XX(261)-JVS(2713)*XX(263)-JVS(2829)*XX(265)-JVS(3003)*XX(267)-JVS(3683)*XX(281)-JVS(3929)& - &*XX(284)-JVS(4191)*XX(286)-JVS(4563)*XX(291) - XX(207) = XX(207)-JVS(1541)*XX(211)-JVS(1967)*XX(233)-JVS(2337)*XX(250)-JVS(2602)*XX(261)-JVS(2712)*XX(263)-JVS(2912)& - &*XX(266)-JVS(3002)*XX(267)-JVS(3558)*XX(279)-JVS(3682)*XX(281)-JVS(3764)*XX(282)-JVS(3928)*XX(284)-JVS(4190)& - &*XX(286)-JVS(4562)*XX(291) - XX(206) = XX(206)-JVS(1748)*XX(223)-JVS(1904)*XX(231)-JVS(1966)*XX(233)-JVS(2046)*XX(236)-JVS(2336)*XX(250)-JVS(2601)& - &*XX(261)-JVS(2711)*XX(263)-JVS(3001)*XX(267)-JVS(3927)*XX(284)-JVS(4189)*XX(286) - XX(205) = XX(205)-JVS(1903)*XX(231)-JVS(1965)*XX(233)-JVS(2296)*XX(249)-JVS(2335)*XX(250)-JVS(2710)*XX(263)-JVS(2828)& - &*XX(265)-JVS(3000)*XX(267)-JVS(3557)*XX(279)-JVS(3926)*XX(284)-JVS(4188)*XX(286)-JVS(4561)*XX(291) - XX(204) = XX(204)-JVS(1870)*XX(230)-JVS(1964)*XX(233)-JVS(2045)*XX(236)-JVS(2148)*XX(241)-JVS(2600)*XX(261)-JVS(2709)& - &*XX(263)-JVS(2999)*XX(267)-JVS(3556)*XX(279)-JVS(3925)*XX(284)-JVS(4187)*XX(286)-JVS(4560)*XX(291) - XX(203) = XX(203)-JVS(3059)*XX(268)-JVS(3088)*XX(269)-JVS(3107)*XX(270)-JVS(3220)*XX(273)-JVS(3413)*XX(277)-JVS(3459)& - &*XX(278)-JVS(3555)*XX(279)-JVS(3626)*XX(280)-JVS(3681)*XX(281)-JVS(3808)*XX(283)-JVS(4186)*XX(286)-JVS(4277)& - &*XX(287)-JVS(4436)*XX(290)-JVS(4559)*XX(291) - XX(202) = XX(202)-JVS(1709)*XX(221)-JVS(1791)*XX(226)-JVS(2078)*XX(237)-JVS(2108)*XX(239)-JVS(2492)*XX(257)-JVS(2508)& - &*XX(258)-JVS(2539)*XX(259)-JVS(2780)*XX(264)-JVS(2827)*XX(265)-JVS(2911)*XX(266)-JVS(3458)*XX(278)-JVS(3924)& - &*XX(284)-JVS(4185)*XX(286)-JVS(4558)*XX(291) - XX(201) = XX(201)-JVS(1645)*XX(218)-JVS(1674)*XX(219)-JVS(1963)*XX(233)-JVS(2538)*XX(259)-JVS(2599)*XX(261)-JVS(2708)& - &*XX(263)-JVS(2779)*XX(264)-JVS(2910)*XX(266)-JVS(3554)*XX(279)-JVS(3923)*XX(284)-JVS(4184)*XX(286)-JVS(4557)& - &*XX(291) - XX(200) = XX(200)-JVS(2295)*XX(249)-JVS(2334)*XX(250)-JVS(2826)*XX(265)-JVS(2998)*XX(267)-JVS(3922)*XX(284)-JVS(4183)& - &*XX(286)-JVS(4556)*XX(291) - XX(199) = XX(199)-JVS(2333)*XX(250)-JVS(2537)*XX(259)-JVS(2825)*XX(265)-JVS(3680)*XX(281)-JVS(3763)*XX(282)-JVS(4182)& - &*XX(286)-JVS(4555)*XX(291) - XX(198) = XX(198)-JVS(1962)*XX(233)-JVS(2598)*XX(261)-JVS(2707)*XX(263)-JVS(4181)*XX(286)-JVS(4554)*XX(291) - XX(197) = XX(197)-JVS(3127)*XX(271)-JVS(3177)*XX(272)-JVS(4020)*XX(285)-JVS(4180)*XX(286)-JVS(4329)*XX(288)-JVS(4435)& - &*XX(290) - XX(196) = XX(196)-JVS(1961)*XX(233)-JVS(2397)*XX(252)-JVS(2597)*XX(261)-JVS(2706)*XX(263)-JVS(3457)*XX(278)-JVS(4179)& - &*XX(286) - XX(195) = XX(195)-JVS(1568)*XX(212)-JVS(1673)*XX(219)-JVS(2778)*XX(264)-JVS(2997)*XX(267)-JVS(3377)*XX(276)-JVS(3456)& - &*XX(278)-JVS(3553)*XX(279)-JVS(3679)*XX(281)-JVS(4178)*XX(286)-JVS(4553)*XX(291) - XX(194) = XX(194)-JVS(1468)*XX(206)-JVS(1590)*XX(213)-JVS(2332)*XX(250)-JVS(2596)*XX(261)-JVS(2705)*XX(263)-JVS(2996)& - &*XX(267)-JVS(3552)*XX(279)-JVS(3921)*XX(284)-JVS(4177)*XX(286)-JVS(4552)*XX(291) - XX(193) = XX(193)-JVS(3455)*XX(278)-JVS(3551)*XX(279)-JVS(4176)*XX(286)-JVS(4551)*XX(291) - XX(192) = XX(192)-JVS(1828)*XX(228)-JVS(1848)*XX(229)-JVS(1869)*XX(230)-JVS(1902)*XX(231)-JVS(1960)*XX(233)-JVS(2995)& - &*XX(267)-JVS(3920)*XX(284)-JVS(4175)*XX(286) - XX(191) = XX(191)-JVS(1521)*XX(210)-JVS(2704)*XX(263)-JVS(2909)*XX(266)-JVS(3550)*XX(279)-JVS(3678)*XX(281)-JVS(3762)& - &*XX(282)-JVS(3919)*XX(284)-JVS(4174)*XX(286)-JVS(4550)*XX(291) - XX(190) = XX(190)-JVS(2703)*XX(263)-JVS(2908)*XX(266)-JVS(3176)*XX(272)-JVS(3306)*XX(275)-JVS(3454)*XX(278)-JVS(3761)& - &*XX(282)-JVS(3918)*XX(284)-JVS(4173)*XX(286)-JVS(4328)*XX(288)-JVS(4434)*XX(290) - XX(189) = XX(189)-JVS(1342)*XX(196)-JVS(1375)*XX(198)-JVS(1492)*XX(208)-JVS(1589)*XX(213)-JVS(1747)*XX(223)-JVS(2147)& - &*XX(241)-JVS(2180)*XX(242)-JVS(2202)*XX(243)-JVS(2702)*XX(263)-JVS(2824)*XX(265)-JVS(2994)*XX(267)-JVS(3549)& - &*XX(279)-JVS(3917)*XX(284)-JVS(4172)*XX(286)-JVS(4549)*XX(291) - XX(188) = XX(188)-JVS(1406)*XX(200)-JVS(1454)*XX(205)-JVS(1540)*XX(211)-JVS(1746)*XX(223)-JVS(1901)*XX(231)-JVS(1959)& - &*XX(233)-JVS(2331)*XX(250)-JVS(2380)*XX(251)-JVS(2595)*XX(261)-JVS(2701)*XX(263)-JVS(2993)*XX(267)-JVS(3548)& - &*XX(279)-JVS(3916)*XX(284)-JVS(4171)*XX(286)-JVS(4548)*XX(291) - XX(187) = XX(187)-JVS(1467)*XX(206)-JVS(1745)*XX(223)-JVS(1868)*XX(230)-JVS(1900)*XX(231)-JVS(1958)*XX(233)-JVS(2044)& - &*XX(236)-JVS(2179)*XX(242)-JVS(2330)*XX(250)-JVS(3547)*XX(279)-JVS(3915)*XX(284)-JVS(4170)*XX(286)-JVS(4547)& - &*XX(291) - XX(186) = XX(186)-JVS(1443)*XX(204)-JVS(1539)*XX(211)-JVS(1744)*XX(223)-JVS(1867)*XX(230)-JVS(1957)*XX(233)-JVS(2146)& - &*XX(241)-JVS(2279)*XX(248)-JVS(2329)*XX(250)-JVS(2594)*XX(261)-JVS(2700)*XX(263)-JVS(2992)*XX(267)-JVS(3546)& - &*XX(279)-JVS(3914)*XX(284)-JVS(4169)*XX(286)-JVS(4546)*XX(291) - XX(185) = XX(185)-JVS(1743)*XX(223)-JVS(1956)*XX(233)-JVS(2593)*XX(261)-JVS(2991)*XX(267)-JVS(3913)*XX(284) - XX(184) = XX(184)-JVS(2592)*XX(261)-JVS(2699)*XX(263)-JVS(2907)*XX(266)-JVS(3545)*XX(279)-JVS(3677)*XX(281)-JVS(3912)& - &*XX(284)-JVS(4168)*XX(286)-JVS(4545)*XX(291) - XX(183) = XX(183)-JVS(1341)*XX(196)-JVS(1466)*XX(206)-JVS(1742)*XX(223)-JVS(1866)*XX(230)-JVS(1899)*XX(231)-JVS(1955)& - &*XX(233)-JVS(2043)*XX(236)-JVS(2178)*XX(242)-JVS(2328)*XX(250)-JVS(2698)*XX(263)-JVS(3544)*XX(279)-JVS(3911)& - &*XX(284)-JVS(4167)*XX(286)-JVS(4544)*XX(291) - XX(182) = XX(182)-JVS(1465)*XX(206)-JVS(1741)*XX(223)-JVS(1865)*XX(230)-JVS(1898)*XX(231)-JVS(1954)*XX(233)-JVS(2042)& - &*XX(236)-JVS(2177)*XX(242)-JVS(2327)*XX(250)-JVS(2697)*XX(263)-JVS(2990)*XX(267)-JVS(3543)*XX(279)-JVS(3910)& - &*XX(284)-JVS(4166)*XX(286)-JVS(4543)*XX(291) - XX(181) = XX(181)-JVS(1723)*XX(222)-JVS(1930)*XX(232)-JVS(2176)*XX(242)-JVS(2259)*XX(247)-JVS(2278)*XX(248)-JVS(2379)& - &*XX(251)-JVS(2696)*XX(263)-JVS(2823)*XX(265)-JVS(3909)*XX(284)-JVS(4165)*XX(286)-JVS(4542)*XX(291) - XX(180) = XX(180)-JVS(1279)*XX(191)-JVS(1520)*XX(210)-JVS(2695)*XX(263)-JVS(2906)*XX(266)-JVS(3542)*XX(279)-JVS(3760)& - &*XX(282)-JVS(3908)*XX(284)-JVS(4164)*XX(286)-JVS(4541)*XX(291) - XX(179) = XX(179)-JVS(1644)*XX(218)-JVS(2041)*XX(236)-JVS(2694)*XX(263)-JVS(2905)*XX(266)-JVS(3541)*XX(279)-JVS(3676)& - &*XX(281)-JVS(3907)*XX(284)-JVS(4163)*XX(286)-JVS(4540)*XX(291) - XX(178) = XX(178)-JVS(1790)*XX(226)-JVS(2326)*XX(250)-JVS(2822)*XX(265)-JVS(3675)*XX(281)-JVS(4162)*XX(286)-JVS(4539)& - &*XX(291) - XX(177) = XX(177)-JVS(3453)*XX(278)-JVS(3759)*XX(282)-JVS(3906)*XX(284)-JVS(4161)*XX(286)-JVS(4327)*XX(288) - XX(176) = XX(176)-JVS(2565)*XX(260)-JVS(2821)*XX(265)-JVS(3219)*XX(273)-JVS(3268)*XX(274)-JVS(3305)*XX(275)-JVS(3452)& - &*XX(278)-JVS(3674)*XX(281)-JVS(4160)*XX(286)-JVS(4433)*XX(290)-JVS(4538)*XX(291) - XX(175) = XX(175)-JVS(1374)*XX(198)-JVS(2820)*XX(265)-JVS(2989)*XX(267)-JVS(3905)*XX(284)-JVS(4159)*XX(286) - XX(174) = XX(174)-JVS(1953)*XX(233)-JVS(2325)*XX(250)-JVS(2693)*XX(263)-JVS(2988)*XX(267) - XX(173) = XX(173)-JVS(2018)*XX(235)-JVS(2819)*XX(265)-JVS(3304)*XX(275)-JVS(3451)*XX(278)-JVS(3625)*XX(280)-JVS(3673)& - &*XX(281)-JVS(4276)*XX(287)-JVS(4537)*XX(291) - XX(172) = XX(172)-JVS(1740)*XX(223)-JVS(2692)*XX(263)-JVS(2987)*XX(267)-JVS(3904)*XX(284)-JVS(4158)*XX(286) - XX(171) = XX(171)-JVS(1089)*XX(172)-JVS(1118)*XX(174)-JVS(1198)*XX(182)-JVS(1242)*XX(186)-JVS(1289)*XX(192)-JVS(1323)& - &*XX(194)-JVS(1864)*XX(230)-JVS(1952)*XX(233)-JVS(2235)*XX(245)-JVS(2277)*XX(248)-JVS(2591)*XX(261)-JVS(2691)& - &*XX(263)-JVS(2986)*XX(267)-JVS(3903)*XX(284)-JVS(4157)*XX(286) - XX(170) = XX(170)-JVS(1538)*XX(211)-JVS(1567)*XX(212)-JVS(1612)*XX(215)-JVS(1624)*XX(216)-JVS(1778)*XX(225)-JVS(2107)& - &*XX(239)-JVS(2378)*XX(251)-JVS(2426)*XX(253)-JVS(2441)*XX(254)-JVS(2690)*XX(263)-JVS(2985)*XX(267)-JVS(3672)& - &*XX(281)-JVS(3758)*XX(282)-JVS(3902)*XX(284)-JVS(4156)*XX(286) - XX(169) = XX(169)-JVS(2590)*XX(261)-JVS(2689)*XX(263)-JVS(2984)*XX(267)-JVS(3901)*XX(284)-JVS(4155)*XX(286) - XX(168) = XX(168)-JVS(1491)*XX(208)-JVS(1588)*XX(213)-JVS(2145)*XX(241)-JVS(2175)*XX(242)-JVS(2201)*XX(243)-JVS(2324)& - &*XX(250)-JVS(2688)*XX(263)-JVS(3540)*XX(279)-JVS(3900)*XX(284)-JVS(4154)*XX(286)-JVS(4536)*XX(291) - XX(167) = XX(167)-JVS(1405)*XX(200)-JVS(1587)*XX(213)-JVS(2040)*XX(236)-JVS(2174)*XX(242)-JVS(2200)*XX(243)-JVS(2323)& - &*XX(250)-JVS(2687)*XX(263)-JVS(3539)*XX(279)-JVS(3899)*XX(284)-JVS(4153)*XX(286)-JVS(4535)*XX(291) - XX(166) = XX(166)-JVS(1132)*XX(175)-JVS(1373)*XX(198)-JVS(1586)*XX(213)-JVS(2039)*XX(236)-JVS(2173)*XX(242)-JVS(2199)& - &*XX(243)-JVS(2686)*XX(263)-JVS(3538)*XX(279)-JVS(3898)*XX(284)-JVS(4152)*XX(286)-JVS(4534)*XX(291) - XX(165) = XX(165)-JVS(1117)*XX(174)-JVS(1205)*XX(183)-JVS(1256)*XX(188)-JVS(1288)*XX(192)-JVS(1322)*XX(194)-JVS(1340)& - &*XX(196)-JVS(1897)*XX(231)-JVS(1951)*XX(233)-JVS(2221)*XX(244)-JVS(2377)*XX(251)-JVS(2685)*XX(263)-JVS(2983)& - &*XX(267)-JVS(3897)*XX(284)-JVS(4151)*XX(286) - XX(164) = XX(164)-JVS(1739)*XX(223)-JVS(1863)*XX(230)-JVS(1896)*XX(231)-JVS(1950)*XX(233)-JVS(2038)*XX(236)-JVS(2322)& - &*XX(250)-JVS(3896)*XX(284)-JVS(4150)*XX(286) - XX(163) = XX(163)-JVS(1228)*XX(185)-JVS(1537)*XX(211)-JVS(1738)*XX(223)-JVS(1949)*XX(233)-JVS(2589)*XX(261)-JVS(2982)& - &*XX(267)-JVS(3895)*XX(284)-JVS(4149)*XX(286) - XX(162) = XX(162)-JVS(1116)*XX(174)-JVS(1204)*XX(183)-JVS(1249)*XX(187)-JVS(1321)*XX(194)-JVS(1827)*XX(228)-JVS(1847)& - &*XX(229)-JVS(1895)*XX(231)-JVS(2220)*XX(244)-JVS(2376)*XX(251)-JVS(2684)*XX(263)-JVS(2981)*XX(267)-JVS(3894)& - &*XX(284)-JVS(4148)*XX(286) - XX(161) = XX(161)-JVS(1634)*XX(217)-JVS(2818)*XX(265)-JVS(3218)*XX(273)-JVS(3303)*XX(275)-JVS(3450)*XX(278)-JVS(3671)& - &*XX(281)-JVS(4147)*XX(286)-JVS(4370)*XX(289)-JVS(4432)*XX(290) - XX(160) = XX(160)-JVS(1278)*XX(191)-JVS(1519)*XX(210)-JVS(3757)*XX(282)-JVS(4533)*XX(291) - XX(159) = XX(159)-JVS(1536)*XX(211)-JVS(1737)*XX(223)-JVS(2037)*XX(236)-JVS(2457)*XX(255)-JVS(2536)*XX(259)-JVS(2980)& - &*XX(267)-JVS(3756)*XX(282)-JVS(3893)*XX(284)-JVS(4146)*XX(286) - XX(158) = XX(158)-JVS(2535)*XX(259)-JVS(3892)*XX(284)-JVS(4145)*XX(286) - XX(157) = XX(157)-JVS(1115)*XX(174)-JVS(1197)*XX(182)-JVS(1248)*XX(187)-JVS(1826)*XX(228)-JVS(1846)*XX(229)-JVS(1862)& - &*XX(230)-JVS(2234)*XX(245)-JVS(2276)*XX(248)-JVS(2683)*XX(263)-JVS(2979)*XX(267)-JVS(3891)*XX(284)-JVS(4144)& - &*XX(286) - XX(156) = XX(156)-JVS(1736)*XX(223)-JVS(1948)*XX(233)-JVS(2588)*XX(261)-JVS(2978)*XX(267)-JVS(3890)*XX(284)-JVS(4143)& - &*XX(286) - XX(155) = XX(155)-JVS(1566)*XX(212)-JVS(1611)*XX(215)-JVS(1623)*XX(216)-JVS(1789)*XX(226)-JVS(2097)*XX(238)-JVS(2440)& - &*XX(254)-JVS(2534)*XX(259)-JVS(2977)*XX(267)-JVS(3670)*XX(281)-JVS(3755)*XX(282)-JVS(3889)*XX(284)-JVS(4142)& - &*XX(286) - XX(154) = XX(154)-JVS(1565)*XX(212)-JVS(1610)*XX(215)-JVS(1622)*XX(216)-JVS(1788)*XX(226)-JVS(2096)*XX(238)-JVS(2439)& - &*XX(254)-JVS(2533)*XX(259)-JVS(2976)*XX(267)-JVS(3669)*XX(281)-JVS(3754)*XX(282)-JVS(3888)*XX(284)-JVS(4141)& - &*XX(286) - XX(153) = XX(153)-JVS(1480)*XX(207)-JVS(1535)*XX(211)-JVS(1947)*XX(233)-JVS(2321)*XX(250)-JVS(2587)*XX(261)-JVS(2975)& - &*XX(267)-JVS(3668)*XX(281)-JVS(4140)*XX(286)-JVS(4532)*XX(291) - XX(152) = XX(152)-JVS(1585)*XX(213)-JVS(2144)*XX(241)-JVS(2172)*XX(242)-JVS(2198)*XX(243)-JVS(2682)*XX(263)-JVS(3537)& - &*XX(279)-JVS(3887)*XX(284)-JVS(4139)*XX(286)-JVS(4531)*XX(291) - XX(151) = XX(151)-JVS(1114)*XX(174)-JVS(1262)*XX(189)-JVS(1929)*XX(232)-JVS(2128)*XX(240)-JVS(2171)*XX(242)-JVS(2219)& - &*XX(244)-JVS(2233)*XX(245)-JVS(2247)*XX(246)-JVS(2817)*XX(265)-JVS(3886)*XX(284)-JVS(4138)*XX(286)-JVS(4530)& - &*XX(291) - XX(150) = XX(150)-JVS(1372)*XX(198)-JVS(1490)*XX(208)-JVS(2974)*XX(267)-JVS(3536)*XX(279)-JVS(3885)*XX(284)-JVS(4137)& - &*XX(286)-JVS(4529)*XX(291) - XX(149) = XX(149)-JVS(1150)*XX(177)-JVS(2904)*XX(266)-JVS(2973)*XX(267)-JVS(3175)*XX(272)-JVS(3302)*XX(275)-JVS(3449)& - &*XX(278)-JVS(3884)*XX(284)-JVS(4019)*XX(285)-JVS(4136)*XX(286)-JVS(4326)*XX(288)-JVS(4431)*XX(290) - XX(148) = XX(148)-JVS(1534)*XX(211)-JVS(1672)*XX(219)-JVS(1946)*XX(233)-JVS(2036)*XX(236)-JVS(2456)*XX(255)-JVS(2479)& - &*XX(256)-JVS(2532)*XX(259)-JVS(2972)*XX(267)-JVS(3753)*XX(282)-JVS(3883)*XX(284)-JVS(4135)*XX(286) - XX(147) = XX(147)-JVS(1302)*XX(193)-JVS(2816)*XX(265)-JVS(3301)*XX(275)-JVS(3376)*XX(276)-JVS(3624)*XX(280)-JVS(3752)& - &*XX(282)-JVS(4134)*XX(286)-JVS(4528)*XX(291) - XX(146) = XX(146)-JVS(1371)*XX(198)-JVS(1489)*XX(208)-JVS(2035)*XX(236)-JVS(2197)*XX(243)-JVS(3535)*XX(279)-JVS(3882)& - &*XX(284)-JVS(4133)*XX(286)-JVS(4527)*XX(291) - XX(145) = XX(145)-JVS(1404)*XX(200)-JVS(1453)*XX(205)-JVS(3534)*XX(279)-JVS(3881)*XX(284)-JVS(4132)*XX(286)-JVS(4526)& - &*XX(291) - XX(144) = XX(144)-JVS(1442)*XX(204)-JVS(2143)*XX(241)-JVS(3533)*XX(279)-JVS(3880)*XX(284)-JVS(4131)*XX(286)-JVS(4525)& - &*XX(291) - XX(143) = XX(143)-JVS(3058)*XX(268)-JVS(3087)*XX(269)-JVS(3106)*XX(270)-JVS(3667)*XX(281)-JVS(4130)*XX(286) - XX(142) = XX(142)-JVS(1007)*XX(159)-JVS(1016)*XX(160)-JVS(1216)*XX(184)-JVS(1518)*XX(210)-JVS(2034)*XX(236)-JVS(2815)& - &*XX(265)-JVS(3666)*XX(281)-JVS(3751)*XX(282)-JVS(3879)*XX(284)-JVS(4129)*XX(286) - XX(141) = XX(141)-JVS(1042)*XX(164)-JVS(1464)*XX(206)-JVS(2033)*XX(236)-JVS(2320)*XX(250)-JVS(3878)*XX(284)-JVS(4128)& - &*XX(286) - XX(140) = XX(140)-JVS(958)*XX(152)-JVS(1113)*XX(174)-JVS(1825)*XX(228)-JVS(1845)*XX(229)-JVS(2375)*XX(251)-JVS(2681)& - &*XX(263)-JVS(2814)*XX(265)-JVS(3877)*XX(284)-JVS(4127)*XX(286)-JVS(4524)*XX(291) - XX(139) = XX(139)-JVS(1058)*XX(167)-JVS(1112)*XX(174)-JVS(1824)*XX(228)-JVS(1844)*XX(229)-JVS(2275)*XX(248)-JVS(2680)& - &*XX(263)-JVS(2813)*XX(265)-JVS(3876)*XX(284)-JVS(4126)*XX(286)-JVS(4523)*XX(291) - XX(138) = XX(138)-JVS(1301)*XX(193)-JVS(2812)*XX(265)-JVS(3300)*XX(275)-JVS(3375)*XX(276)-JVS(3750)*XX(282)-JVS(4275)& - &*XX(287)-JVS(4522)*XX(291) - XX(137) = XX(137)-JVS(2679)*XX(263)-JVS(2903)*XX(266)-JVS(3299)*XX(275)-JVS(3448)*XX(278)-JVS(3875)*XX(284)-JVS(4125)& - &*XX(286)-JVS(4430)*XX(290) - XX(136) = XX(136)-JVS(1479)*XX(207)-JVS(1533)*XX(211)-JVS(1945)*XX(233)-JVS(2319)*XX(250)-JVS(2586)*XX(261)-JVS(2678)& - &*XX(263)-JVS(2902)*XX(266)-JVS(2971)*XX(267)-JVS(4124)*XX(286) - XX(135) = XX(135)-JVS(3217)*XX(273)-JVS(4429)*XX(290) - XX(134) = XX(134)-JVS(2318)*XX(250)-JVS(2811)*XX(265)-JVS(3665)*XX(281)-JVS(4123)*XX(286)-JVS(4521)*XX(291) - XX(133) = XX(133)-JVS(2777)*XX(264)-JVS(3298)*XX(275)-JVS(3874)*XX(284)-JVS(4122)*XX(286)-JVS(4428)*XX(290) - XX(132) = XX(132)-JVS(1227)*XX(185)-JVS(2317)*XX(250)-JVS(2970)*XX(267)-JVS(3873)*XX(284)-JVS(4121)*XX(286) - XX(131) = XX(131)-JVS(1111)*XX(174)-JVS(1823)*XX(228)-JVS(1843)*XX(229)-JVS(3872)*XX(284)-JVS(4120)*XX(286) - XX(130) = XX(130)-JVS(1110)*XX(174)-JVS(1822)*XX(228)-JVS(1842)*XX(229)-JVS(3871)*XX(284)-JVS(4119)*XX(286) - XX(129) = XX(129)-JVS(1109)*XX(174)-JVS(1861)*XX(230)-JVS(2274)*XX(248)-JVS(2969)*XX(267)-JVS(3870)*XX(284)-JVS(4118)& - &*XX(286) - XX(128) = XX(128)-JVS(2564)*XX(260)-JVS(3216)*XX(273)-JVS(4117)*XX(286) - XX(127) = XX(127)-JVS(1108)*XX(174)-JVS(1894)*XX(231)-JVS(2374)*XX(251)-JVS(2968)*XX(267)-JVS(3869)*XX(284)-JVS(4116)& - &*XX(286) - XX(126) = XX(126)-JVS(1928)*XX(232)-JVS(2127)*XX(240)-JVS(3868)*XX(284) - XX(125) = XX(125)-JVS(978)*XX(156)-JVS(1070)*XX(169)-JVS(1226)*XX(185)-JVS(1821)*XX(228)-JVS(1841)*XX(229)-JVS(2967)& - &*XX(267)-JVS(3867)*XX(284)-JVS(4115)*XX(286) - XX(124) = XX(124)-JVS(2077)*XX(237)-JVS(2507)*XX(258)-JVS(3215)*XX(273)-JVS(3297)*XX(275)-JVS(4114)*XX(286)-JVS(4369)& - &*XX(289)-JVS(4427)*XX(290) - XX(123) = XX(123)-JVS(2373)*XX(251)-JVS(3532)*XX(279)-JVS(3866)*XX(284)-JVS(4113)*XX(286)-JVS(4520)*XX(291) - XX(122) = XX(122)-JVS(3374)*XX(276)-JVS(4112)*XX(286) - XX(121) = XX(121)-JVS(2273)*XX(248)-JVS(3531)*XX(279)-JVS(3865)*XX(284)-JVS(4111)*XX(286)-JVS(4519)*XX(291) - XX(120) = XX(120)-JVS(1173)*XX(179)-JVS(2032)*XX(236)-JVS(2677)*XX(263)-JVS(3864)*XX(284)-JVS(4110)*XX(286) - XX(119) = XX(119)-JVS(1787)*XX(226)-JVS(2478)*XX(256)-JVS(2531)*XX(259)-JVS(3863)*XX(284)-JVS(4109)*XX(286) - XX(118) = XX(118)-JVS(902)*XX(142)-JVS(1006)*XX(159)-JVS(1015)*XX(160)-JVS(1215)*XX(184)-JVS(1517)*XX(210)-JVS(1735)& - &*XX(223)-JVS(2810)*XX(265)-JVS(3664)*XX(281)-JVS(3862)*XX(284)-JVS(4108)*XX(286) - XX(117) = XX(117)-JVS(1069)*XX(169)-JVS(1225)*XX(185)-JVS(3861)*XX(284)-JVS(4107)*XX(286) - XX(116) = XX(116)-JVS(1107)*XX(174)-JVS(1320)*XX(194)-JVS(3860)*XX(284)-JVS(4106)*XX(286) - XX(115) = XX(115)-JVS(901)*XX(142)-JVS(939)*XX(148)-JVS(1014)*XX(160)-JVS(1214)*XX(184)-JVS(1516)*XX(210)-JVS(2809)& - &*XX(265)-JVS(3663)*XX(281)-JVS(3859)*XX(284)-JVS(4105)*XX(286) - XX(114) = XX(114)-JVS(2477)*XX(256)-JVS(2808)*XX(265)-JVS(3296)*XX(275)-JVS(3662)*XX(281)-JVS(4104)*XX(286)-JVS(4426)& - &*XX(290) - XX(113) = XX(113)-JVS(1370)*XX(198)-JVS(1419)*XX(201)-JVS(2530)*XX(259)-JVS(3858)*XX(284)-JVS(4103)*XX(286)-JVS(4518)& - &*XX(291) - XX(112) = XX(112)-JVS(1506)*XX(209)-JVS(2316)*XX(250)-JVS(2676)*XX(263)-JVS(2776)*XX(264)-JVS(3857)*XX(284)-JVS(4102)& - &*XX(286) - XX(111) = XX(111)-JVS(3126)*XX(271)-JVS(4018)*XX(285)-JVS(4101)*XX(286)-JVS(4325)*XX(288) - XX(110) = XX(110)-JVS(2106)*XX(239)-JVS(2775)*XX(264)-JVS(3856)*XX(284)-JVS(4100)*XX(286) - XX(109) = XX(109)-JVS(977)*XX(156)-JVS(2966)*XX(267)-JVS(3855)*XX(284)-JVS(4099)*XX(286) - XX(108) = XX(108)-JVS(2031)*XX(236)-JVS(2675)*XX(263)-JVS(3854)*XX(284) - XX(107) = XX(107)-JVS(1013)*XX(160)-JVS(1277)*XX(191)-JVS(4098)*XX(286) - XX(106) = XX(106)-JVS(2455)*XX(255)-JVS(2774)*XX(264)-JVS(2901)*XX(266)-JVS(3853)*XX(284)-JVS(4097)*XX(286) - XX(105) = XX(105)-JVS(1532)*XX(211)-JVS(1944)*XX(233)-JVS(2585)*XX(261)-JVS(2965)*XX(267)-JVS(4096)*XX(286) - XX(104) = XX(104)-JVS(2584)*XX(261)-JVS(3852)*XX(284)-JVS(4095)*XX(286) - XX(103) = XX(103)-JVS(1356)*XX(197)-JVS(4017)*XX(285)-JVS(4425)*XX(290) - XX(102) = XX(102)-JVS(3447)*XX(278)-JVS(3661)*XX(281)-JVS(3851)*XX(284)-JVS(4094)*XX(286)-JVS(4517)*XX(291) - XX(101) = XX(101)-JVS(1183)*XX(180)-JVS(1276)*XX(191)-JVS(2807)*XX(265)-JVS(2964)*XX(267)-JVS(3660)*XX(281)-JVS(3850)& - &*XX(284)-JVS(4093)*XX(286) - XX(100) = XX(100)-JVS(2900)*XX(266)-JVS(3174)*XX(272)-JVS(3214)*XX(273)-JVS(3267)*XX(274)-JVS(3446)*XX(278)-JVS(3849)& - &*XX(284)-JVS(4092)*XX(286) - XX(99) = XX(99)-JVS(3086)*XX(269)-JVS(4424)*XX(290) - XX(98) = XX(98)-JVS(2806)*XX(265) - XX(97) = XX(97)-JVS(700)*XX(107)-JVS(1182)*XX(180)-JVS(4091)*XX(286)-JVS(4516)*XX(291) - XX(96) = XX(96)-JVS(2773)*XX(264)-JVS(3848)*XX(284)-JVS(4090)*XX(286)-JVS(4515)*XX(291) - XX(95) = XX(95)-JVS(1708)*XX(221)-JVS(2506)*XX(258)-JVS(3847)*XX(284)-JVS(4089)*XX(286) - XX(94) = XX(94)-JVS(2076)*XX(237)-JVS(2529)*XX(259)-JVS(3846)*XX(284)-JVS(4088)*XX(286) - XX(93) = XX(93)-JVS(2476)*XX(256)-JVS(2528)*XX(259)-JVS(3845)*XX(284)-JVS(4087)*XX(286) - XX(92) = XX(92)-JVS(1809)*XX(227)-JVS(3085)*XX(269)-JVS(3530)*XX(279)-JVS(4514)*XX(291) - XX(91) = XX(91)-JVS(2527)*XX(259)-JVS(3844)*XX(284)-JVS(4086)*XX(286)-JVS(4513)*XX(291) - XX(90) = XX(90)-JVS(2674)*XX(263)-JVS(2805)*XX(265)-JVS(2899)*XX(266)-JVS(3373)*XX(276)-JVS(3659)*XX(281)-JVS(4085)& - &*XX(286) - XX(89) = XX(89)-JVS(2673)*XX(263)-JVS(3843)*XX(284)-JVS(4084)*XX(286)-JVS(4512)*XX(291) - XX(88) = XX(88)-JVS(2583)*XX(261)-JVS(2672)*XX(263)-JVS(2898)*XX(266)-JVS(4083)*XX(286) - XX(87) = XX(87)-JVS(1707)*XX(221)-JVS(3842)*XX(284)-JVS(4082)*XX(286)-JVS(4511)*XX(291) - XX(86) = XX(86)-JVS(776)*XX(122)-JVS(2671)*XX(263)-JVS(3372)*XX(276)-JVS(4081)*XX(286) - XX(85) = XX(85)-JVS(1531)*XX(211)-JVS(2670)*XX(263)-JVS(3841)*XX(284)-JVS(4080)*XX(286) - XX(84) = XX(84)-JVS(3173)*XX(272)-JVS(3445)*XX(278)-JVS(4016)*XX(285)-JVS(4079)*XX(286)-JVS(4324)*XX(288)-JVS(4423)& - &*XX(290) - XX(83) = XX(83)-JVS(3172)*XX(272)-JVS(3444)*XX(278)-JVS(4015)*XX(285)-JVS(4078)*XX(286)-JVS(4323)*XX(288)-JVS(4422)& - &*XX(290) - XX(82) = XX(82)-JVS(3171)*XX(272)-JVS(3443)*XX(278)-JVS(4014)*XX(285)-JVS(4077)*XX(286)-JVS(4322)*XX(288)-JVS(4421)& - &*XX(290) - XX(81) = XX(81)-JVS(3170)*XX(272)-JVS(3442)*XX(278)-JVS(4013)*XX(285)-JVS(4076)*XX(286)-JVS(4321)*XX(288)-JVS(4420)& - &*XX(290) - XX(80) = XX(80)-JVS(671)*XX(101)-JVS(741)*XX(115)-JVS(938)*XX(148)-JVS(1005)*XX(159)-JVS(1213)*XX(184)-JVS(1734)& - &*XX(223)-JVS(1943)*XX(233)-JVS(2272)*XX(248)-JVS(2963)*XX(267)-JVS(3840)*XX(284)-JVS(4075)*XX(286) - XX(79) = XX(79)-JVS(670)*XX(101)-JVS(740)*XX(115)-JVS(937)*XX(148)-JVS(1004)*XX(159)-JVS(1212)*XX(184)-JVS(1733)& - &*XX(223)-JVS(1942)*XX(233)-JVS(2271)*XX(248)-JVS(2962)*XX(267)-JVS(3839)*XX(284)-JVS(4074)*XX(286) - XX(78) = XX(78)-JVS(2961)*XX(267)-JVS(3295)*XX(275)-JVS(3838)*XX(284)-JVS(4073)*XX(286)-JVS(4419)*XX(290) - XX(77) = XX(77)-JVS(3169)*XX(272)-JVS(3213)*XX(273)-JVS(3266)*XX(274)-JVS(4072)*XX(286)-JVS(4320)*XX(288) - XX(76) = XX(76)-JVS(1172)*XX(179)-JVS(2003)*XX(234)-JVS(2669)*XX(263)-JVS(3749)*XX(282)-JVS(4071)*XX(286) - XX(75) = XX(75)-JVS(679)*XX(103)-JVS(3125)*XX(271)-JVS(4012)*XX(285)-JVS(4070)*XX(286)-JVS(4418)*XX(290) - XX(74) = XX(74)-JVS(2668)*XX(263)-JVS(2897)*XX(266)-JVS(3658)*XX(281)-JVS(3837)*XX(284)-JVS(4510)*XX(291) - XX(73) = XX(73)-JVS(3084)*XX(269)-JVS(3212)*XX(273) - XX(72) = XX(72)-JVS(2960)*XX(267)-JVS(3294)*XX(275)-JVS(3836)*XX(284)-JVS(4069)*XX(286)-JVS(4417)*XX(290) - XX(71) = XX(71)-JVS(3168)*XX(272)-JVS(3211)*XX(273)-JVS(3265)*XX(274)-JVS(4068)*XX(286)-JVS(4319)*XX(288) - XX(70) = XX(70)-JVS(1181)*XX(180)-JVS(1275)*XX(191)-JVS(4067)*XX(286) - XX(69) = XX(69)-JVS(3083)*XX(269)-JVS(3441)*XX(278)-JVS(4066)*XX(286) - XX(68) = XX(68)-JVS(2030)*XX(236)-JVS(4065)*XX(286)-JVS(4509)*XX(291) - XX(67) = XX(67)-JVS(2582)*XX(261)-JVS(2896)*XX(266)-JVS(3657)*XX(281)-JVS(4508)*XX(291) - XX(66) = XX(66)-JVS(2959)*XX(267)-JVS(3371)*XX(276)-JVS(4064)*XX(286)-JVS(4318)*XX(288) - XX(65) = XX(65)-JVS(3167)*XX(272)-JVS(3529)*XX(279)-JVS(4317)*XX(288)-JVS(4507)*XX(291) - XX(64) = XX(64)-JVS(757)*XX(118)-JVS(1003)*XX(159)-JVS(1211)*XX(184)-JVS(1732)*XX(223)-JVS(2958)*XX(267)-JVS(3835)& - &*XX(284)-JVS(4063)*XX(286) - XX(63) = XX(63)-JVS(1300)*XX(193)-JVS(4506)*XX(291) - XX(62) = XX(62)-JVS(1299)*XX(193)-JVS(4505)*XX(291) - XX(61) = XX(61)-JVS(3166)*XX(272)-JVS(3528)*XX(279) - XX(60) = XX(60)-JVS(907)*XX(143)-JVS(3082)*XX(269)-JVS(3527)*XX(279) - XX(59) = XX(59)-JVS(3165)*XX(272)-JVS(3210)*XX(273)-JVS(3264)*XX(274)-JVS(4011)*XX(285)-JVS(4316)*XX(288)-JVS(4416)& - &*XX(290) - XX(58) = XX(58)-JVS(1530)*XX(211)-JVS(1731)*XX(223)-JVS(2957)*XX(267)-JVS(3834)*XX(284)-JVS(4062)*XX(286) - XX(57) = XX(57)-JVS(3164)*XX(272)-JVS(4010)*XX(285)-JVS(4315)*XX(288)-JVS(4415)*XX(290) - XX(56) = XX(56)-JVS(3163)*XX(272)-JVS(4009)*XX(285)-JVS(4314)*XX(288)-JVS(4414)*XX(290) - XX(55) = XX(55)-JVS(3162)*XX(272)-JVS(4008)*XX(285)-JVS(4313)*XX(288)-JVS(4413)*XX(290) - XX(54) = XX(54)-JVS(3161)*XX(272)-JVS(4007)*XX(285)-JVS(4312)*XX(288)-JVS(4412)*XX(290) - XX(53) = XX(53)-JVS(3160)*XX(272)-JVS(4006)*XX(285)-JVS(4311)*XX(288)-JVS(4411)*XX(290) - XX(52) = XX(52)-JVS(3159)*XX(272)-JVS(4005)*XX(285)-JVS(4310)*XX(288)-JVS(4410)*XX(290) - XX(51) = XX(51)-JVS(3209)*XX(273)-JVS(4504)*XX(291) - XX(50) = XX(50)-JVS(2454)*XX(255)-JVS(4503)*XX(291) - XX(49) = XX(49)-JVS(620)*XX(92)-JVS(1808)*XX(227) - XX(48) = XX(48)-JVS(3158)*XX(272)-JVS(3208)*XX(273)-JVS(3263)*XX(274)-JVS(4309)*XX(288) - XX(47) = XX(47)-JVS(3157)*XX(272)-JVS(3207)*XX(273)-JVS(3262)*XX(274)-JVS(4308)*XX(288) - XX(46) = XX(46)-JVS(2895)*XX(266)-JVS(3081)*XX(269)-JVS(3440)*XX(278)-JVS(4061)*XX(286) - XX(45) = XX(45)-JVS(2804)*XX(265) - XX(44) = XX(44)-JVS(619)*XX(92)-JVS(1807)*XX(227)-JVS(3080)*XX(269) - XX(43) = XX(43)-JVS(3439)*XX(278)-JVS(4060)*XX(286)-JVS(4409)*XX(290) - XX(42) = XX(42)-JVS(618)*XX(92) - XX(41) = XX(41)-JVS(4059)*XX(286) + XX(8) = X(8)/JVS(83) + XX(9) = X(9)/JVS(86) + XX(10) = X(10)/JVS(94) + XX(11) = X(11)/JVS(102) + XX(12) = X(12)/JVS(105) + XX(13) = (X(13)-JVS(103)*XX(11)-JVS(106)*XX(12))/(JVS(108)) + XX(14) = X(14)/JVS(113) + XX(15) = X(15)/JVS(116) + XX(16) = X(16)/JVS(119) + XX(17) = X(17)/JVS(122) + XX(18) = (X(18)-JVS(120)*XX(16)-JVS(123)*XX(17))/(JVS(125)) + XX(19) = (X(19)-JVS(126)*XX(18))/(JVS(130)) + XX(20) = X(20)/JVS(132) + XX(21) = X(21)/JVS(135) + XX(22) = (X(22)-JVS(133)*XX(20)-JVS(136)*XX(21))/(JVS(138)) + XX(23) = X(23)/JVS(143) + XX(24) = (X(24)-JVS(144)*XX(23))/(JVS(145)) + XX(25) = X(25)/JVS(151) + XX(26) = X(26)/JVS(154) + XX(27) = (X(27)-JVS(152)*XX(25)-JVS(155)*XX(26))/(JVS(157)) + XX(28) = X(28)/JVS(162) + XX(29) = X(29)/JVS(165) + XX(30) = X(30)/JVS(169) + 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(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(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(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(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(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(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(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(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(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(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(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(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(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(40) = XX(40) XX(39) = XX(39) XX(38) = XX(38) @@ -3140,9 +3692,9 @@ SUBROUTINE KppSolveTR ( JVS, X, XX ) XX(6) = XX(6) XX(5) = XX(5) XX(4) = XX(4) - XX(3) = XX(3)-JVS(3079)*XX(269)-JVS(4408)*XX(290) - XX(2) = XX(2)-JVS(3078)*XX(269)-JVS(3206)*XX(273) - XX(1) = XX(1)-JVS(3077)*XX(269) + 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) END SUBROUTINE KppSolveTR diff --git a/KPP/fullchem/gckpp_Monitor.F90 b/KPP/fullchem/gckpp_Monitor.F90 index bbfc015e4..a9cbb05f7 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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) @@ -42,126 +42,146 @@ MODULE gckpp_Monitor 'LCO ','PSO4 ','LCH4 ', & ! index 37 - 39 'PH2O2 ','FURA ','I2O4 ', & ! index 40 - 42 'CH3CCl3 ','I2O2 ','MONITA ', & ! index 43 - 45 - 'CH3I ','H1301 ','H2402 ', & ! index 46 - 48 - 'I2O3 ','PPN ','BrNO2 ', & ! index 49 - 51 - 'CCl4 ','CFC11 ','CFC12 ', & ! index 52 - 54 - 'CFC113 ','CFC114 ','CFC115 ', & ! index 55 - 57 - 'C2H2 ','H1211 ','INO ', & ! index 58 - 60 - 'N2O ','NIT ','NITs ', & ! index 61 - 63 - 'BENZ ','N ','OCS ', & ! index 64 - 66 - 'PAN ','ETHN ','HI ', & ! index 67 - 69 - 'BZCO3H ','CH2Br2 ','CH2Cl2 ', & ! index 70 - 72 - 'IBr ','MPN ','Cl2O2 ', & ! index 73 - 75 - 'C2H4 ','CHBr3 ','CHCl3 ', & ! index 76 - 78 - 'TOLU ','XYLE ','HCFC123 ', & ! index 79 - 81 - 'HCFC141b ','HCFC142b ','HCFC22 ', & ! index 82 - 84 - 'HMHP ','HMS ','IPRNO3 ', & ! index 85 - 87 - 'MAP ','MENO3 ','DMS ' /) ! index up to 90 + '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 CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ & - 'NPRNO3 ','OIO ','R4P ', & ! index 91 - 93 - 'RA3P ','RB3P ','ETNO3 ', & ! index 94 - 96 - 'BZPAN ','IONITA ','ICl ', & ! index 97 - 99 - 'CH3Br ','BALD ','HNO4 ', & ! index 100 - 102 - 'ClOO ','PYAC ','HMML ', & ! index 103 - 105 - 'RP ','BENZP ','ETO ', & ! index 106 - 108 - 'IDC ','ETP ','OClO ', & ! index 109 - 111 - 'PP ','PRPN ','ALK4 ', & ! index 112 - 114 - 'CSL ','IEPOXD ','MVKDH ', & ! index 115 - 117 - 'PHEN ','PIP ','ETHP ', & ! index 118 - 120 - 'HPALD1OO ','SO4 ','HPALD2OO ', & ! index 121 - 123 - 'C3H8 ','IDCHP ','INA ', & ! index 124 - 126 - 'HPALD4 ','Br2 ','HPALD3 ', & ! index 127 - 129 - 'IEPOXA ','IEPOXB ','MCRDH ', & ! index 130 - 132 - 'EOH ','HONIT ','BrCl ', & ! index 133 - 135 - 'MACR1OOH ','MP ','SALCAL ', & ! index 136 - 138 - 'IHN2 ','IHN3 ','IDHDP ', & ! index 139 - 141 - 'MCT ','I2 ','C4HVP1 ', & ! index 142 - 144 - 'C4HVP2 ','IDNOO ','SALAAL ', & ! index 145 - 147 - 'AROMP5 ','CH3Cl ','ICNOO ', & ! index 148 - 150 - 'INPD ','ISOPNOO2 ','MPAN ', & ! index 151 - 153 - 'MTPA ','MTPO ','MVKPC ', & ! index 154 - 156 - 'RIPA ','ROH ','AROMP4 ', & ! index 157 - 159 - 'BENZO ','C2H6 ','RIPB ', & ! index 160 - 162 - 'MCRENOL ','IDHPE ','RIPD ', & ! index 163 - 165 - 'IDHNDOO1 ','ISOPNOO1 ','IDHNDOO2 ', & ! index 166 - 168 - 'MVKHC ','LIMO ','RIPC ', & ! index 169 - 171 - 'HPETHNL ','N2O5 ','ICHE ', & ! index 172 - 174 - 'MCRHNB ','BrNO3 ','H ', & ! index 175 - 177 - 'MONITS ','ETOO ','BZCO3 ' /) ! index up to 180 + '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 CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_2 = (/ & - 'INPB ','IHPOO1 ','IHPOO2 ', & ! index 181 - 183 - 'AROMRO2 ','MVKHCB ','HPALD1 ', & ! index 184 - 186 - 'IHPOO3 ','HPALD2 ','IHPNDOO ', & ! index 187 - 189 - 'CH4 ','BENZO2 ','HC5A ', & ! index 190 - 192 - 'HNO2 ','ICHOO ','CH3CHOO ', & ! index 193 - 195 - 'ATOOH ','Cl2 ','PROPNN ', & ! index 196 - 198 - 'MONITU ','MCRHN ','PRN1 ', & ! index 199 - 201 - 'R4N2 ','IONO ','MVKOHOO ', & ! index 202 - 204 - 'MCROHOO ','ICPDH ','MACR1OO ', & ! index 205 - 207 - 'ETHLN ','PO2 ','NPHEN ', & ! index 208 - 210 - 'HCOOH ','H2O2 ','ITCN ', & ! index 211 - 213 - 'IHN4 ','OLNN ','OLND ', & ! index 214 - 216 - 'ETO2 ','MOH ','ACTA ', & ! index 217 - 219 - 'IHN1 ','ACET ','IHPNBOO ', & ! index 220 - 222 - 'GLYX ','ISOP ','LIMO2 ', & ! index 223 - 225 - 'MEK ','IO ','IEPOXAOO ', & ! index 226 - 228 - 'IEPOXBOO ','MVKHP ','MCRHP ', & ! index 229 - 231 - 'IDHNBOO ','MGLY ','CH2OO ', & ! index 232 - 234 - 'ClNO2 ','GLYC ','A3O2 ', & ! index 235 - 237 - 'PIO2 ','OTHRO2 ','ICN ', & ! index 238 - 240 - 'MVKN ','ITHN ','IDN ', & ! index 241 - 243 - 'IHOO4 ','IHOO1 ','INO2D ', & ! index 244 - 246 - 'INO2B ','MVK ','MACRNO2 ', & ! index 247 - 249 - 'HAC ','MACR ','ATO2 ', & ! index 250 - 252 - 'PRPE ','KO2 ','RCO3 ', & ! index 253 - 255 - 'R4O2 ','R4N1 ','B3O2 ', & ! index 256 - 258 - 'RCHO ','HOBr ','MCO3 ', & ! index 259 - 261 - 'ClNO3 ','CH2O ','ALD2 ', & ! index 262 - 264 - 'HNO3 ','MO2 ','CO ', & ! index 265 - 267 - 'HOI ','I ','IONO2 ' /) ! index up to 270 - CHARACTER(LEN=32), PARAMETER, DIMENSION(25) :: SPC_NAMES_3 = (/ & - 'HOCl ','O1D ','Br ', & ! index 271 - 273 - 'BrO ','HCl ','SO2 ', & ! index 274 - 276 - 'BrSALC ','H2O ','NO ', & ! index 277 - 279 - 'SALACL ','NO3 ','O3 ', & ! index 280 - 282 - 'BrSALA ','HO2 ','ClO ', & ! index 283 - 285 - 'OH ','SALCCL ','O ', & ! index 286 - 288 - 'HBr ','Cl ','NO2 ', & ! index 289 - 291 - 'H2 ','N2 ','O2 ', & ! index 292 - 294 - 'RCOOH ' /) ! index up to 295 - CHARACTER(LEN=32), PARAMETER, DIMENSION(295) :: SPC_NAMES = (/& + '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 = (/& 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 + SO2 + O3 --> LOx + PSO4 + SO4 - SALAAL ', & ! index 1 + 'SALAAL + O3 + SO2 --> LOx + PSO4 + SO4 - SALAAL ', & ! index 1 ' SALAAL + HCl --> SALACL ', & ! index 2 ' SALAAL + HNO3 --> NIT ', & ! index 3 - 'SALCAL + SO2 + O3 --> SO4s + LOx - SALCAL ', & ! index 4 + 'SALCAL + O3 + SO2 --> SO4s + LOx - SALCAL ', & ! index 4 ' SALCAL + HCl --> SALCCL ', & ! index 5 ' SALCAL + HNO3 --> NITs ', & ! index 6 - ' H2O2 + SO2 --> PSO4AQ + PSO4 + SO4 ', & ! index 7 - ' SO2 + O3 --> PSO4AQ + LOx + PSO4 + SO4 ', & ! index 8 - ' SO2 --> PSO4AQ + PSO4 + SO4 ', & ! index 9 + ' H2O2 + SO2 --> PSO4 + SO4 ', & ! index 7 + ' O3 + SO2 --> LOx + PSO4 + SO4 ', & ! index 8 + ' SO2 --> PSO4 + SO4 ', & ! index 9 ' CH2O + SO2 --> HMS ', & ! index 10 ' HMS --> CH2O + SO2 ', & ! index 11 - ' HMS + SO2 + OH --> 2 PSO4AQ + 2 PSO4 + 2 SO4 + CH2O ', & ! index 12 - ' NO + O3 --> NO2 + O2 ', & ! index 13 + ' 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 - ' O3 + HO2 --> LOx + OH + 2 O2 ', & ! index 15 - ' O3 + NO2 --> NO3 + O2 ', & ! index 16 + ' 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 --> PH2O2 + H2O2 ', & ! index 19 ' HO2 + OH --> H2O + O2 ', & ! index 20 ' H2O2 + OH --> H2O + HO2 ', & ! index 21 - ' NO + HO2 --> POx + OH + NO2 ', & ! index 22 + ' HO2 + NO --> POx + NO2 + OH ', & ! 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 + HO2 + NO2 ', & ! index 26 + ' MO2 + NO --> POx + CH2O + NO2 + HO2 ', & ! index 26 ' MO2 + NO --> MENO3 ', & ! index 27 ' MO2 + HO2 --> MP + O2 ', & ! index 28 ' 2 MO2 --> MOH + CH2O + O2 ', & ! index 29 @@ -171,901 +191,1073 @@ MODULE gckpp_Monitor ' 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 - ' OH + NO2 --> HNO3 ', & ! index 35 + ' NO2 + OH --> HNO3 ', & ! index 35 ' HNO3 + OH --> POx + H2O + NO3 ', & ! index 36 - ' NO + OH --> HNO2 ', & ! index 37 - ' HNO2 + OH --> POx + H2O + NO2 ', & ! index 38 - ' HO2 + NO2 --> HNO4 ', & ! index 39 - ' HNO4 --> HO2 + NO2 ', & ! index 40 - ' HNO4 + OH --> H2O + NO2 + O2 ', & ! index 41 - ' NO3 + HO2 --> LOx + OH + NO2 + O2 ', & ! index 42 + ' OH + NO --> HNO2 ', & ! index 37 + ' HNO2 + OH --> POx + NO2 + H2O ', & ! index 38 + ' NO2 + HO2 --> HNO4 ', & ! index 39 + ' HNO4 --> NO2 + HO2 ', & ! index 40 + ' HNO4 + OH --> NO2 + H2O + O2 ', & ! index 41 + ' HO2 + NO3 --> LOx + NO2 + OH + O2 ', & ! index 42 ' NO + NO3 --> 2 NO2 ', & ! index 43 - ' NO3 + OH --> LOx + HO2 + NO2 ', & ! index 44 - ' NO3 + NO2 --> N2O5 ', & ! index 45 - ' N2O5 --> NO3 + NO2 ', & ! index 46 + ' OH + NO3 --> LOx + NO2 + HO2 ', & ! index 44 + ' NO2 + NO3 --> N2O5 ', & ! index 45 + ' N2O5 --> NO2 + NO3 ', & ! index 46 ' HCOOH + OH --> CO2 + H2O + HO2 ', & ! index 47 ' MOH + OH --> CH2O + HO2 ', & ! index 48 - ' NO3 + NO2 --> 2 LOx + NO + NO2 + O2 ', & ! index 49 + ' NO2 + NO3 --> 2 LOx + NO2 + NO + 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 + NO3 --> LOx + MCO3 + HNO3 ', & ! index 52 ' MCO3 + NO2 --> PAN ', & ! index 53 ' PAN --> MCO3 + NO2 ', & ! index 54 - ' MCO3 + NO --> CO2 + POx + MO2 + NO2 ', & ! index 55 - ' C2H6 + OH --> ETO2 + H2O ', & ! index 56 - ' ETO2 + NO --> POx + ALD2 + HO2 + NO2 ', & ! index 57 - ' ETO2 + NO --> ETNO3 ', & ! index 58 - ' OTHRO2 + NO --> POx + ALD2 + HO2 + NO2 ', & ! index 59 - ' C3H8 + OH --> B3O2 ' /) ! index up to 60 + ' 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 --> ETNO3 ', & ! index 59 + ' OTHRO2 + NO --> POx + ALD2 + NO2 + HO2 ' /) ! index up to 60 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' C3H8 + OH --> A3O2 ', & ! index 61 - ' A3O2 + NO --> POx + RCHO + HO2 + NO2 ', & ! index 62 - ' A3O2 + NO --> NPRNO3 ', & ! index 63 - ' PO2 + NO --> POx + CH2O + ALD2 + HO2 + NO2 ', & ! index 64 - ' ALK4 + OH --> R4O2 ', & ! index 65 - ' R4O2 + NO --> POx + 0.34 ACET + 0.19 MEK + 0.05 A3O2 + 0.34 OTHRO2 + 0.19 B3O2 + 0.1... etc.', & ! index 66 - ' R4O2 + NO --> POx + R4N2 ', & ! index 67 - ' R4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2 ', & ! index 68 - ' ATO2 + NO --> POx + MCO3 + CH2O + NO2 ', & ! index 69 - ' KO2 + NO --> POx + 0.072 R4N2 + 0.919 MCO3 + 0.919 ALD2 + 0.928 NO2 ', & ! index 70 - ' B3O2 + NO --> POx + ACET + HO2 + NO2 ', & ! index 71 - ' B3O2 + NO --> IPRNO3 ', & ! index 72 - ' PRN1 + NO --> POx + CH2O + ALD2 + 2 NO2 ', & ! index 73 - ' ALK4 + NO3 --> LOx + R4O2 + HNO3 ', & ! index 74 - ' R4N2 + OH --> R4N1 + H2O ', & ! index 75 - ' ACTA + OH --> CO2 + MO2 + H2O ', & ! index 76 - ' RCHO + OH --> RCO3 + H2O ', & ! index 77 - ' RCO3 + NO2 --> PPN ', & ! index 78 - ' PPN --> RCO3 + NO2 ', & ! index 79 - ' RCO3 + NO --> CO2 + POx + 0.07 A3O2 + 0.49 OTHRO2 + 0.27 B3O2 + NO2 ', & ! index 80 - ' RCHO + NO3 --> LOx + RCO3 + HNO3 ', & ! index 81 - ' ACET + OH --> ATO2 + H2O ', & ! index 82 - ' A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 RCHO + 0.75 CH2O + HO2 ', & ! index 83 - ' PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.16 HAC + 0.09 RCHO + 1.25 CH2O + 0.5 ALD2 + HO2 ', & ! index 84 - ' R4O2 + HO2 --> R4P ', & ! index 85 - ' R4N1 + HO2 --> R4N2 ', & ! index 86 - ' ATO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 CH2O + 0.15 OH ', & ! index 87 - ' KO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 ALD2 + 0.85 MO2 + 0.15 OH ', & ! index 88 - ' B3O2 + HO2 --> RB3P ', & ! index 89 - ' PRN1 + HO2 --> PRPN ' /) ! index up to 90 + ' C3H8 + OH --> B3O2 ', & ! index 61 + ' C3H8 + OH --> A3O2 ', & ! index 62 + ' A3O2 + NO --> POx + RCHO + NO2 + HO2 ', & ! index 63 + ' A3O2 + NO --> NPRNO3 ', & ! index 64 + ' PO2 + NO --> POx + CH2O + ALD2 + NO2 + HO2 ', & ! 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 --> R7N2 ', & ! index 69 + ' R7O2 + HO2 --> R7P ', & ! index 70 + ' R7P + OH --> 0.5 R7O2 + 0.5 RCHO + 0.5 OH ', & ! index 71 + ' R7N2 + OH --> R7N1 + H2O ', & ! index 72 + ' R7N1 + NO --> 2 POx + 1.24 RCHO + 0.98 CH2O + 0.65 ALD2 + 2 NO2 ', & ! index 73 + ' R7N1 + HO2 --> R7N2 ', & ! index 74 + ' 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 + HO2 --> 0.894 RCHO + 0.659 GLYC ', & ! index 79 + ' BUTN + OH --> POx + PCO + GLYC + CH2O + CO + NO2 + HO2 ', & ! 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 + 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 + NO2 --> LOx + APAN ', & ! index 86 + ' APAN --> POx + ACO3 + NO2 ', & ! index 87 + ' APAN + OH --> 2 POx + PCO + GLYC + CO + NO3 ', & ! index 88 + ' ALK4 + OH --> R4O2 ', & ! index 89 + ' ALK4O2 + NO --> POx + 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.1... etc.' /) ! index up to 90 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' MEK + OH --> KO2 + H2O ', & ! index 91 - ' ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2 ', & ! index 92 - ' OTHRO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2 ', & ! index 93 - ' MEK + NO3 --> LOx + KO2 + HNO3 ', & ! index 94 - ' R4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.16 ACET + 0.35 MEK + 0.03 A3O2 + 0.16 OTHRO2 +... etc.', & ! index 95 - ' R4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.15 R4O2 + 0.58 RCHO + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 96 - ' ATO2 + MO2 --> 0.3 CO2 + 0.5 MOH + 0.5 MGLY + 0.2 HAC + 0.3 MCO3 + 0.5 CH2O + 0.3 HO2 ', & ! index 97 - ' KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 MEK + 0.5 MCO3 + 0.75 CH2O + 0.5 ALD2 + 0.2... etc.', & ! index 98 - ' B3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 ACET + 0.75 CH2O + HO2 ', & ! index 99 - ' PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 RCHO + 1.25 CH2O + 0.5 ALD2 + 0.5 HO2 + NO2 ', & ! index 100 - ' EOH + OH --> ALD2 + HO2 ', & ! index 101 - ' ROH + OH --> RCHO + HO2 ', & ! index 102 - ' 2 ETO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2 ', & ! index 103 - ' 2 OTHRO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2 ', & ! index 104 - ' ETO2 + HO2 --> ETP ', & ! index 105 - ' OTHRO2 + HO2 --> ETP ', & ! index 106 - ' A3O2 + HO2 --> RA3P ', & ! index 107 - ' PO2 + HO2 --> PP ', & ! index 108 - ' RCO3 + HO2 --> 0.43 CO2 + 0.15 POx + 0.41 RP + 0.03 A3O2 + 0.22 OTHRO2 + 0.12 B3O2 + ... etc.', & ! index 109 - ' PRPE + OH --> PO2 ', & ! index 110 - ' PRPE + O3 --> 0.1 CO2 + LOx + 0.56 PCO + 0.1 CH4 + 0.12 CH3CHOO + 0.22 CH2OO + 0.5 C... etc.', & ! index 111 - ' GLYC + OH --> 0.361 CO2 + 0.505 PCO + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O + 0.505 ... etc.', & ! index 112 - ' GLYC + OH --> PCO + HCOOH + CO + OH ', & ! index 113 - ' PRPE + NO3 --> LOx + PRN1 ', & ! index 114 - ' GLYX + OH --> 2 PCO + 2 CO + HO2 ', & ! index 115 - ' MGLY + OH --> PCO + MCO3 + CO ', & ! index 116 - ' GLYX + NO3 --> LOx + 2 PCO + HNO3 + 2 CO + HO2 ', & ! index 117 - ' MGLY + NO3 --> LOx + PCO + MCO3 + HNO3 + CO ', & ! index 118 - ' HAC + OH --> MGLY + HO2 ', & ! index 119 - ' HAC + OH --> 0.5 CO2 + 0.5 PCO + 0.5 HCOOH + 0.5 ACTA + 0.5 MO2 + 0.5 CO + OH ' /) ! index up to 120 + ' ALK4O2 + NO --> POx + ALK4N2 ', & ! index 91 + ' ALK4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2 ', & ! index 92 + ' R4O2 + NO --> POx + 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.1... etc.', & ! index 93 + ' R4O2 + NO --> POx + R4N2 ', & ! index 94 + ' 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 --> IPRNO3 ', & ! index 99 + ' PRN1 + NO --> POx + CH2O + ALD2 + 2 NO2 ', & ! index 100 + ' ALK4 + NO3 --> LOx + ALK4O2 + HNO3 ', & ! index 101 + ' R4N2 + OH --> R4N1 + H2O ', & ! index 102 + ' ALK4N2 + OH --> ALK4N1 + H2O ', & ! index 103 + ' ACTA + OH --> CO2 + MO2 + H2O ', & ! index 104 + ' RCHO + OH --> RCO3 + H2O ', & ! index 105 + ' RCO3 + NO2 --> PPN ', & ! index 106 + ' PPN --> RCO3 + NO2 ', & ! index 107 + ' PPN + OH --> PCO + ALD2 + CO + NO2 ', & ! index 108 + ' RCO3 + NO --> CO2 + POx + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + NO2 ', & ! index 109 + ' RCHO + NO3 --> LOx + RCO3 + HNO3 ', & ! index 110 + ' ACET + OH --> ATO2 + H2O ', & ! index 111 + ' A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 RCHO + 0.75 CH2O + HO2 ', & ! index 112 + ' PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.09 RCHO + 0.16 HAC + 1.25 CH2O + 0.5 ALD2 + HO2 ', & ! index 113 + ' R4O2 + HO2 --> R4P ', & ! index 114 + ' R4N1 + HO2 --> R4N2 ', & ! index 115 + ' ALK4O2 + HO2 --> ALK4P ', & ! index 116 + ' ALK4N1 + HO2 --> ALK4N2 ', & ! index 117 + ' ATO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 CH2O + 0.15 OH ', & ! index 118 + ' KO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 ALD2 + 0.85 MO2 + 0.15 OH ', & ! index 119 + ' B3O2 + HO2 --> RB3P ' /) ! index up to 120 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH ', & ! index 121 - ' ETP + OH --> 0.36 OTHRO2 + 0.64 ALD2 + 0.64 OH ', & ! index 122 - ' RA3P + OH --> 0.36 A3O2 + 0.64 RCHO + 0.64 OH ', & ! index 123 - ' RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH ', & ! index 124 - ' R4P + OH --> 0.21 R4O2 + 1.185 RCHO + 0.79 OH ', & ! index 125 - ' RP + OH --> RCO3 ', & ! index 126 - ' PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH ', & ! index 127 - ' LVOC + OH --> OH ', & ! index 128 - ' MAP + OH --> 0.22 CO2 + 0.78 MCO3 + 0.22 CH2O + 0.22 OH ', & ! index 129 - ' C2H6 + NO3 --> LOx + ETO2 + HNO3 ', & ! index 130 - ' 2 MCO3 --> 2 CO2 + 2 MO2 ', & ! index 131 - ' MCO3 + MO2 --> 0.9 CO2 + 0.1 ACTA + CH2O + 0.9 MO2 + 0.9 HO2 ', & ! index 132 - ' R4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.29 ACET + 0.271 MEK + 0.045 A3O2 + 0.29 OTHRO2 ... etc.', & ! index 133 - ' ATO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MGLY + 0.9 MCO3 + 0.9 CH2O + 0.9 MO2 ', & ! index 134 - ' KO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MEK + 0.9 MCO3 + 0.9 ALD2 + 0.9 MO2 ', & ! index 135 - ' B3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ACET + 0.9 MO2 + 0.9 HO2 ', & ! index 136 - ' R4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.27 R4O2 + 0.613 RCHO + 0.351 CH2O + 0.675 ALD... etc.', & ! index 137 - ' PRN1 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 RCHO + 0.9 CH2O + 0.9 ALD2 + 0.9 MO2 + NO2 ', & ! index 138 - ' ETO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2 ', & ! index 139 - ' OTHRO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2 ', & ! index 140 - ' PO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.065 HAC + 0.035 RCHO + 0.9 CH2O + 0.9 ALD2 + 0.... etc.', & ! index 141 - ' A3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + RCHO + 0.9 MO2 + 0.9 HO2 ', & ! index 142 - ' RCO3 + MCO3 --> 2 CO2 + 0.07 A3O2 + 0.49 OTHRO2 + 0.27 B3O2 + MO2 ', & ! index 143 - ' RCO3 + MO2 --> CO2 + 0.07 A3O2 + 0.49 OTHRO2 + 0.27 B3O2 + CH2O + HO2 ', & ! index 144 - ' 2 NO3 --> 2 LOx + 2 NO2 + O2 ', & ! index 145 - ' MO2 + NO2 --> MPN ', & ! index 146 - ' MPN --> MO2 + NO2 ', & ! index 147 - ' DMS + OH --> CH2O + MO2 + SO2 ', & ! index 148 - ' DMS + OH --> 0.25 MSA + MO2 + 0.75 SO2 ', & ! index 149 - ' DMS + NO3 --> LOx + CH2O + HNO3 + MO2 + SO2 ' /) ! index up to 150 + ' PRN1 + HO2 --> PRPN ', & ! index 121 + ' MEK + OH --> KO2 + H2O ', & ! index 122 + ' KO2 + NO --> POx + 0.31 MEKCO3 + 0.07 R4N2 + 0.62 MCO3 + 0.31 CH2O + 0.62 ALD2 + 0.93 NO2 ', & ! index 123 + ' MEKCO3 + NO2 --> LOx + MEKPN ', & ! index 124 + ' 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 + ' 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 + ' R4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.35 MEK + 0.16 ACET + 0.13 RCHO + 0.16 OTHRO2 +... etc.', & ! index 132 + ' R4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.58 RCHO + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 133 + ' ALK4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.35 MEK + 0.16 ACET + 0.13 RCHO + 0.16 OTHRO2 +... etc.', & ! index 134 + ' ALK4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.58 RCHO + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 135 + ' 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 + ' 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 + ' 2 OTHRO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2 ', & ! index 143 + ' ETO2 + HO2 --> ETP ', & ! index 144 + ' OTHRO2 + HO2 --> ETP ', & ! index 145 + ' A3O2 + HO2 --> RA3P ', & ! index 146 + ' PO2 + HO2 --> PP ', & ! index 147 + ' RCO3 + HO2 --> 0.43 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.22 OTHRO2 + 0.03 A3O2 +... etc.', & ! index 148 + ' PRPE + OH --> PO2 ', & ! index 149 + ' PRPE + O3 --> 0.1 CO2 + LOx + 0.56 PCO + 0.1 CH4 + 0.12 CH3CHOO + 0.22 CH2OO + 0.5 C... etc.' /) ! index up to 150 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' SO2 + OH --> PH2SO4 + PSO4 + SO4 + HO2 ', & ! index 151 - ' Br + O3 --> BrO + O2 ', & ! index 152 - ' BrO + HO2 --> HOBr + O2 ', & ! index 153 - ' Br + HO2 --> HBr + O2 ', & ! index 154 - ' OH + HBr --> Br + H2O ', & ! index 155 - ' 2 BrO --> 2 LOx + 2 Br + O2 ', & ! index 156 - ' 2 BrO --> 2 LOx + Br2 + O2 ', & ! index 157 - ' BrO + NO --> Br + NO2 ', & ! index 158 - ' BrNO3 + Br --> Br2 + NO3 ', & ! index 159 - ' Br2 + OH --> POx + HOBr + Br ', & ! index 160 - ' HOBr + O --> LOx + BrO + OH ', & ! index 161 - ' O + HBr --> LOx + Br + OH ', & ! index 162 - ' BrO + OH --> LOx + Br + HO2 ', & ! index 163 - ' Br + NO3 --> BrO + NO2 ', & ! index 164 - ' CH2O + Br --> PCO + CO + HO2 + HBr ', & ! index 165 - ' ALD2 + Br --> MCO3 + HBr ', & ! index 166 - ' ACET + Br --> ATO2 + HBr ', & ! index 167 - ' C2H6 + Br --> ETO2 + HBr ', & ! index 168 - ' C3H8 + Br --> A3O2 + HBr ', & ! index 169 - ' Br + NO2 --> BrNO2 ', & ! index 170 - ' BrO + NO2 --> BrNO3 ', & ! index 171 - ' CHBr3 + OH --> 3 Br ', & ! index 172 - ' CH2Br2 + OH --> 2 Br ', & ! index 173 - ' CH3Br + OH --> Br + H2O + HO2 ', & ! index 174 - ' O1D + H2O --> LOx + 2 OH ', & ! index 175 - ' O1D + N2 --> O + N2 ', & ! index 176 - ' O1D + O2 --> O + O2 ', & ! index 177 - ' O1D + H2 --> LOx + H + OH ', & ! index 178 - ' N2O + O1D --> LOx + 1.22 NO + 0.39 N2 + 0.39 O2 ', & ! index 179 - ' CH4 + O1D --> LOx + LCH4 + 0.2 H + 0.25 CH2O + 0.75 MO2 + 0.2 HO2 + 0.75 OH + 0.05 H2 ' /) ! index up to 180 + ' GLYC + OH --> 0.361 CO2 + 0.505 PCO + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O + 0.505 ... etc.', & ! index 151 + ' GLYC + OH --> PCO + HCOOH + CO + OH ', & ! index 152 + ' GLYC + OH --> 0.8 GCO3 + 0.2 GLYX + 0.2 HO2 ', & ! index 153 + ' 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 + ' PHAN + OH --> POx + PCO + CH2O + CO + NO2 ', & ! index 160 + ' HACTA + OH --> CH2O + HO2 ', & ! index 161 + ' PRPE + NO3 --> LOx + PRN1 ', & ! index 162 + ' GLYX + OH --> 2 PCO + 2 CO + HO2 ', & ! index 163 + ' MGLY + OH --> PCO + MCO3 + CO ', & ! index 164 + ' GLYX + NO3 --> LOx + 2 PCO + HNO3 + 2 CO + HO2 ', & ! index 165 + ' MGLY + NO3 --> LOx + PCO + MCO3 + HNO3 + CO ', & ! index 166 + ' HAC + OH --> MGLY + HO2 ', & ! index 167 + ' HAC + OH --> 0.5 CO2 + 0.5 PCO + 0.5 HCOOH + 0.5 ACTA + 0.5 MO2 + 0.5 CO + OH ', & ! index 168 + ' PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH ', & ! index 169 + ' ETP + OH --> 0.36 OTHRO2 + 0.64 ALD2 + 0.64 OH ', & ! index 170 + ' RA3P + OH --> 0.64 RCHO + 0.36 A3O2 + 0.64 OH ', & ! index 171 + ' RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH ', & ! index 172 + ' R4P + OH --> 1.185 RCHO + 0.21 R4O2 + 0.79 OH ', & ! index 173 + ' ALK4P + OH --> 1.185 RCHO + 0.21 ALK4O2 + 0.79 OH ', & ! index 174 + ' RP + OH --> RCO3 ', & ! index 175 + ' PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH ', & ! index 176 + ' LVOC + OH --> OH ', & ! index 177 + ' MAP + OH --> 0.22 CO2 + 0.78 MCO3 + 0.22 CH2O + 0.22 OH ', & ! index 178 + ' C2H6 + NO3 --> LOx + ETO2 + HNO3 ', & ! index 179 + ' 2 MCO3 --> 2 CO2 + 2 MO2 ' /) ! index up to 180 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ & - ' O + O2 --> O3 ', & ! index 181 - ' O3 + O --> 2 LOx + 2 O2 ', & ! index 182 - ' OH + H2 --> H + H2O ', & ! index 183 - ' OH + O --> LOx + H + O2 ', & ! index 184 - ' HO2 + O --> LOx + OH + O2 ', & ! index 185 - ' O1D + O3 --> LOx + O + 1.5 O2 ', & ! index 186 - ' OCS + O --> LOx + PCO + CO + SO2 ', & ! index 187 - ' OCS + OH --> CO2 + SO2 ', & ! index 188 - ' O + NO2 --> 2 LOx + NO + O2 ', & ! index 189 - ' NO3 + O --> 2 LOx + NO2 + O2 ', & ! index 190 - ' NO + O --> NO2 ', & ! index 191 - ' O + NO2 --> NO3 ', & ! index 192 - ' H2O2 + O --> LOx + HO2 + OH ', & ! index 193 - ' H + O2 --> HO2 ', & ! index 194 - ' H + O3 --> LOx + OH + O2 ', & ! index 195 - ' H + HO2 --> 0.02 POx + 0.02 H2O + 1.788 OH + 0.02 O + 0.086 H2 + 0.086 O2 ', & ! index 196 - ' N + O2 --> POx + NO + O ', & ! index 197 - ' N + NO --> POx + O + N2 ', & ! index 198 - ' N + NO2 --> N2O + O ', & ! index 199 - ' BrO + O --> 2 LOx + Br + O2 ', & ! index 200 - ' CH2O + O --> LOx + PCO + CO + HO2 + OH ', & ! index 201 - ' O1D + HCl --> 0.66 LOx + 0.22 H + 0.12 HCl + 0.22 ClO + 0.66 OH + 0.12 O + 0.66 Cl ', & ! index 202 - ' O1D + HBr --> 0.6 LOx + 0.2 H + 0.6 Br + 0.2 BrO + 0.6 OH + 0.2 O + 0.2 HBr ', & ! index 203 - ' Cl2 + O1D --> 0.25 Cl2 + 0.75 ClO + 0.25 O + 0.75 Cl ', & ! index 204 - ' CCl4 + O1D --> 0.21 CCl4 + 0.79 ClO + 0.21 O + 2.37 Cl ', & ! index 205 - ' CH3Cl + O1D --> 0.44 LOx + 0.1 CH3Cl + 0.09 H + 0.9 MO2 + 0.46 ClO + 0.1 O + 0.35 Cl ', & ! index 206 - ' CH3Br + O1D --> 0.56 LOx + MO2 + 0.56 Br + 0.44 BrO ', & ! index 207 - ' CH2Br2 + O1D --> 0.05 CH2Br2 + 0.95 Br + 0.95 BrO + 0.05 O ', & ! index 208 - ' CHBr3 + O1D --> 0.3 CHBr3 + 1.4 Br + 0.7 BrO + 0.3 O ', & ! index 209 - ' HCFC22 + O1D --> 0.19 LOx + 0.25 HCFC22 + 0.56 ClO + 0.05 OH + 0.25 O + 0.19 Cl ' /) ! index up to 210 + ' MCO3 + MO2 --> 0.9 CO2 + 0.1 ACTA + CH2O + 0.9 MO2 + 0.9 HO2 ', & ! index 181 + ' R4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.271 MEK + 0.29 ACET + 0.255 RCHO + 0.29 OTHRO2 ... etc.', & ! index 182 + ' ALK4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.271 MEK + 0.29 ACET + 0.255 RCHO + 0.29 OTHRO2 ... etc.', & ! index 183 + ' ATO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MGLY + 0.9 MCO3 + 0.9 CH2O + 0.9 MO2 ', & ! index 184 + ' KO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MEK + 0.9 MCO3 + 0.9 ALD2 + 0.9 MO2 ', & ! index 185 + ' B3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ACET + 0.9 MO2 + 0.9 HO2 ', & ! index 186 + ' R4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.613 RCHO + 0.27 R4O2 + 0.351 CH2O + 0.675 ALD... etc.', & ! index 187 + ' ALK4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.613 RCHO + 0.27 R4O2 + 0.351 CH2O + 0.675 ALD... etc.', & ! index 188 + ' PRN1 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 RCHO + 0.9 CH2O + 0.9 ALD2 + 0.9 MO2 + NO2 ', & ! index 189 + ' ETO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2 ', & ! index 190 + ' OTHRO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2 ', & ! index 191 + ' PO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.035 RCHO + 0.065 HAC + 0.9 CH2O + 0.9 ALD2 + 0.... etc.', & ! index 192 + ' A3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + RCHO + 0.9 MO2 + 0.9 HO2 ', & ! index 193 + ' RCO3 + MCO3 --> 2 CO2 + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + MO2 ', & ! index 194 + ' RCO3 + MO2 --> CO2 + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + CH2O + HO2 ', & ! index 195 + ' 2 NO3 --> 2 LOx + 2 NO2 + O2 ', & ! index 196 + ' MO2 + NO2 --> MPN ', & ! index 197 + ' MPN --> MO2 + NO2 ', & ! index 198 + ' DMS + OH --> CH2O + MO2 + SO2 ', & ! index 199 + ' 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 + ' HO2 + BrO --> HOBr + O2 ', & ! index 204 + ' HO2 + Br --> HBr + O2 ', & ! index 205 + ' OH + HBr --> H2O + Br ', & ! 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 + ' BrNO3 + Br --> Br2 + NO3 ' /) ! index up to 210 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ & - ' CFC11 + O1D --> 0.1 CFC11 + 0.9 ClO + 0.1 O + 1.8 Cl ', & ! index 211 - ' CFC12 + O1D --> 0.14 CFC12 + 0.86 ClO + 0.14 O + 0.86 Cl ', & ! index 212 - ' H1211 + O1D --> 0.35 H1211 + 0.34 Br + 0.31 BrO + 0.34 ClO + 0.35 O + 0.31 Cl ', & ! index 213 - ' H1301 + O1D --> 0.55 H1301 + 0.45 BrO + 0.55 O ', & ! index 214 - ' HCFC141b + O1D --> 0.31 HCFC141b + 0.69 ClO + 0.31 O + 0.69 Cl ', & ! index 215 - ' HCFC142b + O1D --> 0.35 HCFC142b + 0.65 ClO + 0.35 O ', & ! index 216 - ' HCFC123 + O1D --> 0.21 HCFC123 + 0.79 ClO + 0.21 O + 0.79 Cl ', & ! index 217 - ' CFC113 + O1D --> 0.1 LOx + 0.1 CFC113 + 0.8 ClO + 0.1 O + 1.9 Cl ', & ! index 218 - ' CFC114 + O1D --> 0.05 LOx + 0.1 CFC114 + 0.85 ClO + 0.1 O + 0.95 Cl ', & ! index 219 - ' CFC115 + O1D --> 0.14 CFC115 + 0.86 ClO + 0.14 O ', & ! index 220 - ' H2402 + O1D --> 0.25 H2402 + 0.75 Br + 0.75 BrO + 0.25 O ', & ! index 221 - ' Cl2 + OH --> POx + HOCl + Cl ', & ! index 222 - ' MO2 + ClO --> LOx + ClOO + CH2O + HO2 ', & ! index 223 - ' ClO + OH --> LOx + HO2 + Cl ', & ! index 224 - ' ClO + OH --> LOx + HCl + O2 ', & ! index 225 - ' OClO + OH --> LOx + HOCl + O2 ', & ! index 226 - ' Cl2O2 + OH --> LOx + ClOO + HOCl ', & ! index 227 - ' HCl + OH --> H2O + Cl ', & ! index 228 - ' HOCl + OH --> H2O + ClO ', & ! index 229 - ' ClNO2 + OH --> POx + HOCl + NO2 ', & ! index 230 - ' ClNO3 + OH --> POx + HOCl + NO3 ', & ! index 231 - ' CH3Cl + OH --> H2O + HO2 + Cl ', & ! index 232 - ' CH2Cl2 + OH --> HO2 + 2 Cl ', & ! index 233 - ' CHCl3 + OH --> HO2 + 3 Cl ', & ! index 234 - ' CH3CCl3 + OH --> H2O + 3 Cl ', & ! index 235 - ' HCFC22 + OH --> H2O + Cl ', & ! index 236 - ' HCFC141b + OH --> H2O + 2 Cl ', & ! index 237 - ' HCFC142b + OH --> H2O + Cl ', & ! index 238 - ' HCFC123 + OH --> H2O + 2 Cl ', & ! index 239 - ' CH4 + Cl --> LCH4 + MO2 + HCl ' /) ! index up to 240 + ' Br2 + OH --> POx + HOBr + Br ', & ! index 211 + ' HOBr + O --> LOx + OH + BrO ', & ! index 212 + ' O + HBr --> LOx + Br + OH ', & ! index 213 + ' OH + BrO --> LOx + HO2 + Br ', & ! index 214 + ' Br + NO3 --> NO2 + BrO ', & ! index 215 + ' CH2O + Br --> PCO + CO + HO2 + HBr ', & ! index 216 + ' ALD2 + Br --> MCO3 + HBr ', & ! index 217 + ' ACET + Br --> ATO2 + HBr ', & ! index 218 + ' C2H6 + Br --> ETO2 + HBr ', & ! index 219 + ' C3H8 + Br --> A3O2 + HBr ', & ! index 220 + ' NO2 + Br --> 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 + ' O1D + H2O --> LOx + 2 OH ', & ! index 226 + ' O1D + N2 --> O + N2 ', & ! index 227 + ' O1D + O2 --> O + O2 ', & ! index 228 + ' O1D + H2 --> LOx + H + OH ', & ! index 229 + ' 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 + ' OH + H2 --> H + H2O ', & ! index 234 + ' O + OH --> 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 = (/ & - ' CH2O + Cl --> PCO + CO + HCl + HO2 ', & ! index 241 - ' O3 + Cl --> ClO + O2 ', & ! index 242 - ' Cl + H2 --> H + HCl ', & ! index 243 - ' H2O2 + Cl --> HCl + HO2 ', & ! index 244 - ' HO2 + Cl --> HCl + O2 ', & ! index 245 - ' HO2 + Cl --> POx + ClO + OH ', & ! index 246 - ' ClO + O --> 2 LOx + Cl + O2 ', & ! index 247 - ' HO2 + ClO --> HOCl + O2 ', & ! index 248 - ' NO + ClO --> Cl + NO2 ', & ! index 249 - ' ClO + NO2 --> ClNO3 ', & ! index 250 - ' 2 ClO --> 2 LOx + Cl2 + O2 ', & ! index 251 - ' 2 ClO --> 2 LOx + ClOO + Cl ', & ! index 252 - ' 2 ClO --> OClO + Cl ', & ! index 253 - ' Cl + O2 --> ClOO ', & ! index 254 - ' ClOO --> Cl + O2 ', & ! index 255 - ' 2 ClO --> Cl2O2 ', & ! index 256 - ' Cl2O2 --> 2 ClO ', & ! index 257 - ' ClOO + Cl --> 0.1 POx + 0.95 Cl2 + 0.1 ClO + 0.95 O2 ', & ! index 258 - ' BrO + ClO --> OClO + Br ', & ! index 259 - ' BrO + ClO --> 2 LOx + ClOO + Br ', & ! index 260 - ' BrO + ClO --> 2 LOx + BrCl + O2 ', & ! index 261 - ' ClNO3 + O --> NO3 + ClO ', & ! index 262 - ' ClNO3 + Cl --> Cl2 + NO3 ', & ! index 263 - ' CH3Cl + Cl --> PCO + CO + 2 HCl + HO2 ', & ! index 264 - ' CH2Cl2 + Cl --> PCO + CO + HCl + HO2 + 2 Cl ', & ! index 265 - ' CHCl3 + Cl --> PCO + CO + HCl + HO2 + 3 Cl ', & ! index 266 - ' HCOOH + Cl --> CO2 + HCl + H2O ', & ! index 267 - ' MO2 + Cl --> POx + CH2O + HO2 + ClO ', & ! index 268 - ' MP + Cl --> MO2 + HCl ', & ! index 269 - ' C2H6 + Cl --> ETO2 + HCl ' /) ! index up to 270 + ' O + NO3 --> 2 LOx + NO2 + O2 ', & ! index 241 + ' O + NO --> 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 + ' N + NO --> POx + O + N2 ', & ! index 249 + ' N + NO2 --> N2O + O ', & ! index 250 + ' O + BrO --> 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 + ' 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 + ' 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 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ & - ' ETO2 + Cl --> POx + ALD2 + HO2 + ClO ', & ! index 271 - ' OTHRO2 + Cl --> POx + ALD2 + HO2 + ClO ', & ! index 272 - ' MOH + Cl --> CH2O + HCl + HO2 ', & ! index 273 - ' EOH + Cl --> ALD2 + HCl ', & ! index 274 - ' ACTA + Cl --> CO2 + MO2 + HCl ', & ! index 275 - ' C3H8 + Cl --> B3O2 + HCl ', & ! index 276 - ' C3H8 + Cl --> A3O2 + HCl ', & ! index 277 - ' ACET + Cl --> ATO2 + HCl ', & ! index 278 - ' ISOP + Cl --> 0.5 IHOO4 + 0.5 IHOO1 + HCl ', & ! index 279 - ' ALK4 + Cl --> R4O2 + HCl ', & ! index 280 - ' PRPE + Cl --> PO2 + HCl ', & ! index 281 - ' PRPE + Br --> PO2 + HBr ', & ! index 282 - ' I + NO --> INO ', & ! index 283 - ' 2 INO --> I2 + 2 NO ', & ! index 284 - ' I + NO2 --> IONO ', & ! index 285 - ' IONO --> I + NO2 ', & ! index 286 - ' 2 IONO --> I2 + 2 NO2 ', & ! index 287 - ' I2 + NO3 --> I + IONO2 ', & ! index 288 - ' IO + NO2 --> IONO2 ', & ! index 289 - ' IONO2 --> IO + NO2 ', & ! index 290 - ' I + IONO2 --> I2 + NO3 ', & ! index 291 - ' I + BrO --> IO + Br ', & ! index 292 - ' IO + BrO --> 0.4 LOx + 0.8 OIO + 0.2 I + Br + 0.2 O2 ', & ! index 293 - ' OIO + IO --> I2O3 ', & ! index 294 - ' 2 OIO --> I2O4 ', & ! index 295 - ' I2O4 --> 2 OIO ', & ! index 296 - ' OIO + NO --> IO + NO2 ', & ! index 297 - ' IO + ClO --> 0.88 LOx + 0.191 ICl + 0.56 OClO + 0.809 I + 0.249 Cl + 0.44 O2 ', & ! index 298 - ' I + O3 --> IO + O2 ', & ! index 299 - ' I + HO2 --> HI + O2 ' /) ! index up to 300 + ' 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 + ' 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 + ' 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 + ' ClNO2 + OH --> POx + HOCl + NO2 ', & ! index 281 + ' ClNO3 + OH --> POx + HOCl + NO3 ', & ! index 282 + ' CH3Cl + OH --> H2O + HO2 + Cl ', & ! 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 + ' CH4 + Cl --> LCH4 + MO2 + HCl ', & ! index 291 + ' CH2O + Cl --> PCO + CO + HO2 + HCl ', & ! index 292 + ' Cl + O3 --> ClO + O2 ', & ! index 293 + ' Cl + H2 --> H + HCl ', & ! index 294 + ' H2O2 + Cl --> HO2 + HCl ', & ! index 295 + ' HO2 + Cl --> HCl + O2 ', & ! index 296 + ' HO2 + Cl --> POx + ClO + OH ', & ! index 297 + ' ClO + O --> 2 LOx + Cl + O2 ', & ! index 298 + ' HO2 + ClO --> HOCl + O2 ', & ! index 299 + ' ClO + NO --> NO2 + Cl ' /) ! index up to 300 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ & - ' I2 + OH --> POx + HOI + I ', & ! index 301 - ' HI + OH --> I + H2O ', & ! index 302 - ' HOI + OH --> IO + H2O ', & ! index 303 - ' IO + HO2 --> HOI + O2 ', & ! index 304 - ' IO + NO --> I + NO2 ', & ! index 305 - ' 2 IO --> 0.6 I2O2 + 0.4 OIO + 0.4 I ', & ! index 306 - ' I2O2 --> 0.996 OIO + 0.008 IO + 0.996 I ', & ! index 307 - ' CH3I + OH --> MO2 + I + H2O ', & ! index 308 - ' ETHLN + OH --> CO2 + CH2O + NO2 ', & ! index 309 - ' PROPNN + OH --> MGLY + NO2 ', & ! index 310 - ' CH2OO + CO --> CO2 + LCO + CH2O ', & ! index 311 - ' CH2OO + NO --> POx + CH2O + NO2 ', & ! index 312 - ' CH2OO + NO2 --> POx + CH2O + NO3 ', & ! index 313 - ' CH2OO + H2O --> 0.06 PH2O2 + 0.73 HMHP + 0.21 HCOOH + 0.06 H2O2 + 0.06 CH2O ', & ! index 314 - ' CH2OO + 2 H2O --> 0.06 PH2O2 + 0.4 HMHP + 0.54 HCOOH + 0.06 H2O2 + 0.06 CH2O ', & ! index 315 - ' CH2OO + O3 --> LOx + CH2O ', & ! index 316 - ' CH2OO + SO2 --> PH2SO4 + PSO4 + SO4 + CH2O ', & ! index 317 - ' CH3CHOO + CO --> CO2 + LCO + ALD2 ', & ! index 318 - ' CH3CHOO + NO --> POx + ALD2 + NO2 ', & ! index 319 - ' CH3CHOO + NO2 --> POx + ALD2 + NO3 ', & ! index 320 - ' CH3CHOO + SO2 --> PH2SO4 + PSO4 + SO4 + ALD2 ', & ! index 321 - ' CH3CHOO + H2O --> PH2O2 + H2O2 + ALD2 ', & ! index 322 - ' CH3CHOO + H2O --> ACTA ', & ! index 323 - ' MTPA + OH --> PIO2 ', & ! index 324 - ' MTPO + OH --> PIO2 ', & ! index 325 - ' PIO2 + NO --> POx + 0.12 MONITS + 0.06 MONITU + 0.07 HCOOH + 0.11 ACET + 0.44 MEK + ... etc.', & ! index 326 - ' PIO2 + HO2 --> PIP ', & ! index 327 - ' PIO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 MEK + 0.75 RCHO + 0.75 CH2O + HO2 ', & ! index 328 - ' PIO2 + MCO3 --> CO2 + 1.125 MEK + RCHO + 0.5 MO2 + 0.5 HO2 + RCOOH ', & ! index 329 - ' PIO2 + NO3 --> LOx + MEK + RCHO + HO2 + NO2 ' /) ! index up to 330 + ' NO2 + ClO --> 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 + ' Cl + O2 --> ClOO ', & ! index 305 + ' ClOO --> Cl + O2 ', & ! index 306 + ' 2 ClO --> Cl2O2 ', & ! index 307 + ' Cl2O2 --> 2 ClO ', & ! index 308 + ' ClOO + Cl --> 0.1 POx + 0.95 Cl2 + 0.1 ClO + 0.95 O2 ', & ! index 309 + ' ClO + BrO --> OClO + Br ', & ! index 310 + ' ClO + BrO --> 2 LOx + ClOO + Br ', & ! index 311 + ' 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 + ' 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 + ' 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 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ & - ' MTPA + O3 --> LOx + 0.14 PCO + 0.02 PH2O2 + 0.02 H2O2 + 0.53 MEK + 0.62 KO2 + 0.65 R... etc.', & ! index 331 - ' MTPO + O3 --> LOx + 0.14 PCO + 0.02 PH2O2 + 0.02 H2O2 + 0.53 MEK + 0.62 KO2 + 0.65 R... etc.', & ! index 332 - ' MTPA + NO3 --> LOx + 0.1 OLNN + 0.9 OLND ', & ! index 333 - ' MTPO + NO3 --> LOx + 0.1 OLNN + 0.9 OLND ', & ! index 334 - ' LIMO + OH --> LIMO2 ', & ! index 335 - ' LIMO + O3 --> LOx + 0.14 PCO + 0.02 PH2O2 + 0.01 HCOOH + 0.02 H2O2 + 0.16 OTHRO2 + 0... etc.', & ! index 336 - ' LIMO + NO3 --> LOx + 0.5 OLNN + 0.5 OLND ', & ! index 337 - ' LIMO2 + NO --> POx + 0.22 MONITU + 0.289 MEK + 0.058 HAC + 0.289 PRPE + 0.491 RCHO + ... etc.', & ! index 338 - ' LIMO2 + HO2 --> PIP ', & ! index 339 - ' LIMO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.308 MACR + 0.192 PRPE + 1.04 CH2O + HO2 ', & ! index 340 - ' LIMO2 + MCO3 --> 0.308 MACR + 0.192 PRPE + 0.385 CH2O + 0.5 MO2 + 0.5 HO2 + 0.5 RCOOH ', & ! index 341 - ' LIMO2 + NO3 --> LOx + 0.615 MACR + 0.385 PRPE + 0.385 CH2O + HO2 + NO2 ', & ! index 342 - ' PIP + OH --> 0.41 MEK + 0.44 R4O2 + 0.08 RCHO + 0.49 OH ', & ! index 343 - ' OLNN + NO --> POx + MONITS + HO2 + NO2 ', & ! index 344 - ' OLND + NO --> POx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2 ', & ! index 345 - ' OLNN + HO2 --> 0.7 MONITS + 0.3 MONITU ', & ! index 346 - ' OLND + HO2 --> 0.7 MONITS + 0.3 MONITU ', & ! index 347 - ' OLNN + MO2 --> 0.7 MONITS + 0.3 MONITU + CH2O + 2 HO2 ', & ! index 348 - ' OLND + MO2 --> 0.25 ROH + 0.35 MONITS + 0.15 MONITU + 0.25 MOH + 0.34 MEK + 0.93 RCHO... etc.', & ! index 349 - ' OLNN + MCO3 --> CO2 + 0.7 MONITS + 0.3 MONITU + MO2 + HO2 ', & ! index 350 - ' OLND + MCO3 --> 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 0.5 MO2 + NO2 + 0.5 RCOOH ', & ! index 351 - ' OLNN + NO3 --> LOx + 0.7 MONITS + 0.3 MONITU + HO2 + NO2 ', & ! index 352 - ' OLND + NO3 --> LOx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2 ', & ! index 353 - ' 2 OLNN --> 1.4 MONITS + 0.6 MONITU + HO2 ', & ! index 354 - ' OLNN + OLND --> 1.05 MONITS + 0.45 MONITU + 0.149 MEK + 0.64 RCHO + 0.202 CH2O + 0.5 H... etc.', & ! index 355 - ' 2 OLND --> 0.7 MONITS + 0.3 MONITU + 0.285 MEK + 1.21 RCHO + 0.504 CH2O + NO2 ', & ! index 356 - ' MONITS + OH --> HONIT ', & ! index 357 - ' MONITU + OH --> HONIT ', & ! index 358 - ' MONITU + O3 --> LOx + HONIT ', & ! index 359 - ' MONITU + NO3 --> 2 LOx + HONIT ' /) ! index up to 360 + ' ALK4 + Cl --> ALK4O2 + HCl ', & ! index 331 + ' PRPE + Cl --> PO2 + HCl ', & ! index 332 + ' PRPE + Br --> PO2 + HBr ', & ! index 333 + ' I + NO --> INO ', & ! index 334 + ' 2 INO --> I2 + 2 NO ', & ! index 335 + ' I + NO2 --> IONO ', & ! index 336 + ' IONO --> I + NO2 ', & ! index 337 + ' 2 IONO --> I2 + 2 NO2 ', & ! index 338 + ' I2 + NO3 --> I + IONO2 ', & ! index 339 + ' IO + NO2 --> IONO2 ', & ! index 340 + ' IONO2 --> IO + NO2 ', & ! index 341 + ' I + IONO2 --> 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 + ' 2 OIO --> I2O4 ', & ! index 346 + ' I2O4 --> 2 OIO ', & ! index 347 + ' OIO + NO --> IO + NO2 ', & ! index 348 + ' IO + ClO --> 0.88 LOx + 0.191 ICl + 0.56 OClO + 0.809 I + 0.249 Cl + 0.44 O2 ', & ! index 349 + ' I + O3 --> IO + O2 ', & ! index 350 + ' I + HO2 --> HI + O2 ', & ! index 351 + ' I2 + OH --> POx + HOI + I ', & ! index 352 + ' HI + OH --> I + H2O ', & ! index 353 + ' HOI + OH --> IO + H2O ', & ! index 354 + ' 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 + ' ETHLN + OH --> CO2 + CH2O + NO2 ' /) ! index up to 360 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ & - ' MONITS + NO3 --> 2 LOx + HONIT ', & ! index 361 - ' IONITA --> INDIOL + POx + HNO3 ', & ! index 362 - ' MONITA --> INDIOL + POx + HNO3 ', & ! index 363 - ' HONIT + OH --> POx + HAC + NO3 ', & ! index 364 - ' MENO3 + OH --> POx + CH2O + NO2 ', & ! index 365 - ' ETNO3 + OH --> POx + ALD2 + NO2 ', & ! index 366 - ' IPRNO3 + OH --> POx + ACET + NO2 ', & ! index 367 - ' NPRNO3 + OH --> POx + RCHO + NO2 ', & ! index 368 - ' ISOP + O3 --> 0.407 CO2 + LOx + 0.407 PCO + 0.013 PH2O2 + 0.013 H2O2 + 0.58 CH2OO + ... etc.', & ! index 369 - ' ISOP + OH --> LISOPOH + IHOO1 ', & ! index 370 - ' ISOP + OH --> LISOPOH + IHOO4 ', & ! index 371 - ' ISOP + OH --> LISOPOH + 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY... etc.', & ! index 372 - ' ISOP + OH --> LISOPOH + 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY +... etc.', & ! index 373 - ' IHOO1 + HO2 --> 0.937 RIPA + 0.063 MVK + 0.063 CH2O + 0.063 HO2 + 0.063 OH ', & ! index 374 - ' IHOO1 + HO2 --> RIPC ', & ! index 375 - ' IHOO4 + HO2 --> 0.937 RIPB + 0.063 MACR + 0.063 CH2O + 0.063 HO2 + 0.063 OH ', & ! index 376 - ' IHOO4 + HO2 --> RIPD ', & ! index 377 - ' IHOO1 --> MVK + CH2O + OH ', & ! index 378 - ' IHOO1 --> 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY + 0.3 MCO... etc.', & ! index 379 - ' IHOO4 --> MACR + CH2O + OH ', & ! index 380 - ' IHOO4 --> 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY + 0.3 CH2O ... etc.', & ! index 381 - ' 2 IHOO1 --> 2 MVK + 2 CH2O + 2 HO2 ', & ! index 382 - ' 2 IHOO4 --> 2 MACR + 2 CH2O + 2 HO2 ', & ! index 383 - ' IHOO4 + IHOO1 --> MVK + MACR + 2 CH2O + 2 HO2 ', & ! index 384 - ' 2 IHOO1 --> PCO + HC5A + MVKHP + CO + HO2 + OH ', & ! index 385 - ' 2 IHOO4 --> PCO + HC5A + MCRHP + CO + HO2 + OH ', & ! index 386 - ' IHOO4 + IHOO1 --> PCO + HC5A + 0.5 MVKHP + 0.5 MCRHP + CO + HO2 + OH ', & ! index 387 - ' IHOO1 + MO2 --> MVK + 2 CH2O + 2 HO2 ', & ! index 388 - ' IHOO1 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MVKHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH ', & ! index 389 - ' IHOO4 + MO2 --> MACR + 2 CH2O + 2 HO2 ' /) ! index up to 390 + ' PROPNN + OH --> MGLY + NO2 ', & ! index 361 + ' CH2OO + CO --> CO2 + LCO + CH2O ', & ! index 362 + ' CH2OO + NO --> POx + CH2O + NO2 ', & ! index 363 + ' CH2OO + NO2 --> POx + CH2O + NO3 ', & ! index 364 + ' CH2OO + H2O --> 0.06 PH2O2 + 0.73 HMHP + 0.06 H2O2 + 0.21 HCOOH + 0.06 CH2O ', & ! index 365 + ' CH2OO + 2 H2O --> 0.06 PH2O2 + 0.4 HMHP + 0.06 H2O2 + 0.54 HCOOH + 0.06 CH2O ', & ! index 366 + ' CH2OO + O3 --> LOx + CH2O ', & ! index 367 + ' CH2OO + SO2 --> PH2SO4 + PSO4 + SO4 + CH2O ', & ! index 368 + ' CH3CHOO + CO --> CO2 + LCO + ALD2 ', & ! index 369 + ' CH3CHOO + NO --> POx + ALD2 + NO2 ', & ! index 370 + ' CH3CHOO + NO2 --> POx + ALD2 + NO3 ', & ! index 371 + ' CH3CHOO + SO2 --> PH2SO4 + PSO4 + SO4 + ALD2 ', & ! index 372 + ' CH3CHOO + H2O --> PH2O2 + H2O2 + ALD2 ', & ! index 373 + ' CH3CHOO + H2O --> ACTA ', & ! index 374 + ' MTPA + NO3 --> LOx + 0.1 OLNN + 0.9 OLND ', & ! index 375 + ' MTPO + NO3 --> LOx + 0.1 OLNN + 0.9 OLND ', & ! index 376 + ' LIMO + NO3 --> LOx + 0.5 OLNN + 0.5 OLND ', & ! index 377 + ' LIMO + OH --> LIMO2 ', & ! index 378 + ' LIMO + O3 --> LOx + 0.15 PCO + 0.27 LIMAL + 0.15 AROMRO2 + 0.715 LIMO3 + 0.15 CO + 0.865 OH ', & ! index 379 + ' MTPO + OH --> 0.15 BPINO2 + 0.15 APINO2 + 0.2 LIMO2 + 0.5 PIO2 ', & ! index 380 + ' MTPO + O3 --> LOx + 0.4 MYRCO + 0.5 AROMRO2 + 0.5 MEK + 0.5 ACET + 0.3 RCHO + 0.15 M... etc.', & ! index 381 + ' 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 + ' 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 + ' PINAL + NO3 --> LOx + PINO3 + HNO3 ', & ! index 389 + ' PINAL + OH --> PINO3 ' /) ! index up to 390 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ & - ' IHOO4 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MCRHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH ', & ! index 391 - ' IHOO1 + NO --> POx + IHN2 ', & ! index 392 - ' IHOO1 + NO --> POx + MVK + CH2O + HO2 + NO2 ', & ! index 393 - ' IHOO1 + NO --> POx + IHN4 ', & ! index 394 - ' IHOO1 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 395 - ' IHOO4 + NO --> POx + IHN3 ', & ! index 396 - ' IHOO4 + NO --> POx + MACR + CH2O + HO2 + NO2 ', & ! index 397 - ' IHOO4 + NO --> POx + IHN1 ', & ! index 398 - ' IHOO4 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 399 - ' HPALD1 + OH --> 0.45 PCO + 0.15 IDC + 0.315 HPALD1OO + 0.085 ICHE + 0.33 MVKHP + 0.085... etc.', & ! index 400 - ' HPALD2 + OH --> 0.37 PCO + 0.15 IDC + 0.315 HPALD2OO + 0.165 ICHE + 0.17 MCRHP + 0.165... etc.', & ! index 401 - ' HPALD3 + OH --> 0.42 PCO + 0.58 ICHE + 0.19 MVKHP + 0.23 MVK + 0.42 CO + OH ', & ! index 402 - ' HPALD4 + OH --> 0.23 PCO + 0.77 ICHE + 0.09 MCRHP + 0.14 MACR + 0.23 CO + OH ', & ! index 403 - ' HC5A + OH --> 0.355 CO2 + 0.638 PCO + 0.294 IEPOXAOO + 0.068 IEPOXBOO + 0.125 MVKHP ... etc.', & ! index 404 - ' ICHE + OH --> 1.5 PCO + 0.5 MGLY + 0.5 HAC + 0.5 CH2O + 1.5 CO + OH ', & ! index 405 - ' IDC + OH --> PCO + MVKPC + CO + HO2 ', & ! index 406 - ' RIPA + OH --> 0.005 LVOC + 0.345 IHPOO1 + 0.655 IHPOO3 ', & ! index 407 - ' RIPA + OH --> 0.005 LVOC + 0.67 IEPOXA + 0.33 IEPOXB + OH ', & ! index 408 - ' RIPB + OH --> 0.005 LVOC + 0.345 IHPOO2 + 0.655 IHPOO3 ', & ! index 409 - ' RIPB + OH --> 0.005 LVOC + 0.68 IEPOXA + 0.32 IEPOXB + OH ', & ! index 410 - ' RIPA + OH --> 0.005 LVOC + 0.25 PCO + 0.125 MVKHP + 0.75 IHOO1 + 0.125 MVK + 0.25 CO... etc.', & ! index 411 - ' RIPB + OH --> 0.005 LVOC + 0.33 PCO + 0.16 ICHOO + 0.165 MCRHP + 0.51 IHOO4 + 0.165 ... etc.', & ! index 412 - ' RIPC + OH --> 0.005 LVOC + 0.036 PCO + 0.255 IEPOXD + 0.009 HPALD3 + 0.018 HPETHNL +... etc.', & ! index 413 - ' RIPD + OH --> 0.005 LVOC + 0.054 PCO + 0.595 IEPOXD + 0.009 HPALD4 + 0.255 IHPOO2 + ... etc.', & ! index 414 - ' IHPOO1 --> 0.824 IDHPE + 0.176 ICPDH + OH ', & ! index 415 - ' IHPOO1 + NO --> POx + 0.284 HPETHNL + 0.716 MCRHP + 0.284 HAC + 0.716 CH2O + HO2 + NO2 ', & ! index 416 - ' IHPOO1 + NO --> POx + ITHN ', & ! index 417 - ' IHPOO1 + HO2 --> 0.725 IDHDP + 0.135 HPETHNL + 0.14 MCRHP + 0.135 HAC + 0.14 CH2O + 0.2... etc.', & ! index 418 - ' IHPOO2 --> 0.452 IDHPE + 0.548 ICPDH + OH ', & ! index 419 - ' IHPOO2 + NO --> POx + 0.294 ATOOH + 0.706 MVKHP + 0.294 GLYC + 0.706 CH2O + HO2 + NO2 ' /) ! index up to 420 + ' PINO3 + HO2 --> 0.15 POx + 0.15 PINONIC + 0.41 PINO3H + 0.44 C96O2 + 0.15 O3 + 0.44 OH ', & ! index 391 + ' PINO3 + NO --> CO2 + POx + C96O2 + NO2 ', & ! index 392 + ' PINO3 + NO2 --> LOx + PINPAN ', & ! index 393 + ' PINPAN --> POx + PINO3 + NO2 ', & ! index 394 + ' PINO3 + NO3 --> CO2 + LOx + C96O2 + NO2 ', & ! index 395 + ' PINO3H + OH --> PINO3 ', & ! index 396 + ' PINONIC + OH --> CO2 + C96O2 ', & ! index 397 + ' C96O2 + HO2 --> C96O2H ', & ! index 398 + ' C96O2 + NO --> 0.84 POx + 0.16 C96N + 0.84 AROMRO2 + 0.42 MEK + 0.84 ACET + 0.84 RCO3... etc.', & ! index 399 + ' C96O2 + NO3 --> LOx + AROMRO2 + 0.5 MEK + ACET + RCO3 + CH2O + NO2 ', & ! index 400 + ' C96O2 + MO2 --> 0.25 C96O2H + 0.75 AROMRO2 + 0.25 MOH + 0.375 MEK + 0.75 ACET + 0.75 R... etc.', & ! index 401 + ' 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 + ' 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 + 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 + ' 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 + ' LIMAL + OH --> LIMO3 ' /) ! index up to 420 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ & - ' IHPOO2 + NO --> POx + ITHN ', & ! index 421 - ' IHPOO2 + HO2 --> 0.725 IDHDP + 0.135 ATOOH + 0.14 MVKHP + 0.135 GLYC + 0.14 CH2O + 0.27... etc.', & ! index 422 - ' IHPOO3 --> IDHPE ', & ! index 423 - ' IHPOO3 + NO --> POx + GLYC + HAC + OH + NO2 ', & ! index 424 - ' IHPOO3 + NO --> POx + ITHN ', & ! index 425 - ' IHPOO3 + HO2 --> 0.35 IDHDP + 0.65 GLYC + 0.65 HAC + 1.3 OH ', & ! index 426 - ' IEPOXD + OH --> 0.75 ICHE + 0.25 ICHOO + 0.75 HO2 ', & ! index 427 - ' IEPOXA + OH --> ICHE + HO2 ', & ! index 428 - ' IEPOXA + OH --> 0.67 IEPOXAOO + 0.33 IEPOXBOO ', & ! index 429 - ' IEPOXB + OH --> ICHE + HO2 ', & ! index 430 - ' IEPOXB + OH --> 0.81 IEPOXAOO + 0.19 IEPOXBOO ', & ! index 431 - ' IEPOXAOO --> IDCHP + HO2 ', & ! index 432 - ' IEPOXAOO --> PCO + MVKDH + CO + OH ', & ! index 433 - ' IEPOXAOO + HO2 --> 0.13 PCO + 0.13 MVKDH + 0.35 ICPDH + 0.52 MGLY + 0.52 GLYC + 0.13 CO +... etc.', & ! index 434 - ' IEPOXAOO + NO --> POx + 0.2 PCO + 0.2 MVKDH + 0.8 MGLY + 0.8 GLYC + 0.2 CO + HO2 + NO2 ', & ! index 435 - ' IEPOXAOO + NO --> POx + ITCN ', & ! index 436 - ' IEPOXBOO --> IDCHP + HO2 ', & ! index 437 - ' IEPOXBOO --> PCO + MCRDH + CO + OH ', & ! index 438 - ' IEPOXBOO + NO --> POx + 0.2 PCO + 0.2 MCRDH + 0.8 GLYX + 0.8 HAC + 0.2 CO + HO2 + NO2 ', & ! index 439 - ' IEPOXBOO + NO --> POx + ITCN ', & ! index 440 - ' IEPOXBOO + HO2 --> 0.13 PCO + 0.13 MCRDH + 0.35 ICPDH + 0.52 GLYX + 0.52 HAC + 0.13 CO + ... etc.', & ! index 441 - ' ICHOO + HO2 --> 0.52 PCO + 0.13 MVKHC + 0.35 ICPDH + 0.52 HAC + 0.65 CH2O + 0.52 CO + ... etc.', & ! index 442 - ' ICHOO + NO --> POx + ITCN ', & ! index 443 - ' ICHOO + NO --> POx + 0.8 PCO + 0.2 MVKHC + 0.8 HAC + CH2O + 0.8 CO + HO2 + NO2 ', & ! index 444 - ' ICHOO --> 2 PCO + HAC + 2 CO + HO2 + OH ', & ! index 445 - ' HPALD1OO + NO --> CO2 + POx + MVK + OH + NO2 ', & ! index 446 - ' HPALD1OO + HO2 --> CO2 + MVK + 2 OH ', & ! index 447 - ' HPALD2OO + NO --> CO2 + POx + MACR + OH + NO2 ', & ! index 448 - ' HPALD2OO + HO2 --> CO2 + MACR + 2 OH ', & ! index 449 - ' IHN2 + OH --> ISOPNOO1 ' /) ! index up to 450 + ' 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 + 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 + 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 + HO2 --> LIMO3H ', & ! index 430 + ' LIMKO2 + NO3 --> LOx + LIMKB + NO2 + HO2 ', & ! 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 + ' LIMNB + OH --> POx + 0.5 MONITS + 0.5 LIMO3 + 0.5 NO2 ', & ! index 435 + ' LIMO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.15 LIMO2H + 0.41 LIMO3H + 0.44 RCHO + 0.352 R4... etc.', & ! index 436 + ' LIMO3 + NO --> CO2 + POx + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + NO2 ', & ! index 437 + ' LIMO3 + NO2 --> LOx + LIMPAN ', & ! index 438 + ' LIMPAN --> POx + LIMO3 + NO2 ', & ! index 439 + ' LIMO3 + NO3 --> CO2 + LOx + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + NO2 ', & ! index 440 + ' LIMO3H + OH --> LIMO3 ', & ! index 441 + ' 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 + ' 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 + ' PIN + OH --> POx + 0.7 MONITU + 0.3 MYRCO + 0.7 AROMRO2 + 0.3 NO2 ' /) ! index up to 450 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ & - ' IHN2 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2 ', & ! index 451 - ' IHN3 + OH --> ISOPNOO2 ', & ! index 452 - ' IHN3 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2 ', & ! index 453 - ' IHN1 + OH --> IEPOXD + NO2 ', & ! index 454 - ' IHN1 + OH --> IDHNDOO1 ', & ! index 455 - ' IHN4 + OH --> IEPOXD + NO2 ', & ! index 456 - ' IHN4 + OH --> IDHNDOO2 ', & ! index 457 - ' IHN1 + OH --> 0.6 PCO + 0.6 MCRHNB + 0.4 ICN + 0.6 CO + 0.4 HO2 + 0.6 OH ', & ! index 458 - ' IHN4 + OH --> 0.6 PCO + 0.4 ICN + 0.6 MVKN + 0.6 CO + 0.4 HO2 + 0.6 OH ', & ! index 459 - ' ISOPNOO1 --> ITCN + HO2 ', & ! index 460 - ' ISOPNOO1 + HO2 --> 0.059 MCRHN + 0.459 GLYC + 0.482 ITHN + 0.459 HAC + 0.059 CH2O + 0.059... etc.', & ! index 461 - ' ISOPNOO1 + NO --> POx + 0.272 MCRHN + 0.728 GLYC + 0.728 HAC + 0.272 CH2O + 0.272 HO2 + ... etc.', & ! index 462 - ' ISOPNOO1 + NO --> POx + IDN ', & ! index 463 - ' ISOPNOO2 --> ITCN + HO2 ', & ! index 464 - ' ISOPNOO2 + HO2 --> 0.599 MVKN + 0.401 ITHN + 0.599 CH2O + 0.599 HO2 + 0.599 OH ', & ! index 465 - ' ISOPNOO2 + NO --> POx + MVKN + CH2O + HO2 + NO2 ', & ! index 466 - ' ISOPNOO2 + NO --> POx + IDN ', & ! index 467 - ' IDHNDOO1 --> ITCN + HO2 ', & ! index 468 - ' IDHNDOO2 --> ITCN + HO2 ', & ! index 469 - ' IDHNDOO1 + HO2 --> 0.031 MCRHNB + 0.551 PROPNN + 0.551 GLYC + 0.418 ITHN + 0.031 CH2O + 0... etc.', & ! index 470 - ' IDHNDOO1 + NO --> POx + 0.065 MCRHNB + 0.935 PROPNN + 0.935 GLYC + 0.065 CH2O + HO2 + NO2 ', & ! index 471 - ' IDHNDOO1 + NO --> POx + IDN ', & ! index 472 - ' IDHNDOO2 + HO2 --> 0.441 ETHLN + 0.065 MVKN + 0.494 ITHN + 0.441 HAC + 0.065 CH2O + 0.506... etc.', & ! index 473 - ' IDHNDOO2 + NO --> POx + 0.858 ETHLN + 0.142 MVKN + 0.858 HAC + 0.142 CH2O + HO2 + NO2 ', & ! index 474 - ' IDHNDOO2 + NO --> POx + IDN ', & ! index 475 - ' IDHNBOO + HO2 --> 0.094 MCRHNB + 0.242 PROPNN + 0.033 ETHLN + 0.242 GLYC + 0.01 MVKN + 0... etc.', & ! index 476 - ' IDHNBOO + NO --> POx + 0.355 MCRHNB + 0.546 PROPNN + 0.071 ETHLN + 0.546 GLYC + 0.028 M... etc.', & ! index 477 - ' IDHNBOO + NO --> POx + IDN ', & ! index 478 - ' ISOP + NO3 --> LISOPNO3 + LOx + 0.535 INO2D + 0.465 INO2B ', & ! index 479 - ' INO2B + HO2 --> 0.473 INPB + 0.479 MVK + 0.048 MACR + 0.527 CH2O + 0.527 OH + 0.527 NO2 ' /) ! index up to 480 + ' PIN + O3 --> 0.7 MONITU + 0.3 MYRCO + 0.7 AROMRO2 + 0.3 NO2 ', & ! index 451 + ' PIN + NO3 --> 0.35 MONITU + 0.15 MYRCO + 0.35 AROMRO2 + 0.5 OLNN + 1.15 NO2 ', & ! index 452 + ' MYRCO + OH --> AROMRO2 + MEK + 0.5 ACET + 0.5 GLYC + 0.5 MVK + 1.5 CH2O + HO2 ', & ! index 453 + ' MYRCO + O3 --> LOx + AROMRO2 + MEK + 0.5 ACET + 0.5 GLYC + 0.5 MVK + 1.5 CH2O + OH ', & ! index 454 + ' MYRCO + NO3 --> LOx + 0.5 AROMRO2 + 0.5 OLNN + 0.5 MEK + 0.25 ACET + 0.25 GLYC + 0.25 ... etc.', & ! index 455 + ' APINO2 + MO2 --> PINAL + 0.25 MOH + 0.75 CH2O + 1.75 HO2 ', & ! index 456 + ' APINO2 + MCO3 --> 0.9 CO2 + PINAL + 0.1 ACTA + 0.9 MO2 + HO2 ', & ! index 457 + ' BPINO2 + MO2 --> BPINO + 0.25 MOH + 1.75 CH2O + 1.75 HO2 ', & ! index 458 + ' BPINO2 + MCO3 --> 0.9 CO2 + BPINO + 0.1 ACTA + CH2O + 0.9 MO2 + HO2 ', & ! index 459 + ' LIMO2 + MO2 --> 0.37 LIMKET + 0.63 LIMAL + 0.25 MOH + 0.75 CH2O + 1.75 HO2 ', & ! index 460 + ' LIMO2 + MCO3 --> 0.9 CO2 + 0.37 LIMKET + 0.63 LIMAL + 0.1 ACTA + 0.9 MO2 + HO2 ', & ! index 461 + ' PIO2 + MO2 --> 0.675 MYRCO + 0.25 MOH + 0.45 ACET + 0.45 MVK + 0.85 CH2O + 1.75 HO2 ', & ! index 462 + ' PIO2 + MCO3 --> 0.9 CO2 + 0.675 MYRCO + 0.1 ACTA + 0.45 ACET + 0.45 MVK + 0.1 CH2O + 0... etc.', & ! index 463 + ' PINO3 + MO2 --> 0.75 CO2 + 0.25 PINONIC + 0.75 C96O2 + CH2O + 0.75 HO2 ', & ! index 464 + ' 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 + ' 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 + ' OLNN + MO2 --> 0.3 MONITU + 0.7 MONITS + CH2O + 2 HO2 ', & ! index 472 + ' 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 + ' 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 + ' 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 = (/ & - ' INO2D + HO2 --> INPD ', & ! index 481 - ' 2 INO2B --> 0.07 INPB + 0.07 ICN + 1.737 MVK + 0.123 MACR + 1.86 CH2O + 1.86 NO2 ', & ! index 482 - ' INO2D + INO2B --> 0.474 INA + 0.399 INPB + 0.032 IHN1 + 0.532 ICN + 0.544 MVK + 0.019 MA... etc.', & ! index 483 - ' 2 INO2D --> 0.34 INA + 0.127 IHN4 + 0.671 IHN1 + 0.862 ICN + 0.064 HO2 ', & ! index 484 - ' INO2D + MO2 --> 0.244 INA + 0.057 IHN4 + 0.355 MOH + 0.298 IHN1 + 0.401 ICN + 0.645 CH... etc.', & ! index 485 - ' INO2B + MO2 --> 0.355 INPB + 0.034 MOH + 0.034 ICN + 0.583 MVK + 0.028 MACR + 1.577 CH... etc.', & ! index 486 - ' INO2B + MCO3 --> CO2 + 0.903 MVK + 0.097 MACR + CH2O + MO2 + NO2 ', & ! index 487 - ' INO2D + MCO3 --> CO2 + 0.841 INA + 0.159 ICN + MO2 + 0.159 HO2 ', & ! index 488 - ' INO2B + NO3 --> LOx + 0.903 MVK + 0.097 MACR + CH2O + 2 NO2 ', & ! index 489 - ' INO2D + NO3 --> LOx + 0.841 INA + 0.159 ICN + 0.159 HO2 + NO2 ', & ! index 490 - ' INO2B + NO --> POx + 0.904 MVK + 0.096 MACR + CH2O + 2 NO2 ', & ! index 491 - ' INO2B + NO --> POx + IDN ', & ! index 492 - ' INO2D + NO --> POx + 0.841 INA + 0.159 ICN + 0.159 HO2 + NO2 ', & ! index 493 - ' INO2D + NO --> POx + IDN ', & ! index 494 - ' INA + O2 --> ICN + HO2 ', & ! index 495 - ' INA --> IDHNBOO ', & ! index 496 - ' INPB + OH --> 0.67 IHPNBOO + 0.33 IDHNBOO ', & ! index 497 - ' INPD + OH --> IHPNDOO ', & ! index 498 - ' INPB + OH --> ITHN + OH ', & ! index 499 - ' INPD + OH --> ITHN + OH ', & ! index 500 - ' INPD + OH --> ICHE + NO2 ', & ! index 501 - ' INPB + OH --> INO2B ', & ! index 502 - ' INPD + OH --> INO2D ', & ! index 503 - ' INPD + OH --> ICN + OH ', & ! index 504 - ' IHPNDOO --> ITCN + OH ', & ! index 505 - ' IHPNBOO --> 0.5 ITCN + 0.5 ITHN + OH ', & ! index 506 - ' IHPNBOO + HO2 --> 0.249 HPETHNL + 0.06 MCRHNB + 0.009 ATOOH + 0.589 PROPNN + 0.051 ETHLN... etc.', & ! index 507 - ' IHPNDOO + HO2 --> 0.471 HPETHNL + 0.073 MCRHNB + 0.054 ATOOH + 0.471 PROPNN + 0.054 ETHL... etc.', & ! index 508 - ' IHPNBOO + NO --> POx + 0.303 HPETHNL + 0.17 MCRHNB + 0.013 ATOOH + 0.687 PROPNN + 0.064... etc.', & ! index 509 - ' IHPNBOO + NO --> POx + IDN ' /) ! index up to 510 + ' MONITS + OH --> HONIT ', & ! index 481 + ' MONITU + OH --> HONIT ', & ! index 482 + ' MONITU + O3 --> LOx + HONIT ', & ! index 483 + ' MONITU + NO3 --> 2 LOx + HONIT ', & ! index 484 + ' MONITS + NO3 --> 2 LOx + HONIT ', & ! index 485 + ' IONITA --> INDIOL + POx + HNO3 ', & ! index 486 + ' MONITA --> INDIOL + POx + HNO3 ', & ! index 487 + ' HONIT + OH --> POx + HAC + NO3 ', & ! index 488 + ' MENO3 + OH --> POx + CH2O + NO2 ', & ! index 489 + ' ETNO3 + OH --> POx + ALD2 + NO2 ', & ! index 490 + ' IPRNO3 + OH --> POx + ACET + NO2 ', & ! index 491 + ' NPRNO3 + OH --> POx + RCHO + NO2 ', & ! index 492 + ' ISOP + O3 --> 0.407 CO2 + LOx + 0.407 PCO + 0.013 PH2O2 + 0.013 H2O2 + 0.416 MACR + ... etc.', & ! index 493 + ' ISOP + OH --> LISOPOH + IHOO1 ', & ! index 494 + ' ISOP + OH --> LISOPOH + IHOO4 ', & ! index 495 + ' ISOP + OH --> LISOPOH + 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY... etc.', & ! index 496 + ' ISOP + OH --> LISOPOH + 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY +... etc.', & ! index 497 + ' IHOO1 + HO2 --> 0.937 RIPA + 0.063 MVK + 0.063 CH2O + 0.063 HO2 + 0.063 OH ', & ! index 498 + ' IHOO1 + HO2 --> RIPC ', & ! index 499 + ' IHOO4 + HO2 --> 0.937 RIPB + 0.063 MACR + 0.063 CH2O + 0.063 HO2 + 0.063 OH ', & ! index 500 + ' IHOO4 + HO2 --> RIPD ', & ! index 501 + ' IHOO1 --> MVK + CH2O + OH ', & ! index 502 + ' IHOO1 --> 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY + 0.3 MCO... etc.', & ! index 503 + ' IHOO4 --> MACR + CH2O + OH ', & ! index 504 + ' 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 + ' 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 = (/ & - ' IHPNDOO + NO --> POx + 0.59 HPETHNL + 0.291 MCRHNB + 0.07 ATOOH + 0.59 PROPNN + 0.07 ET... etc.', & ! index 511 - ' IHPNDOO + NO --> POx + IDN ', & ! index 512 - ' ICN + OH --> ICHE + NO2 ', & ! index 513 - ' ICN + OH --> 0.539 PCO + 0.461 ICNOO + 0.378 MCRHNB + 0.161 MVKN + 0.539 CO + 0.295... etc.', & ! index 514 - ' ICNOO + NO --> 0.429 CO2 + POx + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN +... etc.', & ! index 515 - ' ICNOO + HO2 --> 0.429 CO2 + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN + 0.33 ... etc.', & ! index 516 - ' IDN + OH --> 0.435 IDNOO + 0.565 ITHN + 0.565 NO2 ', & ! index 517 - ' IDNOO + NO --> POx + PROPNN + 0.89 ETHLN + 0.11 GLYC + 0.89 HO2 + 1.11 NO2 ', & ! index 518 - ' IDNOO + HO2 --> 0.82 PROPNN + 0.73 ETHLN + 0.09 GLYC + 0.18 IDN + 0.73 HO2 + 0.82 OH +... etc.', & ! index 519 - ' MVK + OH --> MVKOHOO ', & ! index 520 - ' MVK + O3 --> LOx + 0.28 PCO + 0.045 PH2O2 + 0.075 PYAC + 0.045 H2O2 + 0.545 MGLY + ... etc.', & ! index 521 - ' MACR + OH --> 0.036 PCO + 0.036 ATOOH + 0.964 MCROHOO + 0.036 CO + 0.036 HO2 ', & ! index 522 - ' MACR + OH --> MACR1OO ', & ! index 523 - ' MACR + O3 --> LOx + 0.12 PCO + 0.88 MGLY + 0.88 CH2OO + 0.12 MCO3 + 0.12 CH2O + 0.12... etc.', & ! index 524 - ' MACR + NO3 --> LOx + 0.68 PCO + 0.68 PROPNN + 0.32 MACR1OO + 0.32 HNO3 + 0.68 CO + 0.68 OH ', & ! index 525 - ' MVKN + OH --> 0.69 POx + 0.241 PYAC + 0.29 MVKHCB + 0.449 HCOOH + 0.449 MGLY + 0.04 ... etc.', & ! index 526 - ' MVKHP + OH --> 0.53 MVKHC + 0.47 MVKHCB + OH ', & ! index 527 - ' MCRHP + OH --> 0.23 CO2 + 0.77 PCO + 0.23 ATOOH + 0.77 HAC + 0.77 CO + OH ', & ! index 528 - ' MCRHN + OH --> MACRNO2 ', & ! index 529 - ' MCRHNB + OH --> 0.75 CO2 + 0.25 PCO + PROPNN + 0.25 CO + OH ', & ! index 530 - ' C4HVP1 + NO --> POx + MVKOHOO + NO2 ', & ! index 531 - ' C4HVP1 + HO2 --> MVKOHOO + OH ', & ! index 532 - ' C4HVP1 + NO2 --> MVKN ', & ! index 533 - ' C4HVP2 + NO --> POx + MCROHOO + NO2 ', & ! index 534 - ' C4HVP2 + HO2 --> MCROHOO + OH ', & ! index 535 - ' C4HVP2 + NO2 --> MCRHN ', & ! index 536 - ' MCRENOL + OH --> 0.097 CO2 + 0.75 PCO + 0.653 PYAC + 0.063 MVKHCB + 0.187 HCOOH + 0.187... etc.', & ! index 537 - ' MVKPC + OH --> PCO + MGLY + CO + OH ', & ! index 538 - ' MVKDH + OH --> 0.6 MVKHC + 0.4 MVKHCB + HO2 ', & ! index 539 - ' MVKHCB + OH --> PCO + MGLY + CO + OH ' /) ! index up to 540 + ' IHOO4 + IHOO1 --> 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 + 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 + ' IHOO4 + NO --> POx + IHN3 ', & ! index 520 + ' IHOO4 + NO --> POx + MACR + CH2O + NO2 + HO2 ', & ! 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 + ' 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 + ' HPALD4 + OH --> 0.23 PCO + 0.77 ICHE + 0.09 MCRHP + 0.14 MACR + 0.23 CO + OH ', & ! index 527 + ' HC5A + OH --> 0.355 CO2 + 0.638 PCO + 0.068 IEPOXBOO + 0.294 IEPOXAOO + 0.158 MCRHP ... etc.', & ! index 528 + ' ICHE + OH --> 1.5 PCO + 0.5 MGLY + 0.5 HAC + 0.5 CH2O + 1.5 CO + OH ', & ! index 529 + ' IDC + OH --> PCO + MVKPC + CO + HO2 ', & ! index 530 + ' RIPA + OH --> 0.005 LVOC + 0.345 IHPOO1 + 0.655 IHPOO3 ', & ! index 531 + ' RIPA + OH --> 0.005 LVOC + 0.67 IEPOXA + 0.33 IEPOXB + OH ', & ! index 532 + ' 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 + ' 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 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ & - ' MVKHC + OH --> 2 PCO + MCO3 + 2 CO + HO2 ', & ! index 541 - ' MCRDH + OH --> 0.84 PCO + 0.16 MVKHCB + 0.84 HAC + 0.84 CO + HO2 ', & ! index 542 - ' MVKOHOO + HO2 --> 0.255 MVKHC + 0.335 MVKHP + 0.05 MGLY + 0.36 GLYC + 0.36 MCO3 + 0.05 C... etc.', & ! index 543 - ' MVKOHOO + NO --> POx + 0.242 MGLY + 0.758 GLYC + 0.758 MCO3 + 0.242 CH2O + 0.242 HO2 + NO2 ', & ! index 544 - ' MVKOHOO + NO --> POx + MVKN ', & ! index 545 - ' MCROHOO + HO2 --> 0.507 PCO + 0.41 MCRHP + 0.083 MGLY + 0.507 HAC + 0.083 CH2O + 0.507 C... etc.', & ! index 546 - ' MACR1OO + HO2 --> 0.5 CO2 + 0.13 POx + 0.325 PCO + 0.5 MACR1OOH + 0.175 MCO3 + 0.5 CH2O ... etc.', & ! index 547 - ' MACR1OOH + OH --> 0.41 CO2 + 0.488 PCO + 0.098 HMML + 0.165 MACR1OO + 0.488 HAC + 0.087 ... etc.', & ! index 548 - ' MCROHOO --> PCO + HAC + CO + OH ', & ! index 549 - ' MCROHOO + NO --> POx + 0.86 PCO + 0.14 MGLY + 0.86 HAC + 0.14 CH2O + 0.86 CO + 0.86 HO2 + NO2 ', & ! index 550 - ' MCROHOO + NO --> POx + MCRHN ', & ! index 551 - ' MACR1OO + NO --> CO2 + POx + 0.65 PCO + 0.35 MCO3 + CH2O + 0.65 MO2 + 0.65 CO + NO2 ', & ! index 552 - ' MACR1OO + NO2 --> MPAN ', & ! index 553 - ' MACRNO2 + HO2 --> 0.5 CO2 + 0.13 POx + 0.13 MCRHNB + 0.37 MCRHN + 0.5 HAC + 0.13 O3 + 0.... etc.', & ! index 554 - ' MACRNO2 + NO --> CO2 + POx + HAC + 2 NO2 ', & ! index 555 - ' MACRNO2 + NO2 --> MPAN + NO2 ', & ! index 556 - ' MACRNO2 + NO3 --> CO2 + LOx + HAC + 2 NO2 ', & ! index 557 - ' MACRNO2 + MO2 --> 0.7 CO2 + 0.3 MCRHNB + 0.7 HAC + CH2O + 0.7 HO2 + 0.7 NO2 ', & ! index 558 - ' MPAN --> MACR1OO + NO2 ', & ! index 559 - ' MPAN + OH --> POx + 0.25 PCO + 0.75 HMML + 0.25 HAC + 0.25 CO + NO3 ', & ! index 560 - ' HMML + OH --> PCO + 0.3 HCOOH + 0.7 MGLY + 0.3 MCO3 + CO + 0.7 OH ', & ! index 561 - ' ICPDH + OH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 0.5 HO2 + 0.5 OH ', & ! index 562 - ' IDCHP + OH --> 0.888 PCO + 0.444 MVKPC + 0.318 MVKHC + 0.126 MVKHCB + 0.08 IEPOXAOO +... etc.', & ! index 563 - ' IDHDP + OH --> 0.667 IDHPE + 0.333 ICPDH + OH ', & ! index 564 - ' IDHPE + OH --> CO2 + 0.429 MVKHP + 0.571 MCRHP + OH ', & ! index 565 - ' ITCN + OH --> PCO + 0.75 MVKHP + 0.25 MCRHP + CO + NO2 ', & ! index 566 - ' ITHN + OH --> 0.041 ICNOO + 0.022 MCRENOL + 0.9 ITCN + 0.037 IDHNBOO + 0.022 CH2O + ... etc.', & ! index 567 - ' ETHLN + NO3 --> LOx + MCO3 + HNO3 + NO2 ', & ! index 568 - ' PYAC + OH --> CO2 + MCO3 ', & ! index 569 - ' HMHP + OH --> 0.5 HCOOH + 0.5 CH2O + 0.5 HO2 + 0.5 OH ' /) ! index up to 570 + ' 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 + 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 + 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 + ' IEPOXA + OH --> ICHE + HO2 ', & ! index 552 + ' IEPOXA + OH --> 0.33 IEPOXBOO + 0.67 IEPOXAOO ', & ! index 553 + ' IEPOXB + OH --> ICHE + HO2 ', & ! index 554 + ' IEPOXB + OH --> 0.19 IEPOXBOO + 0.81 IEPOXAOO ', & ! index 555 + ' 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 + 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 + 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 --> 2 PCO + HAC + 2 CO + HO2 + OH ', & ! index 569 + ' HPALD1OO + NO --> CO2 + POx + MVK + NO2 + OH ' /) ! index up to 570 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ & - ' MCO3 + HO2 --> 0.5 CO2 + 0.13 POx + 0.37 MAP + 0.13 ACTA + 0.5 MO2 + 0.13 O3 + 0.5 OH ', & ! index 571 - ' HPETHNL + OH --> PCO + CH2O + CO + OH ', & ! index 572 - ' HPETHNL + OH --> GLYX + OH ', & ! index 573 - ' NAP + OH --> NRO2 + OH ', & ! index 574 - ' NRO2 + HO2 --> LNRO2H + HO2 ', & ! index 575 - ' NRO2 + NO --> LNRO2N + NO ', & ! index 576 - ' C2H4 + O3 --> LOx + CH2OO + CH2O ', & ! index 577 - ' C2H4 + OH --> ETOO ', & ! index 578 - ' C2H2 + OH --> 0.364 PCO + 0.364 HCOOH + 0.636 GLYX + 0.364 CO + 0.364 HO2 + 0.636 OH ', & ! index 579 - ' ETOO + HO2 --> ETHP ', & ! index 580 - ' ETOO + NO --> 0.995 POx + 0.005 ETHN + 0.995 ETO + 0.995 NO2 ', & ! index 581 - ' ETOO + NO3 --> LOx + ETO + NO2 ', & ! index 582 - ' ETOO + MO2 --> 0.6 ETO + 0.2 ETHP + 0.2 MOH + 0.2 GLYC + 0.8 CH2O + 0.6 HO2 ', & ! index 583 - ' ETO --> 2 CH2O + HO2 ', & ! index 584 - ' ETO + O2 --> GLYC + HO2 ', & ! index 585 - ' ETHN + OH --> POx + GLYC + NO2 ', & ! index 586 - ' ETHP + OH --> ETOO ', & ! index 587 - ' ETHP + OH --> GLYC + OH ', & ! index 588 - ' BENZ + OH --> BRO2 + 0.2 PCO + 0.54 PHEN + 0.55 AROMP4 + 0.46 AROMRO2 + 0.18 GLYX + ... etc.', & ! index 589 - ' TOLU + OH --> TRO2 + 0.27 PCO + 0.06 BALD + 0.19 CSL + 0.3 AROMP5 + 0.68 AROMP4 + 0.... etc.', & ! index 590 - ' XYLE + OH --> XRO2 + 0.3 PCO + 0.06 BALD + 0.15 CSL + 0.56 AROMP5 + 0.28 AROMP4 + 0.... etc.', & ! index 591 - ' AROMRO2 + HO2 --> HO2 + OH ', & ! index 592 - ' AROMRO2 + NO --> POx + HO2 + NO2 ', & ! index 593 - ' AROMRO2 + NO3 --> LOx + HO2 + NO2 ', & ! index 594 - ' AROMRO2 + MO2 --> CH2O + 2 HO2 ', & ! index 595 - ' AROMRO2 + MCO3 --> CO2 + MO2 + HO2 ', & ! index 596 - ' PHEN + OH --> 0.8 MCT + 0.18 AROMP4 + 0.06 BENZO + 0.14 AROMRO2 + 0.06 GLYX + 0.8 HO2 ', & ! index 597 - ' PHEN + NO3 --> 1.258 LOx + 0.742 BENZO + 0.258 NPHEN + 0.742 HNO3 ', & ! index 598 - ' CSL + OH --> 0.727 MCT + 0.44 AROMP5 + 0.073 BENZO + 0.2 AROMRO2 + 0.727 HO2 ', & ! index 599 - ' CSL + NO3 --> 1.5 LOx + 0.44 AROMP5 + 0.3 BENZO + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3 ' /) ! index up to 600 + ' HPALD1OO + HO2 --> CO2 + MVK + 2 OH ', & ! index 571 + ' HPALD2OO + NO --> CO2 + POx + MACR + NO2 + OH ', & ! 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 + ' IHN3 + OH --> ISOPNOO2 ', & ! index 576 + ' IHN3 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2 ', & ! index 577 + ' IHN1 + OH --> IEPOXD + NO2 ', & ! index 578 + ' IHN1 + OH --> IDHNDOO1 ', & ! index 579 + ' IHN4 + OH --> IEPOXD + NO2 ', & ! index 580 + ' IHN4 + OH --> IDHNDOO2 ', & ! index 581 + ' 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 + 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 + 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 + 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 + 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 = (/ & - ' MCT + OH --> 1.05 AROMP4 + 0.3 BENZO + 0.7 AROMRO2 ', & ! index 601 - ' MCT + O3 --> LOx + AROMP4 + GLYC + HO2 + OH ', & ! index 602 - ' MCT + NO3 --> 1.5 LOx + 0.3 AROMP4 + 0.3 BENZO + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3 ', & ! index 603 - ' BALD + OH --> BZCO3 ', & ! index 604 - ' BALD + NO3 --> LOx + BZCO3 + HNO3 ', & ! index 605 - ' BZCO3 + HO2 --> 0.35 CO2 + 0.15 POx + 0.65 BZCO3H + 0.15 BENZP + 0.2 BENZO2 + 0.15 O3 + 0.2 OH', & ! index 606 - ' BZCO3 + NO --> CO2 + POx + BENZO2 + NO2 ', & ! index 607 - ' BZCO3 + NO2 --> LOx + BZPAN ', & ! index 608 - ' BZCO3H + OH --> BZCO3 ', & ! index 609 - ' BZPAN --> POx + BZCO3 + NO2 ', & ! index 610 - ' BZPAN + OH --> CO2 + POx + BENZP + NO2 ', & ! index 611 - ' BENZO2 + NO2 --> POx + BENZO + NO3 ', & ! index 612 - ' BENZO2 + NO --> POx + BENZO + NO2 ', & ! index 613 - ' BENZO2 + NO3 --> LOx + BENZO + NO2 ', & ! index 614 - ' BENZO2 + HO2 --> BENZP ', & ! index 615 - ' BENZP + OH --> BENZO2 ', & ! index 616 - ' BENZO + O3 --> LOx + BENZO2 ', & ! index 617 - ' BENZO + NO2 --> LOx + NPHEN ', & ! index 618 - ' NPHEN + OH --> POx + 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.15 CO + 0.5 NO2 ', & ! index 619 - ' NPHEN + NO3 --> 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.5 HNO3 + 0.15 CO + NO2 ', & ! index 620 - ' BENZO2 + MO2 --> BENZO + CH2O + HO2 ', & ! index 621 - ' BZCO3 + MO2 --> CO2 + BENZO2 + CH2O + HO2 ', & ! index 622 - ' AROMP4 + OH --> 0.26 PCO + 0.26 HCOOH + 0.6 GLYX + 0.33 RCO3 + 0.26 CO + 0.33 HO2 + 0.... etc.', & ! index 623 - ' AROMP4 + O3 --> LOx + 0.5 PCO + 0.5 HCOOH + 0.6 GLYX + 0.9 GLYC + 0.5 CO + 0.1 HO2 + 0.1 OH ', & ! index 624 - ' AROMP4 --> 0.2 GLYX + 1.2 RCHO + 0.2 HO2 ', & ! index 625 - ' AROMP5 + OH --> 0.25 PCO + 0.1 HCOOH + 0.15 ACTA + 0.6 MGLY + 0.33 RCO3 + 0.25 CO + 0.... etc.', & ! index 626 - ' AROMP5 + O3 --> LOx + 0.5 PCO + 0.2 HCOOH + 0.3 ACTA + 0.6 MGLY + 0.95 GLYC + 0.5 CO +... etc.', & ! index 627 - ' AROMP5 --> 0.05 PCO + 0.2 MGLY + 0.2 R4O2 + 1.15 RCHO + 0.05 CO + 0.2 HO2 ', & ! index 628 - ' BRO2 + HO2 --> LBRO2H + HO2 ', & ! index 629 - ' BRO2 + NO --> LBRO2N + NO ' /) ! index up to 630 + ' 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 + ' 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 + ' 2 INO2D --> 0.34 INA + 0.127 IHN4 + 0.671 IHN1 + 0.862 ICN + 0.064 HO2 ', & ! index 608 + ' INO2D + MO2 --> 0.244 INA + 0.057 IHN4 + 0.298 IHN1 + 0.355 MOH + 0.401 ICN + 0.645 CH... etc.', & ! index 609 + ' INO2B + MO2 --> 0.355 INPB + 0.034 MOH + 0.034 ICN + 0.028 MACR + 0.583 MVK + 1.577 CH... etc.', & ! index 610 + ' 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 + ' 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 + IDN ', & ! index 618 + ' INA + O2 --> ICN + HO2 ', & ! index 619 + ' INA --> IDHNBOO ', & ! index 620 + ' INPB + OH --> 0.67 IHPNBOO + 0.33 IDHNBOO ', & ! index 621 + ' INPD + OH --> IHPNDOO ', & ! index 622 + ' INPB + OH --> ITHN + OH ', & ! index 623 + ' INPD + OH --> ITHN + OH ', & ! index 624 + ' INPD + OH --> ICHE + NO2 ', & ! index 625 + ' INPB + OH --> INO2B ', & ! index 626 + ' INPD + OH --> INO2D ', & ! index 627 + ' INPD + OH --> ICN + OH ', & ! index 628 + ' IHPNDOO --> ITCN + OH ', & ! index 629 + ' IHPNBOO --> 0.5 ITCN + 0.5 ITHN + OH ' /) ! index up to 630 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ & - ' TRO2 + HO2 --> LTRO2H + HO2 ', & ! index 631 - ' TRO2 + NO --> LTRO2N + NO ', & ! index 632 - ' XRO2 + HO2 --> LXRO2H + HO2 ', & ! index 633 - ' XRO2 + NO --> LXRO2N + NO ', & ! index 634 - ' MO2 + NO3 --> LOx + CH2O + HO2 + NO2 ', & ! index 635 - ' FURA + OH --> BUTDI ', & ! index 636 - ' HO2 --> H2O ', & ! index 637 - ' NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3 ', & ! index 638 - ' NO3 --> LOx + HNO3 ', & ! index 639 - ' NO3 --> LOx + NIT ', & ! index 640 - ' NO3 --> LOx + NITs ', & ! index 641 - ' N2O5 + H2O --> LOx + 2 HNO3 ', & ! index 642 - ' N2O5 + HCl --> LOx + ClNO2 + HNO3 ', & ! index 643 - ' N2O5 --> LOx + 2 HNO3 ', & ! index 644 - ' N2O5 + SALACL --> LOx + ClNO2 + HNO3 ', & ! index 645 - ' N2O5 + SALCCL --> LOx + ClNO2 + HNO3 ', & ! index 646 - ' SALACL + OH --> 0.5 Cl2 ', & ! index 647 - ' OH + SALCCL --> 0.5 Cl2 ', & ! index 648 - ' BrNO3 + H2O --> HOBr + HNO3 ', & ! index 649 - ' BrNO3 + HCl --> LOx + BrCl + HNO3 ', & ! index 650 - ' ClNO3 + H2O --> HNO3 + HOCl ', & ! index 651 - ' ClNO3 + HCl --> LOx + Cl2 + HNO3 ', & ! index 652 - ' ClNO3 + HBr --> LOx + BrCl + HNO3 ', & ! index 653 - ' ClNO3 + BrSALA --> LOx + BrCl + HNO3 ', & ! index 654 - ' ClNO3 + BrSALC --> LOx + BrCl + HNO3 ', & ! index 655 - ' ClNO3 + SALACL --> LOx + Cl2 + HNO3 ', & ! index 656 - ' ClNO3 + SALCCL --> LOx + Cl2 + HNO3 ', & ! index 657 - ' ClNO2 + SALACL --> LOx + HNO2 + Cl2 ', & ! index 658 - ' ClNO2 + SALCCL --> LOx + HNO2 + Cl2 ', & ! index 659 - ' ClNO2 + HCl --> LOx + HNO2 + Cl2 ' /) ! index up to 660 + ' IHPNBOO + HO2 --> 0.249 HPETHNL + 0.06 MCRHNB + 0.009 ATOOH + 0.589 PROPNN + 0.051 ETHLN... etc.', & ! index 631 + ' IHPNDOO + HO2 --> 0.471 HPETHNL + 0.073 MCRHNB + 0.054 ATOOH + 0.471 PROPNN + 0.054 ETHL... etc.', & ! index 632 + ' IHPNBOO + NO --> POx + 0.303 HPETHNL + 0.17 MCRHNB + 0.013 ATOOH + 0.687 PROPNN + 0.064... etc.', & ! index 633 + ' IHPNBOO + NO --> POx + IDN ', & ! index 634 + ' IHPNDOO + NO --> POx + 0.59 HPETHNL + 0.291 MCRHNB + 0.07 ATOOH + 0.59 PROPNN + 0.07 ET... etc.', & ! index 635 + ' IHPNDOO + NO --> POx + IDN ', & ! index 636 + ' ICN + OH --> ICHE + NO2 ', & ! index 637 + ' ICN + OH --> 0.539 PCO + 0.461 ICNOO + 0.378 MCRHNB + 0.161 MVKN + 0.539 CO + 0.295... etc.', & ! index 638 + ' 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 + ' 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 + ' MACR + OH --> MACR1OO ', & ! index 647 + ' MACR + O3 --> LOx + 0.12 PCO + 0.88 MGLY + 0.88 CH2OO + 0.12 MCO3 + 0.12 CH2O + 0.12... etc.', & ! index 648 + ' MACR + NO3 --> LOx + 0.68 PCO + 0.68 PROPNN + 0.32 MACR1OO + 0.32 HNO3 + 0.68 CO + 0.68 OH ', & ! index 649 + ' MVKN + OH --> 0.69 POx + 0.241 PYAC + 0.29 MVKHCB + 0.449 HCOOH + 0.449 MGLY + 0.04 ... etc.', & ! index 650 + ' MVKHP + OH --> 0.53 MVKHC + 0.47 MVKHCB + OH ', & ! index 651 + ' MCRHP + OH --> 0.23 CO2 + 0.77 PCO + 0.23 ATOOH + 0.77 HAC + 0.77 CO + OH ', & ! index 652 + ' MCRHN + OH --> MACRNO2 ', & ! index 653 + ' MCRHNB + OH --> 0.75 CO2 + 0.25 PCO + PROPNN + 0.25 CO + OH ', & ! index 654 + ' C4HVP1 + NO --> POx + MVKOHOO + NO2 ', & ! index 655 + ' C4HVP1 + HO2 --> MVKOHOO + OH ', & ! index 656 + ' C4HVP1 + NO2 --> MVKN ', & ! index 657 + ' C4HVP2 + NO --> POx + MCROHOO + NO2 ', & ! index 658 + ' C4HVP2 + HO2 --> MCROHOO + OH ', & ! index 659 + ' C4HVP2 + NO2 --> MCRHN ' /) ! index up to 660 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ & - ' ClNO2 + BrSALA --> LOx + BrCl + HNO2 ', & ! index 661 - ' ClNO2 + BrSALC --> LOx + BrCl + HNO2 ', & ! index 662 - ' ClNO2 + HBr --> LOx + BrCl + HNO2 ', & ! index 663 - ' HOCl + HCl --> LOx + Cl2 + H2O ', & ! index 664 - ' HOCl + HBr --> LOx + BrCl + H2O ', & ! index 665 - ' HOCl + SALACL --> LOx + Cl2 + H2O ', & ! index 666 - ' HOCl + SALCCL --> LOx + Cl2 + H2O ', & ! index 667 - ' HOCl + SO2 --> LOx + PSO4 + SO4 + HCl ', & ! index 668 - ' HOBr + HBr --> LOx + Br2 + H2O ', & ! index 669 - ' HOBr + HCl --> LOx + BrCl + H2O ', & ! index 670 - ' HOBr + SALACL --> LOx + BrCl + H2O ', & ! index 671 - ' HOBr + SALCCL --> LOx + BrCl + H2O ', & ! index 672 - ' HOBr + BrSALA --> LOx + Br2 ', & ! index 673 - ' HOBr + BrSALC --> LOx + Br2 ', & ! index 674 - ' HOBr + SO2 --> LOx + PSO4 + SO4 + HBr ', & ! index 675 - ' O3 + HBr --> HOBr ', & ! index 676 - ' O3 + BrSALA --> HOBr ', & ! index 677 - ' BrSALC + O3 --> HOBr ', & ! index 678 - ' HBr --> BrSALA ', & ! index 679 - ' HBr --> BrSALC ', & ! index 680 - ' HI --> AERI ', & ! index 681 - ' HI --> ISALA ', & ! index 682 - ' HI --> ISALC ', & ! index 683 - ' HOI --> ISALA + LOx ', & ! index 684 - ' HOI --> ISALC + LOx ', & ! index 685 - ' I2O2 --> 2 AERI + 2 LOx ', & ! index 686 - ' I2O2 --> 2 ISALA + 2 LOx ', & ! index 687 - ' I2O2 --> 2 ISALC + 2 LOx ', & ! index 688 - ' I2O3 --> 2 AERI + 3 LOx ', & ! index 689 - ' I2O3 --> 2 ISALA + 3 LOx ' /) ! index up to 690 + ' MCRENOL + OH --> 0.097 CO2 + 0.75 PCO + 0.653 PYAC + 0.063 MVKHCB + 0.187 HCOOH + 0.187... etc.', & ! index 661 + ' MVKPC + OH --> PCO + MGLY + CO + OH ', & ! index 662 + ' MVKDH + OH --> 0.6 MVKHC + 0.4 MVKHCB + HO2 ', & ! index 663 + ' MVKHCB + OH --> PCO + MGLY + CO + OH ', & ! index 664 + ' 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 + 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 + 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 + 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 + ' 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 + ' ICPDH + OH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 0.5 HO2 + 0.5 OH ', & ! index 686 + ' IDCHP + OH --> 0.888 PCO + 0.444 MVKPC + 0.318 MVKHC + 0.126 MVKHCB + 0.032 IEPOXBOO ... etc.', & ! index 687 + ' IDHDP + OH --> 0.667 IDHPE + 0.333 ICPDH + OH ', & ! index 688 + ' IDHPE + OH --> CO2 + 0.571 MCRHP + 0.429 MVKHP + OH ', & ! index 689 + ' ITCN + OH --> PCO + 0.25 MCRHP + 0.75 MVKHP + CO + NO2 ' /) ! index up to 690 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_23 = (/ & - ' I2O3 --> 2 ISALC + 3 LOx ', & ! index 691 - ' I2O4 --> 2 AERI + 4 LOx ', & ! index 692 - ' I2O4 --> 2 ISALA + 4 LOx ', & ! index 693 - ' I2O4 --> 2 ISALC + 4 LOx ', & ! index 694 - ' IONO --> ISALA + LOx + HNO2 ', & ! index 695 - ' IONO --> ISALC + LOx + HNO2 ', & ! index 696 - ' IONO2 --> ISALA + LOx + HNO3 ', & ! index 697 - ' IONO2 --> ISALC + LOx + HNO3 ', & ! index 698 - ' IONO2 + H2O --> HNO3 + HOI ', & ! index 699 - ' IONO + BrSALA --> LOx + IBr + HNO2 ', & ! index 700 - ' IONO + BrSALC --> LOx + IBr + HNO2 ', & ! index 701 - ' IONO + SALACL --> LOx + ICl + HNO2 ', & ! index 702 - ' IONO + SALCCL --> LOx + ICl + HNO2 ', & ! index 703 - ' IONO2 + BrSALA --> LOx + IBr + HNO3 ', & ! index 704 - ' IONO2 + BrSALC --> LOx + IBr + HNO3 ', & ! index 705 - ' IONO2 + SALACL --> LOx + ICl + HNO3 ', & ! index 706 - ' IONO2 + SALCCL --> LOx + ICl + HNO3 ', & ! index 707 - ' HOI + BrSALA --> LOx + IBr ', & ! index 708 - ' HOI + BrSALC --> LOx + IBr ', & ! index 709 - ' HOI + SALACL --> LOx + ICl ', & ! index 710 - ' HOI + SALCCL --> LOx + ICl ', & ! index 711 - ' GLYX --> SOAGX ', & ! index 712 - ' MGLY --> 1.5 SOAGX ', & ! index 713 - ' IEPOXA --> SOAIE ', & ! index 714 - ' IEPOXB --> SOAIE ', & ! index 715 - ' IEPOXD --> SOAIE ', & ! index 716 - ' LVOC --> LVOCOA ', & ! index 717 - ' MVKN --> LOx + IONITA ', & ! index 718 - ' R4N2 --> LOx + IONITA ', & ! index 719 - ' MONITS --> LOx + MONITA ' /) ! index up to 720 + ' ITHN + OH --> 0.041 ICNOO + 0.022 MCRENOL + 0.9 ITCN + 0.037 IDHNBOO + 0.022 CH2O + ... etc.', & ! index 691 + ' 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 + ' HPETHNL + OH --> PCO + CH2O + CO + OH ', & ! index 696 + ' HPETHNL + OH --> GLYX + OH ', & ! index 697 + ' NAP + OH --> NRO2 + OH ', & ! index 698 + ' NRO2 + HO2 --> LNRO2H + HO2 ', & ! index 699 + ' NRO2 + NO --> LNRO2N + NO ', & ! index 700 + ' RCOOH + OH --> CO2 + ETO2 + H2O ', & ! index 701 + ' STYR + OH --> 0.3 ZRO2 + 0.7 BALD + 0.7 AROMRO2 + CH2O + 0.7 HO2 ', & ! index 702 + ' STYR + NO3 --> LOx + BALD + AROMRO2 + CH2O + NO2 ', & ! index 703 + ' STYR + O3 --> LOx + 0.18 PCO + 0.1 BENZ + 0.62 BALD + 0.28 BENZO2 + 0.5 CH2OO + 0.5 ... etc.', & ! index 704 + ' EBZ + OH --> 0.18 CSL + 0.07 ZRO2 + 0.4 AROMP5 + 0.8 AROMP4 + 0.813 AROMRO2 + 0.25 ... etc.', & ! index 705 + ' 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 + HO2 --> BALD + OH ', & ! index 710 + ' RNO3 + OH --> POx + BALD + NO2 + HO2 ', & ! 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 + ' ETOO + HO2 --> ETHP ', & ! index 715 + ' ETOO + NO --> 0.995 POx + 0.005 ETHN + 0.995 ETO + 0.995 NO2 ', & ! index 716 + ' ETOO + NO3 --> LOx + ETO + NO2 ', & ! index 717 + ' ETOO + MO2 --> 0.6 ETO + 0.2 ETHP + 0.2 MOH + 0.2 GLYC + 0.8 CH2O + 0.6 HO2 ', & ! index 718 + ' ETO --> 2 CH2O + HO2 ', & ! index 719 + ' ETO + O2 --> GLYC + HO2 ' /) ! index up to 720 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_24 = (/ & - ' MONITU --> LOx + MONITA ', & ! index 721 - ' HONIT --> LOx + MONITA ', & ! index 722 - ' PYAC --> 1.5 SOAGX ', & ! index 723 - ' HMML --> 0.8 SOAIE ', & ! index 724 - ' IHN1 --> LOx + IONITA ', & ! index 725 - ' IHN2 --> LOx + IONITA ', & ! index 726 - ' IHN3 --> LOx + IONITA ', & ! index 727 - ' IHN4 --> LOx + IONITA ', & ! index 728 - ' ICHE --> SOAIE ', & ! index 729 - ' INPD --> LOx + IONITA ', & ! index 730 - ' INPB --> LOx + IONITA ', & ! index 731 - ' IDN --> 2 LOx + IONITA ', & ! index 732 - ' ITCN --> LOx + IONITA ', & ! index 733 - ' ITHN --> LOx + IONITA ', & ! index 734 - ' MCRHNB --> LOx + IONITA ', & ! index 735 - ' MCRHN --> LOx + IONITA ', & ! index 736 - ' NPHEN --> AONITA ', & ! index 737 - ' O3 --> O + O2 ', & ! index 738 - ' O3 --> O1D + O2 ', & ! index 739 - ' O2 --> 2 POx + 2 O ', & ! index 740 - ' NO2 --> NO + O ', & ! index 741 - ' H2O2 --> 2 OH ', & ! index 742 - ' MP --> CH2O + HO2 + OH ', & ! index 743 - ' CH2O --> PCO + H + CO + HO2 ', & ! index 744 - ' CH2O --> PCO + CO + H2 ', & ! index 745 - ' HNO3 --> OH + NO2 ', & ! index 746 - ' HNO2 --> NO + OH ', & ! index 747 - ' HNO4 --> POx + NO3 + OH ', & ! index 748 - ' HNO4 --> HO2 + NO2 ', & ! index 749 - ' NO3 --> O + NO2 ' /) ! index up to 750 + ' ETHN + OH --> POx + GLYC + NO2 ', & ! index 721 + ' ETHP + OH --> ETOO ', & ! index 722 + ' ETHP + OH --> GLYC + OH ', & ! index 723 + ' BENZ + OH --> BRO2 + 0.2 PCO + 0.54 PHEN + 0.55 AROMP4 + 0.46 AROMRO2 + 0.18 GLYX + ... etc.', & ! index 724 + ' 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 + 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 + 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 + NO2 --> LOx + AROMPN ', & ! index 738 + ' AROMPN --> POx + AROMCO3 + NO2 ', & ! index 739 + ' AROMPN + OH --> POx + 2 PCO + MCO3 + CH2O + 2 CO + NO2 ', & ! index 740 + ' PHEN + OH --> 0.8 MCT + 0.06 BENZO + 0.18 AROMP4 + 0.14 AROMRO2 + 0.06 GLYX + 0.8 HO2 ', & ! index 741 + ' PHEN + NO3 --> 1.258 LOx + 0.742 BENZO + 0.258 NPHEN + 0.742 HNO3 ', & ! index 742 + ' CSL + OH --> 0.44 AROMP5 + 0.727 MCT + 0.073 BENZO + 0.2 AROMRO2 + 0.727 HO2 ', & ! index 743 + ' CSL + NO3 --> 1.5 LOx + 0.44 AROMP5 + 0.3 BENZO + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3 ', & ! index 744 + ' MCT + OH --> 0.3 BENZO + 1.05 AROMP4 + 0.7 AROMRO2 ', & ! index 745 + ' MCT + O3 --> LOx + AROMP4 + GLYC + HO2 + OH ', & ! index 746 + ' 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 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ & - ' NO3 --> 2 LOx + NO + O2 ', & ! index 751 - ' N2O5 --> NO3 + NO2 ', & ! index 752 - ' ALD2 --> 0.88 PCO + 0.12 MCO3 + 0.88 MO2 + 0.88 CO + HO2 ', & ! index 753 - ' ALD2 --> PCO + CH4 + CO ', & ! index 754 - ' PAN --> 0.3 CO2 + 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.3 NO3 + 0.7 NO2 ', & ! index 755 - ' RCHO --> PCO + 0.07 A3O2 + 0.49 OTHRO2 + 0.27 B3O2 + CO + HO2 ', & ! index 756 - ' ACET --> MCO3 + MO2 ', & ! index 757 - ' ACET --> PCO + 2 MO2 + CO ', & ! index 758 - ' MEK --> 0.06 A3O2 + 0.415 OTHRO2 + 0.15 RCO3 + 0.23 B3O2 + 0.85 MCO3 + 0.15 MO2 ', & ! index 759 - ' GLYC --> PCO + 0.1 MOH + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH ', & ! index 760 - ' GLYX --> 2 PCO + 2 CO + 2 HO2 ', & ! index 761 - ' GLYX --> 2 PCO + 2 CO + H2 ', & ! index 762 - ' GLYX --> PCO + CH2O + CO ', & ! index 763 - ' MGLY --> PCO + MCO3 + CO + HO2 ', & ! index 764 - ' MVK --> PCO + PRPE + CO ', & ! index 765 - ' MVK --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 766 - ' MVK --> RCO3 + MO2 ', & ! index 767 - ' MACR --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 768 - ' HAC --> MCO3 + CH2O + HO2 ', & ! index 769 - ' PRPN --> RCHO + HO2 + OH + NO2 ', & ! index 770 - ' ETP --> ALD2 + HO2 + OH ', & ! index 771 - ' RA3P --> RCHO + HO2 + OH ', & ! index 772 - ' RB3P --> ACET + HO2 + OH ', & ! index 773 - ' R4P --> 1.5 RCHO + HO2 + OH ', & ! index 774 - ' PP --> CH2O + ALD2 + HO2 + OH ', & ! index 775 - ' RP --> ALD2 + MO2 + HO2 + OH ', & ! index 776 - ' R4N2 --> 0.34 ACET + 0.19 MEK + 0.05 A3O2 + 0.34 OTHRO2 + 0.19 B3O2 + 0.15 RCHO... etc.', & ! index 777 - ' MAP --> CO2 + MO2 + OH ', & ! index 778 - ' Br2 --> 2 Br ', & ! index 779 - ' BrO --> Br + O ' /) ! index up to 780 + ' BZCO3 + NO --> CO2 + POx + BENZO2 + NO2 ', & ! index 751 + ' BZCO3 + NO2 --> LOx + BZPAN ', & ! index 752 + ' BZCO3H + OH --> BZCO3 ', & ! index 753 + ' BZPAN --> POx + BZCO3 + NO2 ', & ! index 754 + ' BZPAN + OH --> CO2 + POx + BENZP + NO2 ', & ! index 755 + ' BENZO2 + NO2 --> POx + BENZO + NO3 ', & ! index 756 + ' BENZO2 + NO --> POx + BENZO + NO2 ', & ! index 757 + ' BENZO2 + NO3 --> LOx + BENZO + NO2 ', & ! index 758 + ' BENZO2 + HO2 --> BENZP ', & ! index 759 + ' BENZP + OH --> BENZO2 ', & ! index 760 + ' BENZO + O3 --> LOx + BENZO2 ', & ! index 761 + ' BENZO + NO2 --> LOx + NPHEN ', & ! index 762 + ' NPHEN + OH --> POx + 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.15 CO + 0.5 NO2 ', & ! index 763 + ' NPHEN + NO3 --> 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.5 HNO3 + 0.15 CO + NO2 ', & ! index 764 + ' BENZO2 + MO2 --> BENZO + CH2O + HO2 ', & ! index 765 + ' BZCO3 + MO2 --> CO2 + BENZO2 + CH2O + HO2 ', & ! index 766 + ' AROMP4 + OH --> 0.26 PCO + 0.43 RCOOH + 0.26 HCOOH + 0.6 GLYX + 0.33 RCO3 + 0.26 CO + ... etc.', & ! index 767 + ' AROMP4 + O3 --> LOx + 0.5 PCO + 0.5 HCOOH + 0.6 GLYX + 0.9 GLYC + 0.5 CO + 0.1 HO2 + 0.1 OH ', & ! index 768 + ' AROMP4 --> 0.2 GLYX + 1.2 RCHO + 0.2 HO2 ', & ! index 769 + ' AROMP5 + OH --> 0.25 PCO + 0.52 RCOOH + 0.1 HCOOH + 0.15 ACTA + 0.6 MGLY + 0.33 RCO3 +... etc.', & ! index 770 + ' AROMP5 + O3 --> LOx + 0.5 PCO + 0.2 HCOOH + 0.3 ACTA + 0.6 MGLY + 0.95 GLYC + 0.5 CO +... etc.', & ! index 771 + ' AROMP5 --> 0.05 PCO + 0.2 MGLY + 1.15 RCHO + 0.2 ALK4O2 + 0.05 CO + 0.2 HO2 ', & ! index 772 + ' BRO2 + HO2 --> LBRO2H + HO2 ', & ! index 773 + ' BRO2 + NO --> LBRO2N + NO ', & ! index 774 + ' TRO2 + HO2 --> LTRO2H + HO2 ', & ! index 775 + ' 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 + ' FURA + OH --> BUTDI ' /) ! index up to 780 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ & - ' HOBr --> LOx + Br + OH ', & ! index 781 - ' BrNO3 --> Br + NO3 ', & ! index 782 - ' BrNO3 --> BrO + NO2 ', & ! index 783 - ' BrNO2 --> Br + NO2 ', & ! index 784 - ' CHBr3 --> 3 Br ', & ! index 785 - ' CH2Br2 --> 2 Br ', & ! index 786 - ' CH3Br --> MO2 + Br ', & ! index 787 - ' CH3Cl --> MO2 + Cl ', & ! index 788 - ' CH2Cl2 --> 2 Cl ', & ! index 789 - ' BrCl --> Br + Cl ', & ! index 790 - ' Cl2 --> 2 Cl ', & ! index 791 - ' ClO --> O + Cl ', & ! index 792 - ' OClO --> ClO + O ', & ! index 793 - ' Cl2O2 --> 2 LOx + ClOO + Cl ', & ! index 794 - ' ClNO2 --> Cl + NO2 ', & ! index 795 - ' ClNO3 --> NO3 + Cl ', & ! index 796 - ' ClNO3 --> ClO + NO2 ', & ! index 797 - ' HOCl --> LOx + OH + Cl ', & ! index 798 - ' CH3CCl3 --> 3 Cl ', & ! index 799 - ' CCl4 --> 4 Cl ', & ! index 800 - ' CFC11 --> 3 Cl ', & ! index 801 - ' CFC12 --> 2 Cl ', & ! index 802 - ' CFC113 --> 3 Cl ', & ! index 803 - ' CFC114 --> 2 Cl ', & ! index 804 - ' CFC115 --> Cl ', & ! index 805 - ' HCFC123 --> 2 Cl ', & ! index 806 - ' HCFC141b --> 2 Cl ', & ! index 807 - ' HCFC142b --> Cl ', & ! index 808 - ' HCFC22 --> Cl ', & ! index 809 - ' H1301 --> Br ' /) ! index up to 810 + ' HO2 --> H2O ', & ! index 781 + ' NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3 ', & ! index 782 + ' NO3 --> LOx + HNO3 ', & ! index 783 + ' NO3 --> LOx + NIT ', & ! index 784 + ' NO3 --> LOx + NITs ', & ! index 785 + ' N2O5 + H2O --> LOx + 2 HNO3 ', & ! index 786 + ' N2O5 + HCl --> LOx + ClNO2 + HNO3 ', & ! index 787 + ' 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 + ' BrNO3 + H2O --> HOBr + HNO3 ', & ! index 793 + ' BrNO3 + HCl --> LOx + BrCl + HNO3 ', & ! index 794 + ' ClNO3 + H2O --> HNO3 + HOCl ', & ! index 795 + ' ClNO3 + HCl --> LOx + Cl2 + HNO3 ', & ! index 796 + ' ClNO3 + HBr --> LOx + BrCl + HNO3 ', & ! index 797 + ' ClNO3 + BrSALA --> LOx + BrCl + HNO3 ', & ! index 798 + ' ClNO3 + BrSALC --> LOx + BrCl + HNO3 ', & ! index 799 + ' ClNO3 + SALACL --> LOx + Cl2 + HNO3 ', & ! index 800 + ' ClNO3 + SALCCL --> LOx + Cl2 + HNO3 ', & ! index 801 + ' ClNO2 + SALACL --> LOx + HNO2 + Cl2 ', & ! index 802 + ' ClNO2 + SALCCL --> LOx + HNO2 + Cl2 ', & ! index 803 + ' ClNO2 + HCl --> LOx + HNO2 + Cl2 ', & ! index 804 + ' ClNO2 + BrSALA --> LOx + BrCl + HNO2 ', & ! index 805 + ' ClNO2 + BrSALC --> LOx + BrCl + HNO2 ', & ! index 806 + ' ClNO2 + HBr --> LOx + BrCl + HNO2 ', & ! index 807 + ' HOCl + HCl --> LOx + Cl2 + H2O ', & ! index 808 + ' HOCl + HBr --> LOx + BrCl + H2O ', & ! index 809 + ' HOCl + SALACL --> LOx + Cl2 + H2O ' /) ! index up to 810 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_27 = (/ & - ' H1211 --> Br + Cl ', & ! index 811 - ' H2402 --> 2 Br ', & ! index 812 - ' ClOO --> Cl + O2 ', & ! index 813 - ' I2 --> 2 I ', & ! index 814 - ' HOI --> LOx + I + OH ', & ! index 815 - ' IO --> I + O ', & ! index 816 - ' OIO --> 2 LOx + I + O2 ', & ! index 817 - ' INO --> I + NO ', & ! index 818 - ' IONO --> I + NO2 ', & ! index 819 - ' IONO2 --> I + NO3 ', & ! index 820 - ' I2O2 --> OIO + I ', & ! index 821 - ' CH3I --> I ', & ! index 822 - ' CH2I2 --> 2 I ', & ! index 823 - ' CH2ICl --> I + Cl ', & ! index 824 - ' CH2IBr --> I + Br ', & ! index 825 - ' I2O4 --> 2 OIO ', & ! index 826 - ' I2O3 --> OIO + IO ', & ! index 827 - ' IBr --> I + Br ', & ! index 828 - ' ICl --> I + Cl ', & ! index 829 - ' MPN --> POx + CH2O + NO3 + HO2 ', & ! index 830 - ' MPN --> MO2 + NO2 ', & ! index 831 - ' ATOOH --> MCO3 + CH2O + OH ', & ! index 832 - ' N2O --> POx + O1D + N2 ', & ! index 833 - ' OCS --> PCO + CO + SO2 ', & ! index 834 - ' SO4 --> SO2 + 2 OH ', & ! index 835 - ' NO --> POx + N + O ', & ! index 836 - ' PIP --> RCHO + HO2 + OH ', & ! index 837 - ' ETHLN --> PCO + CH2O + CO + HO2 + NO2 ', & ! index 838 - ' MONITS --> MEK + NO2 ', & ! index 839 - ' MONITU --> RCHO + NO2 ' /) ! index up to 840 + ' HOCl + SALCCL --> LOx + Cl2 + H2O ', & ! index 811 + ' HOCl + SO2 --> LOx + PSO4 + SO4 + HCl ', & ! index 812 + ' HOBr + HBr --> LOx + Br2 + H2O ', & ! index 813 + ' HOBr + HCl --> LOx + BrCl + H2O ', & ! index 814 + ' HOBr + SALACL --> LOx + BrCl + H2O ', & ! index 815 + ' HOBr + SALCCL --> LOx + BrCl + H2O ', & ! index 816 + ' 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 --> BrSALA ', & ! index 823 + ' HBr --> BrSALC ', & ! index 824 + ' HI --> AERI ', & ! index 825 + ' HI --> ISALA ', & ! index 826 + ' HI --> ISALC ', & ! index 827 + ' HOI --> ISALA + LOx ', & ! index 828 + ' HOI --> ISALC + LOx ', & ! index 829 + ' I2O2 --> 2 AERI + 2 LOx ', & ! index 830 + ' I2O2 --> 2 ISALA + 2 LOx ', & ! index 831 + ' I2O2 --> 2 ISALC + 2 LOx ', & ! index 832 + ' I2O3 --> 2 AERI + 3 LOx ', & ! index 833 + ' I2O3 --> 2 ISALA + 3 LOx ', & ! index 834 + ' I2O3 --> 2 ISALC + 3 LOx ', & ! index 835 + ' I2O4 --> 2 AERI + 4 LOx ', & ! index 836 + ' I2O4 --> 2 ISALA + 4 LOx ', & ! index 837 + ' I2O4 --> 2 ISALC + 4 LOx ', & ! index 838 + ' IONO --> ISALA + LOx + HNO2 ', & ! index 839 + ' IONO --> ISALC + LOx + HNO2 ' /) ! index up to 840 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_28 = (/ & - ' HONIT --> HAC + NO2 ', & ! index 841 - ' NITs --> LOx + HNO2 ', & ! index 842 - ' NITs --> NO2 ', & ! index 843 - ' NIT --> LOx + HNO2 ', & ! index 844 - ' NIT --> NO2 ', & ! index 845 - ' MENO3 --> POx + CH2O + HO2 + NO2 ', & ! index 846 - ' ETNO3 --> POx + ALD2 + HO2 + NO2 ', & ! index 847 - ' IPRNO3 --> POx + ACET + HO2 + NO2 ', & ! index 848 - ' NPRNO3 --> POx + RCHO + HO2 + NO2 ', & ! index 849 - ' HMHP --> CH2O + 2 OH ', & ! index 850 - ' HPETHNL --> PCO + CH2O + CO + HO2 + OH ', & ! index 851 - ' PYAC --> CO2 + MCO3 + HO2 ', & ! index 852 - ' PROPNN --> MCO3 + CH2O + NO2 ', & ! index 853 - ' MVKHC --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 854 - ' MVKHCB --> 0.5 PCO + 0.5 GLYX + 0.5 MGLY + 0.5 MCO3 + 0.5 CO + 1.5 HO2 ', & ! index 855 - ' MVKHP --> 0.47 MGLY + 0.53 GLYC + 0.53 MCO3 + 0.47 CH2O + 0.47 HO2 + OH ', & ! index 856 - ' MVKPC --> 0.571 PCO + 0.429 GLYX + 0.571 MGLY + 0.429 MCO3 + 0.571 CO + 0.571 HO2 + OH ', & ! index 857 - ' MCRENOL --> 0.875 PCO + 0.75 PYAC + 0.125 GLYX + 0.125 MGLY + 0.125 MCO3 + 0.875 C... etc.', & ! index 858 - ' MCRHP --> 0.77 PCO + 0.23 MGLY + 0.77 HAC + 0.23 CH2O + 0.77 CO + HO2 + OH ', & ! index 859 - ' MACR1OOH --> 1.238 CO2 + 0.25 MACR1OOH + 0.262 MCO3 + 0.75 CH2O + 0.488 MO2 + 0.75 OH ', & ! index 860 - ' MVKN --> 0.3 ETHLN + 0.69 GLYC + 1.01 MCO3 + 0.29 HO2 + 0.01 OH + 0.7 NO2 ', & ! index 861 - ' MCRHN --> PCO + HAC + CO + HO2 + NO2 ', & ! index 862 - ' MCRHNB --> PCO + PROPNN + CO + HO2 + OH ', & ! index 863 - ' RIPA --> MVK + CH2O + HO2 + OH ', & ! index 864 - ' RIPB --> MACR + CH2O + HO2 + OH ', & ! index 865 - ' RIPC --> HC5A + HO2 + OH ', & ! index 866 - ' RIPD --> HC5A + HO2 + OH ', & ! index 867 - ' HPALD1 --> 0.888 PCO + 0.112 IDC + 0.224 C4HVP1 + 0.112 MVKPC + 0.552 MCRENOL + 0... etc.', & ! index 868 - ' HPALD2 --> 0.818 PCO + 0.182 IDC + 0.182 C4HVP2 + 0.182 MVKPC + 0.454 MCRENOL + 0... etc.', & ! index 869 - ' HPALD3 --> PCO + MVK + CO + HO2 + OH ' /) ! index up to 870 - CHARACTER(LEN=100), PARAMETER, DIMENSION(24) :: EQN_NAMES_29 = (/ & - ' HPALD4 --> PCO + MACR + CO + HO2 + OH ', & ! index 871 - ' IHN1 --> 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 872 - ' IHN2 --> MVK + CH2O + HO2 + NO2 ', & ! index 873 - ' IHN3 --> MACR + CH2O + HO2 + NO2 ', & ! index 874 - ' IHN4 --> 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 875 - ' INPB --> 0.903 MVK + 0.097 MACR + CH2O + 0.33 HO2 + 0.67 OH + NO2 ', & ! index 876 - ' INPD --> 0.841 INA + 0.159 ICN + 0.159 HO2 + OH ', & ! index 877 - ' INPD --> 0.159 IHOO4 + 0.841 IHOO1 + NO2 ', & ! index 878 - ' ICN --> 0.839 PCO + 0.161 IDC + 0.068 C4HVP1 + 0.128 C4HVP2 + 0.162 MVKPC + 0.... etc.', & ! index 879 - ' IDN --> 0.222 INA + 0.5 GLYC + 0.223 ICN + 0.05 MVK + 0.5 HAC + 0.005 MACR + 0... etc.', & ! index 880 - ' ICPDH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 1.5 HO2 + 0.5 OH ', & ! index 881 - ' ICPDH --> 0.163 PCO + 0.163 MCRDH + 0.133 MVKHCB + 0.586 GLYX + 0.118 MGLY + 0.1... etc.', & ! index 882 - ' IDHDP --> 0.75 ICPDH + 0.25 GLYC + 0.25 HAC + 0.75 HO2 + 1.25 OH ', & ! index 883 - ' IDHPE --> 0.571 GLYX + 0.429 MGLY + 0.429 GLYC + 0.571 HAC + HO2 + OH ', & ! index 884 - ' IDCHP --> PCO + 0.454 MVKPC + 0.391 MVKHC + 0.155 MVKHCB + CO + 1.454 HO2 + 0.546 OH ', & ! index 885 - ' ITHN --> 0.5 MCRHN + 0.15 ETHLN + 0.3 GLYC + 0.05 MVKN + 0.45 HAC + 0.55 CH2O +... etc.', & ! index 886 - ' ITHN --> 0.5 HPETHNL + 0.05 ATOOH + 0.15 MCRHP + 0.35 GLYC + 0.8 HAC + 0.15 CH2... etc.', & ! index 887 - ' ITCN --> MGLY + GLYC + OH + NO2 ', & ! index 888 - ' ITCN --> PCO + 0.5 MVKHP + 0.5 MCRHP + CO + HO2 + NO2 ', & ! index 889 - ' ETHP --> ETO + OH ', & ! index 890 - ' BALD --> PCO + BENZO2 + CO + HO2 ', & ! index 891 - ' BZCO3H --> CO2 + BENZO2 + OH ', & ! index 892 - ' BENZP --> BENZO ', & ! index 893 - ' NPHEN --> CO2 + PCO + AROMP4 + HNO2 + CO + HO2 ' /) ! index up to 894 - CHARACTER(LEN=100), PARAMETER, DIMENSION(894) :: EQN_NAMES = (/& + ' IONO2 --> ISALA + LOx + HNO3 ', & ! index 841 + ' IONO2 --> ISALC + LOx + HNO3 ', & ! index 842 + ' IONO2 + H2O --> HNO3 + HOI ', & ! index 843 + ' IONO + BrSALA --> LOx + IBr + HNO2 ', & ! index 844 + ' IONO + BrSALC --> LOx + IBr + HNO2 ', & ! index 845 + ' IONO + SALACL --> LOx + ICl + HNO2 ', & ! index 846 + ' IONO + SALCCL --> LOx + ICl + HNO2 ', & ! index 847 + ' IONO2 + BrSALA --> LOx + IBr + HNO3 ', & ! index 848 + ' IONO2 + BrSALC --> LOx + IBr + HNO3 ', & ! index 849 + ' IONO2 + SALACL --> LOx + ICl + HNO3 ', & ! index 850 + ' IONO2 + SALCCL --> LOx + ICl + HNO3 ', & ! index 851 + ' HOI + BrSALA --> LOx + IBr ', & ! index 852 + ' HOI + BrSALC --> LOx + IBr ', & ! index 853 + ' HOI + SALACL --> LOx + ICl ', & ! index 854 + ' HOI + SALCCL --> LOx + ICl ', & ! index 855 + ' GLYX --> SOAGX ', & ! index 856 + ' MGLY --> 1.5 SOAGX ', & ! index 857 + ' IEPOXA --> SOAIE ', & ! index 858 + ' IEPOXB --> SOAIE ', & ! index 859 + ' IEPOXD --> SOAIE ', & ! index 860 + ' LVOC --> LVOCOA ', & ! index 861 + ' MVKN --> LOx + IONITA ', & ! index 862 + ' R4N2 --> LOx + IONITA ', & ! index 863 + ' MONITS --> LOx + MONITA ', & ! index 864 + ' MONITU --> LOx + MONITA ', & ! index 865 + ' HONIT --> LOx + MONITA ', & ! index 866 + ' PYAC --> 1.5 SOAGX ', & ! index 867 + ' HMML --> 0.8 SOAIE ', & ! index 868 + ' IHN1 --> LOx + IONITA ', & ! index 869 + ' IHN2 --> LOx + IONITA ' /) ! index up to 870 + CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_29 = (/ & + ' IHN3 --> LOx + IONITA ', & ! index 871 + ' IHN4 --> LOx + IONITA ', & ! index 872 + ' ICHE --> SOAIE ', & ! index 873 + ' INPD --> LOx + IONITA ', & ! index 874 + ' INPB --> LOx + IONITA ', & ! index 875 + ' IDN --> 2 LOx + IONITA ', & ! index 876 + ' ITCN --> LOx + IONITA ', & ! index 877 + ' ITHN --> LOx + IONITA ', & ! index 878 + ' 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 + 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 + 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 + 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 + 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 + 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 = (/& 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, & EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, & EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22, EQN_NAMES_23, EQN_NAMES_24, & - EQN_NAMES_25, EQN_NAMES_26, EQN_NAMES_27, EQN_NAMES_28, EQN_NAMES_29 /) + EQN_NAMES_25, EQN_NAMES_26, EQN_NAMES_27, EQN_NAMES_28, EQN_NAMES_29, & + EQN_NAMES_30, EQN_NAMES_31, EQN_NAMES_32, EQN_NAMES_33, EQN_NAMES_34, & + EQN_NAMES_35 /) CHARACTER(LEN=32), PARAMETER, DIMENSION(7) :: FAM_NAMES = (/ & 'POx ','LOx ','PCO ', & ! index 1 - 3 diff --git a/KPP/fullchem/gckpp_Parameters.F90 b/KPP/fullchem/gckpp_Parameters.F90 index 841054377..390c32c56 100644 --- a/KPP/fullchem/gckpp_Parameters.F90 +++ b/KPP/fullchem/gckpp_Parameters.F90 @@ -2,7 +2,7 @@ ! ! Parameter Module File ! -! Generated by KPP-3.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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,27 +31,27 @@ MODULE gckpp_Parameters ! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 295 + INTEGER, PARAMETER :: NSPEC = 356 ! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 291 + INTEGER, PARAMETER :: NVAR = 353 ! NFAM - Number of Prod/Loss Families INTEGER, PARAMETER :: NFAM = 7 ! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 260 + INTEGER, PARAMETER :: NVARACT = 322 ! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 4 + INTEGER, PARAMETER :: NFIX = 3 ! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 894 + INTEGER, PARAMETER :: NREACT = 1058 ! NVARST - Starting of variables in conc. vect. INTEGER, PARAMETER :: NVARST = 1 ! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 292 + INTEGER, PARAMETER :: NFIXST = 354 ! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 3542 + INTEGER, PARAMETER :: NONZERO = 4401 ! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 4631 + INTEGER, PARAMETER :: LU_NONZERO = 5683 ! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 292 + INTEGER, PARAMETER :: CNVAR = 354 ! NLOOKAT - Number of species to look at INTEGER, PARAMETER :: NLOOKAT = 0 ! NMONITOR - Number of species to monitor @@ -107,260 +107,321 @@ MODULE gckpp_Parameters INTEGER, PARAMETER :: ind_CH3CCl3 = 43 INTEGER, PARAMETER :: ind_I2O2 = 44 INTEGER, PARAMETER :: ind_MONITA = 45 - INTEGER, PARAMETER :: ind_CH3I = 46 - INTEGER, PARAMETER :: ind_H1301 = 47 - INTEGER, PARAMETER :: ind_H2402 = 48 - INTEGER, PARAMETER :: ind_I2O3 = 49 - INTEGER, PARAMETER :: ind_PPN = 50 - INTEGER, PARAMETER :: ind_BrNO2 = 51 - INTEGER, PARAMETER :: ind_CCl4 = 52 - INTEGER, PARAMETER :: ind_CFC11 = 53 - INTEGER, PARAMETER :: ind_CFC12 = 54 - INTEGER, PARAMETER :: ind_CFC113 = 55 - INTEGER, PARAMETER :: ind_CFC114 = 56 - INTEGER, PARAMETER :: ind_CFC115 = 57 - INTEGER, PARAMETER :: ind_C2H2 = 58 - INTEGER, PARAMETER :: ind_H1211 = 59 - INTEGER, PARAMETER :: ind_INO = 60 - INTEGER, PARAMETER :: ind_N2O = 61 - INTEGER, PARAMETER :: ind_NIT = 62 - INTEGER, PARAMETER :: ind_NITs = 63 - INTEGER, PARAMETER :: ind_BENZ = 64 - INTEGER, PARAMETER :: ind_N = 65 - INTEGER, PARAMETER :: ind_OCS = 66 - INTEGER, PARAMETER :: ind_PAN = 67 - INTEGER, PARAMETER :: ind_ETHN = 68 - INTEGER, PARAMETER :: ind_HI = 69 - INTEGER, PARAMETER :: ind_BZCO3H = 70 - INTEGER, PARAMETER :: ind_CH2Br2 = 71 - INTEGER, PARAMETER :: ind_CH2Cl2 = 72 - INTEGER, PARAMETER :: ind_IBr = 73 - INTEGER, PARAMETER :: ind_MPN = 74 - INTEGER, PARAMETER :: ind_Cl2O2 = 75 - INTEGER, PARAMETER :: ind_C2H4 = 76 - INTEGER, PARAMETER :: ind_CHBr3 = 77 - INTEGER, PARAMETER :: ind_CHCl3 = 78 - INTEGER, PARAMETER :: ind_TOLU = 79 - INTEGER, PARAMETER :: ind_XYLE = 80 - INTEGER, PARAMETER :: ind_HCFC123 = 81 - INTEGER, PARAMETER :: ind_HCFC141b = 82 - INTEGER, PARAMETER :: ind_HCFC142b = 83 - INTEGER, PARAMETER :: ind_HCFC22 = 84 - INTEGER, PARAMETER :: ind_HMHP = 85 - INTEGER, PARAMETER :: ind_HMS = 86 - INTEGER, PARAMETER :: ind_IPRNO3 = 87 - INTEGER, PARAMETER :: ind_MAP = 88 - INTEGER, PARAMETER :: ind_MENO3 = 89 - INTEGER, PARAMETER :: ind_DMS = 90 - INTEGER, PARAMETER :: ind_NPRNO3 = 91 - INTEGER, PARAMETER :: ind_OIO = 92 - INTEGER, PARAMETER :: ind_R4P = 93 - INTEGER, PARAMETER :: ind_RA3P = 94 - INTEGER, PARAMETER :: ind_RB3P = 95 - INTEGER, PARAMETER :: ind_ETNO3 = 96 - INTEGER, PARAMETER :: ind_BZPAN = 97 - INTEGER, PARAMETER :: ind_IONITA = 98 - INTEGER, PARAMETER :: ind_ICl = 99 - INTEGER, PARAMETER :: ind_CH3Br = 100 - INTEGER, PARAMETER :: ind_BALD = 101 - INTEGER, PARAMETER :: ind_HNO4 = 102 - INTEGER, PARAMETER :: ind_ClOO = 103 - INTEGER, PARAMETER :: ind_PYAC = 104 - INTEGER, PARAMETER :: ind_HMML = 105 - INTEGER, PARAMETER :: ind_RP = 106 - INTEGER, PARAMETER :: ind_BENZP = 107 - INTEGER, PARAMETER :: ind_ETO = 108 - INTEGER, PARAMETER :: ind_IDC = 109 - INTEGER, PARAMETER :: ind_ETP = 110 - INTEGER, PARAMETER :: ind_OClO = 111 - INTEGER, PARAMETER :: ind_PP = 112 - INTEGER, PARAMETER :: ind_PRPN = 113 - INTEGER, PARAMETER :: ind_ALK4 = 114 - INTEGER, PARAMETER :: ind_CSL = 115 - INTEGER, PARAMETER :: ind_IEPOXD = 116 - INTEGER, PARAMETER :: ind_MVKDH = 117 - INTEGER, PARAMETER :: ind_PHEN = 118 - INTEGER, PARAMETER :: ind_PIP = 119 - INTEGER, PARAMETER :: ind_ETHP = 120 - INTEGER, PARAMETER :: ind_HPALD1OO = 121 - INTEGER, PARAMETER :: ind_SO4 = 122 - INTEGER, PARAMETER :: ind_HPALD2OO = 123 - INTEGER, PARAMETER :: ind_C3H8 = 124 - INTEGER, PARAMETER :: ind_IDCHP = 125 - INTEGER, PARAMETER :: ind_INA = 126 - INTEGER, PARAMETER :: ind_HPALD4 = 127 - INTEGER, PARAMETER :: ind_Br2 = 128 - INTEGER, PARAMETER :: ind_HPALD3 = 129 - INTEGER, PARAMETER :: ind_IEPOXA = 130 - INTEGER, PARAMETER :: ind_IEPOXB = 131 - INTEGER, PARAMETER :: ind_MCRDH = 132 - INTEGER, PARAMETER :: ind_EOH = 133 - INTEGER, PARAMETER :: ind_HONIT = 134 - INTEGER, PARAMETER :: ind_BrCl = 135 - INTEGER, PARAMETER :: ind_MACR1OOH = 136 - INTEGER, PARAMETER :: ind_MP = 137 - INTEGER, PARAMETER :: ind_SALCAL = 138 - INTEGER, PARAMETER :: ind_IHN2 = 139 - INTEGER, PARAMETER :: ind_IHN3 = 140 - INTEGER, PARAMETER :: ind_IDHDP = 141 - INTEGER, PARAMETER :: ind_MCT = 142 - INTEGER, PARAMETER :: ind_I2 = 143 - INTEGER, PARAMETER :: ind_C4HVP1 = 144 - INTEGER, PARAMETER :: ind_C4HVP2 = 145 - INTEGER, PARAMETER :: ind_IDNOO = 146 - INTEGER, PARAMETER :: ind_SALAAL = 147 - INTEGER, PARAMETER :: ind_AROMP5 = 148 - INTEGER, PARAMETER :: ind_CH3Cl = 149 - INTEGER, PARAMETER :: ind_ICNOO = 150 - INTEGER, PARAMETER :: ind_INPD = 151 - INTEGER, PARAMETER :: ind_ISOPNOO2 = 152 - INTEGER, PARAMETER :: ind_MPAN = 153 - INTEGER, PARAMETER :: ind_MTPA = 154 - INTEGER, PARAMETER :: ind_MTPO = 155 - INTEGER, PARAMETER :: ind_MVKPC = 156 - INTEGER, PARAMETER :: ind_RIPA = 157 - INTEGER, PARAMETER :: ind_ROH = 158 - INTEGER, PARAMETER :: ind_AROMP4 = 159 - INTEGER, PARAMETER :: ind_BENZO = 160 - INTEGER, PARAMETER :: ind_C2H6 = 161 - INTEGER, PARAMETER :: ind_RIPB = 162 - INTEGER, PARAMETER :: ind_MCRENOL = 163 - INTEGER, PARAMETER :: ind_IDHPE = 164 - INTEGER, PARAMETER :: ind_RIPD = 165 - INTEGER, PARAMETER :: ind_IDHNDOO1 = 166 - INTEGER, PARAMETER :: ind_ISOPNOO1 = 167 - INTEGER, PARAMETER :: ind_IDHNDOO2 = 168 - INTEGER, PARAMETER :: ind_MVKHC = 169 - INTEGER, PARAMETER :: ind_LIMO = 170 - INTEGER, PARAMETER :: ind_RIPC = 171 - INTEGER, PARAMETER :: ind_HPETHNL = 172 - INTEGER, PARAMETER :: ind_N2O5 = 173 - INTEGER, PARAMETER :: ind_ICHE = 174 - INTEGER, PARAMETER :: ind_MCRHNB = 175 - INTEGER, PARAMETER :: ind_BrNO3 = 176 - INTEGER, PARAMETER :: ind_H = 177 - INTEGER, PARAMETER :: ind_MONITS = 178 - INTEGER, PARAMETER :: ind_ETOO = 179 - INTEGER, PARAMETER :: ind_BZCO3 = 180 - INTEGER, PARAMETER :: ind_INPB = 181 - INTEGER, PARAMETER :: ind_IHPOO1 = 182 - INTEGER, PARAMETER :: ind_IHPOO2 = 183 - INTEGER, PARAMETER :: ind_AROMRO2 = 184 - INTEGER, PARAMETER :: ind_MVKHCB = 185 - INTEGER, PARAMETER :: ind_HPALD1 = 186 - INTEGER, PARAMETER :: ind_IHPOO3 = 187 - INTEGER, PARAMETER :: ind_HPALD2 = 188 - INTEGER, PARAMETER :: ind_IHPNDOO = 189 - INTEGER, PARAMETER :: ind_CH4 = 190 - INTEGER, PARAMETER :: ind_BENZO2 = 191 - INTEGER, PARAMETER :: ind_HC5A = 192 - INTEGER, PARAMETER :: ind_HNO2 = 193 - INTEGER, PARAMETER :: ind_ICHOO = 194 - INTEGER, PARAMETER :: ind_CH3CHOO = 195 - INTEGER, PARAMETER :: ind_ATOOH = 196 - INTEGER, PARAMETER :: ind_Cl2 = 197 - INTEGER, PARAMETER :: ind_PROPNN = 198 - INTEGER, PARAMETER :: ind_MONITU = 199 - INTEGER, PARAMETER :: ind_MCRHN = 200 - INTEGER, PARAMETER :: ind_PRN1 = 201 - INTEGER, PARAMETER :: ind_R4N2 = 202 - INTEGER, PARAMETER :: ind_IONO = 203 - INTEGER, PARAMETER :: ind_MVKOHOO = 204 - INTEGER, PARAMETER :: ind_MCROHOO = 205 - INTEGER, PARAMETER :: ind_ICPDH = 206 - INTEGER, PARAMETER :: ind_MACR1OO = 207 - INTEGER, PARAMETER :: ind_ETHLN = 208 - INTEGER, PARAMETER :: ind_PO2 = 209 - INTEGER, PARAMETER :: ind_NPHEN = 210 - INTEGER, PARAMETER :: ind_HCOOH = 211 - INTEGER, PARAMETER :: ind_H2O2 = 212 - INTEGER, PARAMETER :: ind_ITCN = 213 - INTEGER, PARAMETER :: ind_IHN4 = 214 - INTEGER, PARAMETER :: ind_OLNN = 215 - INTEGER, PARAMETER :: ind_OLND = 216 - INTEGER, PARAMETER :: ind_ETO2 = 217 - INTEGER, PARAMETER :: ind_MOH = 218 - INTEGER, PARAMETER :: ind_ACTA = 219 - INTEGER, PARAMETER :: ind_IHN1 = 220 - INTEGER, PARAMETER :: ind_ACET = 221 - INTEGER, PARAMETER :: ind_IHPNBOO = 222 - INTEGER, PARAMETER :: ind_GLYX = 223 - INTEGER, PARAMETER :: ind_ISOP = 224 - INTEGER, PARAMETER :: ind_LIMO2 = 225 - INTEGER, PARAMETER :: ind_MEK = 226 - INTEGER, PARAMETER :: ind_IO = 227 - INTEGER, PARAMETER :: ind_IEPOXAOO = 228 - INTEGER, PARAMETER :: ind_IEPOXBOO = 229 - INTEGER, PARAMETER :: ind_MVKHP = 230 - INTEGER, PARAMETER :: ind_MCRHP = 231 - INTEGER, PARAMETER :: ind_IDHNBOO = 232 - INTEGER, PARAMETER :: ind_MGLY = 233 - INTEGER, PARAMETER :: ind_CH2OO = 234 - INTEGER, PARAMETER :: ind_ClNO2 = 235 - INTEGER, PARAMETER :: ind_GLYC = 236 - INTEGER, PARAMETER :: ind_A3O2 = 237 - INTEGER, PARAMETER :: ind_PIO2 = 238 - INTEGER, PARAMETER :: ind_OTHRO2 = 239 - INTEGER, PARAMETER :: ind_ICN = 240 - INTEGER, PARAMETER :: ind_MVKN = 241 - INTEGER, PARAMETER :: ind_ITHN = 242 - INTEGER, PARAMETER :: ind_IDN = 243 - INTEGER, PARAMETER :: ind_IHOO4 = 244 - INTEGER, PARAMETER :: ind_IHOO1 = 245 - INTEGER, PARAMETER :: ind_INO2D = 246 - INTEGER, PARAMETER :: ind_INO2B = 247 - INTEGER, PARAMETER :: ind_MVK = 248 - INTEGER, PARAMETER :: ind_MACRNO2 = 249 - INTEGER, PARAMETER :: ind_HAC = 250 - INTEGER, PARAMETER :: ind_MACR = 251 - INTEGER, PARAMETER :: ind_ATO2 = 252 - INTEGER, PARAMETER :: ind_PRPE = 253 - INTEGER, PARAMETER :: ind_KO2 = 254 - INTEGER, PARAMETER :: ind_RCO3 = 255 - INTEGER, PARAMETER :: ind_R4O2 = 256 - INTEGER, PARAMETER :: ind_R4N1 = 257 - INTEGER, PARAMETER :: ind_B3O2 = 258 - INTEGER, PARAMETER :: ind_RCHO = 259 - INTEGER, PARAMETER :: ind_HOBr = 260 - INTEGER, PARAMETER :: ind_MCO3 = 261 - INTEGER, PARAMETER :: ind_ClNO3 = 262 - INTEGER, PARAMETER :: ind_CH2O = 263 - INTEGER, PARAMETER :: ind_ALD2 = 264 - INTEGER, PARAMETER :: ind_HNO3 = 265 - INTEGER, PARAMETER :: ind_MO2 = 266 - INTEGER, PARAMETER :: ind_CO = 267 - INTEGER, PARAMETER :: ind_HOI = 268 - INTEGER, PARAMETER :: ind_I = 269 - INTEGER, PARAMETER :: ind_IONO2 = 270 - INTEGER, PARAMETER :: ind_HOCl = 271 - INTEGER, PARAMETER :: ind_O1D = 272 - INTEGER, PARAMETER :: ind_Br = 273 - INTEGER, PARAMETER :: ind_BrO = 274 - INTEGER, PARAMETER :: ind_HCl = 275 - INTEGER, PARAMETER :: ind_SO2 = 276 - INTEGER, PARAMETER :: ind_BrSALC = 277 - INTEGER, PARAMETER :: ind_H2O = 278 - INTEGER, PARAMETER :: ind_NO = 279 - INTEGER, PARAMETER :: ind_SALACL = 280 - INTEGER, PARAMETER :: ind_NO3 = 281 - INTEGER, PARAMETER :: ind_O3 = 282 - INTEGER, PARAMETER :: ind_BrSALA = 283 - INTEGER, PARAMETER :: ind_HO2 = 284 - INTEGER, PARAMETER :: ind_ClO = 285 - INTEGER, PARAMETER :: ind_OH = 286 - INTEGER, PARAMETER :: ind_SALCCL = 287 - INTEGER, PARAMETER :: ind_O = 288 - INTEGER, PARAMETER :: ind_HBr = 289 - INTEGER, PARAMETER :: ind_Cl = 290 - INTEGER, PARAMETER :: ind_NO2 = 291 + 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_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_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_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_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_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_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_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_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_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_BrO = 347 + INTEGER, PARAMETER :: ind_SO2 = 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 ! Index declaration for fixed species in C ! C(ind_spc) - INTEGER, PARAMETER :: ind_H2 = 292 - INTEGER, PARAMETER :: ind_N2 = 293 - INTEGER, PARAMETER :: ind_O2 = 294 - INTEGER, PARAMETER :: ind_RCOOH = 295 + INTEGER, PARAMETER :: ind_H2 = 354 + INTEGER, PARAMETER :: ind_N2 = 355 + INTEGER, PARAMETER :: ind_O2 = 356 ! Index declaration for fixed species in FIX ! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) @@ -368,7 +429,6 @@ MODULE gckpp_Parameters INTEGER, PARAMETER :: indf_H2 = 1 INTEGER, PARAMETER :: indf_N2 = 2 INTEGER, PARAMETER :: indf_O2 = 3 - INTEGER, PARAMETER :: indf_RCOOH = 4 END MODULE gckpp_Parameters diff --git a/KPP/fullchem/gckpp_Rates.F90 b/KPP/fullchem/gckpp_Rates.F90 index abbea8831..6c24ea374 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.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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) @@ -436,7 +436,7 @@ SUBROUTINE Update_RCONST ( ) RCONST(5) = (K_MT(5)) RCONST(6) = (K_MT(6)) RCONST(7) = (K_CLD(1)) - RCONST(8) = (K_CLD(2)+SRO3) + RCONST(8) = (K_CLD(2)) RCONST(9) = (K_CLD(3)) RCONST(10) = (K_CLD(4)) RCONST(11) = (K_CLD(5)) @@ -485,847 +485,1011 @@ SUBROUTINE Update_RCONST ( ) RCONST(52) = (GCARR_ac(1.40d-12,-1900.0d0)) RCONST(53) = (GCJPLPR_abab(7.30d-29,4.1d+00,9.5d-12,1.6d0,0.6d0)) RCONST(54) = (GCJPLEQ_acabab(9.00d-29,14000.0d0,7.3d-29,4.1d0,9.5d-12,1.6d0,0.6d0)) - RCONST(55) = (GCARR_ac(8.10d-12,270.0d0)) - RCONST(56) = (GCARR_ac(7.66d-12,-1020.0d0)) - RCONST(57) = (GC_RO2NO_B2_aca(2.60d-12,365.0d0,2.0d0)) - RCONST(58) = (GC_RO2NO_A2_aca(2.60d-12,365.0d0,2.0d0)) - RCONST(59) = (GCARR_ac(2.60d-12,365.0d0)) - RCONST(60) = (GCARR_abc(8.54d-13,1.54d0,-19.0d0)) - RCONST(61) = (GCARR_abc(1.97d-12,1.23d0,-675.0d0)) - RCONST(62) = (GC_RO2NO_B2_aca(2.90d-12,350.0d0,3.0d0)) - RCONST(63) = (GC_RO2NO_A2_aca(2.90d-12,350.0d0,3.0d0)) - RCONST(64) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(65) = (GCARR_ac(9.10d-12,-405.0d0)) - RCONST(66) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,4.5d0)) - RCONST(67) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,4.5d0)) - RCONST(68) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(69) = (GCARR_ac(2.90d-12,300.0d0)) - RCONST(70) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(71) = (GC_RO2NO_B2_aca(2.70d-12,360.0d0,3.0d0)) - RCONST(72) = (GC_RO2NO_A2_aca(2.70d-12,360.0d0,3.0d0)) - RCONST(73) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(74) = (GCARR_ac(2.80d-12,-3280.0d0)) - RCONST(75) = (1.60d-12) - RCONST(76) = (GCARR_ac(3.15d-14,920.0d0)) - RCONST(77) = (GCARR_ac(6.00d-12,410.0d0)) - RCONST(78) = (GCJPLPR_abab(9.00d-28,8.9d0,7.7d-12,0.2d0,0.6d0)) - RCONST(79) = (GCJPLEQ_acabab(9.00d-29,14000.0d0,9.00d-28,8.9d0,7.7d-12,0.2d0,0.6d0)) - RCONST(80) = (GCARR_ac(6.70d-12,340.0d0)) - RCONST(81) = (6.50d-15) - RCONST(82) = (1.33d-13+3.82d-11*exp(-2000.0d0/TEMP)) - RCONST(83) = (5.92d-13) - RCONST(84) = (5.92d-13) - RCONST(85) = (GCARR_ac(7.40d-13,700.0d0)) - RCONST(86) = (GCARR_ac(7.40d-13,700.0d0)) - RCONST(87) = (GCARR_ac(8.60d-13,700.0d0)) - RCONST(88) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,4.0d0)) - RCONST(89) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) - RCONST(90) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) - RCONST(91) = (GCARR_ac(1.50d-12,-90.0d0)) - RCONST(92) = (3.00d-13) - RCONST(93) = (3.00d-13) - RCONST(94) = (8.00d-16) - RCONST(95) = (8.37d-14) - RCONST(96) = (8.37d-14) - RCONST(97) = (GCARR_ac(7.50d-13,500.0d0)) - RCONST(98) = (8.37d-14) - RCONST(99) = (8.37d-14) - RCONST(100) = (8.37d-14) - RCONST(101) = (3.35d-12) - RCONST(102) = (GCARR_ac(4.40d-12,70.0d0)) - RCONST(103) = (6.80d-14) - RCONST(104) = (6.80d-14) - RCONST(105) = (GCARR_ac(7.50d-13,700.0d0)) - RCONST(106) = (GCARR_ac(7.50d-13,700.0d0)) - RCONST(107) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) - RCONST(108) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) - RCONST(109) = (GCARR_ac(4.30d-13,1040.0d0)) - RCONST(110) = (GCJPLPR_abab(4.60d-27,4.0d0,2.6d-11,1.3d0,0.5d0)) - RCONST(111) = (GCARR_ac(6.50d-15,-1900.0d0)) - RCONST(112) = (GC_GLYCOH_A_a(8.00d-12)) - RCONST(113) = (GC_GLYCOH_B_a(8.00d-12)) - RCONST(114) = (GCARR_ac(4.59d-13,-1156.0d0)) - RCONST(115) = (GCARR_ac(3.10d-12,340.0d0)) - RCONST(116) = (GCARR_ac(1.90d-12,575.0d0)) - RCONST(117) = (GC_GLYXNO3_ac(1.40d-12,-1860.0d0)) - RCONST(118) = (GCARR_ac(3.36d-12,-1860.0d0)) - RCONST(119) = (GC_HACOH_A_ac(2.00d-12,320.0d0)) - RCONST(120) = (GC_HACOH_B_ac(2.00d-12,320.0d0)) - RCONST(121) = (GCARR_ac(8.78d-12,200.0d0)) - RCONST(122) = (GCARR_ac(5.18d-12,200.0d0)) - RCONST(123) = (GCARR_ac(5.18d-12,200.0d0)) - RCONST(124) = (GCARR_ac(8.78d-12,200.0d0)) - RCONST(125) = (GCARR_ac(8.78d-12,200.0d0)) - RCONST(126) = (GCARR_ac(6.13d-13,200.0d0)) - RCONST(127) = (GCARR_ac(8.78d-12,200.0d0)) - RCONST(128) = (GCARR_ac(4.82d-11,-400.0d0)) - RCONST(129) = (3.00d-14) - RCONST(130) = (1.40d-18) - RCONST(131) = (GCARR_ac(2.90d-12,500.0d0)) - RCONST(132) = (GCARR_ac(2.00d-12,500.0d0)) - RCONST(133) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(134) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(135) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(136) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(137) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(138) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(139) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(140) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(141) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(142) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(143) = (GCARR_ac(2.50d-12,500.0d0)) - RCONST(144) = (GCARR_ac(1.87d-12,500.0d0)) - RCONST(145) = (GCARR_ac(8.50d-13,-2450.0d0)) - RCONST(146) = (GCJPLPR_abab(1.00d-30,4.8d+00,7.2d-12,2.1d0,0.6d0)) - RCONST(147) = (GCJPLPR_abcabc(1.05d-02,4.8d+00,-11234.0d0,7.58d16,2.1d0,-11234.0d0,0.6d0)) - RCONST(148) = (GCARR_ac(1.20d-11,-280.0d0)) - RCONST(149) = (GC_DMSOH_acac(8.20d-39,5376.0d0,1.05d-5,3644.0d0)) - RCONST(150) = (GCARR_ac(1.90d-13,530.0d0)) - RCONST(151) = (GCJPLPR_abab(2.90d-31,4.1d+00,1.7d-12,-0.2d0,0.6d0)) - RCONST(152) = (GCARR_ac(1.60d-11,-780.0d0)) - RCONST(153) = (GCARR_ac(4.50d-12,460.0d0)) - RCONST(154) = (GCARR_ac(4.80d-12,-310.0d0)) - RCONST(155) = (GCARR_ac(5.50d-12,200.0d0)) - RCONST(156) = (GCARR_ac(2.40d-12,40.0d0)) - RCONST(157) = (GCARR_ac(2.80d-14,860.0d0)) - RCONST(158) = (GCARR_ac(8.80d-12,260.0d0)) - RCONST(159) = (4.90d-11) - RCONST(160) = (GCARR_ac(2.10d-11,240.0d0)) - RCONST(161) = (GCARR_ac(1.20d-10,-430.0d0)) - RCONST(162) = (GCARR_ac(5.80d-12,-1500.0d0)) - RCONST(163) = (GCARR_ac(1.70d-11,250.0d0)) - RCONST(164) = (1.60d-11) - RCONST(165) = (GCARR_ac(1.70d-11,-800.0d0)) - RCONST(166) = (GCARR_ac(1.80d-11,-460.0d0)) - RCONST(167) = (GCARR_ac(1.66d-10,-7000.0d0)) - RCONST(168) = (GCARR_ac(2.36d-10,-6411.0d0)) - RCONST(169) = (GCARR_ac(8.77d-11,-4330.0d0)) - RCONST(170) = (GCJPLPR_aba(4.20d-31,2.4d0,2.7d-11,0.6d0)) - RCONST(171) = (GCJPLPR_abab(5.40d-31,3.1d0,6.5d-12,2.9d0,0.6d0)) - RCONST(172) = (GCARR_ac(9.00d-13,-360.0d0)) - RCONST(173) = (GCARR_ac(2.00d-12,-840.0d0)) - RCONST(174) = (GCARR_ac(1.42d-12,-1150.0d0)) - RCONST(175) = (GCARR_ac(1.63d-10,60.0d0)) - RCONST(176) = (GCARR_ac(2.15d-11,110.0d0)) - RCONST(177) = (GCARR_ac(3.30d-11,55.0d0)) - RCONST(178) = (1.20d-10) - RCONST(179) = (GCARR_ac(1.19d-10,20.0d0)) - RCONST(180) = (1.75d-10) - RCONST(181) = (GCARR_ab(6.00d-34,2.4d0)*NUMDEN) - RCONST(182) = (GCARR_ac(8.00d-12,-2060.0d0)) - RCONST(183) = (GCARR_ac(2.80d-12,-1800.0d0)) - RCONST(184) = (GCARR_ac(1.80d-11,180.0d0)) - RCONST(185) = (GCARR_ac(3.00d-11,200.0d0)) - RCONST(186) = (2.40d-10) - RCONST(187) = (GCARR_ac(2.10d-11,-2200.0d0)) - RCONST(188) = (GCARR_ac(7.20d-14,-1070.0d0)) - RCONST(189) = (GCJPLAC_ababac(3.4d-31,1.6d0,2.3d-11,0.2d0,5.3d-12,2.0d2,0.6d0)) - RCONST(190) = (1.30d-11) - RCONST(191) = (GCJPLPR_aba(9.00d-32,1.5d+00,3.0d-11,0.6d0)) - RCONST(192) = (GCJPLPR_abab(3.4d-31,1.6d0,2.3d-11,0.2d0,0.6d0)) - RCONST(193) = (GCARR_ac(1.40d-12,-2000.0d0)) - RCONST(194) = (GCJPLPR_abab(5.30d-32,1.8d+00,9.5d-11,-0.4d0,0.6d0)) - RCONST(195) = (GCARR_ac(1.40d-10,-470.0d0)) - RCONST(196) = (8.05d-11) - RCONST(197) = (GCARR_ac(3.30d-12,-3150.0d0)) - RCONST(198) = (GCARR_ac(2.10d-11,100.0d0)) - RCONST(199) = (GCARR_ac(5.80d-12,220.0d0)) - RCONST(200) = (GCARR_ac(1.90d-11,230.0d0)) - RCONST(201) = (GCARR_ac(3.40d-11,-1600.0d0)) - RCONST(202) = (1.50d-10) - RCONST(203) = (1.50d-10) - RCONST(204) = (2.70d-10) - RCONST(205) = (3.30d-10) - RCONST(206) = (2.60d-10) - RCONST(207) = (1.80d-10) - RCONST(208) = (2.70d-10) - RCONST(209) = (6.60d-10) - RCONST(210) = (1.02d-10) - RCONST(211) = (2.30d-10) - RCONST(212) = (1.40d-10) - RCONST(213) = (1.50d-10) - RCONST(214) = (1.00d-10) - RCONST(215) = (2.60d-10) - RCONST(216) = (2.00d-10) - RCONST(217) = (2.00d-10) - RCONST(218) = (2.32d-10) - RCONST(219) = (GCARR_ac(1.30d-10,25.0d0)) - RCONST(220) = (GCARR_ac(5.40d-11,30.0d0)) - RCONST(221) = (GCARR_ac(1.60d-10,0.0d0)) - RCONST(222) = (GCARR_ac(2.60d-12,-1100.0d0)) - RCONST(223) = (GCARR_ac(1.80d-11,-600.0d0)) - RCONST(224) = (GCARR_ac(7.40d-12,270.0d0)) - RCONST(225) = (GCARR_ac(6.00d-13,230.0d0)) - RCONST(226) = (GCARR_ac(1.40d-12,600.0d0)) - RCONST(227) = (GCARR_ac(6.00d-13,670.0d0)) - RCONST(228) = (GCARR_ac(1.80d-12,-250.0d0)) - RCONST(229) = (GCARR_ac(3.00d-12,-500.0d0)) - RCONST(230) = (GCARR_ac(2.40d-12,-1250.0d0)) - RCONST(231) = (GCARR_ac(1.20d-12,-330.0d0)) - RCONST(232) = (GCARR_ac(1.96d-12,-1200.0d0)) - RCONST(233) = (GCARR_ac(1.92d-12,-880.0d0)) - RCONST(234) = (GCARR_ac(2.20d-12,-920.0d0)) - RCONST(235) = (GCARR_ac(1.64d-12,-1520.0d0)) - RCONST(236) = (GCARR_ac(9.20d-13,-1560.0d0)) - RCONST(237) = (GCARR_ac(1.25d-12,-1600.0d0)) - RCONST(238) = (GCARR_ac(1.30d-12,-1770.0d0)) - RCONST(239) = (GCARR_ac(7.40d-13,-900.0d0)) - RCONST(240) = (GCARR_ac(7.10d-12,-1270.0d0)) - RCONST(241) = (GCARR_ac(8.10d-11,-30.0d0)) - RCONST(242) = (GCARR_ac(2.30d-11,-200.0d0)) - RCONST(243) = (GCARR_ac(3.05d-11,-2270.0d0)) - RCONST(244) = (GCARR_ac(1.10d-11,-980.0d0)) - RCONST(245) = (GCARR_ac(1.40d-11,270.0d0)) - RCONST(246) = (GCARR_ac(3.60d-11,-375.0d0)) - RCONST(247) = (GCARR_ac(2.80d-11,85.0d0)) - RCONST(248) = (GCARR_ac(2.60d-12,290.0d0)) - RCONST(249) = (GCARR_ac(6.40d-12,290.0d0)) - RCONST(250) = (GCJPLPR_abab(1.80d-31,3.4d+00,1.50d-11,1.9d0,0.6d0)) - RCONST(251) = (GCARR_ac(1.00d-12,-1590.0d0)) - RCONST(252) = (GCARR_ac(3.00d-11,-2450.0d0)) - RCONST(253) = (GCARR_ac(3.50d-13,-1370.0d0)) - RCONST(254) = (GCJPLPR_aba(2.20d-33,3.1d+00,1.8d-10,0.6d0)) - RCONST(255) = (GCJPLEQ_acabab(6.60d-25,2502.0d0,2.20d-33,3.1d+00,1.8d-10,0.0d0,0.6d0)) - RCONST(256) = (GCJPLPR_abab(1.90d-32,3.6d+00,3.7d-12,1.6d0,0.6d0)) - RCONST(257) = (GCJPLEQ_acabab(2.16d-27,8537.0d0,1.90d-32,3.6d+00,3.7d-12,1.6d0,0.6d0)) - RCONST(258) = (2.42d-10) - RCONST(259) = (GCARR_ac(9.50d-13,550.0d0)) - RCONST(260) = (GCARR_ac(2.30d-12,260.0d0)) - RCONST(261) = (GCARR_ac(4.10d-13,290.0d0)) - RCONST(262) = (GCARR_ac(3.60d-12,-840.0d0)) - RCONST(263) = (GCARR_ac(6.50d-12,135.0d0)) - RCONST(264) = (GCARR_ac(2.03d-11,-1110.0d0)) - RCONST(265) = (GCARR_ac(7.40d-12,-910.0d0)) - RCONST(266) = (GCARR_ac(3.30d-12,-990.0d0)) - RCONST(267) = (2.00d-13) - RCONST(268) = (1.60d-10) - RCONST(269) = (5.7d-11) - RCONST(270) = (GCARR_ac(7.2d-11,-70.0d0)) - RCONST(271) = (7.4d-11) - RCONST(272) = (7.4d-11) - RCONST(273) = (5.5d-11) - RCONST(274) = (9.6d-11) - RCONST(275) = (2.8d-14) - RCONST(276) = (GCARR_ac(6.54d-11,60.0d0)) - RCONST(277) = (GCARR_ac(8.12d-11,-90.0d0)) - RCONST(278) = (GCARR_ac(1.63d-11,-610.0d0)) - RCONST(279) = (GCARR_ac(7.60d-11,500.0d0)) - RCONST(280) = (2.05d-10) - RCONST(281) = (GCJPLPR_aa(4.00d-28,2.8d-10,0.6d0)) - RCONST(282) = (3.60d-12) - RCONST(283) = (GCJPLPR_aba(1.80d-32,1.0d0,1.70d-11,0.6d0)) - RCONST(284) = (GCARR_ac(8.40d-11,-2620.0d0)) - RCONST(285) = (GCJPLPR_aba(3.00d-31,1.0d0,6.6d-11,0.6d0)) - RCONST(286) = (GCARR_ac(9.94d+17,-11859.0d0)) - RCONST(287) = (GCARR_ac(2.90d-11,-2600.0d0)) - RCONST(288) = (1.50d-12) - RCONST(289) = (GCJPLPR_abab(7.50d-31,3.5d0,7.6d-12,1.5d0,0.6d0)) - RCONST(290) = (GCARR_ac(2.10d+15,-13670.0d0)) - RCONST(291) = (GCARR_ac(9.10d-11,-146.0d0)) - RCONST(292) = (1.20d-11) - RCONST(293) = (GCARR_ac(5.50d-12,760.0d0)) - RCONST(294) = (1.00d-10) - RCONST(295) = (1.50d-10) - RCONST(296) = (3.80d-02) - RCONST(297) = (GCARR_ac(1.10d-12,542.0d0)) - RCONST(298) = (GCARR_ac(4.82d-12,280.0d0)) - RCONST(299) = (GCARR_ac(2.00d-11,-830.0d0)) - RCONST(300) = (GCARR_ac(1.50d-11,-1090.0d0)) - RCONST(301) = (1.80d-10) - RCONST(302) = (3.00d-11) - RCONST(303) = (5.00d-12) - RCONST(304) = (GCARR_ac(1.30d-11,570.0d0)) - RCONST(305) = (GCARR_ac(8.60d-12,230.0d0)) - RCONST(306) = (GCARR_ac(1.50d-11,500.0d0)) - RCONST(307) = (GCARR_ac(2.51d+14,-9770.0d0)) - RCONST(308) = (GCARR_ac(2.90d-12,-1100.0d0)) - RCONST(309) = (2.40d-12) - RCONST(310) = (6.70d-13) - RCONST(311) = (1.20d-15) - RCONST(312) = (1.00d-14) - RCONST(313) = (4.25d-12) - RCONST(314) = (2.80d-16) - RCONST(315) = (GCARR_ac(2.88d-35,1391.0d0)) - RCONST(316) = (1.40d-12) - RCONST(317) = (3.80d-11) - RCONST(318) = (1.20d-15) - RCONST(319) = (1.00d-14) - RCONST(320) = (4.25d-12) - RCONST(321) = (2.65d-11) - RCONST(322) = (6.00d-18) - RCONST(323) = (1.00d-17) - RCONST(324) = (GCARR_ac(1.21d-11,440.0d0)) - RCONST(325) = (GCARR_ac(1.21d-11,440.0d0)) - RCONST(326) = (4.00d-12) - RCONST(327) = (1.50d-11) - RCONST(328) = (GCARR_ac(3.56d-14,708.0d0)) - RCONST(329) = (GCARR_ac(7.40d-13,765.0d0)) - RCONST(330) = (1.20d-12) - RCONST(331) = (GCARR_ac(5.00d-16,-530.0d0)) - RCONST(332) = (GCARR_ac(5.00d-16,-530.0d0)) - RCONST(333) = (GCARR_ac(8.33d-13,490.0d0)) - RCONST(334) = (GCARR_ac(8.33d-13,490.0d0)) - RCONST(335) = (GCARR_ac(4.20d-11,401.0d0)) - RCONST(336) = (GCARR_ac(2.95d-15,-783.0d0)) - RCONST(337) = (1.22d-11) - RCONST(338) = (4.00d-12) - RCONST(339) = (1.50d-11) - RCONST(340) = (GCARR_ac(3.56d-14,708.0d0)) - RCONST(341) = (GCARR_ac(7.40d-13,765.0d0)) - RCONST(342) = (1.20d-12) - RCONST(343) = (GCARR_ac(3.40d-12,190.0d0)) - RCONST(344) = (4.00d-12) - RCONST(345) = (4.00d-12) - RCONST(346) = (GCARR_ac(1.66d-13,1300.0d0)) - RCONST(347) = (GCARR_ac(1.66d-13,1300.0d0)) - RCONST(348) = (GCARR_ac(1.60d-13,708.0d0)) - RCONST(349) = (GCARR_ac(9.68d-14,708.0d0)) - RCONST(350) = (GCARR_ac(8.85d-13,765.0d0)) - RCONST(351) = (GCARR_ac(5.37d-13,765.0d0)) - RCONST(352) = (1.20d-12) - RCONST(353) = (1.20d-12) - RCONST(354) = (GCARR_ac(7.00d-14,1000.0d0)) - RCONST(355) = (GCARR_ac(4.25d-14,1000.0d0)) - RCONST(356) = (GCARR_ac(2.96d-14,1000.0d0)) - RCONST(357) = (4.80d-12) - RCONST(358) = (7.29d-11) - RCONST(359) = (1.67d-16) - RCONST(360) = (GCARR_ac(3.15d-13,-448.0d0)) - RCONST(361) = (GCARR_ac(3.15d-13,-448.0d0)) - RCONST(362) = (2.78d-04) - RCONST(363) = (2.78d-04) - RCONST(364) = (GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0)+GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,& + RCONST(55) = (3.00d-14) + RCONST(56) = (GCARR_ac(8.10d-12,270.0d0)) + RCONST(57) = (GCARR_ac(7.66d-12,-1020.0d0)) + RCONST(58) = (GC_RO2NO_B2_aca(2.60d-12,365.0d0,2.0d0)) + RCONST(59) = (GC_RO2NO_A2_aca(2.60d-12,365.0d0,2.0d0)) + RCONST(60) = (GCARR_ac(2.60d-12,365.0d0)) + RCONST(61) = (GCARR_abc(8.54d-13,1.54d0,-19.0d0)) + RCONST(62) = (GCARR_abc(1.97d-12,1.23d0,-675.0d0)) + RCONST(63) = (GC_RO2NO_B2_aca(2.90d-12,350.0d0,3.0d0)) + RCONST(64) = (GC_RO2NO_A2_aca(2.90d-12,350.0d0,3.0d0)) + RCONST(65) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(66) = (GCARR_ac(2.00d-11,-359.0d0)) + RCONST(67) = (6.0d-17) + RCONST(68) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,7.0d0)) + RCONST(69) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,7.0d0)) + RCONST(70) = (3.0d-12) + RCONST(71) = (1.00d-11) + RCONST(72) = (4.00d-12) + RCONST(73) = (GCARR_ac(4.20d-12,180.0d0)) + RCONST(74) = (GCARR_ac(7.40d-13,700.0d0)) + RCONST(75) = (GCARR_ac(1.48d-11,448.0d0)) + RCONST(76) = (1.03d-13) + RCONST(77) = (GCARR_ac(1.34d-14,-2283.0d0)) + RCONST(78) = (GCARR_ac(2.70d-12,360.0d0)) + RCONST(79) = (GCARR_ac(1.82d-13,1300d0)) + RCONST(80) = (3.59d-11) + RCONST(81) = (2.00d-11) + RCONST(82) = (GCARR_ac(2.70d-12,360.0d0)) + RCONST(83) = (GCARR_ac(1.51d-13,1300.0d0)) + RCONST(84) = (GCARR_ac(5.2d-13,980.0d0)) + RCONST(85) = (GCARR_ac(7.5d-12,290.0d0)) + RCONST(86) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0)) + RCONST(87) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0)) + RCONST(88) = (1.47d-11) + RCONST(89) = (GCARR_ac(9.10d-12,-405.0d0)) + RCONST(90) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,4.5d0)) + RCONST(91) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,4.5d0)) + RCONST(92) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(93) = (GC_RO2NO_B2_aca(2.70d-12,350.0d0,4.5d0)) + RCONST(94) = (GC_RO2NO_A2_aca(2.70d-12,350.0d0,4.5d0)) + RCONST(95) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(96) = (GCARR_ac(2.90d-12,300.0d0)) + RCONST(97) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(98) = (GC_RO2NO_B2_aca(2.70d-12,360.0d0,3.0d0)) + RCONST(99) = (GC_RO2NO_A2_aca(2.70d-12,360.0d0,3.0d0)) + RCONST(100) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(101) = (GCARR_ac(2.80d-12,-3280.0d0)) + RCONST(102) = (1.60d-12) + RCONST(103) = (1.60d-12) + RCONST(104) = (GCARR_ac(3.15d-14,920.0d0)) + RCONST(105) = (GCARR_ac(6.00d-12,410.0d0)) + RCONST(106) = (GCJPLPR_abab(9.00d-28,8.9d0,7.7d-12,0.2d0,0.6d0)) + RCONST(107) = (GCJPLEQ_acabab(9.00d-29,14000.0d0,9.00d-28,8.9d0,7.7d-12,0.2d0,0.6d0)) + RCONST(108) = (1.27d-12) + RCONST(109) = (GCARR_ac(6.70d-12,340.0d0)) + RCONST(110) = (6.50d-15) + RCONST(111) = (1.33d-13+3.82d-11*exp(-2000.0d0/TEMP)) + RCONST(112) = (5.92d-13) + RCONST(113) = (5.92d-13) + RCONST(114) = (GCARR_ac(7.40d-13,700.0d0)) + RCONST(115) = (GCARR_ac(7.40d-13,700.0d0)) + RCONST(116) = (GCARR_ac(7.40d-13,700.0d0)) + RCONST(117) = (GCARR_ac(7.40d-13,700.0d0)) + RCONST(118) = (GCARR_ac(8.60d-13,700.0d0)) + RCONST(119) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,4.0d0)) + RCONST(120) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) + RCONST(121) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) + RCONST(122) = (GCARR_ac(1.50d-12,-90.0d0)) + RCONST(123) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(124) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0)) + RCONST(125) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0)) +! RCONST(126) = constant rate coefficient + RCONST(127) = (GCARR_ac(7.50d-12,290.0d0)) + RCONST(128) = (GCARR_ac(5.20d-13,980.0d0)) + RCONST(129) = (3.00d-13) + RCONST(130) = (3.00d-13) + RCONST(131) = (8.00d-16) + RCONST(132) = (8.37d-14) + RCONST(133) = (8.37d-14) + RCONST(134) = (8.37d-14) + RCONST(135) = (8.37d-14) + RCONST(136) = (GCARR_ac(7.50d-13,500.0d0)) + RCONST(137) = (8.37d-14) + RCONST(138) = (8.37d-14) + RCONST(139) = (8.37d-14) + RCONST(140) = (3.35d-12) + RCONST(141) = (GCARR_ac(4.40d-12,70.0d0)) + RCONST(142) = (6.80d-14) + RCONST(143) = (6.80d-14) + RCONST(144) = (GCARR_ac(7.50d-13,700.0d0)) + RCONST(145) = (GCARR_ac(7.50d-13,700.0d0)) + RCONST(146) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) + RCONST(147) = (GC_RO2HO2_aca(2.91d-13,1300.0d0,3.0d0)) + RCONST(148) = (GCARR_ac(4.30d-13,1040.0d0)) + RCONST(149) = (GCJPLPR_abab(4.60d-27,4.0d0,2.6d-11,1.3d0,0.5d0)) + RCONST(150) = (GCARR_ac(6.50d-15,-1900.0d0)) + RCONST(151) = (GC_GLYCOH_A_a(8.00d-12)) + RCONST(152) = (GC_GLYCOH_B_a(8.00d-12)) + RCONST(153) = (1.0d-11) + RCONST(154) = (GCARR_ac(1.44d-12,-1862.0d0)) + RCONST(155) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0)) + RCONST(156) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0)) + RCONST(157) = (GCARR_ac(7.5d-12,290d0)) + RCONST(158) = (GCARR_ac(5.2d-13,980d0)) + RCONST(159) = (4.0d-12) + RCONST(160) = (1.12d-12) + RCONST(161) = (2.73d-12) + RCONST(162) = (GCARR_ac(4.59d-13,-1156.0d0)) + RCONST(163) = (GCARR_ac(3.10d-12,340.0d0)) + RCONST(164) = (GCARR_ac(1.90d-12,575.0d0)) + RCONST(165) = (GC_GLYXNO3_ac(1.40d-12,-1860.0d0)) + RCONST(166) = (GCARR_ac(3.36d-12,-1860.0d0)) + RCONST(167) = (GC_HACOH_A_ac(2.00d-12,320.0d0)) + RCONST(168) = (GC_HACOH_B_ac(2.00d-12,320.0d0)) + RCONST(169) = (GCARR_ac(8.78d-12,200.0d0)) + RCONST(170) = (GCARR_ac(5.18d-12,200.0d0)) + RCONST(171) = (GCARR_ac(5.18d-12,200.0d0)) + RCONST(172) = (GCARR_ac(8.78d-12,200.0d0)) + RCONST(173) = (GCARR_ac(8.78d-12,200.0d0)) + RCONST(174) = (GCARR_ac(8.78d-12,200.0d0)) + RCONST(175) = (GCARR_ac(6.13d-13,200.0d0)) + RCONST(176) = (GCARR_ac(8.78d-12,200.0d0)) + RCONST(177) = (GCARR_ac(4.82d-11,-400.0d0)) + RCONST(178) = (3.00d-14) + RCONST(179) = (1.40d-18) + RCONST(180) = (GCARR_ac(2.90d-12,500.0d0)) + RCONST(181) = (GCARR_ac(2.00d-12,500.0d0)) + RCONST(182) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(183) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(184) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(185) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(186) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(187) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(188) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(189) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(190) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(191) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(192) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(193) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(194) = (GCARR_ac(2.50d-12,500.0d0)) + RCONST(195) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(196) = (GCARR_ac(8.50d-13,-2450.0d0)) + RCONST(197) = (GCJPLPR_abab(1.00d-30,4.8d+00,7.2d-12,2.1d0,0.6d0)) + RCONST(198) = (GCJPLPR_abcabc(1.05d-02,4.8d+00,-11234.0d0,7.58d16,2.1d0,-11234.0d0,0.6d0)) + RCONST(199) = (GCARR_ac(1.20d-11,-280.0d0)) + RCONST(200) = (GC_DMSOH_acac(8.20d-39,5376.0d0,1.05d-5,3644.0d0)) + RCONST(201) = (GCARR_ac(1.90d-13,530.0d0)) + RCONST(202) = (GCJPLPR_abab(2.90d-31,4.1d+00,1.7d-12,-0.2d0,0.6d0)) + RCONST(203) = (GCARR_ac(1.60d-11,-780.0d0)) + RCONST(204) = (GCARR_ac(4.50d-12,460.0d0)) + RCONST(205) = (GCARR_ac(4.80d-12,-310.0d0)) + RCONST(206) = (GCARR_ac(5.50d-12,200.0d0)) + RCONST(207) = (GCARR_ac(2.40d-12,40.0d0)) + RCONST(208) = (GCARR_ac(2.80d-14,860.0d0)) + RCONST(209) = (GCARR_ac(8.80d-12,260.0d0)) + RCONST(210) = (4.90d-11) + RCONST(211) = (GCARR_ac(2.10d-11,240.0d0)) + RCONST(212) = (GCARR_ac(1.20d-10,-430.0d0)) + RCONST(213) = (GCARR_ac(5.80d-12,-1500.0d0)) + RCONST(214) = (GCARR_ac(1.70d-11,250.0d0)) + RCONST(215) = (1.60d-11) + RCONST(216) = (GCARR_ac(1.70d-11,-800.0d0)) + RCONST(217) = (GCARR_ac(1.80d-11,-460.0d0)) + RCONST(218) = (GCARR_ac(1.66d-10,-7000.0d0)) + RCONST(219) = (GCARR_ac(2.36d-10,-6411.0d0)) + RCONST(220) = (GCARR_ac(8.77d-11,-4330.0d0)) + RCONST(221) = (GCJPLPR_aba(4.20d-31,2.4d0,2.7d-11,0.6d0)) + RCONST(222) = (GCJPLPR_abab(5.40d-31,3.1d0,6.5d-12,2.9d0,0.6d0)) + RCONST(223) = (GCARR_ac(9.00d-13,-360.0d0)) + RCONST(224) = (GCARR_ac(2.00d-12,-840.0d0)) + RCONST(225) = (GCARR_ac(1.42d-12,-1150.0d0)) + RCONST(226) = (GCARR_ac(1.63d-10,60.0d0)) + RCONST(227) = (GCARR_ac(2.15d-11,110.0d0)) + RCONST(228) = (GCARR_ac(3.30d-11,55.0d0)) + RCONST(229) = (1.20d-10) + RCONST(230) = (GCARR_ac(1.19d-10,20.0d0)) + RCONST(231) = (1.75d-10) + RCONST(232) = (GCARR_ab(6.00d-34,2.4d0)*NUMDEN) + RCONST(233) = (GCARR_ac(8.00d-12,-2060.0d0)) + RCONST(234) = (GCARR_ac(2.80d-12,-1800.0d0)) + RCONST(235) = (GCARR_ac(1.80d-11,180.0d0)) + RCONST(236) = (GCARR_ac(3.00d-11,200.0d0)) + RCONST(237) = (2.40d-10) + RCONST(238) = (GCARR_ac(2.10d-11,-2200.0d0)) + RCONST(239) = (GCARR_ac(7.20d-14,-1070.0d0)) + RCONST(240) = (GCJPLAC_ababac(3.4d-31,1.6d0,2.3d-11,0.2d0,5.3d-12,2.0d2,0.6d0)) + RCONST(241) = (1.30d-11) + RCONST(242) = (GCJPLPR_aba(9.00d-32,1.5d+00,3.0d-11,0.6d0)) + RCONST(243) = (GCJPLPR_abab(3.4d-31,1.6d0,2.3d-11,0.2d0,0.6d0)) + RCONST(244) = (GCARR_ac(1.40d-12,-2000.0d0)) + RCONST(245) = (GCJPLPR_abab(5.30d-32,1.8d+00,9.5d-11,-0.4d0,0.6d0)) + RCONST(246) = (GCARR_ac(1.40d-10,-470.0d0)) + RCONST(247) = (8.05d-11) + RCONST(248) = (GCARR_ac(3.30d-12,-3150.0d0)) + RCONST(249) = (GCARR_ac(2.10d-11,100.0d0)) + RCONST(250) = (GCARR_ac(5.80d-12,220.0d0)) + RCONST(251) = (GCARR_ac(1.90d-11,230.0d0)) + RCONST(252) = (GCARR_ac(3.40d-11,-1600.0d0)) + RCONST(253) = (1.50d-10) + RCONST(254) = (1.50d-10) + RCONST(255) = (2.70d-10) + RCONST(256) = (3.30d-10) + RCONST(257) = (2.60d-10) + RCONST(258) = (1.80d-10) + RCONST(259) = (2.70d-10) + RCONST(260) = (6.60d-10) + RCONST(261) = (1.02d-10) + RCONST(262) = (2.30d-10) + RCONST(263) = (1.40d-10) + RCONST(264) = (1.50d-10) + RCONST(265) = (1.00d-10) + RCONST(266) = (2.60d-10) + RCONST(267) = (2.00d-10) + RCONST(268) = (2.00d-10) + RCONST(269) = (2.32d-10) + RCONST(270) = (GCARR_ac(1.30d-10,25.0d0)) + RCONST(271) = (GCARR_ac(5.40d-11,30.0d0)) + RCONST(272) = (GCARR_ac(1.60d-10,0.0d0)) + RCONST(273) = (GCARR_ac(2.60d-12,-1100.0d0)) + RCONST(274) = (GCARR_ac(1.80d-11,-600.0d0)) + RCONST(275) = (GCARR_ac(7.40d-12,270.0d0)) + RCONST(276) = (GCARR_ac(6.00d-13,230.0d0)) + RCONST(277) = (GCARR_ac(1.40d-12,600.0d0)) + RCONST(278) = (GCARR_ac(6.00d-13,670.0d0)) + RCONST(279) = (GCARR_ac(1.80d-12,-250.0d0)) + RCONST(280) = (GCARR_ac(3.00d-12,-500.0d0)) + RCONST(281) = (GCARR_ac(2.40d-12,-1250.0d0)) + RCONST(282) = (GCARR_ac(1.20d-12,-330.0d0)) + RCONST(283) = (GCARR_ac(1.96d-12,-1200.0d0)) + RCONST(284) = (GCARR_ac(1.92d-12,-880.0d0)) + RCONST(285) = (GCARR_ac(2.20d-12,-920.0d0)) + RCONST(286) = (GCARR_ac(1.64d-12,-1520.0d0)) + RCONST(287) = (GCARR_ac(9.20d-13,-1560.0d0)) + RCONST(288) = (GCARR_ac(1.25d-12,-1600.0d0)) + RCONST(289) = (GCARR_ac(1.30d-12,-1770.0d0)) + RCONST(290) = (GCARR_ac(7.40d-13,-900.0d0)) + RCONST(291) = (GCARR_ac(7.10d-12,-1270.0d0)) + RCONST(292) = (GCARR_ac(8.10d-11,-30.0d0)) + RCONST(293) = (GCARR_ac(2.30d-11,-200.0d0)) + RCONST(294) = (GCARR_ac(3.05d-11,-2270.0d0)) + RCONST(295) = (GCARR_ac(1.10d-11,-980.0d0)) + RCONST(296) = (GCARR_ac(1.40d-11,270.0d0)) + RCONST(297) = (GCARR_ac(3.60d-11,-375.0d0)) + RCONST(298) = (GCARR_ac(2.80d-11,85.0d0)) + RCONST(299) = (GCARR_ac(2.60d-12,290.0d0)) + RCONST(300) = (GCARR_ac(6.40d-12,290.0d0)) + RCONST(301) = (GCJPLPR_abab(1.80d-31,3.4d+00,1.50d-11,1.9d0,0.6d0)) + RCONST(302) = (GCARR_ac(1.00d-12,-1590.0d0)) + RCONST(303) = (GCARR_ac(3.00d-11,-2450.0d0)) + RCONST(304) = (GCARR_ac(3.50d-13,-1370.0d0)) + RCONST(305) = (GCJPLPR_aba(2.20d-33,3.1d+00,1.8d-10,0.6d0)) + RCONST(306) = (GCJPLEQ_acabab(6.60d-25,2502.0d0,2.20d-33,3.1d+00,1.8d-10,0.0d0,0.6d0)) + RCONST(307) = (GCJPLPR_abab(1.90d-32,3.6d+00,3.7d-12,1.6d0,0.6d0)) + RCONST(308) = (GCJPLEQ_acabab(2.16d-27,8537.0d0,1.90d-32,3.6d+00,3.7d-12,1.6d0,0.6d0)) + RCONST(309) = (2.42d-10) + RCONST(310) = (GCARR_ac(9.50d-13,550.0d0)) + RCONST(311) = (GCARR_ac(2.30d-12,260.0d0)) + RCONST(312) = (GCARR_ac(4.10d-13,290.0d0)) + RCONST(313) = (GCARR_ac(3.60d-12,-840.0d0)) + RCONST(314) = (GCARR_ac(6.50d-12,135.0d0)) + RCONST(315) = (GCARR_ac(2.03d-11,-1110.0d0)) + RCONST(316) = (GCARR_ac(7.40d-12,-910.0d0)) + RCONST(317) = (GCARR_ac(3.30d-12,-990.0d0)) + RCONST(318) = (2.00d-13) + RCONST(319) = (1.60d-10) + RCONST(320) = (5.7d-11) + RCONST(321) = (GCARR_ac(7.2d-11,-70.0d0)) + RCONST(322) = (7.4d-11) + RCONST(323) = (7.4d-11) + RCONST(324) = (5.5d-11) + RCONST(325) = (9.6d-11) + RCONST(326) = (2.8d-14) + RCONST(327) = (GCARR_ac(6.54d-11,60.0d0)) + RCONST(328) = (GCARR_ac(8.12d-11,-90.0d0)) + RCONST(329) = (GCARR_ac(1.63d-11,-610.0d0)) + RCONST(330) = (GCARR_ac(7.60d-11,500.0d0)) + RCONST(331) = (2.05d-10) + RCONST(332) = (GCJPLPR_aa(4.00d-28,2.8d-10,0.6d0)) + RCONST(333) = (3.60d-12) + RCONST(334) = (GCJPLPR_aba(1.80d-32,1.0d0,1.70d-11,0.6d0)) + RCONST(335) = (GCARR_ac(8.40d-11,-2620.0d0)) + RCONST(336) = (GCJPLPR_aba(3.00d-31,1.0d0,6.6d-11,0.6d0)) + RCONST(337) = (GCARR_ac(9.94d+17,-11859.0d0)) + RCONST(338) = (GCARR_ac(2.90d-11,-2600.0d0)) + RCONST(339) = (1.50d-12) + RCONST(340) = (GCJPLPR_abab(7.50d-31,3.5d0,7.6d-12,1.5d0,0.6d0)) + RCONST(341) = (GCARR_ac(2.10d+15,-13670.0d0)) + RCONST(342) = (GCARR_ac(9.10d-11,-146.0d0)) + RCONST(343) = (1.20d-11) + RCONST(344) = (GCARR_ac(5.50d-12,760.0d0)) + RCONST(345) = (1.00d-10) + RCONST(346) = (1.50d-10) + RCONST(347) = (3.80d-02) + RCONST(348) = (GCARR_ac(1.10d-12,542.0d0)) + RCONST(349) = (GCARR_ac(4.82d-12,280.0d0)) + RCONST(350) = (GCARR_ac(2.00d-11,-830.0d0)) + RCONST(351) = (GCARR_ac(1.50d-11,-1090.0d0)) + RCONST(352) = (1.80d-10) + RCONST(353) = (3.00d-11) + RCONST(354) = (5.00d-12) + RCONST(355) = (GCARR_ac(1.30d-11,570.0d0)) + RCONST(356) = (GCARR_ac(8.60d-12,230.0d0)) + RCONST(357) = (GCARR_ac(1.50d-11,500.0d0)) + RCONST(358) = (GCARR_ac(2.51d+14,-9770.0d0)) + RCONST(359) = (GCARR_ac(2.90d-12,-1100.0d0)) + RCONST(360) = (2.40d-12) + RCONST(361) = (6.70d-13) + RCONST(362) = (1.20d-15) + RCONST(363) = (1.00d-14) + RCONST(364) = (4.25d-12) + RCONST(365) = (2.80d-16) + RCONST(366) = (GCARR_ac(2.88d-35,1391.0d0)) + RCONST(367) = (1.40d-12) + RCONST(368) = (3.80d-11) + RCONST(369) = (1.20d-15) + RCONST(370) = (1.00d-14) + RCONST(371) = (4.25d-12) + RCONST(372) = (2.65d-11) + RCONST(373) = (6.00d-18) + RCONST(374) = (1.00d-17) + RCONST(375) = (GCARR_ac(8.33d-13,490.0d0)) + RCONST(376) = (GCARR_ac(8.33d-13,490.0d0)) + RCONST(377) = (1.22d-11) + RCONST(378) = (GCARR_ac(4.20d-11,401.0d0)) + RCONST(379) = (GCARR_ac(2.95d-15,-783.0d0)) + RCONST(380) = (GCARR_ac(1.21d-11,440.0d0)) + RCONST(381) = (GCARR_ac(2.7d-15,-520.0d0)) + RCONST(382) = (GCARR_ac(1.34d-11,410.0d0)) + RCONST(383) = (GCARR_ac(8.22d-16,-640.0d0)) + RCONST(384) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(385) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(386) = (2.3d-12) + RCONST(387) = (1.83d-11) + RCONST(388) = (5.50d-12) + RCONST(389) = (2.0d-14) + RCONST(390) = (GCARR_ac(5.2d-12,600.0d0)) + RCONST(391) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(392) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(393) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0)) + RCONST(394) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0)) + RCONST(395) = (2.3d-12) + RCONST(396) = (9.73d-12) + RCONST(397) = (6.65d-12) + RCONST(398) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(399) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(400) = (2.3d-12) + RCONST(401) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(402) = (2.6d-11) + RCONST(403) = (2.88d-12) + RCONST(404) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(405) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(406) = (2.3d-12) + RCONST(407) = (4.7d-12) + RCONST(408) = (1.33d-11) + RCONST(409) = (1.55d-11) + RCONST(410) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(411) = (GCARR_ac(4.32d-13,360.0d0)) + RCONST(412) = (GCARR_ac(2.27d-12,360.0d0)) + RCONST(413) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(414) = (2.3d-12) + RCONST(415) = (8.59d-11) + RCONST(416) = (3.24d-12) + RCONST(417) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(418) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(419) = (2.3d-12) + RCONST(420) = (1.1d-10) + RCONST(421) = (8.3d-18) + RCONST(422) = (2.6d-13) + RCONST(423) = (9.97d-11) + RCONST(424) = (1.5d-16) + RCONST(425) = (9.4d-12) + RCONST(426) = (1.1d-10) + RCONST(427) = (8.3d-18) + RCONST(428) = (2.6d-13) + RCONST(429) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(430) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(431) = (2.3d-12) + RCONST(432) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(433) = (3.6d-11) + RCONST(434) = (GCARR_ac(1.22d-11,-1862.0d0)) + RCONST(435) = (6.3d-12) + RCONST(436) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(437) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(438) = (GCJPLPR_abab(9.70d-29,5.6d+00,9.3d-12,1.5d0,0.6d0)) + RCONST(439) = (GCJPLEQ_acabab(9.30d-29,14000.0d0,9.7d-29,5.6d0,9.3d-12,1.5d0,0.6d0)) + RCONST(440) = (2.3d-12) + RCONST(441) = (9.73d-12) + RCONST(442) = (6.65d-12) + RCONST(443) = (GCARR_ac(2.66d-13,1300.0d0)) + RCONST(444) = (GCARR_ac(6.75d-13,360.0d0)) + RCONST(445) = (GCARR_ac(2.03d-12,360.0d0)) + RCONST(446) = (2.3d-12) + RCONST(447) = (GCARR_ac(6.05d-12,440.0d0)) + RCONST(448) = (GCARR_ac(1.35d-15,-520.0d0)) + RCONST(449) = (GCARR_ac(1.06d-12,490.0d0)) + RCONST(450) = (GCARR_ac(6.05d-12,440.0d0)) + RCONST(451) = (GCARR_ac(1.35d-15,-520.0d0)) + RCONST(452) = (GCARR_ac(1.06d-12,490.0d0)) + RCONST(453) = (GCARR_ac(6.05d-12,440.0d0)) + RCONST(454) = (GCARR_ac(1.35d-15,-520.0d0)) + RCONST(455) = (GCARR_ac(1.06d-12,490.0d0)) + RCONST(456) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(457) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(458) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(459) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(460) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(461) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(462) = (GCARR_ac(3.75d-13,500.0d0)) + RCONST(463) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(464) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(465) = (GCARR_ac(3.75d-14,500.0d0)) + RCONST(466) = (GCARR_ac(1.87d-12,500.0d0)) + RCONST(467) = (GCARR_ac(3.75d-14,500.0d0)) + RCONST(468) = (4.00d-12) + RCONST(469) = (4.00d-12) + RCONST(470) = (GCARR_ac(1.66d-13,1300.0d0)) + RCONST(471) = (GCARR_ac(1.66d-13,1300.0d0)) + RCONST(472) = (GCARR_ac(1.60d-13,708.0d0)) + RCONST(473) = (GCARR_ac(9.68d-14,708.0d0)) + RCONST(474) = (GCARR_ac(8.85d-13,765.0d0)) + RCONST(475) = (GCARR_ac(5.37d-13,765.0d0)) + RCONST(476) = (1.20d-12) + RCONST(477) = (1.20d-12) + RCONST(478) = (GCARR_ac(7.00d-14,1000.0d0)) + RCONST(479) = (GCARR_ac(4.25d-14,1000.0d0)) + RCONST(480) = (GCARR_ac(2.96d-14,1000.0d0)) + RCONST(481) = (4.80d-12) + RCONST(482) = (7.29d-11) + RCONST(483) = (1.67d-16) + RCONST(484) = (GCARR_ac(3.15d-13,-448.0d0)) + RCONST(485) = (GCARR_ac(3.15d-13,-448.0d0)) + RCONST(486) = (2.78d-04) + RCONST(487) = (2.78d-04) + RCONST(488) = (GCJPLPR_abab(3.9d-31,7.2d0,1.5d-13,4.8d0,0.6d0)+GCJPLAC_ababac(3.9d-31,7.2d0,1.5d-13,4.8d0,3.7d-14,& &2.4d2,0.6d0)) - RCONST(365) = (GCARR_ac(8.00d-13,-1000.0d0)) - RCONST(366) = (GCARR_ac(1.00d-12,-490.0d0)) - RCONST(367) = (GCARR_ac(1.20d-12,-320.0d0)) - RCONST(368) = (7.10d-13) - RCONST(369) = (GCARR_ac(1.10d-14,-2000.0d0)) - RCONST(370) = (GC_ISO1(1.7d-11,3.90d2,9.33d-2,5.05d15,-1.22d4,1.79d14,-8.830d3)) - RCONST(371) = (GC_ISO1(1.0d-11,3.90d2,2.26d-1,2.22d9,-7.160d3,1.75d14,-9.054d3)) - RCONST(372) = (GC_ISO2(1.7d-11,3.90d2,9.33d-2,5.05d15,-1.22d4,1.79d14,-8.830d3)) - RCONST(373) = (GC_ISO2(1.0d-11,3.90d2,2.26d-1,2.22d9,-7.160d3,1.75d14,-9.054d3)) - RCONST(374) = (ARRPLUS_abde(2.12d-13,-1300d0,1.1644d0,-7.0485d-4)) - RCONST(375) = (ARRPLUS_abde(2.12d-13,-1300d0,-0.1644d0,7.0485d-4)) - RCONST(376) = (ARRPLUS_abde(2.12d-13,-1300d0,1.2038d0,-9.0435d-4)) - RCONST(377) = (ARRPLUS_abde(2.12d-13,-1300d0,-0.2038d0,9.0435d-4)) - RCONST(378) = (ARRPLUS_abde(1.04d11,9.746d3,1.1644d0,-7.0485d-4)) - RCONST(379) = (TUNPLUS_abcde(5.05d15,-1.22d4,1.0d8,-0.0128d0,5.1242d-5)) - RCONST(380) = (ARRPLUS_abde(1.88d11,9.752d3,1.2038d0,-9.0435d-4)) - RCONST(381) = (TUNPLUS_abcde(2.22d9,-7.160d3,1.0d8,-0.0306d0,1.1346d-4)) - RCONST(382) = (ARRPLUS_ade(6.92d-14,1.1644d0,-7.0485d-4)) - RCONST(383) = (ARRPLUS_ade(5.74d-12,1.2038d0,-9.0435d-4)) - RCONST(384) = (ARRPLUS_ade(1.54d-12,2.3682d0,-1.6092d-3)) - RCONST(385) = (ARRPLUS_ade(2.49d-12,-0.1644d0,7.0485d-4)) - RCONST(386) = (ARRPLUS_ade(3.94d-12,-0.2038d0,9.0435d-4)) - RCONST(387) = (ARRPLUS_ade(1.54d-12,-0.3682d0,1.6092d-3)) - RCONST(388) = (ARRPLUS_ade(2.0d-12,1.1644d0,-7.0485d-4)) - RCONST(389) = (ARRPLUS_ade(2.0d-12,-0.1644d0,7.0485d-4)) - RCONST(390) = (ARRPLUS_ade(2.0d-12,1.2038d0,-9.0435d-4)) - RCONST(391) = (ARRPLUS_ade(2.0d-12,-0.2038d0,9.0435d-4)) - RCONST(392) = (GC_NIT(2.7d-12,3.50d2,1.19d0,6.0d0,1.1644d0,7.05d-4)) - RCONST(393) = (GC_ALK(2.7d-12,3.50d2,1.19d0,6.0d0,1.1644d0,7.05d-4)) - RCONST(394) = (GC_NIT(2.7d-12,3.50d2,1.421d0,6.0d0,-0.1644d0,-7.05d-4)) - RCONST(395) = (GC_ALK(2.7d-12,3.50d2,1.421d0,6.0d0,-0.1644d0,-7.05d-4)) - RCONST(396) = (GC_NIT(2.7d-12,3.50d2,1.297d0,6.0d0,1.2038d0,9.04d-4)) - RCONST(397) = (GC_ALK(2.7d-12,3.50d2,1.297d0,6.0d0,1.2038d0,9.04d-4)) - RCONST(398) = (GC_NIT(2.7d-12,3.50d2,1.421d0,6.0d0,-0.2038d0,-9.04d-4)) - RCONST(399) = (GC_ALK(2.7d-12,3.50d2,1.421d0,6.0d0,-0.2038d0,-9.04d-4)) - RCONST(400) = (GCARR_ac(1.17d-11,450.0d0)) - RCONST(401) = (GCARR_ac(1.17d-11,450.0d0)) - RCONST(402) = (GCARR_ac(2.20d-11,390.0d0)) - RCONST(403) = (GCARR_ac(3.50d-11,390.0d0)) - RCONST(404) = (GCARR_ac(4.64d-12,650.0d0)) - RCONST(405) = (GCARR_ac(9.85d-12,410.0d0)) - RCONST(406) = (GCARR_ac(3.00d-12,650.0d0)) - RCONST(407) = (GCARR_ac(2.47d-12,390.0d0)) - RCONST(408) = (GC_EPO_a(1.62d-11,3.90d2,4.77d-21)) - RCONST(409) = (GCARR_ac(4.35d-12,390.0d0)) - RCONST(410) = (GC_EPO_a(2.85d-11,390.0d0,4.77d-21)) - RCONST(411) = (GCARR_ac(6.10d-12,200.0d0)) - RCONST(412) = (GCARR_ac(4.10d-12,200.0d0)) - RCONST(413) = (GCARR_ac(3.53d-11,390.0d0)) - RCONST(414) = (GCARR_ac(3.53d-11,390.0d0)) - RCONST(415) = (GCARR_ac(1.59d+13,-10000.0d0)) - RCONST(416) = (GC_ALK(2.7d-12,3.50d2,2.1d0,9.0d0,1.0d0,0.0d0)) - RCONST(417) = (GC_NIT(2.7d-12,3.50d2,2.1d0,9.0d0,1.0d0,0.0d0)) - RCONST(418) = (GCARR_ac(2.47d-13,1300.0d0)) - RCONST(419) = (GCARR_ac(2.91d+13,-10000.0d0)) - RCONST(420) = (GC_ALK(2.7d-12,3.50d2,2.315d0,9.0d0,1.0d0,0.0d0)) - RCONST(421) = (GC_NIT(2.7d-12,3.50d2,2.315d0,9.0d0,1.0d0,0.0d0)) - RCONST(422) = (GCARR_ac(2.47d-13,1300.0d0)) - RCONST(423) = (GCARR_ac(1.875d+13,-10000.0d0)) - RCONST(424) = (GC_ALK(2.7d-12,3.50d2,3.079d0,9.0d0,1.0d0,0.0d0)) - RCONST(425) = (GC_NIT(2.7d-12,3.50d2,3.079d0,9.0d0,1.0d0,0.0d0)) - RCONST(426) = (GCARR_ac(2.47d-13,1300.0d0)) - RCONST(427) = (GCARR_ac(3.22d-11,-400.0d0)) - RCONST(428) = (GCARR_ac(1.05d-11,-400.0d0)) - RCONST(429) = (GC_EPO_a(5.82d-11,-4.00d2,1.14d-20)) - RCONST(430) = (GCARR_ac(8.25d-12,-400.0d0)) - RCONST(431) = (GC_EPO_a(3.75d-11,-4.00d2,8.91d-21)) - RCONST(432) = (GCARR_ac(1.875d+13,-10000.0d0)) - RCONST(433) = (GCARR_ac(1.0d+7,-5000.0d0)) - RCONST(434) = (GCARR_ac(2.38d-13,1300.0d0)) - RCONST(435) = (GC_ALK(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) - RCONST(436) = (GC_NIT(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) - RCONST(437) = (GCARR_ac(1.875d+13,-10000.0d0)) - RCONST(438) = (GCARR_ac(1.0d+7,-5000.0d0)) - RCONST(439) = (GC_ALK(2.7d-12,3.50d2,16.463d0,8.0d0,1.0d0,0.0d0)) - RCONST(440) = (GC_NIT(2.7d-12,3.50d2,16.463d0,8.0d0,1.0d0,0.0d0)) - RCONST(441) = (GCARR_ac(2.38d-13,1300.0d0)) - RCONST(442) = (GCARR_ac(2.38d-13,1300.0d0)) - RCONST(443) = (GC_NIT(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) - RCONST(444) = (GC_ALK(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) - RCONST(445) = (GCARR_ac(1.875d+13,-10000.0d0)) - RCONST(446) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(447) = (GCARR_ac(2.38d-13,1300.0d0)) - RCONST(448) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(449) = (GCARR_ac(2.38d-13,1300.0d0)) - RCONST(450) = (GCARR_ac(7.14d-12,390.0d0)) - RCONST(451) = (GC_EPO_a(6.30d-12,390.0d0,1.62d-19)) - RCONST(452) = (GCARR_ac(1.02d-11,390.0d0)) - RCONST(453) = (GC_EPO_a(1.05d-11,390.0d0,2.49d-19)) - RCONST(454) = (GC_EPO_a(1.55d-11,390.0d0,2.715d-19)) - RCONST(455) = (GCARR_ac(2.04d-11,390.0d0)) - RCONST(456) = (GC_EPO_a(9.52d-12,390.0d0,2.715d-19)) - RCONST(457) = (GCARR_ac(2.95d-11,390.0d0)) - RCONST(458) = (GCARR_ac(7.5d-12,20.0d0)) - RCONST(459) = (GCARR_ac(7.5d-12,20.0d0)) - RCONST(460) = (GCARR_ac(1.875d+13,-10000.0d0)) - RCONST(461) = (GCARR_ac(2.60d-13,1300.0d0)) - RCONST(462) = (GC_ALK(2.7d-12,350.0d0,6.32d0,11.0d0,1.0d0,0.0d0)) - RCONST(463) = (GC_NIT(2.7d-12,350.0d0,6.32d0,11.0d0,1.0d0,0.0d0)) - RCONST(464) = (GCARR_ac(1.875d+13,-10000.0d0)) - RCONST(465) = (GCARR_ac(2.60d-13,1300.0d0)) - RCONST(466) = (GC_ALK(2.7d-12,350.0d0,7.941d0,11.0d0,1.0d0,0.0d0)) - RCONST(467) = (GC_NIT(2.7d-12,350.0d0,7.941d0,11.0d0,1.0d0,0.0d0)) - RCONST(468) = (GCARR_ac(1.256d+13,-10000.0d0)) - RCONST(469) = (GCARR_ac(5.092d+12,-10000.0d0)) - RCONST(470) = (GCARR_ac(2.60d-13,1300.0d0)) - RCONST(471) = (GC_ALK(2.7d-12,350.0d0,4.712d0,11.0d0,1.0d0,0.0d0)) - RCONST(472) = (GC_NIT(2.7d-12,350.0d0,4.712d0,11.0d0,1.0d0,0.0d0)) - RCONST(473) = (GCARR_ac(2.60d-13,1300.0d0)) - RCONST(474) = (GC_ALK(2.7d-12,350.0d0,2.258d0,11.0d0,1.0d0,0.0d0)) - RCONST(475) = (GC_NIT(2.7d-12,350.0d0,2.258d0,11.0d0,1.0d0,0.0d0)) - RCONST(476) = (GCARR_ac(2.60d-13,1300.0d0)) - RCONST(477) = (GC_ALK(2.7d-12,350.0d0,1.851d0,11.0d0,1.0d0,0.0d0)) - RCONST(478) = (GC_NIT(2.7d-12,350.0d0,1.851d0,11.0d0,1.0d0,0.0d0)) - RCONST(479) = (GCARR_ac(2.95d-12,-450.0d0)) - RCONST(480) = (GCARR_ac(2.47d-13,1300.0d0)) - RCONST(481) = (GCARR_ac(2.47d-13,1300.0d0)) - RCONST(482) = (1.61d-12) - RCONST(483) = (2.56d-12) - RCONST(484) = (3.71d-12) - RCONST(485) = (1.18d-12) - RCONST(486) = (2.80d-13) - RCONST(487) = (1.92d-12) - RCONST(488) = (7.71d-12) - RCONST(489) = (2.3d-12) - RCONST(490) = (2.3d-12) - RCONST(491) = (GC_ALK(2.7d-12,350.0d0,12.915d0,9.0d0,1.0d0,0.0d0)) - RCONST(492) = (GC_NIT(2.7d-12,350.0d0,12.915d0,9.0d0,1.0d0,0.0d0)) - RCONST(493) = (GC_ALK(2.7d-12,350.0d0,1.412d0,9.0d0,1.0d0,0.0d0)) - RCONST(494) = (GC_NIT(2.7d-12,350.0d0,1.412d0,9.0d0,1.0d0,0.0d0)) - RCONST(495) = (GCARR_ac(2.50d-14,-300.0d0)) - RCONST(496) = (GCARR_ac(1.00d+20,-10000.0d0)) - RCONST(497) = (GCARR_ac(5.88d-12,390.0d0)) - RCONST(498) = (GCARR_ac(1.61d-11,390.0d0)) - RCONST(499) = (GC_EPO_a(4.471d-12,390.0d0,2.28d-20)) - RCONST(500) = (GC_EPO_a(8.77d-12,390.0d0,2.185d-20)) - RCONST(501) = (GC_EPO_a(1.493d-11,390.0d0,2.715d-19)) - RCONST(502) = (GCARR_ac(2.278d-12,200.0d0)) - RCONST(503) = (GCARR_ac(3.40d-12,200.0d0)) - RCONST(504) = (GCARR_ac(7.50d-12,20.0d0)) - RCONST(505) = (GCARR_ac(6.55d+12,-10000.0d0)) - RCONST(506) = (GCARR_ac(8.72d+12,-10000.0d0)) - RCONST(507) = (GCARR_ac(2.64d-13,1300.0d0)) - RCONST(508) = (GCARR_ac(2.64d-13,1300.0d0)) - RCONST(509) = (GC_ALK(2.7d-12,350.0d0,6.092d0,12.0d0,1.0d0,0.0d0)) - RCONST(510) = (GC_NIT(2.7d-12,350.0d0,6.092d0,12.0d0,1.0d0,0.0d0)) - RCONST(511) = (GC_ALK(2.7d-12,350.0d0,4.383d0,12.0d0,1.0d0,0.0d0)) - RCONST(512) = (GC_NIT(2.7d-12,350.0d0,4.383d0,12.0d0,1.0d0,0.0d0)) - RCONST(513) = (GC_EPO_a(2.97d-12,390.0d0,2.715d-19)) - RCONST(514) = (GCARR_ac(9.35d-12,390.0d0)) - RCONST(515) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(516) = (GCARR_ac(2.54d-13,1300.0d0)) - RCONST(517) = (GCARR_ac(1.00d-11,0.0d0)) - RCONST(518) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(519) = (GCARR_ac(2.71d-13,1300.0d0)) - RCONST(520) = (GCARR_ac(2.60d-12,610.0d0)) - RCONST(521) = (GCARR_ac(8.50d-16,-1520.0d0)) - RCONST(522) = (GCARR_ac(4.40d-12,380.0d0)) - RCONST(523) = (GCARR_ac(2.70d-12,470.0d0)) - RCONST(524) = (GCARR_ac(1.50d-15,-2110.0d0)) - RCONST(525) = (GCARR_ac(1.80d-13,-1190.0d0)) - RCONST(526) = (GCARR_ac(1.24d-12,380.0d0)) - RCONST(527) = (5.77d-11) - RCONST(528) = (GCARR_ac(2.70d-12,470.0d0)) - RCONST(529) = (GCARR_ac(1.39d-11,380.0d0)) - RCONST(530) = (GCARR_ac(2.70d-12,470.0d0)) - RCONST(531) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(532) = (GCARR_ac(1.93d-13,1300.0d0)) - RCONST(533) = (9.00d-12) - RCONST(534) = (GCARR_ac(2.70d-12,350.0d0)) - RCONST(535) = (GCARR_ac(1.93d-13,1300.0d0)) - RCONST(536) = (9.00d-12) - RCONST(537) = (GCARR_ac(3.71d-12,983.0d0)) - RCONST(538) = (GCARR_ac(5.00d-12,470.0d0)) - RCONST(539) = (GCARR_ac(8.70d-12,70.0d0)) - RCONST(540) = (GCARR_ac(5.00d-12,470.0d0)) - RCONST(541) = (GCARR_ac(2.00d-12,70.0d0)) - RCONST(542) = (GCARR_ac(2.4d-11,70.0d0)) - RCONST(543) = (GCARR_ac(2.12d-13,1300.0d0)) - RCONST(544) = (GC_ALK(2.7d-12,350.0d0,4.573d0,6.0d0,1.0d0,0.0d0)) - RCONST(545) = (GC_NIT(2.7d-12,350.0d0,4.573d0,6.0d0,1.0d0,0.0d0)) - RCONST(546) = (GCARR_ac(2.12d-13,1300.0d0)) - RCONST(547) = (GCARR_ac(3.14d-12,580.0d0)) - RCONST(548) = (1.66d-11) - RCONST(549) = (GCARR_ac(2.90d+7,-5297.0d0)) - RCONST(550) = (GC_ALK(2.7d-12,350.0d0,2.985d0,6.0d0,1.0d0,0.0d0)) - RCONST(551) = (GC_NIT(2.7d-12,350.0d0,2.985d0,6.0d0,1.0d0,0.0d0)) - RCONST(552) = (GCARR_ac(8.7d-12,290.0d0)) - RCONST(553) = (GC_PAN_acac(2.591d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) - RCONST(554) = (GCARR_ac(3.14d-12,580.0d0)) - RCONST(555) = (GCARR_ac(7.50d-12,290.0d0)) - RCONST(556) = (GC_PAN_acac(2.591d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) - RCONST(557) = (4.00d-12) - RCONST(558) = (GCARR_ac(2.9d-12,500.0d0)) - RCONST(559) = (GCARR_ac(1.58d+16,-13500.0d0)) - RCONST(560) = (2.90d-11) - RCONST(561) = (4.33d-12) - RCONST(562) = (1.00d-11) - RCONST(563) = (2.25d-11) - RCONST(564) = (3.00d-12) - RCONST(565) = (3.00d-12) - RCONST(566) = (1.00d-11) - RCONST(567) = (3.00d-12) - RCONST(568) = (GCARR_ac(1.40d-12,-1860.0d0)) - RCONST(569) = (8.00d-13) - RCONST(570) = (GCARR_ac(1.30d-12,500.0d0)) - RCONST(571) = (GCARR_ac(3.14d-12,580.0d0)) - RCONST(572) = (GCARR_ac(1.55d-12,340.0d0)) - RCONST(573) = (2.91d-11) - RCONST(574) = (GCARR_ac(1.56d-11,117.0d0)) - RCONST(575) = (GCARR_ac(1.40d-12,700.0d0)) - RCONST(576) = (GCARR_ac(2.60d-12,350.0d0)) - RCONST(577) = (GCARR_ac(1.20d-14,-2630.0d0)) - RCONST(578) = (GCJPLPR_abab(1.10d-28,3.5d+00,8.4d-12,1.75d0,0.5d0)) - RCONST(579) = (GCJPLPR_abab(5.50d-30,0.0d0,8.3d-13,-2.0d0,0.5d0)) - RCONST(580) = (GCARR_ac(1.53d-13,1300.0d0)) - RCONST(581) = (GCARR_ac(2.7d-12,360.0d0)) - RCONST(582) = (2.3d-12) - RCONST(583) = (6.00d-13) - RCONST(584) = (GCARR_ac(9.5d+13,-5988.0d0)) - RCONST(585) = (GCARR_ac(2.5d-14,-300.0d0)) - RCONST(586) = (8.40d-13) - RCONST(587) = (GCARR_ac(1.90d-12,190.0d0)) - RCONST(588) = (1.38d-11) - RCONST(589) = (GCARR_ac(2.3d-12,-193.0d0)) - RCONST(590) = (GCARR_ac(1.8d-12,340.0d0)) - RCONST(591) = (1.7d-11) - RCONST(592) = (2.91d-13*EXP(1300.0d0/TEMP)*0.82d0) - RCONST(593) = (GCARR_ac(2.60d-12,365.0d0)) - RCONST(594) = (2.30d-12) - RCONST(595) = (GCARR_ac(1.70d-14,220.0d0)) - RCONST(596) = (GCARR_ac(4.20d-14,220.0d0)) - RCONST(597) = (GCARR_ac(4.70d-13,1220.0d0)) - RCONST(598) = (3.8d-12) - RCONST(599) = (4.7d-11) - RCONST(600) = (1.4d-11) - RCONST(601) = (2.0d-11) - RCONST(602) = (9.2d-18) - RCONST(603) = (9.9d-11) - RCONST(604) = (GCARR_ac(5.90d-12,225.0d0)) - RCONST(605) = (2.4d-15) - RCONST(606) = (GCARR_ac(1.10d-11,340.0d0)) - RCONST(607) = (GCARR_ac(7.50d-12,290.0d0)) - RCONST(608) = (GC_PAN_acac(3.28d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) - RCONST(609) = (4.66d-12) - RCONST(610) = (GC_PAN_abab(1.10d-5,-10100.0d0,1.90d+17,-14100.0d0,0.3d0)*0.67d0) - RCONST(611) = (1.06d-12) - RCONST(612) = (7.00d-12) - RCONST(613) = (GCARR_ac(2.670d-12,365.0d0)) - RCONST(614) = (2.30d-12) - RCONST(615) = (GCARR_ac(2.24d-13,1300.0d0)) - RCONST(616) = (3.60d-12) - RCONST(617) = (2.86d-13) - RCONST(618) = (2.08d-12) - RCONST(619) = (3.47d-12) - RCONST(620) = (2.60d-12) - RCONST(621) = (GCARR_ac(2.670d-13,365.0d0)) - RCONST(622) = (GCARR_ac(2.670d-12,365.0d0)) - RCONST(623) = (5.0d-11) - RCONST(624) = (8.0d-16) - RCONST(625) = (1.5d-3) - RCONST(626) = (5.0d-11) - RCONST(627) = (8.0d-16) - RCONST(628) = (1.5d-3) - RCONST(629) = (GCARR_ac(1.40d-12,700.0d0)) - RCONST(630) = (GCARR_ac(2.60d-12,350.0d0)) - RCONST(631) = (GCARR_ac(1.40d-12,700.0d0)) - RCONST(632) = (GCARR_ac(2.60d-12,350.0d0)) - RCONST(633) = (GCARR_ac(1.40d-12,700.0d0)) - RCONST(634) = (GCARR_ac(2.60d-12,350.0d0)) - RCONST(635) = (1.20d-12) - RCONST(636) = (GCARR_ac(1.32d-11,334.0d0)) - RCONST(637) = (HO2uptk1stOrd(State_Het)) - RCONST(638) = (NO2uptk1stOrdAndCloud(State_Het)) - RCONST(639) = (NO3uptk1stOrdAndCloud(State_Het)) - RCONST(640) = (NO3hypsisClonSALA(State_Het)) - RCONST(641) = (NO3hypsisClonSALC(State_Het)) - RCONST(642) = (N2O5uptkByH2O(State_Het)) - RCONST(643) = (N2O5uptkByStratHCl(State_Het)) - RCONST(644) = (N2O5uptkByCloud(State_Het)) - RCONST(645) = (N2O5uptkBySALACl(State_Het)) - RCONST(646) = (N2O5uptkBySALCCl(State_Het)) - RCONST(647) = (OHuptkBySALACl(State_Het)) - RCONST(648) = (OHuptkBySALCCl(State_Het)) - RCONST(649) = (BrNO3uptkByH2O(State_Het)) - RCONST(650) = (BrNO3uptkByHCl(State_Het)) - RCONST(651) = (ClNO3uptkByH2O(State_Het)) - RCONST(652) = (ClNO3uptkByHCl(State_Het)) - RCONST(653) = (ClNO3uptkByHBr(State_Het)) - RCONST(654) = (ClNO3uptkByBrSALA(State_Het)) - RCONST(655) = (ClNO3uptkByBrSALC(State_Het)) - RCONST(656) = (ClNO3uptkBySALACL(State_Het)) - RCONST(657) = (ClNO3uptkBySALCCL(State_Het)) - RCONST(658) = (ClNO2uptkBySALACL(State_Het)) - RCONST(659) = (ClNO2uptkBySALCCL(State_Het)) - RCONST(660) = (ClNO2uptkByHCl(State_Het)) - RCONST(661) = (ClNO2uptkByBrSALA(State_Het)) - RCONST(662) = (ClNO2uptkByBrSALC(State_Het)) - RCONST(663) = (ClNO2uptkByHBr(State_Het)) - RCONST(664) = (HOClUptkByHCl(State_Het)) - RCONST(665) = (HOClUptkByHBr(State_Het)) - RCONST(666) = (HOClUptkBySALACL(State_Het)) - RCONST(667) = (HOClUptkBySALCCL(State_Het)) - RCONST(668) = (HOClUptkByHSO3m(State_Het)+HOClUptkBySO3mm(State_Het)+SRHOCl) - RCONST(669) = (HOBrUptkByHBr(State_Het)) - RCONST(670) = (HOBrUptkByHCl(State_Het)) - RCONST(671) = (HOBrUptkBySALACL(State_Het)) - RCONST(672) = (HOBrUptkBySALCCL(State_Het)) - RCONST(673) = (HOBrUptkByBrSALA(State_Het)) - RCONST(674) = (HOBrUptkByBrSALC(State_Het)) - RCONST(675) = (HOBrUptkByHSO3m(State_Het)+HOBrUptkBySO3mm(State_Het)+SRHOBr) - RCONST(676) = (O3uptkByHBr(State_Het)) - RCONST(677) = (O3uptkByBrSALA(State_Het)) - RCONST(678) = (O3uptkByBrSALC(State_Het)) - RCONST(679) = (HBrUptkBySALA(State_Het)) - RCONST(680) = (HBrUptkBySALC(State_Het)) - RCONST(681) = (IuptkBySulf1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) - RCONST(682) = (IuptkBySALA1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) - RCONST(683) = (IuptkBySALC1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) - RCONST(684) = (IuptkByAlkSALA1stOrd(SR_MW(ind_HOI),0.01_dp,State_Het)) - RCONST(685) = (IuptkByAlkSALC1stOrd(SR_MW(ind_HOI),0.01_dp,State_Het)) - RCONST(686) = (IuptkBySulf1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) - RCONST(687) = (IuptkBySALA1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) - RCONST(688) = (IuptkBySALC1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) - RCONST(689) = (IuptkBySulf1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) - RCONST(690) = (IuptkBySALA1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) - RCONST(691) = (IuptkBySALC1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) - RCONST(692) = (IuptkBySulf1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) - RCONST(693) = (IuptkBySALA1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) - RCONST(694) = (IuptkBySALC1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) - RCONST(695) = (IuptkByAlkSALA1stOrd(SR_MW(ind_IONO),0.02_dp,State_Het)) - RCONST(696) = (IuptkByAlkSALC1stOrd(SR_MW(ind_IONO),0.02_dp,State_Het)) - RCONST(697) = (IuptkByAlkSALA1stOrd(SR_MW(ind_IONO2),0.01_dp,State_Het)) - RCONST(698) = (IuptkByAlkSALC1stOrd(SR_MW(ind_IONO2),0.01_dp,State_Het)) - RCONST(699) = (IONO2uptkByH2O(State_Het)) - RCONST(700) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(701) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(702) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(703) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(704) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(705) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(706) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(707) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(708) = (IbrkdnByAcidBrSALA(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(709) = (IbrkdnByAcidBrSALC(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(710) = (IbrkdnByAcidSALACl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(711) = (IbrkdnByAcidSALCCl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(712) = (GLYXuptk1stOrd(SR_MW(ind_GLYX),State_Het)) - RCONST(713) = (MGLYuptk1stOrd(SR_MW(ind_MGLY),State_Het)) - RCONST(714) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXA),.FALSE.,State_Het)) - RCONST(715) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXB),.FALSE.,State_Het)) - RCONST(716) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXD),.FALSE.,State_Het)) - RCONST(717) = (VOCuptk1stOrd(SR_MW(ind_LVOC),1.0_dp,State_Het)) - RCONST(718) = (VOCuptk1stOrd(SR_MW(ind_MVKN),5.0E-3_dp,State_Het)) - RCONST(719) = (VOCuptk1stOrd(SR_MW(ind_R4N2),5.0E-3_dp,State_Het)) - RCONST(720) = (VOCuptk1stOrd(SR_MW(ind_MONITS),1.0E-2_dp,State_Het)) - RCONST(721) = (VOCuptk1stOrd(SR_MW(ind_MONITU),1.0E-2_dp,State_Het)) - RCONST(722) = (VOCuptk1stOrd(SR_MW(ind_HONIT),1.0E-2_dp,State_Het)) - RCONST(723) = (MGLYuptk1stOrd(SR_MW(ind_PYAC),State_Het)) - RCONST(724) = (IEPOXuptk1stOrd(SR_MW(ind_HMML),.TRUE.,State_Het)) - RCONST(725) = (VOCuptk1stOrd(SR_MW(ind_IHN1),5.0E-3_dp,State_Het)) - RCONST(726) = (VOCuptk1stOrd(SR_MW(ind_IHN2),5.0E-2_dp,State_Het)) - RCONST(727) = (VOCuptk1stOrd(SR_MW(ind_IHN3),5.0E-3_dp,State_Het)) - RCONST(728) = (VOCuptk1stOrd(SR_MW(ind_IHN4),5.0E-3_dp,State_Het)) - RCONST(729) = (IEPOXuptk1stOrd(SR_MW(ind_ICHE),.FALSE.,State_Het)) - RCONST(730) = (VOCuptk1stOrd(SR_MW(ind_INPD),5.0E-3_dp,State_Het)) - RCONST(731) = (VOCuptk1stOrd(SR_MW(ind_INPB),5.0E-3_dp,State_Het)) - RCONST(732) = (VOCuptk1stOrd(SR_MW(ind_IDN),5.0E-3_dp,State_Het)) - RCONST(733) = (VOCuptk1stOrd(SR_MW(ind_ITCN),5.0E-3_dp,State_Het)) - RCONST(734) = (VOCuptk1stOrd(SR_MW(ind_ITHN),5.0E-3_dp,State_Het)) - RCONST(735) = (VOCuptk1stOrd(SR_MW(ind_MCRHNB),5.0E-3_dp,State_Het)) - RCONST(736) = (VOCuptk1stOrd(SR_MW(ind_MCRHN),5.0E-3_dp,State_Het)) - RCONST(737) = (VOCuptk1stOrd(SR_MW(ind_NPHEN),1.0E-2_dp,State_Het)) - RCONST(738) = (PHOTOL(2)) - RCONST(739) = (PHOTOL(3)) - RCONST(740) = (PHOTOL(1)) - RCONST(741) = (PHOTOL(11)) - RCONST(742) = (PHOTOL(9)) - RCONST(743) = (PHOTOL(10)) - RCONST(744) = (PHOTOL(7)) - RCONST(745) = (PHOTOL(8)) - RCONST(746) = (PHOTOL(16)) - RCONST(747) = (PHOTOL(15)) - RCONST(748) = (PHOTOL(17)) - RCONST(749) = (PHOTOL(18)) - RCONST(750) = (PHOTOL(12)) - RCONST(751) = (PHOTOL(13)) - RCONST(752) = (PHOTOL(14)) - RCONST(753) = (PHOTOL(61)) - RCONST(754) = (PHOTOL(62)) - RCONST(755) = (PHOTOL(59)) - RCONST(756) = (PHOTOL(70)) - RCONST(757) = (PHOTOL(76)) - RCONST(758) = (PHOTOL(77)) - RCONST(759) = (PHOTOL(69)) - RCONST(760) = (PHOTOL(68)) - RCONST(761) = (PHOTOL(72)) - RCONST(762) = (PHOTOL(73)) - RCONST(763) = (PHOTOL(74)) - RCONST(764) = (PHOTOL(71)) - RCONST(765) = (PHOTOL(63)) - RCONST(766) = (PHOTOL(64)) - RCONST(767) = (PHOTOL(65)) - RCONST(768) = (PHOTOL(66)) - RCONST(769) = (PHOTOL(75)) - RCONST(770) = (PHOTOL(79)) - RCONST(771) = (PHOTOL(80)) - RCONST(772) = (PHOTOL(81)) - RCONST(773) = (PHOTOL(82)) - RCONST(774) = (PHOTOL(83)) - RCONST(775) = (PHOTOL(84)) - RCONST(776) = (PHOTOL(85)) - RCONST(777) = (PHOTOL(98)) - RCONST(778) = (PHOTOL(99)) - RCONST(779) = (PHOTOL(23)) - RCONST(780) = (PHOTOL(28)) - RCONST(781) = (PHOTOL(32)) - RCONST(782) = (PHOTOL(29)) - RCONST(783) = (PHOTOL(30)) - RCONST(784) = (PHOTOL(31)) - RCONST(785) = (PHOTOL(56)) - RCONST(786) = (PHOTOL(55)) - RCONST(787) = (PHOTOL(50)) - RCONST(788) = (PHOTOL(43)) - RCONST(789) = (PHOTOL(45)) - RCONST(790) = (PHOTOL(33)) - RCONST(791) = (PHOTOL(22)) - RCONST(792) = (PHOTOL(27)) - RCONST(793) = (PHOTOL(25)) - RCONST(794) = (PHOTOL(26)) - RCONST(795) = (PHOTOL(21)) - RCONST(796) = (PHOTOL(19)) - RCONST(797) = (PHOTOL(20)) - RCONST(798) = (PHOTOL(24)) - RCONST(799) = (PHOTOL(44)) - RCONST(800) = (PHOTOL(42)) - RCONST(801) = (PHOTOL(37)) - RCONST(802) = (PHOTOL(38)) - RCONST(803) = (PHOTOL(39)) - RCONST(804) = (PHOTOL(40)) - RCONST(805) = (PHOTOL(41)) - RCONST(806) = (PHOTOL(47)) - RCONST(807) = (PHOTOL(48)) - RCONST(808) = (PHOTOL(49)) - RCONST(809) = (PHOTOL(46)) - RCONST(810) = (PHOTOL(53)) - RCONST(811) = (PHOTOL(51)) - RCONST(812) = (PHOTOL(54)) - RCONST(813) = (PHOTOL(101)) - RCONST(814) = (PHOTOL(114)) - RCONST(815) = (PHOTOL(115)) - RCONST(816) = (PHOTOL(116)) - RCONST(817) = (PHOTOL(117)) - RCONST(818) = (PHOTOL(118)) - RCONST(819) = (PHOTOL(119)) - RCONST(820) = (PHOTOL(120)) - RCONST(821) = (PHOTOL(121)) - RCONST(822) = (PHOTOL(122)) - RCONST(823) = (PHOTOL(123)) - RCONST(824) = (PHOTOL(124)) - RCONST(825) = (PHOTOL(125)) - RCONST(826) = (PHOTOL(126)) - RCONST(827) = (PHOTOL(127)) - RCONST(828) = (PHOTOL(128)) - RCONST(829) = (PHOTOL(129)) - RCONST(830) = (PHOTOL(103)) - RCONST(831) = (PHOTOL(104)) - RCONST(832) = (PHOTOL(97)) - RCONST(833) = (PHOTOL(36)) - RCONST(834) = (PHOTOL(34)) - RCONST(835) = (PHOTOL(100)) - RCONST(836) = (PHOTOL(6)) - RCONST(837) = (PHOTOL(105)) - RCONST(838) = (PHOTOL(107)) - RCONST(839) = (PHOTOL(111)) - RCONST(840) = (PHOTOL(112)) - RCONST(841) = (PHOTOL(113)) - RCONST(842) = (PHOTOL(130)) - RCONST(843) = (PHOTOL(131)) - RCONST(844) = (PHOTOL(132)) - RCONST(845) = (PHOTOL(133)) - RCONST(846) = (PHOTOL(134)) - RCONST(847) = (PHOTOL(135)) - RCONST(848) = (PHOTOL(136)) - RCONST(849) = (PHOTOL(137)) - RCONST(850) = (PHOTOL(86)) - RCONST(851) = (PHOTOL(87)) - RCONST(852) = (PHOTOL(88)) - RCONST(853) = (PHOTOL(89)) - RCONST(854) = (PHOTOL(90)) - RCONST(855) = (PHOTOL(91)) - RCONST(856) = (PHOTOL(92)) - RCONST(857) = (PHOTOL(93)) - RCONST(858) = (PHOTOL(94)) - RCONST(859) = (PHOTOL(95)) - RCONST(860) = (PHOTOL(96)) - RCONST(861) = (PHOTOL(108)) - RCONST(862) = (PHOTOL(109)) - RCONST(863) = (PHOTOL(110)) - RCONST(864) = (PHOTOL(138)) - RCONST(865) = (PHOTOL(139)) - RCONST(866) = (PHOTOL(140)) - RCONST(867) = (PHOTOL(141)) - RCONST(868) = (PHOTOL(142)) - RCONST(869) = (PHOTOL(143)) - RCONST(870) = (PHOTOL(144)) - RCONST(871) = (PHOTOL(145)) - RCONST(872) = (PHOTOL(146)) - RCONST(873) = (PHOTOL(147)) - RCONST(874) = (PHOTOL(148)) - RCONST(875) = (PHOTOL(149)) - RCONST(876) = (PHOTOL(150)) - RCONST(877) = (PHOTOL(151)) - RCONST(878) = (PHOTOL(152)) - RCONST(879) = (PHOTOL(106)) - RCONST(880) = (PHOTOL(78)) - RCONST(881) = (PHOTOL(153)) - RCONST(882) = (PHOTOL(154)) - RCONST(883) = (PHOTOL(155)) - RCONST(884) = (PHOTOL(156)) - RCONST(885) = (PHOTOL(157)) - RCONST(886) = (PHOTOL(158)) - RCONST(887) = (PHOTOL(159)) - RCONST(888) = (PHOTOL(160)) - RCONST(889) = (PHOTOL(161)) - RCONST(890) = (PHOTOL(162)) - RCONST(891) = (PHOTOL(163)) - RCONST(892) = (PHOTOL(164)) - RCONST(893) = (PHOTOL(165)) - RCONST(894) = (PHOTOL(166)) + RCONST(489) = (GCARR_ac(8.00d-13,-1000.0d0)) + RCONST(490) = (GCARR_ac(1.00d-12,-490.0d0)) + RCONST(491) = (GCARR_ac(1.20d-12,-320.0d0)) + RCONST(492) = (7.10d-13) + RCONST(493) = (GCARR_ac(1.10d-14,-2000.0d0)) + RCONST(494) = (GC_ISO1(1.7d-11,3.90d2,9.33d-2,5.05d15,-1.22d4,1.79d14,-8.830d3)) + RCONST(495) = (GC_ISO1(1.0d-11,3.90d2,2.26d-1,2.22d9,-7.160d3,1.75d14,-9.054d3)) + RCONST(496) = (GC_ISO2(1.7d-11,3.90d2,9.33d-2,5.05d15,-1.22d4,1.79d14,-8.830d3)) + RCONST(497) = (GC_ISO2(1.0d-11,3.90d2,2.26d-1,2.22d9,-7.160d3,1.75d14,-9.054d3)) + RCONST(498) = (ARRPLUS_abde(2.12d-13,-1300d0,1.1644d0,-7.0485d-4)) + RCONST(499) = (ARRPLUS_abde(2.12d-13,-1300d0,-0.1644d0,7.0485d-4)) + RCONST(500) = (ARRPLUS_abde(2.12d-13,-1300d0,1.2038d0,-9.0435d-4)) + RCONST(501) = (ARRPLUS_abde(2.12d-13,-1300d0,-0.2038d0,9.0435d-4)) + RCONST(502) = (ARRPLUS_abde(1.04d11,9.746d3,1.1644d0,-7.0485d-4)) + RCONST(503) = (TUNPLUS_abcde(5.05d15,-1.22d4,1.0d8,-0.0128d0,5.1242d-5)) + RCONST(504) = (ARRPLUS_abde(1.88d11,9.752d3,1.2038d0,-9.0435d-4)) + RCONST(505) = (TUNPLUS_abcde(2.22d9,-7.160d3,1.0d8,-0.0306d0,1.1346d-4)) + RCONST(506) = (ARRPLUS_ade(6.92d-14,1.1644d0,-7.0485d-4)) + RCONST(507) = (ARRPLUS_ade(5.74d-12,1.2038d0,-9.0435d-4)) + RCONST(508) = (ARRPLUS_ade(1.54d-12,2.3682d0,-1.6092d-3)) + RCONST(509) = (ARRPLUS_ade(2.49d-12,-0.1644d0,7.0485d-4)) + RCONST(510) = (ARRPLUS_ade(3.94d-12,-0.2038d0,9.0435d-4)) + RCONST(511) = (ARRPLUS_ade(1.54d-12,-0.3682d0,1.6092d-3)) + RCONST(512) = (ARRPLUS_ade(2.0d-12,1.1644d0,-7.0485d-4)) + RCONST(513) = (ARRPLUS_ade(2.0d-12,-0.1644d0,7.0485d-4)) + RCONST(514) = (ARRPLUS_ade(2.0d-12,1.2038d0,-9.0435d-4)) + RCONST(515) = (ARRPLUS_ade(2.0d-12,-0.2038d0,9.0435d-4)) + RCONST(516) = (GC_NIT(2.7d-12,3.50d2,1.19d0,6.0d0,1.1644d0,7.05d-4)) + RCONST(517) = (GC_ALK(2.7d-12,3.50d2,1.19d0,6.0d0,1.1644d0,7.05d-4)) + RCONST(518) = (GC_NIT(2.7d-12,3.50d2,1.421d0,6.0d0,-0.1644d0,-7.05d-4)) + RCONST(519) = (GC_ALK(2.7d-12,3.50d2,1.421d0,6.0d0,-0.1644d0,-7.05d-4)) + RCONST(520) = (GC_NIT(2.7d-12,3.50d2,1.297d0,6.0d0,1.2038d0,9.04d-4)) + RCONST(521) = (GC_ALK(2.7d-12,3.50d2,1.297d0,6.0d0,1.2038d0,9.04d-4)) + RCONST(522) = (GC_NIT(2.7d-12,3.50d2,1.421d0,6.0d0,-0.2038d0,-9.04d-4)) + RCONST(523) = (GC_ALK(2.7d-12,3.50d2,1.421d0,6.0d0,-0.2038d0,-9.04d-4)) + RCONST(524) = (GCARR_ac(1.17d-11,450.0d0)) + RCONST(525) = (GCARR_ac(1.17d-11,450.0d0)) + RCONST(526) = (GCARR_ac(2.20d-11,390.0d0)) + RCONST(527) = (GCARR_ac(3.50d-11,390.0d0)) + RCONST(528) = (GCARR_ac(4.64d-12,650.0d0)) + RCONST(529) = (GCARR_ac(9.85d-12,410.0d0)) + RCONST(530) = (GCARR_ac(3.00d-12,650.0d0)) + RCONST(531) = (GCARR_ac(2.47d-12,390.0d0)) + RCONST(532) = (GC_EPO_a(1.62d-11,3.90d2,4.77d-21)) + RCONST(533) = (GCARR_ac(4.35d-12,390.0d0)) + RCONST(534) = (GC_EPO_a(2.85d-11,390.0d0,4.77d-21)) + RCONST(535) = (GCARR_ac(6.10d-12,200.0d0)) + RCONST(536) = (GCARR_ac(4.10d-12,200.0d0)) + RCONST(537) = (GCARR_ac(3.53d-11,390.0d0)) + RCONST(538) = (GCARR_ac(3.53d-11,390.0d0)) + RCONST(539) = (GCARR_ac(1.59d+13,-10000.0d0)) + RCONST(540) = (GC_ALK(2.7d-12,3.50d2,2.1d0,9.0d0,1.0d0,0.0d0)) + RCONST(541) = (GC_NIT(2.7d-12,3.50d2,2.1d0,9.0d0,1.0d0,0.0d0)) + RCONST(542) = (GCARR_ac(2.47d-13,1300.0d0)) + RCONST(543) = (GCARR_ac(2.91d+13,-10000.0d0)) + RCONST(544) = (GC_ALK(2.7d-12,3.50d2,2.315d0,9.0d0,1.0d0,0.0d0)) + RCONST(545) = (GC_NIT(2.7d-12,3.50d2,2.315d0,9.0d0,1.0d0,0.0d0)) + RCONST(546) = (GCARR_ac(2.47d-13,1300.0d0)) + RCONST(547) = (GCARR_ac(1.875d+13,-10000.0d0)) + RCONST(548) = (GC_ALK(2.7d-12,3.50d2,3.079d0,9.0d0,1.0d0,0.0d0)) + RCONST(549) = (GC_NIT(2.7d-12,3.50d2,3.079d0,9.0d0,1.0d0,0.0d0)) + RCONST(550) = (GCARR_ac(2.47d-13,1300.0d0)) + RCONST(551) = (GCARR_ac(3.22d-11,-400.0d0)) + RCONST(552) = (GCARR_ac(1.05d-11,-400.0d0)) + RCONST(553) = (GC_EPO_a(5.82d-11,-4.00d2,1.14d-20)) + RCONST(554) = (GCARR_ac(8.25d-12,-400.0d0)) + RCONST(555) = (GC_EPO_a(3.75d-11,-4.00d2,8.91d-21)) + RCONST(556) = (GCARR_ac(1.875d+13,-10000.0d0)) + RCONST(557) = (GCARR_ac(1.0d+7,-5000.0d0)) + RCONST(558) = (GCARR_ac(2.38d-13,1300.0d0)) + RCONST(559) = (GC_ALK(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) + RCONST(560) = (GC_NIT(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) + RCONST(561) = (GCARR_ac(1.875d+13,-10000.0d0)) + RCONST(562) = (GCARR_ac(1.0d+7,-5000.0d0)) + RCONST(563) = (GC_ALK(2.7d-12,3.50d2,16.463d0,8.0d0,1.0d0,0.0d0)) + RCONST(564) = (GC_NIT(2.7d-12,3.50d2,16.463d0,8.0d0,1.0d0,0.0d0)) + RCONST(565) = (GCARR_ac(2.38d-13,1300.0d0)) + RCONST(566) = (GCARR_ac(2.38d-13,1300.0d0)) + RCONST(567) = (GC_NIT(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) + RCONST(568) = (GC_ALK(2.7d-12,3.50d2,13.098d0,8.0d0,1.0d0,0.0d0)) + RCONST(569) = (GCARR_ac(1.875d+13,-10000.0d0)) + RCONST(570) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(571) = (GCARR_ac(2.38d-13,1300.0d0)) + RCONST(572) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(573) = (GCARR_ac(2.38d-13,1300.0d0)) + RCONST(574) = (GCARR_ac(7.14d-12,390.0d0)) + RCONST(575) = (GC_EPO_a(6.30d-12,390.0d0,1.62d-19)) + RCONST(576) = (GCARR_ac(1.02d-11,390.0d0)) + RCONST(577) = (GC_EPO_a(1.05d-11,390.0d0,2.49d-19)) + RCONST(578) = (GC_EPO_a(1.55d-11,390.0d0,2.715d-19)) + RCONST(579) = (GCARR_ac(2.04d-11,390.0d0)) + RCONST(580) = (GC_EPO_a(9.52d-12,390.0d0,2.715d-19)) + RCONST(581) = (GCARR_ac(2.95d-11,390.0d0)) + RCONST(582) = (GCARR_ac(7.5d-12,20.0d0)) + RCONST(583) = (GCARR_ac(7.5d-12,20.0d0)) + RCONST(584) = (GCARR_ac(1.875d+13,-10000.0d0)) + RCONST(585) = (GCARR_ac(2.60d-13,1300.0d0)) + RCONST(586) = (GC_ALK(2.7d-12,350.0d0,6.32d0,11.0d0,1.0d0,0.0d0)) + RCONST(587) = (GC_NIT(2.7d-12,350.0d0,6.32d0,11.0d0,1.0d0,0.0d0)) + RCONST(588) = (GCARR_ac(1.875d+13,-10000.0d0)) + RCONST(589) = (GCARR_ac(2.60d-13,1300.0d0)) + RCONST(590) = (GC_ALK(2.7d-12,350.0d0,7.941d0,11.0d0,1.0d0,0.0d0)) + RCONST(591) = (GC_NIT(2.7d-12,350.0d0,7.941d0,11.0d0,1.0d0,0.0d0)) + RCONST(592) = (GCARR_ac(1.256d+13,-10000.0d0)) + RCONST(593) = (GCARR_ac(5.092d+12,-10000.0d0)) + RCONST(594) = (GCARR_ac(2.60d-13,1300.0d0)) + RCONST(595) = (GC_ALK(2.7d-12,350.0d0,4.712d0,11.0d0,1.0d0,0.0d0)) + RCONST(596) = (GC_NIT(2.7d-12,350.0d0,4.712d0,11.0d0,1.0d0,0.0d0)) + RCONST(597) = (GCARR_ac(2.60d-13,1300.0d0)) + RCONST(598) = (GC_ALK(2.7d-12,350.0d0,2.258d0,11.0d0,1.0d0,0.0d0)) + RCONST(599) = (GC_NIT(2.7d-12,350.0d0,2.258d0,11.0d0,1.0d0,0.0d0)) + RCONST(600) = (GCARR_ac(2.60d-13,1300.0d0)) + RCONST(601) = (GC_ALK(2.7d-12,350.0d0,1.851d0,11.0d0,1.0d0,0.0d0)) + RCONST(602) = (GC_NIT(2.7d-12,350.0d0,1.851d0,11.0d0,1.0d0,0.0d0)) + RCONST(603) = (GCARR_ac(2.95d-12,-450.0d0)) + RCONST(604) = (GCARR_ac(2.47d-13,1300.0d0)) + RCONST(605) = (GCARR_ac(2.47d-13,1300.0d0)) + RCONST(606) = (1.61d-12) + RCONST(607) = (2.56d-12) + RCONST(608) = (3.71d-12) + RCONST(609) = (1.18d-12) + RCONST(610) = (2.80d-13) + RCONST(611) = (1.92d-12) + RCONST(612) = (7.71d-12) + RCONST(613) = (2.3d-12) + RCONST(614) = (2.3d-12) + RCONST(615) = (GC_ALK(2.7d-12,350.0d0,12.915d0,9.0d0,1.0d0,0.0d0)) + RCONST(616) = (GC_NIT(2.7d-12,350.0d0,12.915d0,9.0d0,1.0d0,0.0d0)) + RCONST(617) = (GC_ALK(2.7d-12,350.0d0,1.412d0,9.0d0,1.0d0,0.0d0)) + RCONST(618) = (GC_NIT(2.7d-12,350.0d0,1.412d0,9.0d0,1.0d0,0.0d0)) + RCONST(619) = (GCARR_ac(2.50d-14,-300.0d0)) + RCONST(620) = (GCARR_ac(1.00d+20,-10000.0d0)) + RCONST(621) = (GCARR_ac(5.88d-12,390.0d0)) + RCONST(622) = (GCARR_ac(1.61d-11,390.0d0)) + RCONST(623) = (GC_EPO_a(4.471d-12,390.0d0,2.28d-20)) + RCONST(624) = (GC_EPO_a(8.77d-12,390.0d0,2.185d-20)) + RCONST(625) = (GC_EPO_a(1.493d-11,390.0d0,2.715d-19)) + RCONST(626) = (GCARR_ac(2.278d-12,200.0d0)) + RCONST(627) = (GCARR_ac(3.40d-12,200.0d0)) + RCONST(628) = (GCARR_ac(7.50d-12,20.0d0)) + RCONST(629) = (GCARR_ac(6.55d+12,-10000.0d0)) + RCONST(630) = (GCARR_ac(8.72d+12,-10000.0d0)) + RCONST(631) = (GCARR_ac(2.64d-13,1300.0d0)) + RCONST(632) = (GCARR_ac(2.64d-13,1300.0d0)) + RCONST(633) = (GC_ALK(2.7d-12,350.0d0,6.092d0,12.0d0,1.0d0,0.0d0)) + RCONST(634) = (GC_NIT(2.7d-12,350.0d0,6.092d0,12.0d0,1.0d0,0.0d0)) + RCONST(635) = (GC_ALK(2.7d-12,350.0d0,4.383d0,12.0d0,1.0d0,0.0d0)) + RCONST(636) = (GC_NIT(2.7d-12,350.0d0,4.383d0,12.0d0,1.0d0,0.0d0)) + RCONST(637) = (GC_EPO_a(2.97d-12,390.0d0,2.715d-19)) + RCONST(638) = (GCARR_ac(9.35d-12,390.0d0)) + RCONST(639) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(640) = (GCARR_ac(2.54d-13,1300.0d0)) + RCONST(641) = (GCARR_ac(1.00d-11,0.0d0)) + RCONST(642) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(643) = (GCARR_ac(2.71d-13,1300.0d0)) + RCONST(644) = (GCARR_ac(2.60d-12,610.0d0)) + RCONST(645) = (GCARR_ac(8.50d-16,-1520.0d0)) + RCONST(646) = (GCARR_ac(4.40d-12,380.0d0)) + RCONST(647) = (GCARR_ac(2.70d-12,470.0d0)) + RCONST(648) = (GCARR_ac(1.50d-15,-2110.0d0)) + RCONST(649) = (GCARR_ac(1.80d-13,-1190.0d0)) + RCONST(650) = (GCARR_ac(1.24d-12,380.0d0)) + RCONST(651) = (5.77d-11) + RCONST(652) = (GCARR_ac(2.70d-12,470.0d0)) + RCONST(653) = (GCARR_ac(1.39d-11,380.0d0)) + RCONST(654) = (GCARR_ac(2.70d-12,470.0d0)) + RCONST(655) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(656) = (GCARR_ac(1.93d-13,1300.0d0)) + RCONST(657) = (9.00d-12) + RCONST(658) = (GCARR_ac(2.70d-12,350.0d0)) + RCONST(659) = (GCARR_ac(1.93d-13,1300.0d0)) + RCONST(660) = (9.00d-12) + RCONST(661) = (GCARR_ac(3.71d-12,983.0d0)) + RCONST(662) = (GCARR_ac(5.00d-12,470.0d0)) + RCONST(663) = (GCARR_ac(8.70d-12,70.0d0)) + RCONST(664) = (GCARR_ac(5.00d-12,470.0d0)) + RCONST(665) = (GCARR_ac(2.00d-12,70.0d0)) + RCONST(666) = (GCARR_ac(2.4d-11,70.0d0)) + RCONST(667) = (GCARR_ac(2.12d-13,1300.0d0)) + RCONST(668) = (GC_ALK(2.7d-12,350.0d0,4.573d0,6.0d0,1.0d0,0.0d0)) + RCONST(669) = (GC_NIT(2.7d-12,350.0d0,4.573d0,6.0d0,1.0d0,0.0d0)) + RCONST(670) = (GCARR_ac(2.12d-13,1300.0d0)) + RCONST(671) = (GCARR_ac(3.14d-12,580.0d0)) + RCONST(672) = (1.66d-11) + RCONST(673) = (GCARR_ac(2.90d+7,-5297.0d0)) + RCONST(674) = (GC_ALK(2.7d-12,350.0d0,2.985d0,6.0d0,1.0d0,0.0d0)) + RCONST(675) = (GC_NIT(2.7d-12,350.0d0,2.985d0,6.0d0,1.0d0,0.0d0)) + RCONST(676) = (GCARR_ac(8.7d-12,290.0d0)) + RCONST(677) = (GC_PAN_acac(2.591d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) + RCONST(678) = (GCARR_ac(3.14d-12,580.0d0)) + RCONST(679) = (GCARR_ac(7.50d-12,290.0d0)) + RCONST(680) = (GC_PAN_acac(2.591d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) + RCONST(681) = (4.00d-12) + RCONST(682) = (GCARR_ac(2.9d-12,500.0d0)) + RCONST(683) = (GCARR_ac(1.58d+16,-13500.0d0)) + RCONST(684) = (2.90d-11) + RCONST(685) = (4.33d-12) + RCONST(686) = (1.00d-11) + RCONST(687) = (2.25d-11) + RCONST(688) = (3.00d-12) + RCONST(689) = (3.00d-12) + RCONST(690) = (1.00d-11) + RCONST(691) = (3.00d-12) + RCONST(692) = (GCARR_ac(1.40d-12,-1860.0d0)) + RCONST(693) = (8.00d-13) + RCONST(694) = (GCARR_ac(1.30d-12,500.0d0)) + RCONST(695) = (GCARR_ac(3.14d-12,580.0d0)) + RCONST(696) = (GCARR_ac(1.55d-12,340.0d0)) + RCONST(697) = (2.91d-11) + RCONST(698) = (GCARR_ac(1.56d-11,117.0d0)) + RCONST(699) = (GCARR_ac(1.40d-12,700.0d0)) + RCONST(700) = (GCARR_ac(2.60d-12,350.0d0)) + RCONST(701) = (1.20d-12) + RCONST(702) = (5.8d-11) + RCONST(703) = (1.5d-12) + RCONST(704) = (1.7d-17) + RCONST(705) = (7.0d-12) + RCONST(706) = (1.2d-16) + RCONST(707) = (3.92d-11) + RCONST(708) = (1.4d-15) + RCONST(709) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(710) = (GCARR_ac(1.5d-13,1310.0d0)) + RCONST(711) = (7.16d-11) + RCONST(712) = (GCARR_ac(1.20d-14,-2630.0d0)) + RCONST(713) = (GCJPLPR_abab(1.10d-28,3.5d+00,8.4d-12,1.75d0,0.5d0)) + RCONST(714) = (GCJPLPR_abab(5.50d-30,0.0d0,8.3d-13,-2.0d0,0.5d0)) + RCONST(715) = (GCARR_ac(1.53d-13,1300.0d0)) + RCONST(716) = (GCARR_ac(2.7d-12,360.0d0)) + RCONST(717) = (2.3d-12) + RCONST(718) = (6.00d-13) + RCONST(719) = (GCARR_ac(9.5d+13,-5988.0d0)) + RCONST(720) = (GCARR_ac(2.5d-14,-300.0d0)) + RCONST(721) = (8.40d-13) + RCONST(722) = (GCARR_ac(1.90d-12,190.0d0)) + RCONST(723) = (1.38d-11) + RCONST(724) = (GCARR_ac(2.3d-12,-193.0d0)) + RCONST(725) = (GCARR_ac(1.8d-12,340.0d0)) + RCONST(726) = (1.7d-11) + RCONST(727) = (2.91d-13*EXP(1300.0d0/TEMP)*0.82d0) + RCONST(728) = (GCARR_ac(2.60d-12,365.0d0)) + RCONST(729) = (2.30d-12) + RCONST(730) = (GCARR_ac(1.70d-14,220.0d0)) + RCONST(731) = (GCARR_ac(4.20d-14,220.0d0)) + RCONST(732) = (6.9d-11) + RCONST(733) = (GCARR_abc(2.7d-12,0.0d0,360.0d0)) + RCONST(734) = (GCARR_abc(2.05d-13,0.0d0,1300.0d0)) +! RCONST(735) = constant rate coefficient + RCONST(736) = (GCARR_abc(7.50d-12,0.0d0,290.0d0)) + RCONST(737) = (GCARR_abc(5.20d-13,0.0d0,980.0d0)) + RCONST(738) = (GC_PAN_acac(3.28d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) + RCONST(739) = (GC_PAN_abab(1.10d-5,-10100.0d0,1.90d+17,-14100.0d0,0.3d0)*0.67d0) + RCONST(740) = (1.0d-14) + RCONST(741) = (GCARR_ac(4.70d-13,1220.0d0)) + RCONST(742) = (3.8d-12) + RCONST(743) = (4.7d-11) + RCONST(744) = (1.4d-11) + RCONST(745) = (2.0d-11) + RCONST(746) = (9.2d-18) + RCONST(747) = (9.9d-11) + RCONST(748) = (GCARR_ac(5.90d-12,225.0d0)) + RCONST(749) = (2.4d-15) + RCONST(750) = (GCARR_ac(1.10d-11,340.0d0)) + RCONST(751) = (GCARR_ac(7.50d-12,290.0d0)) + RCONST(752) = (GC_PAN_acac(3.28d-28,-6.87d0,1.125d-11,-1.105d0,0.3d0)) + RCONST(753) = (4.66d-12) + RCONST(754) = (GC_PAN_abab(1.10d-5,-10100.0d0,1.90d+17,-14100.0d0,0.3d0)*0.67d0) + RCONST(755) = (1.06d-12) + RCONST(756) = (7.00d-12) + RCONST(757) = (GCARR_ac(2.670d-12,365.0d0)) + RCONST(758) = (2.30d-12) + RCONST(759) = (GCARR_ac(2.24d-13,1300.0d0)) + RCONST(760) = (3.60d-12) + RCONST(761) = (2.86d-13) + RCONST(762) = (2.08d-12) + RCONST(763) = (3.47d-12) + RCONST(764) = (2.60d-12) + RCONST(765) = (GCARR_ac(2.670d-13,365.0d0)) + RCONST(766) = (GCARR_ac(2.670d-12,365.0d0)) + RCONST(767) = (5.0d-11) + RCONST(768) = (8.0d-16) + RCONST(769) = (1.5d-3) + RCONST(770) = (5.0d-11) + RCONST(771) = (8.0d-16) + RCONST(772) = (1.5d-3) + RCONST(773) = (GCARR_ac(1.40d-12,700.0d0)) + RCONST(774) = (GCARR_ac(2.60d-12,350.0d0)) + RCONST(775) = (GCARR_ac(1.40d-12,700.0d0)) + RCONST(776) = (GCARR_ac(2.60d-12,350.0d0)) + RCONST(777) = (GCARR_ac(1.40d-12,700.0d0)) + RCONST(778) = (GCARR_ac(2.60d-12,350.0d0)) + RCONST(779) = (1.20d-12) + RCONST(780) = (GCARR_ac(1.32d-11,334.0d0)) + RCONST(781) = (HO2uptk1stOrd(State_Het)) + RCONST(782) = (NO2uptk1stOrdAndCloud(State_Het)) + RCONST(783) = (NO3uptk1stOrdAndCloud(State_Het)) + RCONST(784) = (NO3hypsisClonSALA(State_Het)) + RCONST(785) = (NO3hypsisClonSALC(State_Het)) + RCONST(786) = (N2O5uptkByH2O(State_Het)) + RCONST(787) = (N2O5uptkByStratHCl(State_Het)) + RCONST(788) = (N2O5uptkByCloud(State_Het)) + RCONST(789) = (N2O5uptkBySALACl(State_Het)) + RCONST(790) = (N2O5uptkBySALCCl(State_Het)) + RCONST(791) = (OHuptkBySALACl(State_Het)) + RCONST(792) = (OHuptkBySALCCl(State_Het)) + RCONST(793) = (BrNO3uptkByH2O(State_Het)) + RCONST(794) = (BrNO3uptkByHCl(State_Het)) + RCONST(795) = (ClNO3uptkByH2O(State_Het)) + RCONST(796) = (ClNO3uptkByHCl(State_Het)) + RCONST(797) = (ClNO3uptkByHBr(State_Het)) + RCONST(798) = (ClNO3uptkByBrSALA(State_Het)) + RCONST(799) = (ClNO3uptkByBrSALC(State_Het)) + RCONST(800) = (ClNO3uptkBySALACL(State_Het)) + RCONST(801) = (ClNO3uptkBySALCCL(State_Het)) + RCONST(802) = (ClNO2uptkBySALACL(State_Het)) + RCONST(803) = (ClNO2uptkBySALCCL(State_Het)) + RCONST(804) = (ClNO2uptkByHCl(State_Het)) + RCONST(805) = (ClNO2uptkByBrSALA(State_Het)) + RCONST(806) = (ClNO2uptkByBrSALC(State_Het)) + RCONST(807) = (ClNO2uptkByHBr(State_Het)) + RCONST(808) = (HOClUptkByHCl(State_Het)) + RCONST(809) = (HOClUptkByHBr(State_Het)) + RCONST(810) = (HOClUptkBySALACL(State_Het)) + RCONST(811) = (HOClUptkBySALCCL(State_Het)) + RCONST(812) = (HOClUptkByHSO3m(State_Het)+HOClUptkBySO3mm(State_Het)+SRHOCl) + RCONST(813) = (HOBrUptkByHBr(State_Het)) + RCONST(814) = (HOBrUptkByHCl(State_Het)) + RCONST(815) = (HOBrUptkBySALACL(State_Het)) + RCONST(816) = (HOBrUptkBySALCCL(State_Het)) + RCONST(817) = (HOBrUptkByBrSALA(State_Het)) + RCONST(818) = (HOBrUptkByBrSALC(State_Het)) + RCONST(819) = (HOBrUptkByHSO3m(State_Het)+HOBrUptkBySO3mm(State_Het)+SRHOBr) + RCONST(820) = (O3uptkByHBr(State_Het)) + RCONST(821) = (O3uptkByBrSALA(State_Het)) + RCONST(822) = (O3uptkByBrSALC(State_Het)) + RCONST(823) = (HBrUptkBySALA(State_Het)) + RCONST(824) = (HBrUptkBySALC(State_Het)) + RCONST(825) = (IuptkBySulf1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) + RCONST(826) = (IuptkBySALA1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) + RCONST(827) = (IuptkBySALC1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) + RCONST(828) = (IuptkByAlkSALA1stOrd(SR_MW(ind_HOI),0.01_dp,State_Het)) + RCONST(829) = (IuptkByAlkSALC1stOrd(SR_MW(ind_HOI),0.01_dp,State_Het)) + RCONST(830) = (IuptkBySulf1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) + RCONST(831) = (IuptkBySALA1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) + RCONST(832) = (IuptkBySALC1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) + RCONST(833) = (IuptkBySulf1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) + RCONST(834) = (IuptkBySALA1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) + RCONST(835) = (IuptkBySALC1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) + RCONST(836) = (IuptkBySulf1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) + RCONST(837) = (IuptkBySALA1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) + RCONST(838) = (IuptkBySALC1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) + RCONST(839) = (IuptkByAlkSALA1stOrd(SR_MW(ind_IONO),0.02_dp,State_Het)) + RCONST(840) = (IuptkByAlkSALC1stOrd(SR_MW(ind_IONO),0.02_dp,State_Het)) + RCONST(841) = (IuptkByAlkSALA1stOrd(SR_MW(ind_IONO2),0.01_dp,State_Het)) + RCONST(842) = (IuptkByAlkSALC1stOrd(SR_MW(ind_IONO2),0.01_dp,State_Het)) + RCONST(843) = (IONO2uptkByH2O(State_Het)) + RCONST(844) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(845) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(846) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(847) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(848) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(849) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(850) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(851) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(852) = (IbrkdnByAcidBrSALA(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(853) = (IbrkdnByAcidBrSALC(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(854) = (IbrkdnByAcidSALACl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(855) = (IbrkdnByAcidSALCCl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(856) = (GLYXuptk1stOrd(SR_MW(ind_GLYX),State_Het)) + RCONST(857) = (MGLYuptk1stOrd(SR_MW(ind_MGLY),State_Het)) + RCONST(858) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXA),.FALSE.,State_Het)) + RCONST(859) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXB),.FALSE.,State_Het)) + RCONST(860) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXD),.FALSE.,State_Het)) + RCONST(861) = (VOCuptk1stOrd(SR_MW(ind_LVOC),1.0_dp,State_Het)) + RCONST(862) = (VOCuptk1stOrd(SR_MW(ind_MVKN),5.0E-3_dp,State_Het)) + RCONST(863) = (VOCuptk1stOrd(SR_MW(ind_R4N2),5.0E-3_dp,State_Het)) + RCONST(864) = (VOCuptk1stOrd(SR_MW(ind_MONITS),1.0E-2_dp,State_Het)) + RCONST(865) = (VOCuptk1stOrd(SR_MW(ind_MONITU),1.0E-2_dp,State_Het)) + RCONST(866) = (VOCuptk1stOrd(SR_MW(ind_HONIT),1.0E-2_dp,State_Het)) + RCONST(867) = (MGLYuptk1stOrd(SR_MW(ind_PYAC),State_Het)) + RCONST(868) = (IEPOXuptk1stOrd(SR_MW(ind_HMML),.TRUE.,State_Het)) + RCONST(869) = (VOCuptk1stOrd(SR_MW(ind_IHN1),5.0E-3_dp,State_Het)) + RCONST(870) = (VOCuptk1stOrd(SR_MW(ind_IHN2),5.0E-2_dp,State_Het)) + RCONST(871) = (VOCuptk1stOrd(SR_MW(ind_IHN3),5.0E-3_dp,State_Het)) + RCONST(872) = (VOCuptk1stOrd(SR_MW(ind_IHN4),5.0E-3_dp,State_Het)) + RCONST(873) = (IEPOXuptk1stOrd(SR_MW(ind_ICHE),.FALSE.,State_Het)) + RCONST(874) = (VOCuptk1stOrd(SR_MW(ind_INPD),5.0E-3_dp,State_Het)) + RCONST(875) = (VOCuptk1stOrd(SR_MW(ind_INPB),5.0E-3_dp,State_Het)) + RCONST(876) = (VOCuptk1stOrd(SR_MW(ind_IDN),5.0E-3_dp,State_Het)) + RCONST(877) = (VOCuptk1stOrd(SR_MW(ind_ITCN),5.0E-3_dp,State_Het)) + RCONST(878) = (VOCuptk1stOrd(SR_MW(ind_ITHN),5.0E-3_dp,State_Het)) + 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)) END SUBROUTINE Update_RCONST @@ -1356,163 +1520,183 @@ SUBROUTINE Update_PHOTO ( ) ! End INLINED RCONST - RCONST(738) = (PHOTOL(2)) - RCONST(739) = (PHOTOL(3)) - RCONST(740) = (PHOTOL(1)) - RCONST(741) = (PHOTOL(11)) - RCONST(742) = (PHOTOL(9)) - RCONST(743) = (PHOTOL(10)) - RCONST(744) = (PHOTOL(7)) - RCONST(745) = (PHOTOL(8)) - RCONST(746) = (PHOTOL(16)) - RCONST(747) = (PHOTOL(15)) - RCONST(748) = (PHOTOL(17)) - RCONST(749) = (PHOTOL(18)) - RCONST(750) = (PHOTOL(12)) - RCONST(751) = (PHOTOL(13)) - RCONST(752) = (PHOTOL(14)) - RCONST(753) = (PHOTOL(61)) - RCONST(754) = (PHOTOL(62)) - RCONST(755) = (PHOTOL(59)) - RCONST(756) = (PHOTOL(70)) - RCONST(757) = (PHOTOL(76)) - RCONST(758) = (PHOTOL(77)) - RCONST(759) = (PHOTOL(69)) - RCONST(760) = (PHOTOL(68)) - RCONST(761) = (PHOTOL(72)) - RCONST(762) = (PHOTOL(73)) - RCONST(763) = (PHOTOL(74)) - RCONST(764) = (PHOTOL(71)) - RCONST(765) = (PHOTOL(63)) - RCONST(766) = (PHOTOL(64)) - RCONST(767) = (PHOTOL(65)) - RCONST(768) = (PHOTOL(66)) - RCONST(769) = (PHOTOL(75)) - RCONST(770) = (PHOTOL(79)) - RCONST(771) = (PHOTOL(80)) - RCONST(772) = (PHOTOL(81)) - RCONST(773) = (PHOTOL(82)) - RCONST(774) = (PHOTOL(83)) - RCONST(775) = (PHOTOL(84)) - RCONST(776) = (PHOTOL(85)) - RCONST(777) = (PHOTOL(98)) - RCONST(778) = (PHOTOL(99)) - RCONST(779) = (PHOTOL(23)) - RCONST(780) = (PHOTOL(28)) - RCONST(781) = (PHOTOL(32)) - RCONST(782) = (PHOTOL(29)) - RCONST(783) = (PHOTOL(30)) - RCONST(784) = (PHOTOL(31)) - RCONST(785) = (PHOTOL(56)) - RCONST(786) = (PHOTOL(55)) - RCONST(787) = (PHOTOL(50)) - RCONST(788) = (PHOTOL(43)) - RCONST(789) = (PHOTOL(45)) - RCONST(790) = (PHOTOL(33)) - RCONST(791) = (PHOTOL(22)) - RCONST(792) = (PHOTOL(27)) - RCONST(793) = (PHOTOL(25)) - RCONST(794) = (PHOTOL(26)) - RCONST(795) = (PHOTOL(21)) - RCONST(796) = (PHOTOL(19)) - RCONST(797) = (PHOTOL(20)) - RCONST(798) = (PHOTOL(24)) - RCONST(799) = (PHOTOL(44)) - RCONST(800) = (PHOTOL(42)) - RCONST(801) = (PHOTOL(37)) - RCONST(802) = (PHOTOL(38)) - RCONST(803) = (PHOTOL(39)) - RCONST(804) = (PHOTOL(40)) - RCONST(805) = (PHOTOL(41)) - RCONST(806) = (PHOTOL(47)) - RCONST(807) = (PHOTOL(48)) - RCONST(808) = (PHOTOL(49)) - RCONST(809) = (PHOTOL(46)) - RCONST(810) = (PHOTOL(53)) - RCONST(811) = (PHOTOL(51)) - RCONST(812) = (PHOTOL(54)) - RCONST(813) = (PHOTOL(101)) - RCONST(814) = (PHOTOL(114)) - RCONST(815) = (PHOTOL(115)) - RCONST(816) = (PHOTOL(116)) - RCONST(817) = (PHOTOL(117)) - RCONST(818) = (PHOTOL(118)) - RCONST(819) = (PHOTOL(119)) - RCONST(820) = (PHOTOL(120)) - RCONST(821) = (PHOTOL(121)) - RCONST(822) = (PHOTOL(122)) - RCONST(823) = (PHOTOL(123)) - RCONST(824) = (PHOTOL(124)) - RCONST(825) = (PHOTOL(125)) - RCONST(826) = (PHOTOL(126)) - RCONST(827) = (PHOTOL(127)) - RCONST(828) = (PHOTOL(128)) - RCONST(829) = (PHOTOL(129)) - RCONST(830) = (PHOTOL(103)) - RCONST(831) = (PHOTOL(104)) - RCONST(832) = (PHOTOL(97)) - RCONST(833) = (PHOTOL(36)) - RCONST(834) = (PHOTOL(34)) - RCONST(835) = (PHOTOL(100)) - RCONST(836) = (PHOTOL(6)) - RCONST(837) = (PHOTOL(105)) - RCONST(838) = (PHOTOL(107)) - RCONST(839) = (PHOTOL(111)) - RCONST(840) = (PHOTOL(112)) - RCONST(841) = (PHOTOL(113)) - RCONST(842) = (PHOTOL(130)) - RCONST(843) = (PHOTOL(131)) - RCONST(844) = (PHOTOL(132)) - RCONST(845) = (PHOTOL(133)) - RCONST(846) = (PHOTOL(134)) - RCONST(847) = (PHOTOL(135)) - RCONST(848) = (PHOTOL(136)) - RCONST(849) = (PHOTOL(137)) - RCONST(850) = (PHOTOL(86)) - RCONST(851) = (PHOTOL(87)) - RCONST(852) = (PHOTOL(88)) - RCONST(853) = (PHOTOL(89)) - RCONST(854) = (PHOTOL(90)) - RCONST(855) = (PHOTOL(91)) - RCONST(856) = (PHOTOL(92)) - RCONST(857) = (PHOTOL(93)) - RCONST(858) = (PHOTOL(94)) - RCONST(859) = (PHOTOL(95)) - RCONST(860) = (PHOTOL(96)) - RCONST(861) = (PHOTOL(108)) - RCONST(862) = (PHOTOL(109)) - RCONST(863) = (PHOTOL(110)) - RCONST(864) = (PHOTOL(138)) - RCONST(865) = (PHOTOL(139)) - RCONST(866) = (PHOTOL(140)) - RCONST(867) = (PHOTOL(141)) - RCONST(868) = (PHOTOL(142)) - RCONST(869) = (PHOTOL(143)) - RCONST(870) = (PHOTOL(144)) - RCONST(871) = (PHOTOL(145)) - RCONST(872) = (PHOTOL(146)) - RCONST(873) = (PHOTOL(147)) - RCONST(874) = (PHOTOL(148)) - RCONST(875) = (PHOTOL(149)) - RCONST(876) = (PHOTOL(150)) - RCONST(877) = (PHOTOL(151)) - RCONST(878) = (PHOTOL(152)) - RCONST(879) = (PHOTOL(106)) - RCONST(880) = (PHOTOL(78)) - RCONST(881) = (PHOTOL(153)) - RCONST(882) = (PHOTOL(154)) - RCONST(883) = (PHOTOL(155)) - RCONST(884) = (PHOTOL(156)) - RCONST(885) = (PHOTOL(157)) - RCONST(886) = (PHOTOL(158)) - RCONST(887) = (PHOTOL(159)) - RCONST(888) = (PHOTOL(160)) - RCONST(889) = (PHOTOL(161)) - RCONST(890) = (PHOTOL(162)) - RCONST(891) = (PHOTOL(163)) - RCONST(892) = (PHOTOL(164)) - RCONST(893) = (PHOTOL(165)) - RCONST(894) = (PHOTOL(166)) + 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)) END SUBROUTINE Update_PHOTO diff --git a/KPP/fullchem/gckpp_Util.F90 b/KPP/fullchem/gckpp_Util.F90 index 80a309495..0d6ffdb69 100644 --- a/KPP/fullchem/gckpp_Util.F90 +++ b/KPP/fullchem/gckpp_Util.F90 @@ -2,7 +2,7 @@ ! ! Auxiliary Routines File ! -! Generated by KPP-3.0.2 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.1.1 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,290 +227,352 @@ SUBROUTINE Shuffle_user2kpp ( V_USER, V ) ! V - Concentrations of variable species (local) REAL(kind=dp) :: V(NVAR) - V(237) = V_USER(1) - V(221) = V_USER(2) - V(219) = V_USER(3) - V(4) = V_USER(4) - V(264) = V_USER(5) - V(114) = V_USER(6) - V(5) = V_USER(7) - V(184) = V_USER(8) - V(159) = V_USER(9) - V(148) = V_USER(10) - V(252) = V_USER(11) - V(196) = V_USER(12) - V(258) = V_USER(13) - V(101) = V_USER(14) - V(64) = V_USER(15) - V(160) = V_USER(16) - V(191) = V_USER(17) - V(107) = V_USER(18) - V(273) = V_USER(19) - V(128) = V_USER(20) - V(135) = V_USER(21) - V(51) = V_USER(22) - V(176) = V_USER(23) - V(274) = V_USER(24) - V(13) = V_USER(25) - V(283) = V_USER(26) - V(277) = V_USER(27) - V(6) = V_USER(28) - V(180) = V_USER(29) - V(70) = V_USER(30) - V(97) = V_USER(31) - V(58) = V_USER(32) - V(76) = V_USER(33) - V(161) = V_USER(34) - V(124) = V_USER(35) - V(144) = V_USER(36) - V(145) = V_USER(37) - V(52) = V_USER(38) - V(53) = V_USER(39) - V(54) = V_USER(40) - V(55) = V_USER(41) - V(56) = V_USER(42) - V(57) = V_USER(43) + 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(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(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(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(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(72) = V_USER(45) - V(1) = V_USER(46) - V(2) = V_USER(47) - V(3) = V_USER(48) - V(263) = V_USER(49) - V(234) = V_USER(50) - V(100) = V_USER(51) - V(43) = V_USER(52) - V(195) = V_USER(53) - V(149) = V_USER(54) - V(46) = V_USER(55) - V(190) = V_USER(56) - V(77) = V_USER(57) - V(78) = V_USER(58) - V(290) = V_USER(59) - V(197) = V_USER(60) - V(75) = V_USER(61) - V(235) = V_USER(62) - V(262) = V_USER(63) - V(285) = V_USER(64) - V(103) = V_USER(65) - V(267) = V_USER(66) - V(7) = V_USER(67) - V(115) = V_USER(68) - V(90) = V_USER(69) - V(133) = V_USER(70) - V(208) = V_USER(71) - V(68) = V_USER(72) - V(120) = V_USER(73) - V(96) = V_USER(74) - V(108) = V_USER(75) - V(179) = V_USER(76) - V(217) = V_USER(77) - V(110) = V_USER(78) - V(41) = V_USER(79) - V(236) = V_USER(80) - V(223) = V_USER(81) - V(177) = V_USER(82) - V(59) = V_USER(83) - V(47) = V_USER(84) - V(48) = V_USER(85) - V(278) = V_USER(86) - V(212) = V_USER(87) - V(250) = V_USER(88) - V(289) = V_USER(89) - V(192) = V_USER(90) - V(81) = V_USER(91) - V(82) = V_USER(92) - V(83) = V_USER(93) - V(84) = V_USER(94) - V(275) = V_USER(95) - V(211) = V_USER(96) - V(69) = V_USER(97) - V(85) = V_USER(98) - V(105) = V_USER(99) - V(86) = V_USER(100) - V(193) = V_USER(101) - V(265) = V_USER(102) - V(102) = V_USER(103) - V(284) = V_USER(104) - V(260) = V_USER(105) - V(271) = V_USER(106) - V(268) = V_USER(107) - V(134) = V_USER(108) - V(186) = V_USER(109) - V(121) = V_USER(110) - V(188) = V_USER(111) - V(123) = V_USER(112) - V(129) = V_USER(113) - V(127) = V_USER(114) - V(172) = V_USER(115) - V(269) = V_USER(116) - V(143) = V_USER(117) - V(44) = V_USER(118) - V(49) = V_USER(119) - V(42) = V_USER(120) - V(73) = V_USER(121) - V(174) = V_USER(122) - V(194) = V_USER(123) - V(99) = V_USER(124) - V(240) = V_USER(125) - V(150) = V_USER(126) - V(206) = V_USER(127) - V(109) = V_USER(128) - V(125) = V_USER(129) - V(141) = V_USER(130) - V(232) = V_USER(131) - V(166) = V_USER(132) - V(168) = V_USER(133) - V(164) = V_USER(134) - V(243) = V_USER(135) - V(146) = V_USER(136) - V(130) = V_USER(137) - V(228) = V_USER(138) - V(131) = V_USER(139) - V(229) = V_USER(140) - V(116) = V_USER(141) - V(220) = V_USER(142) - V(139) = V_USER(143) - V(140) = V_USER(144) - V(214) = V_USER(145) - V(245) = V_USER(146) - V(244) = V_USER(147) - V(222) = V_USER(148) - V(189) = V_USER(149) - V(182) = V_USER(150) - V(183) = V_USER(151) - V(187) = V_USER(152) - V(126) = V_USER(153) - V(8) = V_USER(154) - V(60) = V_USER(155) - V(247) = V_USER(156) - V(246) = V_USER(157) - V(181) = V_USER(158) - V(151) = V_USER(159) - V(227) = V_USER(160) - V(98) = V_USER(161) - V(203) = V_USER(162) - V(270) = V_USER(163) - V(87) = V_USER(164) - V(9) = V_USER(165) - V(10) = V_USER(166) - V(224) = V_USER(167) - V(167) = V_USER(168) - V(152) = V_USER(169) - V(213) = V_USER(170) - V(242) = V_USER(171) - V(254) = V_USER(172) - V(11) = V_USER(173) - V(12) = V_USER(174) - V(170) = V_USER(175) - V(225) = V_USER(176) - V(14) = V_USER(177) - V(15) = V_USER(178) - V(16) = V_USER(179) - V(17) = V_USER(180) - V(20) = V_USER(181) - V(21) = V_USER(182) - V(24) = V_USER(183) - V(23) = V_USER(184) - V(25) = V_USER(185) - V(26) = V_USER(186) - V(251) = V_USER(187) - V(207) = V_USER(188) - V(136) = V_USER(189) - V(249) = V_USER(190) - V(88) = V_USER(191) - V(261) = V_USER(192) - V(132) = V_USER(193) - V(163) = V_USER(194) - V(200) = V_USER(195) - V(175) = V_USER(196) - V(231) = V_USER(197) - V(205) = V_USER(198) - V(142) = V_USER(199) - V(226) = V_USER(200) - V(89) = V_USER(201) - V(233) = V_USER(202) - V(266) = V_USER(203) - V(218) = V_USER(204) - V(45) = V_USER(205) - V(178) = V_USER(206) - V(199) = V_USER(207) - V(137) = V_USER(208) - V(153) = V_USER(209) - V(74) = V_USER(210) - V(28) = V_USER(211) - V(154) = V_USER(212) - V(155) = V_USER(213) - V(248) = V_USER(214) - V(117) = V_USER(215) - V(169) = V_USER(216) - V(185) = V_USER(217) - V(230) = V_USER(218) - V(241) = V_USER(219) - V(204) = V_USER(220) - V(156) = V_USER(221) - V(65) = V_USER(222) - V(61) = V_USER(223) - V(173) = V_USER(224) - V(19) = V_USER(225) - V(62) = V_USER(226) - V(63) = V_USER(227) - V(279) = V_USER(228) - V(291) = V_USER(229) - V(281) = V_USER(230) - V(210) = V_USER(231) - V(91) = V_USER(232) - V(18) = V_USER(233) - V(288) = V_USER(234) - V(272) = V_USER(235) - V(282) = V_USER(236) - V(111) = V_USER(239) - V(66) = V_USER(240) - V(286) = V_USER(241) - V(92) = V_USER(242) - V(216) = V_USER(243) - V(215) = V_USER(244) - V(239) = V_USER(245) - V(67) = V_USER(246) - V(118) = V_USER(247) - V(238) = V_USER(248) - V(119) = V_USER(249) - V(209) = V_USER(250) - V(112) = V_USER(251) - V(50) = V_USER(252) - V(201) = V_USER(253) - V(198) = V_USER(254) - V(253) = V_USER(255) - V(113) = V_USER(256) - V(104) = V_USER(257) - V(257) = V_USER(258) - V(202) = V_USER(259) - V(256) = V_USER(260) - V(93) = V_USER(261) - V(94) = V_USER(262) - V(95) = V_USER(263) - V(259) = V_USER(264) - V(255) = V_USER(265) - V(157) = V_USER(266) - V(162) = V_USER(267) - V(171) = V_USER(268) - V(165) = V_USER(269) - V(158) = V_USER(270) - V(106) = V_USER(271) - V(147) = V_USER(272) - V(138) = V_USER(273) - V(280) = V_USER(274) - V(287) = V_USER(275) - V(276) = V_USER(280) - V(122) = V_USER(281) - V(29) = V_USER(282) - V(30) = V_USER(283) - V(31) = V_USER(284) - V(79) = V_USER(285) - V(22) = V_USER(286) - V(80) = V_USER(287) - V(27) = V_USER(288) - V(32) = V_USER(289) - V(33) = V_USER(290) + 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(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(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(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(231) = V_USER(129) + V(135) = V_USER(130) + V(150) = V_USER(131) + V(144) = V_USER(132) + V(210) = 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(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(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(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(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(11) = V_USER(191) + V(12) = V_USER(192) + V(167) = V_USER(193) + V(281) = 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(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(14) = V_USER(225) + V(15) = V_USER(226) + V(16) = V_USER(227) + V(17) = V_USER(228) + V(20) = V_USER(229) + V(21) = V_USER(230) + V(24) = V_USER(231) + 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(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(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(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(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(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(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(22) = V_USER(347) + V(101) = V_USER(348) + V(27) = V_USER(349) + V(32) = V_USER(350) + V(33) = V_USER(351) + V(189) = V_USER(352) END SUBROUTINE Shuffle_user2kpp @@ -534,290 +596,352 @@ 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(237) - V_USER(2) = V(221) - V_USER(3) = V(219) - V_USER(4) = V(4) - V_USER(5) = V(264) - V_USER(6) = V(114) - V_USER(7) = V(5) - V_USER(8) = V(184) - V_USER(9) = V(159) - V_USER(10) = V(148) - V_USER(11) = V(252) - V_USER(12) = V(196) - V_USER(13) = V(258) - V_USER(14) = V(101) - V_USER(15) = V(64) - V_USER(16) = V(160) - V_USER(17) = V(191) - V_USER(18) = V(107) - V_USER(19) = V(273) - V_USER(20) = V(128) - V_USER(21) = V(135) - V_USER(22) = V(51) - V_USER(23) = V(176) - V_USER(24) = V(274) - V_USER(25) = V(13) - V_USER(26) = V(283) - V_USER(27) = V(277) - V_USER(28) = V(6) - V_USER(29) = V(180) - V_USER(30) = V(70) - V_USER(31) = V(97) - V_USER(32) = V(58) - V_USER(33) = V(76) - V_USER(34) = V(161) - V_USER(35) = V(124) - V_USER(36) = V(144) - V_USER(37) = V(145) - V_USER(38) = V(52) - V_USER(39) = V(53) - V_USER(40) = V(54) - V_USER(41) = V(55) - V_USER(42) = V(56) - V_USER(43) = V(57) + 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(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(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(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(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(72) - V_USER(46) = V(1) - V_USER(47) = V(2) - V_USER(48) = V(3) - V_USER(49) = V(263) - V_USER(50) = V(234) - V_USER(51) = V(100) - V_USER(52) = V(43) - V_USER(53) = V(195) - V_USER(54) = V(149) - V_USER(55) = V(46) - V_USER(56) = V(190) - V_USER(57) = V(77) - V_USER(58) = V(78) - V_USER(59) = V(290) - V_USER(60) = V(197) - V_USER(61) = V(75) - V_USER(62) = V(235) - V_USER(63) = V(262) - V_USER(64) = V(285) - V_USER(65) = V(103) - V_USER(66) = V(267) - V_USER(67) = V(7) - V_USER(68) = V(115) - V_USER(69) = V(90) - V_USER(70) = V(133) - V_USER(71) = V(208) - V_USER(72) = V(68) - V_USER(73) = V(120) - V_USER(74) = V(96) - V_USER(75) = V(108) - V_USER(76) = V(179) - V_USER(77) = V(217) - V_USER(78) = V(110) - V_USER(79) = V(41) - V_USER(80) = V(236) - V_USER(81) = V(223) - V_USER(82) = V(177) - V_USER(83) = V(59) - V_USER(84) = V(47) - V_USER(85) = V(48) - V_USER(86) = V(278) - V_USER(87) = V(212) - V_USER(88) = V(250) - V_USER(89) = V(289) - V_USER(90) = V(192) - V_USER(91) = V(81) - V_USER(92) = V(82) - V_USER(93) = V(83) - V_USER(94) = V(84) - V_USER(95) = V(275) - V_USER(96) = V(211) - V_USER(97) = V(69) - V_USER(98) = V(85) - V_USER(99) = V(105) - V_USER(100) = V(86) - V_USER(101) = V(193) - V_USER(102) = V(265) - V_USER(103) = V(102) - V_USER(104) = V(284) - V_USER(105) = V(260) - V_USER(106) = V(271) - V_USER(107) = V(268) - V_USER(108) = V(134) - V_USER(109) = V(186) - V_USER(110) = V(121) - V_USER(111) = V(188) - V_USER(112) = V(123) - V_USER(113) = V(129) - V_USER(114) = V(127) - V_USER(115) = V(172) - V_USER(116) = V(269) - V_USER(117) = V(143) - V_USER(118) = V(44) - V_USER(119) = V(49) - V_USER(120) = V(42) - V_USER(121) = V(73) - V_USER(122) = V(174) - V_USER(123) = V(194) - V_USER(124) = V(99) - V_USER(125) = V(240) - V_USER(126) = V(150) - V_USER(127) = V(206) - V_USER(128) = V(109) - V_USER(129) = V(125) - V_USER(130) = V(141) - V_USER(131) = V(232) - V_USER(132) = V(166) - V_USER(133) = V(168) - V_USER(134) = V(164) - V_USER(135) = V(243) - V_USER(136) = V(146) - V_USER(137) = V(130) - V_USER(138) = V(228) - V_USER(139) = V(131) - V_USER(140) = V(229) - V_USER(141) = V(116) - V_USER(142) = V(220) - V_USER(143) = V(139) - V_USER(144) = V(140) - V_USER(145) = V(214) - V_USER(146) = V(245) - V_USER(147) = V(244) - V_USER(148) = V(222) - V_USER(149) = V(189) - V_USER(150) = V(182) - V_USER(151) = V(183) - V_USER(152) = V(187) - V_USER(153) = V(126) - V_USER(154) = V(8) - V_USER(155) = V(60) - V_USER(156) = V(247) - V_USER(157) = V(246) - V_USER(158) = V(181) - V_USER(159) = V(151) - V_USER(160) = V(227) - V_USER(161) = V(98) - V_USER(162) = V(203) - V_USER(163) = V(270) - V_USER(164) = V(87) - V_USER(165) = V(9) - V_USER(166) = V(10) - V_USER(167) = V(224) - V_USER(168) = V(167) - V_USER(169) = V(152) - V_USER(170) = V(213) - V_USER(171) = V(242) - V_USER(172) = V(254) - V_USER(173) = V(11) - V_USER(174) = V(12) - V_USER(175) = V(170) - V_USER(176) = V(225) - V_USER(177) = V(14) - V_USER(178) = V(15) - V_USER(179) = V(16) - V_USER(180) = V(17) - V_USER(181) = V(20) - V_USER(182) = V(21) - V_USER(183) = V(24) - V_USER(184) = V(23) - V_USER(185) = V(25) - V_USER(186) = V(26) - V_USER(187) = V(251) - V_USER(188) = V(207) - V_USER(189) = V(136) - V_USER(190) = V(249) - V_USER(191) = V(88) - V_USER(192) = V(261) - V_USER(193) = V(132) - V_USER(194) = V(163) - V_USER(195) = V(200) - V_USER(196) = V(175) - V_USER(197) = V(231) - V_USER(198) = V(205) - V_USER(199) = V(142) - V_USER(200) = V(226) - V_USER(201) = V(89) - V_USER(202) = V(233) - V_USER(203) = V(266) - V_USER(204) = V(218) - V_USER(205) = V(45) - V_USER(206) = V(178) - V_USER(207) = V(199) - V_USER(208) = V(137) - V_USER(209) = V(153) - V_USER(210) = V(74) - V_USER(211) = V(28) - V_USER(212) = V(154) - V_USER(213) = V(155) - V_USER(214) = V(248) - V_USER(215) = V(117) - V_USER(216) = V(169) - V_USER(217) = V(185) - V_USER(218) = V(230) - V_USER(219) = V(241) - V_USER(220) = V(204) - V_USER(221) = V(156) - V_USER(222) = V(65) - V_USER(223) = V(61) - V_USER(224) = V(173) - V_USER(225) = V(19) - V_USER(226) = V(62) - V_USER(227) = V(63) - V_USER(228) = V(279) - V_USER(229) = V(291) - V_USER(230) = V(281) - V_USER(231) = V(210) - V_USER(232) = V(91) - V_USER(233) = V(18) - V_USER(234) = V(288) - V_USER(235) = V(272) - V_USER(236) = V(282) - V_USER(239) = V(111) - V_USER(240) = V(66) - V_USER(241) = V(286) - V_USER(242) = V(92) - V_USER(243) = V(216) - V_USER(244) = V(215) - V_USER(245) = V(239) - V_USER(246) = V(67) - V_USER(247) = V(118) - V_USER(248) = V(238) - V_USER(249) = V(119) - V_USER(250) = V(209) - V_USER(251) = V(112) - V_USER(252) = V(50) - V_USER(253) = V(201) - V_USER(254) = V(198) - V_USER(255) = V(253) - V_USER(256) = V(113) - V_USER(257) = V(104) - V_USER(258) = V(257) - V_USER(259) = V(202) - V_USER(260) = V(256) - V_USER(261) = V(93) - V_USER(262) = V(94) - V_USER(263) = V(95) - V_USER(264) = V(259) - V_USER(265) = V(255) - V_USER(266) = V(157) - V_USER(267) = V(162) - V_USER(268) = V(171) - V_USER(269) = V(165) - V_USER(270) = V(158) - V_USER(271) = V(106) - V_USER(272) = V(147) - V_USER(273) = V(138) - V_USER(274) = V(280) - V_USER(275) = V(287) - V_USER(280) = V(276) - V_USER(281) = V(122) - V_USER(282) = V(29) - V_USER(283) = V(30) - V_USER(284) = V(31) - V_USER(285) = V(79) - V_USER(286) = V(22) - V_USER(287) = V(80) - V_USER(288) = V(27) - V_USER(289) = V(32) - V_USER(290) = V(33) + 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(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(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(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(129) = V(231) + V_USER(130) = V(135) + V_USER(131) = V(150) + V_USER(132) = V(144) + V_USER(133) = V(210) + 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(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(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(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(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(191) = V(11) + V_USER(192) = V(12) + V_USER(193) = V(167) + V_USER(194) = V(281) + 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(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(225) = V(14) + V_USER(226) = V(15) + V_USER(227) = V(16) + V_USER(228) = V(17) + V_USER(229) = V(20) + V_USER(230) = V(21) + V_USER(231) = V(24) + 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(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(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(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(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(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(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(347) = V(22) + V_USER(348) = V(101) + V_USER(349) = V(27) + V_USER(350) = V(32) + V_USER(351) = V(33) + V_USER(352) = V(189) END SUBROUTINE Shuffle_kpp2user @@ -865,44 +989,53 @@ SUBROUTINE Get_OHreactivity ( CC, RR, OHreact ) ! OHreact - OH reactivity [s-1] REAL(kind=dp) :: OHreact - OHreact = RR(12)*CC(86) + RR(14)*CC(282) + 2*RR(18) + 2*RR(19) + RR(20)*CC(284) & - + RR(21)*CC(212) + RR(24)*CC(267) + RR(25)*CC(190) + RR(31)*CC(266) + RR(32)*CC(137) & - + RR(33)*CC(196) + RR(34)*CC(263) + RR(35)*CC(291) + RR(36)*CC(265) + RR(37)*CC(279) & - + RR(38)*CC(193) + RR(41)*CC(102) + RR(44)*CC(281) + RR(47)*CC(211) + RR(48)*CC(218) & - + RR(51)*CC(264) + RR(56)*CC(161) + RR(60)*CC(124) + RR(61)*CC(124) + RR(65)*CC(114) & - + RR(75)*CC(202) + RR(76)*CC(219) + RR(77)*CC(259) + RR(82)*CC(221) + RR(91)*CC(226) & - + RR(101)*CC(133) + RR(102)*CC(158) + RR(110)*CC(253) + RR(112)*CC(236) + RR(113)*CC(236) & - + RR(115)*CC(223) + RR(116)*CC(233) + RR(119)*CC(250) + RR(120)*CC(250) + RR(121)*CC(113) & - + RR(122)*CC(110) + RR(123)*CC(94) + RR(124)*CC(95) + RR(125)*CC(93) + RR(126)*CC(106) & - + RR(127)*CC(112) + RR(128)*CC(24) + RR(129)*CC(88) + RR(148)*CC(90) + RR(149)*CC(90) & - + RR(151)*CC(276) + RR(155)*CC(289) + RR(160)*CC(128) + RR(163)*CC(274) + RR(172)*CC(77) & - + RR(173)*CC(71) + RR(174)*CC(100) + RR(183)*CC(292) + RR(184)*CC(288) + RR(188)*CC(66) & - + RR(222)*CC(197) + RR(224)*CC(285) + RR(225)*CC(285) + RR(226)*CC(111) + RR(227)*CC(75) & - + RR(228)*CC(275) + RR(229)*CC(271) + RR(230)*CC(235) + RR(231)*CC(262) + RR(232)*CC(149) & - + RR(233)*CC(72) + RR(234)*CC(78) + RR(235)*CC(43) + RR(236)*CC(84) + RR(237)*CC(82) & - + RR(238)*CC(83) + RR(239)*CC(81) + RR(301)*CC(143) + RR(302)*CC(69) + RR(303)*CC(268) & - + RR(308)*CC(46) + RR(309)*CC(208) + RR(310)*CC(198) + RR(324)*CC(154) + RR(325)*CC(155) & - + RR(335)*CC(170) + RR(343)*CC(119) + RR(357)*CC(178) + RR(358)*CC(199) + RR(364)*CC(134) & - + RR(365)*CC(89) + RR(366)*CC(96) + RR(367)*CC(87) + RR(368)*CC(91) + RR(370)*CC(224) & - + RR(371)*CC(224) + RR(372)*CC(224) + RR(373)*CC(224) + RR(400)*CC(186) + RR(401)*CC(188) & - + RR(402)*CC(129) + RR(403)*CC(127) + RR(404)*CC(192) + RR(405)*CC(174) + RR(406)*CC(109) & - + RR(407)*CC(157) + RR(408)*CC(157) + RR(409)*CC(162) + RR(410)*CC(162) + RR(411)*CC(157) & - + RR(412)*CC(162) + RR(413)*CC(171) + RR(414)*CC(165) + RR(427)*CC(116) + RR(428)*CC(130) & - + RR(429)*CC(130) + RR(430)*CC(131) + RR(431)*CC(131) + RR(450)*CC(139) + RR(451)*CC(139) & - + RR(452)*CC(140) + RR(453)*CC(140) + RR(454)*CC(220) + RR(455)*CC(220) + RR(456)*CC(214) & - + RR(457)*CC(214) + RR(458)*CC(220) + RR(459)*CC(214) + RR(497)*CC(181) + RR(498)*CC(151) & - + RR(499)*CC(181) + RR(500)*CC(151) + RR(501)*CC(151) + RR(502)*CC(181) + RR(503)*CC(151) & - + RR(504)*CC(151) + RR(513)*CC(240) + RR(514)*CC(240) + RR(517)*CC(243) + RR(520)*CC(248) & - + RR(522)*CC(251) + RR(523)*CC(251) + RR(526)*CC(241) + RR(527)*CC(230) + RR(528)*CC(231) & - + RR(529)*CC(200) + RR(530)*CC(175) + RR(537)*CC(163) + RR(538)*CC(156) + RR(539)*CC(117) & - + RR(540)*CC(185) + RR(541)*CC(169) + RR(542)*CC(132) + RR(548)*CC(136) + RR(560)*CC(153) & - + RR(561)*CC(105) + RR(562)*CC(206) + RR(563)*CC(125) + RR(564)*CC(141) + RR(565)*CC(164) & - + RR(566)*CC(213) + RR(567)*CC(242) + RR(569)*CC(104) + RR(570)*CC(85) + RR(572)*CC(172) & - + RR(573)*CC(172) + RR(574)*CC(19) + RR(578)*CC(76) + RR(579)*CC(58) + RR(586)*CC(68) & - + RR(587)*CC(120) + RR(588)*CC(120) + RR(589)*CC(64) + RR(590)*CC(79) + RR(591)*CC(80) & - + RR(597)*CC(118) + RR(599)*CC(115) + RR(601)*CC(142) + RR(604)*CC(101) + RR(609)*CC(70) & - + RR(611)*CC(97) + RR(616)*CC(107) + RR(619)*CC(210) + RR(623)*CC(159) + RR(626)*CC(148) & - + RR(636)*CC(41) + RR(647)*CC(280) + RR(648)*CC(287) + 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) END SUBROUTINE Get_OHreactivity ! End of Get_OHreactivity subroutine diff --git a/ObsPack/obspack_mod.F90 b/ObsPack/obspack_mod.F90 index 690839bd0..fa2e2ea73 100644 --- a/ObsPack/obspack_mod.F90 +++ b/ObsPack/obspack_mod.F90 @@ -1296,7 +1296,7 @@ SUBROUTINE ObsPack_Sample( yyyymmdd, hhmmss, Input_Opt, State_Chm, & USE State_Met_Mod, ONLY : MetState USE Time_Mod, ONLY : Ymd_Extract USE Timers_Mod, ONLY : Timer_End, Timer_Start - USE UnitConv_Mod + USE UnitConv_Mod, ONLY : Check_Units, MOLES_SPECIES_PER_MOLES_DRY_AIR ! ! !INPUT PARAMETERS: ! @@ -1334,7 +1334,6 @@ SUBROUTINE ObsPack_Sample( yyyymmdd, hhmmss, Input_Opt, State_Chm, & LOGICAL :: prtLog, doSample INTEGER :: I, J, L, N, R, S INTEGER :: Yr, Mo, Da, Hr, Mn, Sc - INTEGER :: previous_units REAL(f8) :: TsStart, TsEnd ! Strings @@ -1363,24 +1362,9 @@ SUBROUTINE ObsPack_Sample( yyyymmdd, hhmmss, Input_Opt, State_Chm, & CALL Timer_End( "Diagnostics", RC ) ENDIF - ! Ensure that units of species are [v/v dry], which is dry air mole - ! fraction, aka [mol/mol dry]. Capture the InUnit value, this is what - ! the units are prior to this call. After we sample the species, we'll - ! call this again requesting that the species are converted back to the - ! InUnit values. - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - mapping = State_Chm%Map_Advect, & - new_units = MOLES_SPECIES_PER_MOLES_DRY_AIR, & - previous_units = previous_units, & - RC = RC ) - - ! Trap potential errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountered in "Convert_Units"!' + ! Verify that incoming State_Chm%Species units are mol/mol dry air. + IF ( .not. Check_Units( State_Chm, MOLES_SPECIES_PER_MOLES_DRY_AIR ) ) THEN + ErrMsg = 'Not all species are in "mol/mol dry" units!' CALL GC_Error( ErrMsg, RC, ThisLoc ) RETURN ENDIF @@ -1475,9 +1459,6 @@ SUBROUTINE ObsPack_Sample( yyyymmdd, hhmmss, Input_Opt, State_Chm, & S = State_Diag%ObsPack_Species_Ind(R) ! Add the species concentration - !%%% TODO: Maybe do an in-line unit conversion to avoid - !%%% converting units for all species if we are only saving - !%%% out a few. State_Diag%ObsPack_Species(N,R) = & State_Diag%ObsPack_Species(N,R) + State_Chm%Species(S)%Conc(I,J,L) ENDDO @@ -1520,24 +1501,6 @@ SUBROUTINE ObsPack_Sample( yyyymmdd, hhmmss, Input_Opt, State_Chm, & CALL Timer_End( "Diagnostics", RC ) ENDIF - ! Return State_Chm%Species(:)%Conc to whatever units they had - ! coming into this routine - CALL Convert_Spc_Units( & - Input_Opt = Input_Opt, & - State_Chm = State_Chm, & - State_Grid = State_Grid, & - State_Met = State_Met, & - mapping = State_Chm%Map_Advect, & - new_units = previous_units, & - RC = RC ) - - ! Trap potential errors - IF ( RC /= GC_SUCCESS ) THEN - ErrMsg = 'Error encountered in "Convert_Units"!' - CALL GC_Error( ErrMsg, RC, ThisLoc ) - RETURN - ENDIF - ! Start diags timer again IF ( Input_Opt%useTimers ) THEN CALL Timer_Start( "Diagnostics", RC ) diff --git a/run/CESM/HEMCO_Config.rc b/run/CESM/HEMCO_Config.rc index 1a9a646dc..912c88ecd 100644 --- a/run/CESM/HEMCO_Config.rc +++ b/run/CESM/HEMCO_Config.rc @@ -203,7 +203,7 @@ VerboseOnCores: root # Accepted values: root all --> Othrterp to SOAS : 0.050 # For CESM: (1) use bc_a4 and pom_a4 instead of BCPO, BCPI, OCPO, and OCPI in GFED, and # (2) add scaling for bc_a4 and pom_a4 -111 GFED : on NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/bc_a4/pom_a4/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO +111 GFED : on NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/bc_a4/pom_a4/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6 --> GFED4 : true --> GFED_daily : false --> GFED_3hourly : false @@ -217,7 +217,7 @@ VerboseOnCores: root # Accepted values: root all --> CO to SOAP : 0.013 --> GFED_subgrid_coag : false #see the note near scale factor 281 for the source of this emis factor -114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP +114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP/STYR/EBZ/TMB/ROH/RCOOH/RCHO/ACTA/EOH/HCOOH/ISOP/MACR/MVK/MOH/R4N2/FURA --> FINN_daily : false --> Scaling_CO : 1.0 --> Scaling_SOAP : 0.013 @@ -322,7 +322,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__agTOL $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__agXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__airportsACET $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__airportsALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__airportsALDX $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__airportsBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -357,7 +357,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__airportsTOL $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__airportsXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonptACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonptALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonptALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonptBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -395,7 +395,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__nonptTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonptXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -431,7 +431,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__nonroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__npogACET $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__npogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__npogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__npogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -468,7 +468,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__npogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__npogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -503,7 +503,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_caACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_caALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_caALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_caBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -538,7 +538,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroad_caTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_caXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__railACET $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__railALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__railALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__railBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -574,7 +574,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__railTOL $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__railXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__rwcACET $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__rwcALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__rwcALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__rwcBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -681,7 +681,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__c3TOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__c3XYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__pteguACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__pteguALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__pteguALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__pteguBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -719,7 +719,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__pteguTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__pteguXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptogACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -757,7 +757,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__ptogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__ptogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptnonipmACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptnonipmALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptnonipmALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptnonipmBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -830,7 +830,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroad_canTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_canXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_mexACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_mexALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_mexALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_mexBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -1225,7 +1225,7 @@ VerboseOnCores: root # Accepted values: root all 0 DICE_HOUSEFUELWOOD_C2H6 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H6 2013/1/1/0 C xy g/m2/yr C2H6 26/1008 2 60 0 DICE_HOUSEFUELWOOD_HAC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc HAC 2013/1/1/0 C xy g/m2/yr HAC 26/1008 2 60 0 DICE_HOUSEFUELWOOD_GLYC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc GLYC 2013/1/1/0 C xy g/m2/yr GLYC 26/1008 2 60 -0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 +0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MGLY 2013/1/1/0 C xy g/m2/yr MGLY 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc APIN 2013/1/1/0 C xy g/m2/yr APIN 26/1008 2 60 0 DICE_HOUSEFUELWOOD_C2H2 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H2 2013/1/1/0 C xy g/m2/yr C2H2 26/1008 2 60 @@ -1557,13 +1557,13 @@ ch 0 CEDS_C5H12_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 0 CEDS_C5H12_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2401 1 5 -0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2406/706/315 1 5 -0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2407/707/316 1 5 -0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2411/711 1 5 -0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2409/709 1 5 -0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 -0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 +0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2401 1 5 +0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2406/706/315 1 5 +0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2407/707/316 1 5 +0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2411/711 1 5 +0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2409/709 1 5 +0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2407/707 1 5 +0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 0 CEDS_C2H4_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2401 1 5 0 CEDS_C2H4_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4 2406/706/315 1 5 @@ -1645,6 +1645,21 @@ ch 0 CEDS_HCOOH_SLV $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2407/707 1 5 0 CEDS_HCOOH_WST $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_AGR $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_agr 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_ENE $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/315 1 5 +0 CEDS_TMB_IND $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/316 1 5 +0 CEDS_TMB_TRA $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_tra 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_RCO $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_SLV $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_WST $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_OTH_AGR $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_ENE $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/315 1 5 +0 CEDS_OTH_IND $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/316 1 5 +0 CEDS_OTH_TRA $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_RCO $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_SLV $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_WST $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 )))CEDSv2 #============================================================================== @@ -1948,10 +1963,10 @@ ch # #============================================================================== (((CMIP6_AIRCRAFT -0 CMIP6_AIR_NO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 NO_air 1750-2100/1-12/1/0 C xyz kg/m2/s NO - 20 1 -0 CMIP6_AIR_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO - 20 1 +0 CMIP6_AIR_NO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 NO_air 1750-2100/1-12/1/0 C xyz kg/m2/s NO - 20 1 +0 CMIP6_AIR_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO - 20 1 0 CMIP6_AIR_SOAP - - - - - - SOAP 280 20 1 -0 CMIP6_AIR_SO2 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 SO2_air 1750-2100/1-12/1/0 C xyz kg/m2/s SO2 - 20 1 +0 CMIP6_AIR_SO2 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 SO2_air 1750-2100/1-12/1/0 C xyz kg/m2/s SO2 - 20 1 0 CMIP6_AIR_SO4 - - - - - - SO4 63 20 1 0 CMIP6_AIR_pFe - - - - - - pFe 66 20 1 0 CMIP6_AIR_ACET - - - - - - ACET 601 20 1 @@ -1963,10 +1978,10 @@ ch 0 CMIP6_AIR_PRPE - - - - - - PRPE 607 20 1 0 CMIP6_AIR_MACR - - - - - - MACR 608 20 1 0 CMIP6_AIR_RCHO - - - - - - RCHO 609 20 1 -0 CMIP6_AIR_NH3 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 NH3_air 1750-2100/1-12/1/0 C xyz kg/m2/s NH3 - 20 1 +0 CMIP6_AIR_NH3 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 NH3_air 1750-2100/1-12/1/0 C xyz kg/m2/s NH3 - 20 1 # Assume all BC/OC is BCPI/OCPI -0 CMIP6_AIR_BCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 BC_air 1750-2100/1-12/1/0 C xyz kg/m2/s BCPI - 20 1 -0 CMIP6_AIR_OCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 OC_air 1750-2100/1-12/1/0 C xyz kg/m2/s OCPI - 20 1 +0 CMIP6_AIR_BCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 BC_air 1750-2100/1-12/1/0 C xyz kg/m2/s BCPI - 20 1 +0 CMIP6_AIR_OCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 OC_air 1750-2100/1-12/1/0 C xyz kg/m2/s OCPI - 20 1 0 CMIP6_AIR_POG1 - - - - - - POG1 74/76 20 1 0 CMIP6_AIR_POG2 - - - - - - POG2 74/77 20 1 @@ -2593,7 +2608,7 @@ ch # Reference: # Zhang, B., & Liu, P., et al (2022). Global Emissions of Hydrogen Chloride # and Particulate Chloride from Continental Sources. Environmental Science & -# Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634 +# Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634 # # Notes: # - The HCl emission from open biomass burning (HCL_BIO, HCL_AGR) used the same @@ -2601,12 +2616,12 @@ ch # emission inventory for open biomass burning has already include HCl # emissions, shut down either of them to avoid the duplicated emission sources # - Emissions of particulate Cl are added as HCl as ISORROPIA will reparition -# Cl between particle phase and gas phase. +# Cl between particle phase and gas phase. #============================================================================== (((GT_Chlorine -0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 -0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 -0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 0 HCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 0 HCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_bbop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1 0 HCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_agri 1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1 @@ -2674,6 +2689,8 @@ ch 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 4 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 4 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 4 )))HTAPv3_SHIP (((CEDSv2_SHIP @@ -2707,6 +2724,8 @@ ch 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 5 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 5 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 5 #----------------------------------------------------- # AEROSOL NUMBER EMISSIONS FOR CEDS in CESM - hplin 8/11/22 diff --git a/run/CESM/geoschem_config.yml b/run/CESM/geoschem_config.yml index 660db1dbe..b51140857 100644 --- a/run/CESM/geoschem_config.yml +++ b/run/CESM/geoschem_config.yml @@ -46,7 +46,16 @@ operations: photolysis: activate: true - num_levs_with_cloud: 22 + cloud-j: + num_levs_with_cloud: 22 + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true input_directories: fastjx_input_dir: /see/namelist/file cloudj_input_dir: /see/namelist/file @@ -92,12 +101,21 @@ operations: transported_species: - ACET - ACTA + - ACR - AERI - ALD2 - ALK4 + - ALK4N2 + - ALK4P + - ALK6 - AONITA + - APAN + - APINP + - APINN + - AROMCHO - AROMP4 - AROMP5 + - AROMPN - ASOA1 - ASOA2 - ASOA3 @@ -111,6 +129,11 @@ operations: - BCPO - BENZ - BENZP + - BPINO + - BPINN + - BPINP + - BPINOOH + - BPINON - Br - Br2 - BrCl @@ -120,12 +143,16 @@ operations: - BrSALA - BrSALC - BUTDI + - BUTN - BZCO3H - BZPAN + - C96O2H + - C96N - C2H2 - C2H4 - C2H6 - C3H8 + - C4H6 - CCl4 - CFC11 - CFC113 @@ -160,6 +187,7 @@ operations: - DST2 - DST3 - DST4 + - EBZ - EOH - ETHLN - ETHN @@ -169,6 +197,7 @@ operations: - FURA - GLYC - GLYX + - HACTA - H1211 - H1301 - H2402 @@ -235,7 +264,15 @@ operations: - ISOP - ITCN - ITHN + - LIMAL + - LIMKB + - LIMKET + - LIMN + - LIMNB - LIMO + - LIMO2H + - LIMO3H + - LIMPAN - LVOC - LVOCOA - MACR @@ -248,6 +285,7 @@ operations: - MCRHP - MCT - MEK + - MEKPN - MENO3 - MGLY - MOH @@ -267,6 +305,7 @@ operations: - MVKHP - MVKN - MVKPC + - MYRCO - N2O - N2O5 - NH3 @@ -286,7 +325,13 @@ operations: - OIO - PAN - pFe + - PHAN - PHEN + - PIN + - PINAL + - PINONIC + - PINO3H + - PINPAN - PIP - PP - PPN @@ -296,13 +341,17 @@ operations: - PYAC - R4N2 - R4P + - R7N2 + - R7P - RA3P - RB3P - RCHO + - RCOOH - RIPA - RIPB - RIPC - RIPD + - RNO3 - RP - SALA - SALAAL @@ -315,6 +364,9 @@ operations: - SO4s - SOAGX - SOAIE + - STYR + - TLFUONE + - TMB - TOLU - TSOA0 - TSOA1 @@ -331,6 +383,9 @@ operations: #============================================================================ aerosols: + optics: + input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + carbon: activate: true brown_carbon: false diff --git a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.CH4 b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.CH4 index 2ffe5ac87..6d90088d3 100644 --- a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.CH4 +++ b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.CH4 @@ -405,7 +405,8 @@ VerboseOnCores: root # Accepted values: root all 0 EDGAR8_CH4_RCO $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_RCO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_CHE $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_CHE_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_IRO $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IRO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 -0 EDGAR8_CH4_AWB $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 +# Comment out to avoid double counting with GFED +#0 EDGAR8_CH4_AWB $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_SWD_INC $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_INC_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 )))EDGARv8 @@ -471,8 +472,8 @@ VerboseOnCores: root # Accepted values: root all # Use updated files (v2024-01); these are COARDS-compliant. #============================================================================== (((RESERVOIRS -0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 - 15 1 -0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 - 15 1 +0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 1500 15 1 +0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 1500 15 1 )))RESERVOIRS #============================================================================== @@ -948,6 +949,10 @@ ${RUNDIR_GLOBAL_Cl} 1009 CONUS_MASK_MIRROR $ROOT/MASKS/v2024-04/CONUS_Mask_Mirror.01x01.nc MASK 2000/1/1/0 C xy 1 1 -140/20/-50/60 )))GHGI_v2.or.GHGI_v2_Express_Ext +(((RESERVOIRS +1500 SEASONAL_RES_MASK $ROOT/CH4/v2024-01/ResME/reservoir_mask.01x01.nc Mask 2022/1-12/1/0 C xy 1 1 -180/-90/180/90 +)))RESERVOIRS + )))EMISSIONS ### END SECTION MASKS ### diff --git a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.aerosol b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.aerosol index 664104e6f..f2b41c028 100644 --- a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.aerosol +++ b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.aerosol @@ -1691,12 +1691,12 @@ VerboseOnCores: root # Accepted values: root all # in a 0.5x0.625 HEMCO 3.6.1 standalone simulation. #============================================================================== (((GFED4_CLIMATOLOGY -0 GFED4_CLIM_BCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1 -0 GFED4_CLIM_BCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1 -0 GFED4_CLIM_OCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1 -0 GFED4_CLIM_OCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1 -0 GFED4_CLIM_SO2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SO2 2019/1-12/1/0 C xy kg/m2/s SO2 - 5 1 -0 GFED4_CLIM_SOAP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1 +0 GFED4_CLIM_BCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1 +0 GFED4_CLIM_BCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1 +0 GFED4_CLIM_OCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1 +0 GFED4_CLIM_OCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1 +0 GFED4_CLIM_SO2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SO2 2019/1-12/1/0 C xy kg/m2/s SO2 - 5 1 +0 GFED4_CLIM_SOAP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1 )))GFED4_CLIMATOLOGY #============================================================================== diff --git a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon index e3d9f3a9a..be046787d 100644 --- a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon +++ b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon @@ -447,7 +447,8 @@ Mask fractions: false 0 EDGAR8_CH4_RCO $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_RCO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_CHE $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_CHE_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_IRO $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IRO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 -0 EDGAR8_CH4_AWB $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 +# Comment out to avoid double counting with GFED +#0 EDGAR8_CH4_AWB $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_SWD_INC $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_INC_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 )))EDGARv8 @@ -513,8 +514,8 @@ Mask fractions: false # Use updated files (v2024-01); these are COARDS-compliant. #============================================================================== (((RESERVOIRS -0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 - 15 1 -0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 - 15 1 +0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 1500 15 1 +0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 1500 15 1 )))RESERVOIRS #============================================================================== @@ -1724,6 +1725,10 @@ ${RUNDIR_CO2_COPROD} 2009 CHINA_MASK $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc MASK 2000/1/1/0 C xy 1 1 70/10/150/60 )))CEDSv2.or.CEDS_GBDMAPS.or.CEDS_GBDMAPS_byFuelType +(((RESERVOIRS +1500 SEASONAL_RES_MASK $ROOT/CH4/v2024-01/ResME/reservoir_mask.01x01.nc Mask 2022/1-12/1/0 C xy 1 1 -180/-90/180/90 +)))RESERVOIRS + )))EMISSIONS ### END SECTION MASKS ### diff --git a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem index c62ca533f..81204d1aa 100644 --- a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem +++ b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem @@ -174,6 +174,7 @@ VerboseOnCores: root # Accepted values: root all --> LightningClimatology : ${RUNDIR_LIGHTNOX_CLIM} --> CDF table : $ROOT/LIGHTNOX/v2014-07/light_dist.ott2010.dat 104 SoilNOx : ${RUNDIR_SOILNOX_EXT} NO + --> UseSoilTemperature : false --> Use fertilizer NOx : true 105 DustDead : ${RUNDIR_DUSTDEAD_EXT} DST1/DST2/DST3/DST4 --> Mass tuning factor : ${RUNDIR_DUSTDEAD_TF} @@ -204,7 +205,7 @@ VerboseOnCores: root # Accepted values: root all --> Monoterp to SOAS : 0.050 --> Othrterp to SOAP : 0.050 --> Othrterp to SOAS : 0.050 -111 GFED : ${RUNDIR_GFED_EXT} NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO +111 GFED : ${RUNDIR_GFED_EXT} NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6 --> GFED4 : true --> GFED_daily : false --> GFED_3hourly : false @@ -216,7 +217,7 @@ VerboseOnCores: root # Accepted values: root all --> CO to SOAP : 0.013 --> GFED_subgrid_coag : false #see the note near scale factor 281 for the source of this emis factor -114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP +114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP/STYR/EBZ/TMB/ROH/RCOOH/RCHO/ACTA/EOH/HCOOH/ISOP/MACR/MVK/MOH/R4N2/FURA --> FINN_daily : false --> Scaling_CO : 1.0 --> Scaling_SOAP : 0.013 @@ -321,7 +322,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__agTOL $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__agXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__airportsACET $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__airportsALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__airportsALDX $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__airportsBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -356,7 +357,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__airportsTOL $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__airportsXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonptACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonptALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonptALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonptBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -394,7 +395,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__nonptTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonptXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -430,7 +431,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__nonroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__npogACET $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__npogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__npogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__npogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -467,7 +468,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__npogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__npogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -502,7 +503,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_caACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_caALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_caALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_caBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -537,7 +538,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroad_caTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_caXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__railACET $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__railALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__railALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__railBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -573,7 +574,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__railTOL $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__railXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__rwcACET $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__rwcALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__rwcALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__rwcBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -680,7 +681,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__c3TOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__c3XYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__pteguACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__pteguALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__pteguALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__pteguBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -718,7 +719,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__pteguTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__pteguXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptogACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -756,7 +757,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__ptogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__ptogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptnonipmACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptnonipmALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptnonipmALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptnonipmBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -829,7 +830,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroad_canTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_canXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_mexACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_mexALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_mexALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_mexBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -1224,7 +1225,7 @@ VerboseOnCores: root # Accepted values: root all 0 DICE_HOUSEFUELWOOD_C2H6 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H6 2013/1/1/0 C xy g/m2/yr C2H6 26/1008 2 60 0 DICE_HOUSEFUELWOOD_HAC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc HAC 2013/1/1/0 C xy g/m2/yr HAC 26/1008 2 60 0 DICE_HOUSEFUELWOOD_GLYC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc GLYC 2013/1/1/0 C xy g/m2/yr GLYC 26/1008 2 60 -0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 +0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MGLY 2013/1/1/0 C xy g/m2/yr MGLY 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc APIN 2013/1/1/0 C xy g/m2/yr APIN 26/1008 2 60 0 DICE_HOUSEFUELWOOD_C2H2 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H2 2013/1/1/0 C xy g/m2/yr C2H2 26/1008 2 60 @@ -1541,13 +1542,13 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_C5H12_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 0 CEDS_C5H12_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2401 1 5 -0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2406/706/315 1 5 -0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2407/707/316 1 5 -0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2411/711 1 5 -0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2409/709 1 5 -0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 -0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 +0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2401 1 5 +0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2406/706/315 1 5 +0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2407/707/316 1 5 +0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2411/711 1 5 +0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2409/709 1 5 +0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2407/707 1 5 +0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 0 CEDS_C2H4_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2401 1 5 0 CEDS_C2H4_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4 2406/706/315 1 5 @@ -1628,6 +1629,22 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_HCOOH_RCO $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2409/709 1 5 0 CEDS_HCOOH_SLV $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2407/707 1 5 0 CEDS_HCOOH_WST $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_TMB_AGR $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_agr 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_ENE $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/315 1 5 +0 CEDS_TMB_IND $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/316 1 5 +0 CEDS_TMB_TRA $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_tra 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_RCO $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_SLV $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_WST $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_OTH_AGR $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_ENE $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/315 1 5 +0 CEDS_OTH_IND $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/316 1 5 +0 CEDS_OTH_TRA $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_RCO $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_SLV $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_WST $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 )))CEDSv2 #============================================================================== @@ -2657,6 +2674,8 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 4 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 4 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 4 )))HTAPv3_SHIP (((CEDSv2_SHIP @@ -2690,6 +2709,8 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 5 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 5 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 5 )))CEDSv2_SHIP (((CEDS_GBDMAPS_SHIP @@ -3128,26 +3149,46 @@ VerboseOnCores: root # Accepted values: root all # in a 0.5x0.625 HEMCO 3.6.1 standalone simulation. #============================================================================== (((GFED4_CLIMATOLOGY -0 GFED4_CLIM_ACET $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s ACET - 5 1 -0 GFED4_CLIM_ALD2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALD2 2019/1-12/1/0 C xy kg/m2/s ALD2 - 5 1 -0 GFED4_CLIM_ALK4 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALK4 2019/1-12/1/0 C xy kg/m2/s ALK4 - 5 1 -0 GFED4_CLIM_BCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1 -0 GFED4_CLIM_BCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1 -0 GFED4_CLIM_BENZ $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BENZ 2019/1-12/1/0 C xy kg/m2/s BENZ - 5 1 -0 GFED4_CLIM_C2H6 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C2H6 2019/1-12/1/0 C xy kg/m2/s C2H6 - 5 1 -0 GFED4_CLIM_C3H8 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C3H8 2019/1-12/1/0 C xy kg/m2/s C3H8 - 5 1 -0 GFED4_CLIM_CH2O $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s CH2O - 5 1 -0 GFED4_CLIM_CO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_CO 2019/1-12/1/0 C xy kg/m2/s CO - 5 1 -0 GFED4_CLIM_EOH $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_EOH 2019/1-12/1/0 C xy kg/m2/s EOH - 5 1 -0 GFED4_CLIM_MEK $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_MEK 2019/1-12/1/0 C xy kg/m2/s MEK - 5 1 -0 GFED4_CLIM_NO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_NO 2019/1-12/1/0 C xy kg/m2/s NO - 5 1 -0 GFED4_CLIM_OCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1 -0 GFED4_CLIM_OCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1 -0 GFED4_CLIM_PRPE $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_PRPE 2019/1-12/1/0 C xy kg/m2/s PRPE - 5 1 -0 GFED4_CLIM_SO2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SO2 2019/1-12/1/0 C xy kg/m2/s SO2 - 5 1 -0 GFED4_CLIM_SOAP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1 -0 GFED4_CLIM_TOLU $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_TOLU 2019/1-12/1/0 C xy kg/m2/s TOLU - 5 1 -0 GFED4_CLIM_XYLE $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_XYLE 2019/1-12/1/0 C xy kg/m2/s XYLE - 5 1 +0 GFED4_CLIM_ACET $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACET 2023/1-12/1/0 C xy kg/m2/s ACET - 5 1 +0 GFED4_CLIM_ACR $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACR 2023/1-12/1/0 C xy kg/m2/s ACR - 5 1 +0 GFED4_CLIM_ACTA $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ACTA 2023/1-12/1/0 C xy kg/m2/s ACTA - 5 1 +0 GFED4_CLIM_ALD2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ALD2 2023/1-12/1/0 C xy kg/m2/s ALD2 - 5 1 +0 GFED4_CLIM_ALK4 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ALK4 2023/1-12/1/0 C xy kg/m2/s ALK4 - 5 1 +0 GFED4_CLIM_BCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPI 2023/1-12/1/0 C xy kg/m2/s BCPI - 5 1 +0 GFED4_CLIM_BCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BCPO 2023/1-12/1/0 C xy kg/m2/s BCPO - 5 1 +0 GFED4_CLIM_BENZ $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_BENZ 2023/1-12/1/0 C xy kg/m2/s BENZ - 5 1 +0 GFED4_CLIM_C2H2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H2 2023/1-12/1/0 C xy kg/m2/s C2H2 - 5 1 +0 GFED4_CLIM_C2H4 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H4 2023/1-12/1/0 C xy kg/m2/s C2H4 - 5 1 +0 GFED4_CLIM_C2H6 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C2H6 2023/1-12/1/0 C xy kg/m2/s C2H6 - 5 1 +0 GFED4_CLIM_C3H8 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C3H8 2023/1-12/1/0 C xy kg/m2/s C3H8 - 5 1 +0 GFED4_CLIM_C4H6 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_C4H6 2023/1-12/1/0 C xy kg/m2/s C4H6 - 5 1 +0 GFED4_CLIM_CH2O $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_CH2O 2023/1-12/1/0 C xy kg/m2/s CH2O - 5 1 +0 GFED4_CLIM_CO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_CO 2023/1-12/1/0 C xy kg/m2/s CO - 5 1 +0 GFED4_CLIM_EOH $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_EOH 2023/1-12/1/0 C xy kg/m2/s EOH - 5 1 +0 GFED4_CLIM_FURA $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_FURA 2023/1-12/1/0 C xy kg/m2/s FURA - 5 1 +0 GFED4_CLIM_GLYX $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_GLYX 2023/1-12/1/0 C xy kg/m2/s GLYX - 5 1 +0 GFED4_CLIM_HCOOH $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_HCOOH 2023/1-12/1/0 C xy kg/m2/s HCOOH - 5 1 +0 GFED4_CLIM_ISOP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_ISOP 2023/1-12/1/0 C xy kg/m2/s ISOP - 5 1 +0 GFED4_CLIM_MEK $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MEK 2023/1-12/1/0 C xy kg/m2/s MEK - 5 1 +0 GFED4_CLIM_MGLY $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MGLY 2023/1-12/1/0 C xy kg/m2/s MGLY - 5 1 +0 GFED4_CLIM_MOH $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MOH 2023/1-12/1/0 C xy kg/m2/s MOH - 5 1 +0 GFED4_CLIM_MVK $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MVK 2023/1-12/1/0 C xy kg/m2/s MVK - 5 1 +0 GFED4_CLIM_MTPA $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_MTPA 2023/1-12/1/0 C xy kg/m2/s MTPA - 5 1 +0 GFED4_CLIM_NAP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NAP 2023/1-12/1/0 C xy kg/m2/s NAP - 5 1 +0 GFED4_CLIM_NH3 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NH3 2023/1-12/1/0 C xy kg/m2/s NH3 - 5 1 +0 GFED4_CLIM_NO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_NO 2023/1-12/1/0 C xy kg/m2/s NO - 5 1 +0 GFED4_CLIM_OCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPI 2023/1-12/1/0 C xy kg/m2/s OCPI - 5 1 +0 GFED4_CLIM_OCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_OCPO 2023/1-12/1/0 C xy kg/m2/s OCPO - 5 1 +0 GFED4_CLIM_PHEN $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_PHEN 2023/1-12/1/0 C xy kg/m2/s PHEN - 5 1 +0 GFED4_CLIM_POG1 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_POG1 2023/1-12/1/0 C xy kg/m2/s POG1 - 5 1 +0 GFED4_CLIM_POG2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_POG2 2023/1-12/1/0 C xy kg/m2/s POG2 - 5 1 +0 GFED4_CLIM_PRPE $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_PRPE 2023/1-12/1/0 C xy kg/m2/s PRPE - 5 1 +0 GFED4_CLIM_RCHO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_RCHO 2023/1-12/1/0 C xy kg/m2/s RCHO - 5 1 +0 GFED4_CLIM_SO2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SO2 2023/1-12/1/0 C xy kg/m2/s SO2 - 5 1 +0 GFED4_CLIM_SOAP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_SOAP 2023/1-12/1/0 C xy kg/m2/s SOAP - 5 1 +0 GFED4_CLIM_STYR $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_STYR 2023/1-12/1/0 C xy kg/m2/s STRY - 5 1 +0 GFED4_CLIM_TOLU $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_TOLU 2023/1-12/1/0 C xy kg/m2/s TOLU - 5 1 +0 GFED4_CLIM_XYLE $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2023_05x0625.nc GFED4_XYLE 2023/1-12/1/0 C xy kg/m2/s XYLE - 5 1 )))GFED4_CLIMATOLOGY #============================================================================== @@ -3482,7 +3523,7 @@ VerboseOnCores: root # Accepted values: root all * SO2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SO2AfterChem $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 * H2O2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_H2O2AfterChem $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 * AEROH2O_SNA ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_AeroH2OSNA $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 -* ORVCSESQ ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCSESQ $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 +* ORVCSESQ ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCsesq $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 * JOH ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JOH $YYYY/$MM/$DD/$HH EY xy 1 * - 1 1 * JNO2 ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JNO2 $YYYY/$MM/$DD/$HH EY xy 1 * - 1 1 * STATE_PSC ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_StatePSC $YYYY/$MM/$DD/$HH EY xyz count * - 1 1 diff --git a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gmao_metfields b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gmao_metfields index 92e346dac..c8fdb1d9b 100644 --- a/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gmao_metfields +++ b/run/GCClassic/HEMCO_Config.rc.templates/HEMCO_Config.rc.gmao_metfields @@ -144,6 +144,15 @@ METDIR: ${RUNDIR_MET_DIR} )))LightningClimatology )))LightNOx +#============================================================================== +# --- Fields for soil NOx emissions (Extension 104) --- +#============================================================================== +(((SoilNOx +(((UseSoilTemperature +* TSOIL1 $METDIR/$YYYY/$MM/$MET.$YYYY$MM$DD.A1soil.$RES.$NC TSOIL1 1980-2100/1-12/1-31/*/+30minute RFY xy 1 * - 1 1 +)))UseSoilTemperature +)))SoilNOx + ### END SECTION BASE EMISSIONS ### ### END OF HEMCO INPUT FILE ### diff --git a/run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem b/run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem index 9c845f463..cfa7db1f0 100644 --- a/run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem +++ b/run/GCClassic/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem @@ -37,6 +37,12 @@ EmisACET_BioBurn ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_ EmisACET_Biogenic ACET 0 4 -1 2 kg/m2/s ACET_emission_flux_from_biogenic_sources EmisACET_Ocean ACET 101 -1 -1 2 kg/m2/s ACET_emission_flux_from_ocean +############################################################################### +##### ACR emissions ##### +############################################################################### +EmisACR_Total ACR -1 -1 -1 3 kg/m2/s ACR_emission_flux_from_all_sectors +EmisACR_BioBurn ACR 111 -1 -1 2 kg/m2/s ACR_emission_flux_from_biomass_burning + ############################################################################### ##### ACTA emissions ##### ############################################################################### @@ -63,6 +69,13 @@ EmisALK4_Anthro ALK4 0 1 -1 3 kg/m2/s ALK4_emission_flux_from_a EmisALK4_BioBurn ALK4 111 -1 -1 2 kg/m2/s ALK4_emission_flux_from_biomass_burning EmisALK4_Ship ALK4 0 10 -1 2 kg/m2/s ALK4_emission_flux_from_ships +############################################################################### +##### ALK6 emissions ##### +############################################################################### +EmisALK6_Total ALK6 -1 -1 -1 3 kg/m2/s ALK6_emission_flux_from_all_sectors +EmisALK6_Anthro ALK6 0 1 -1 3 kg/m2/s ALK6_emission_flux_from_anthropogenic +EmisALK6_Ship ALK6 0 10 -1 2 kg/m2/s ALK6_emission_flux_from_ships + ############################################################################### ##### BCPI and BCPO emissions ##### ############################################################################### @@ -119,6 +132,12 @@ EmisC3H8_Anthro C3H8 0 1 -1 3 kg/m2/s C3H8_emission_flux_from_a EmisC3H8_BioBurn C3H8 111 -1 -1 2 kg/m2/s C3H8_emission_flux_from_biomass_burning EmisC3H8_Ship C3H8 0 10 -1 2 kg/m2/s C3H8_emission_flux_from_ships +############################################################################### +##### C4H6 emissions ##### +############################################################################### +EmisC4H6_Total C4H6 -1 -1 -1 3 kg/m2/s C4H6_emission_flux_from_all_sectors +EmisC4H6_BioBurn C4H6 111 -1 -1 2 kg/m2/s C4H6_emission_flux_from_biomass_burning + ############################################################################### ##### CH2Br2 emissions ##### ############################################################################### @@ -242,6 +261,7 @@ EmisHCl_Anthro HCl 0 1 -1 3 kg/m2/s HCl_emission_flux_from_an ############################################################################### EmisHCOOH_Total HCOOH -1 -1 -1 3 kg/m2/s HCOOH_emission_flux_from_all_sectors EmisHCOOH_Anthro HCOOH 0 1 -1 3 kg/m2/s HCOOH_emission_flux_from_anthropogenic +EmisHCOOH_BioBurn HCOOH 111 -1 -1 2 kg/m2/s HCOOH_emission_flux_from_biomass_burning EmisHCOOH_Ship HCOOH 0 10 -1 2 kg/m2/s HCOOH_emission_flux_from_ship ############################################################################### @@ -315,7 +335,7 @@ EmisMTPO_Total MTPO -1 -1 -1 3 kg/m2/s MTPO_emission_flux_from_a EmisMTPO_Biogenic MTPO 0 4 -1 2 kg/m2/s MTPO_emission_flux_from_biogenic_sources ############################################################################### -##### MVK emissions ##### +##### MVK emissions ##### ############################################################################### EmisMVK_Total MVK -1 -1 -1 3 kg/m2/s MVK_emission_flux_from_all_sectors EmisMVK_BioBurn MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_biomass_burning @@ -469,6 +489,12 @@ EmisSOAP_Ship SOAP 0 10 -1 2 kg/m2/s SOAP_emission_flux_from_s ############################################################################### EmisSOAS_Biogenic SOAS 0 4 -1 2 kg/m2/s SOAS_emission_flux_from_biogenic_sources +############################################################################## +##### STYR emissions ##### +############################################################################### +EmisSTYR_Total STYR -1 -1 -1 3 kg/m2/s STYR_emission_flux_from_all_sectors +EmisSTYR_BioBurn STYR 111 -1 -1 2 kg/m2/s STYR_emission_flux_from_biomass_burning + ############################################################################### ##### TOLU emissions ##### ############################################################################### @@ -508,6 +534,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #============================= #InvCEDS_ALD2 ALD2 0 1 5 3 kg/m2/s ALD2_emission_flux_from_CEDS_inventory #InvCEDS_ALK4 ALK4 0 1 5 3 kg/m2/s ALK4_emission_flux_from_CEDS_inventory +#InvCEDS_ALK6 ALK6 0 1 5 3 kg/m2/s ALK6_emission_flux_from_CEDS_inventory #InvCEDS_BCPI BCPI 0 1 5 3 kg/m2/s BCPI_emission_flux_from_CEDS_inventory #InvCEDS_BCPO BCPO 0 1 5 3 kg/m2/s BCPO_emission_flux_from_CEDS_inventory #InvCEDS_BENZ BENZ 0 1 5 3 kg/m2/s BENZ_emission_flux_from_CEDS_inventory @@ -724,6 +751,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ # GFED Extension #============================= #InvGFED_ACET ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_GFED_extension +#InvGFED_ACR ACR 111 -1 -1 2 kg/m2/s ACR_emission_flux_from_GFED_extension #InvGFED_ACTA ACTA 111 -1 -1 2 kg/m2/s ACTA_emission_flux_from_GFED_extension #InvGFED_ALD2 ALD2 111 -1 -1 2 kg/m2/s ALD2_emission_flux_from_GFED_extension #InvGFED_ALK4 ALK4 111 -1 -1 2 kg/m2/s ALK4_emission_flux_from_GFED_extension @@ -732,13 +760,16 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #InvGFED_BENZ BENZ 111 -1 -1 2 kg/m2/s BENZ_emission_flux_from_GFED_extension #InvGFED_C2H6 C2H6 111 -1 -1 2 kg/m2/s C2H6_emission_flux_from_GFED_extension #InvGFED_C3H8 C3H8 111 -1 -1 2 kg/m2/s C3H8_emission_flux_from_GFED_extension +#InvGFED_C4H6 C4H6 111 -1 -1 2 kg/m2/s C4H6_emission_flux_from_GFED_extension #InvGFED_CH2O CH2O 111 -1 -1 2 kg/m2/s CH2O_emission_flux_from_GFED_extension #InvGFED_CO CO 111 -1 -1 2 kg/m2/s CO_emission_flux_from_GFED_extension #InvGFED_EOH EOH 111 -1 -1 2 kg/m2/s EOH_emission_flux_from_GFED_extension #InvGFED_FURA FURA 111 -1 -1 2 kg/m2/s FURA_emission_flux_from_GFED_extension #InvGFED_GLYX GLYX 111 -1 -1 2 kg/m2/s GLYX_emission_flux_from_GFED_extension +#InvGFED_HCOOH HCOOH 111 -1 -1 2 kg/m2/s HCOOH_emission_flux_from_GFED_extension #InvGFED_ISOP ISOP 111 -1 -1 2 kg/m2/s ISOP_emission_flux_from_GFED_extension #InvGFED_MEK MEK 111 -1 -1 2 kg/m2/s MEK_emission_flux_from_GFED_extension +#InvGFED_MVK MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_GFED_extension #InvGFED_MGLY MGLY 111 -1 -1 2 kg/m2/s MGLY_emission_flux_from_GFED_extension #InvGFED_MOH MOH 111 -1 -1 2 kg/m2/s MOH_emission_flux_from_GFED_extension #InvGFED_MTPA MTP 111 -1 -1 2 kg/m2/s MTPA_emission_flux_from_GFED_extension @@ -755,6 +786,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #InvGFED_RCHO RCHO 111 -1 -1 2 kg/m2/s RCHO_emission_flux_from_GFED_extension #InvGFED_SO2 SO2 111 -1 -1 2 kg/m2/s SO2_emission_flux_from_GFED_extension #InvGFED_SOAP SOAP 111 -1 -1 2 kg/m2/s SOAP_emission_flux_from_GFED_extension +#InvGFED_STYR STYR 111 -1 -1 2 kg/m2/s STYR_emission_flux_from_GFED_extension #InvGFED_TOLU TOLU 111 -1 -1 2 kg/m2/s TOLU_emission_flux_from_GFED_extension #InvGFED_XYLE ACET 111 -1 -1 2 kg/m2/s XYLE_emission_flux_from_GFED_extension diff --git a/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem b/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem index 5335cc182..281031010 100644 --- a/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem +++ b/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem @@ -37,7 +37,7 @@ COLLECTIONS: 'Restart', ##'CloudConvFlux', ##'ConcAboveSfc', ##'ConcAfterChem', - ##'DryDep', + #'DryDep', #'JValues', ##'KppDiags', ##'KppARDiags', diff --git a/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.Hg b/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.Hg index fab5f2cca..1e9699e44 100644 --- a/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.Hg +++ b/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.Hg @@ -65,10 +65,19 @@ operations: photolysis: activate: true - num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud-j: + num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true input_directories: fastjx_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/FAST_JX/v2024-05-Hg/ - cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2024-05/ + cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2024-09-Hg/ overhead_O3: use_online_O3_from_model: ${RUNDIR_USE_ONLINE_O3} use_column_O3_from_met: true @@ -109,6 +118,14 @@ operations: wet_deposition: activate: true +#============================================================================ +# Settings for GEOS-Chem aerosols +#============================================================================ +aerosols: + + optics: + input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + #============================================================================ # Settings specific to the Hg simulation #============================================================================ diff --git a/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.aerosol b/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.aerosol index a320c3955..14d2fc26a 100644 --- a/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.aerosol +++ b/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.aerosol @@ -65,10 +65,19 @@ operations: photolysis: activate: true - num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud-j: + num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true input_directories: fastjx_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/FAST_JX/v2024-05/ - cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2023-05/ + cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2024-09/ overhead_O3: use_online_O3_from_model: false use_column_O3_from_met: true @@ -116,6 +125,9 @@ operations: #============================================================================ aerosols: + optics: + input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + carbon: activate: true brown_carbon: false diff --git a/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.fullchem b/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.fullchem index 532ffdaca..3e31a5a1e 100644 --- a/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.fullchem +++ b/run/GCClassic/geoschem_config.yml.templates/geoschem_config.yml.fullchem @@ -88,10 +88,19 @@ operations: photolysis: activate: true - num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud-j: + num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true input_directories: fastjx_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/FAST_JX/v2024-05/ - cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2023-05/ + cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2024-09/ overhead_O3: use_online_O3_from_model: ${RUNDIR_USE_ONLINE_O3} use_column_O3_from_met: true @@ -124,18 +133,32 @@ operations: transported_species: - ACET - ACTA + - ACR - AERI - ALD2 - ALK4 + - ALK4N2 + - ALK4P + - ALK6 - AONITA + - APAN + - APINP + - APINN + - AROMCHO - AROMP4 - AROMP5 + - AROMPN - ATOOH - BALD - BCPI - BCPO - BENZ - BENZP + - BPINO + - BPINN + - BPINP + - BPINOOH + - BPINON - Br - Br2 - BrCl @@ -145,12 +168,16 @@ operations: - BrSALA - BrSALC - BUTDI + - BUTN - BZCO3H - BZPAN + - C96O2H + - C96N - C2H2 - C2H4 - C2H6 - C3H8 + - C4H6 - CCl4 - CFC11 - CFC113 @@ -185,6 +212,7 @@ operations: - DST2 - DST3 - DST4 + - EBZ - EOH - ETHLN - ETHN @@ -194,6 +222,7 @@ operations: - FURA - GLYC - GLYX + - HACTA - H1211 - H1301 - H2402 @@ -260,7 +289,15 @@ operations: - ISOP - ITCN - ITHN + - LIMAL + - LIMKB + - LIMKET + - LIMN + - LIMNB - LIMO + - LIMO2H + - LIMO3H + - LIMPAN - LVOC - LVOCOA - MACR @@ -273,6 +310,7 @@ operations: - MCRHP - MCT - MEK + - MEKPN - MENO3 - MGLY - MOH @@ -292,6 +330,7 @@ operations: - MVKHP - MVKN - MVKPC + - MYRCO - N2O - N2O5 - NH3 @@ -311,7 +350,13 @@ operations: - OIO - PAN - pFe + - PHAN - PHEN + - PIN + - PINAL + - PINONIC + - PINO3H + - PINPAN - PIP - PP - PPN @@ -321,13 +366,17 @@ operations: - PYAC - R4N2 - R4P + - R7N2 + - R7P - RA3P - RB3P - RCHO + - RCOOH - RIPA - RIPB - RIPC - RIPD + - RNO3 - RP - SALA - SALAAL @@ -342,6 +391,9 @@ operations: - SOAIE - SOAP - SOAS + - STYR + - TLFUONE + - TMB - TOLU - XYLE @@ -353,6 +405,9 @@ operations: #============================================================================ aerosols: + optics: + input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + carbon: activate: true brown_carbon: false diff --git a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.build b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.build deleted file mode 100755 index aa178206c..000000000 --- a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.build +++ /dev/null @@ -1,15 +0,0 @@ -#!/bin/bash - -# For discover -#SBATCH --time 00:45:00 -#SBATCH --nodes=1 --ntasks-per-node=24 -#SBATCH --job-name=gchp_build -#SBATCH --constraint=sky -#SBATCH --account=s____ - -source gcc.discover.env -cd build -cmake ../CodeDir -DRUNDIR=.. -make -j > build.log -make install >> build.log -cd .. diff --git a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.run b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.run index 425860d16..6be10c08c 100755 --- a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.run +++ b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.run @@ -1,11 +1,13 @@ #!/bin/bash # For discover -#SBATCH --time 00:45:00 -#SBATCH --nodes=1 --ntasks-per-node=24 -#SBATCH --job-name=gchp_build -#SBATCH --constraint=sky -#SBATCH --account=s____ +#SBATCH --time 1:00:00 +#SBATCH --nodes=1 --ntasks-per-node=48 +#SBATCH --mem 4G # Use 10G for 2x2.5 +#SBATCH --job-name=gcclassic.run +#SBATCH --constraint=mil # Edit as needed +#SBATCH --account=s___ # Fill in +##SBATCH --qos=__ # Fill in and uncomment if using -source gcc.discover.env +source gcc.env # Edit, or create gcc.env symlink to env file ./gcclassic > gcc.log diff --git a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.env b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.6.0.env similarity index 77% rename from run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.env rename to run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.6.0.env index be3c4b038..2a6ad70a4 100644 --- a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.discover.env +++ b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.6.0.env @@ -1,14 +1,15 @@ #!/bin/bash +# NOTE: not usable on milan nodes + module purge module use /discover/swdev/jcsda/spack-stack/modulefiles -module load miniconda/3.9.7 -module use /discover/swdev/jcsda/spack-stack/spack-stack-v1/envs/skylab-3.0.0-intel-2022.0.1/install/modulefiles/Core +module use /discover/swdev/jcsda/spack-stack/spack-stack-1.6.0/envs/unified-env/install/modulefiles/Core module load stack-intel/2022.0.1 module load stack-intel-oneapi-mpi/2021.5.0 module load cmake/3.23.1 module load git/2.30.2 -module load netcdf-fortran/4.5.4 +module load netcdf-fortran/4.6.1 umask 022 diff --git a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.7.0-gnu.milan.env b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.7.0-gnu.milan.env new file mode 100644 index 000000000..a09fc1452 --- /dev/null +++ b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.7.0-gnu.milan.env @@ -0,0 +1,31 @@ +#!/bin/bash + +# NOTE: use on milan nodes, accessible with `ssh discover-mil` +# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17 + +module purge + +module use /discover/swdev/gmao_SIteam/modulefiles-SLES15 +module use /discover/swdev/jcsda/spack-stack/scu17/modulefiles +module load ecflow/5.11.4 + +module use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-gcc-12.3.0/install/modulefiles/Core +module load stack-gcc/12.3.0 +module load stack-openmpi/4.1.6 +module load stack-python/3.10.13 + +module load cmake/3.28.2 +module load git/2.42.0 +module load netcdf-fortran/4.6.1 + +umask 022 + +export CC=gcc +export CXX=g++ +export FC=gfortran + +ulimit -l unlimited +ulimit -u 50000 +ulimit -v unlimited +ulimit -s unlimited + diff --git a/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.7.0-intel.milan.env b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.7.0-intel.milan.env new file mode 100644 index 000000000..641d5cc13 --- /dev/null +++ b/run/GCClassic/runScriptSamples/operational_examples/nasa_discover/gcc.spack-stack-1.7.0-intel.milan.env @@ -0,0 +1,31 @@ +#!/bin/bash + +# NOTE: use this on milan nodes, accessible with `ssh discover-mil` +# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17 + +module purge + +module use /discover/swdev/gmao_SIteam/modulefiles-SLES15 +module use /discover/swdev/jcsda/spack-stack/scu17/modulefiles +module load ecflow/5.11.4 + +module use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-intel-2021.10.0/install/modulefiles/Core +module load stack-intel/2021.10.0 +module load stack-intel-oneapi-mpi/2021.10.0 +module load stack-python/3.10.13 + +module load cmake/3.28.2 +module load git/2.42.0 +module load netcdf-fortran/4.6.1 + +umask 022 + +export CC=icc +export CXX=icpc +export FC=ifort + +ulimit -l unlimited +ulimit -u 50000 +ulimit -v unlimited +ulimit -s unlimited + diff --git a/run/GCHP/ExtData.rc.templates/ExtData.rc.carbon b/run/GCHP/ExtData.rc.templates/ExtData.rc.carbon index c6f41c1fe..4954e37b4 100644 --- a/run/GCHP/ExtData.rc.templates/ExtData.rc.carbon +++ b/run/GCHP/ExtData.rc.templates/ExtData.rc.carbon @@ -138,45 +138,46 @@ XLAIMULTI cm2_cm-2 N Y %y4-%m2-%d2T00:00:00 none none XLAIMULTI ./HcoDir/Yuan_XL #============================================================================== # --- Gridded GHGI v2 Express Extension (Maasakkers et al., ES&T, 2023) --- -# -GHGI_EE_OIL_EXPLORATION molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1B2a_Petroleum_Systems_Exploration ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OIL_PRODUCTION molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1B2a_Petroleum_Systems_Production ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OIL_REFINING molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1B2a_Petroleum_Systems_Refining ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OIL_TRANSPORT molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1B2a_Petroleum_Systems_Transport ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_GAS_DISTRIBUTION molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B2b_Natural_Gas_Distribution ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_GAS_EXPLORATION molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1B2b_Natural_Gas_Exploration ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_GAS_PROCESSING molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B2b_Natural_Gas_Processing ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_GAS_PRODUCTION molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1B2b_Natural_Gas_Production ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_GAS_TRANSMISSION molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B2b_Natural_Gas_TransmissionStorage ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_GAS_POSTMETER molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_Supp_1B2b_PostMeter ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_COAL_UNDERGROUND molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B1a_Underground_Coal ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_COAL_SURFACE molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B1a_Surface_Coal ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_COAL_ABANDONED molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B1a_Abandoned_Coal ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_LIVESTOCK_ENT molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_3A_Enteric_Fermentation ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_LIVESTOCK_MAN molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_3B_Manure_Management ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_LANDFILLS_IND molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_5A1_Landfills_Industrial ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_LANDFILLS_MSW molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_5A1_Landfills_MSW ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_LANDFILLS_COMP molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_5B1_Composting ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_WASTEWATER_DOM molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_5D_Wastewater_Treatment_Domestic ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_WASTEWATER_IND molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_5D_Wastewater_Treatment_Industrial ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_RICE molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_3C_Rice_Cultivation ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OTHER_MCOMB molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1A_Combustion_Mobile ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OTHER_SCOMB molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_1A_Combustion_Stationary ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OTHER_PIND molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_2B8_Industry_Petrochemical ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OTHER_FIND molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_2C2_Industry_Ferroalloy ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OTHER_BURN molec/cm2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4_3F_Field_Burning ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc -GHGI_EE_OTHER_ABOG molec/cm2/s N Y F%y4-01-01T00:00:00 none none emi_ch4_1B2ab_Abandoned_Oil_Gas ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +# Include scaling to convert molecules/cm2/s to kg/m2/s +GHGI_EE_OIL_EXPLORATION kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Exploration ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OIL_PRODUCTION kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Production ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OIL_REFINING kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Refining ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OIL_TRANSPORT kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2a_Petroleum_Systems_Transport ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_GAS_DISTRIBUTION kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Distribution ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_GAS_EXPLORATION kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Exploration ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_GAS_PROCESSING kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Processing ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_GAS_PRODUCTION kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_Production ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_GAS_TRANSMISSION kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2b_Natural_Gas_TransmissionStorage ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_GAS_POSTMETER kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_Supp_1B2b_PostMeter ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_COAL_UNDERGROUND kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B1a_Underground_Coal ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_COAL_SURFACE kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B1a_Surface_Coal ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_COAL_ABANDONED kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B1a_Abandoned_Coal ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_LIVESTOCK_ENT kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3A_Enteric_Fermentation ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_LIVESTOCK_MAN kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3B_Manure_Management ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_LANDFILLS_IND kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5A1_Landfills_Industrial ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_LANDFILLS_MSW kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5A1_Landfills_MSW ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_LANDFILLS_COMP kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5B1_Composting ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_WASTEWATER_DOM kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5D_Wastewater_Treatment_Domestic ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_WASTEWATER_IND kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_5D_Wastewater_Treatment_Industrial ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_RICE kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3C_Rice_Cultivation ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OTHER_MCOMB kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1A_Combustion_Mobile ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OTHER_SCOMB kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1A_Combustion_Stationary ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OTHER_PIND kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_2B8_Industry_Petrochemical ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OTHER_FIND kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_2C2_Industry_Ferroalloy ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OTHER_BURN kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_3F_Field_Burning ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc +GHGI_EE_OTHER_ABOG kg/m2/s N Y F%y4-01-01T00:00:00 none 2.66350462E-22 emi_ch4_1B2ab_Abandoned_Oil_Gas ./HcoDir/CH4/v2023-07/Gridded_GHGI_v2/Express_Extension_Gridded_GHGI_Methane_v2_%y4.nc # --- Scarpelli Mexico --- -MEX_OIL kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_oil_2015.nc -MEX_GAS kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_gas_2015.nc -MEX_COAL kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_coal_2015.nc -MEX_LIVESTOCK_A kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_A_2015.nc -MEX_LIVESTOCK_B kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_B_2015.nc -MEX_LANDFILLS kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_landfill_2015.nc -MEX_WASTEWATER kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_waste_2015.nc -MEX_RICE kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_rice_2015.nc -MEX_OTHER kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_other_anthro_2015.nc +# Include scaling to convert molecules/cm2/s to kg/m2/s +MEX_OIL kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_oil_2015.nc +MEX_GAS kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_gas_2015.nc +MEX_COAL kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_coal_2015.nc +MEX_LIVESTOCK_A kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_A_2015.nc +MEX_LIVESTOCK_B kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_livestock_B_2015.nc +MEX_LANDFILLS kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_landfill_2015.nc +MEX_WASTEWATER kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_waste_2015.nc +MEX_RICE kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_rice_2015.nc +MEX_OTHER kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-11/Scarpelli_Mexico/MEX_Tia2020_other_anthro_2015.nc # --- Scarpelli Canada --- CAN_OIL_GAS_COMBUSTION kg/m2/s N Y - none none oil_gas_combustion_total ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_oil_gas_combustion_2018.nc @@ -189,9 +190,10 @@ CAN_WASTEWATER kg/m2/s N Y - none none wastewater_total ./Hc CAN_OTHER kg/m2/s N Y - none none other_minor_sources_total ./HcoDir/CH4/v2022-01/Scarpelli_Canada/can_emis_other_minor_sources_2018.nc # --- GFEI --- -GFEI_CH4_OIL kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-01/GFEIv2/Global_Fuel_Exploitation_Inventory_v2_2019_Oil_All.nc -GFEI_CH4_GAS kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-01/GFEIv2/Global_Fuel_Exploitation_Inventory_v2_2019_Gas_All.nc -GFEI_CH4_COAL kg/m2/s N Y - none none emis_ch4 ./HcoDir/CH4/v2022-01/GFEIv2/Global_Fuel_Exploitation_Inventory_v2_2019_Coal.nc +# Include scaling to convert molecules/cm2/s to kg/m2/s +GFEI_CH4_OIL kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-01/GFEIv2/Global_Fuel_Exploitation_Inventory_v2_2019_Oil_All.nc +GFEI_CH4_GAS kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-01/GFEIv2/Global_Fuel_Exploitation_Inventory_v2_2019_Gas_All.nc +GFEI_CH4_COAL kg/m2/s N Y - none 2.66350462E-22 emis_ch4 ./HcoDir/CH4/v2022-01/GFEIv2/Global_Fuel_Exploitation_Inventory_v2_2019_Coal.nc # --- EDGAR v8.0 --- EDGAR8_CH4_PRO_OIL kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_PRO_OIL_flx.nc @@ -214,7 +216,8 @@ EDGAR8_CH4_TNR_Ship kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_c EDGAR8_CH4_RCO kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_RCO_flx.nc EDGAR8_CH4_CHE kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_CHE_flx.nc EDGAR8_CH4_IRO kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_IRO_flx.nc -EDGAR8_CH4_AWB kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_AWB_flx.nc +## Comment out to avoid double counting with GFED +##EDGAR8_CH4_AWB kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_AWB_flx.nc EDGAR8_CH4_SWD_INC kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-02/EDGARv8/%y4/v8.0_FT2022_GHG_CH4_%y4_SWD_INC_flx.nc # --- CH4: CEDS (historical) or Shared Socioeconomic Pathways (future) --- @@ -232,7 +235,8 @@ EDGAR8_CH4_SWD_INC kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_c # CMIP6_BB_CH4 %y4-%m2-01T00:00:00 none none CH4_shp ./HcoDir/CMIP6/v2021-01/$GCAP2SCENARIO/$GCAP2SCENARIO_%y4.nc4 # --- JPL WetCHARTs v1.0 (Bloom et al., https://doi.org/10.3334/ORNLDAAC/1502) --- -JPLW_CH4 kg/m2/s N Y F%y4-%m2-01T00:00:00 none none emi_ch4 ./HcoDir/CH4/v2024-01/JPL_WetCharts/HEensemble/JPL_WetCharts_2010-2019.Ensemble_Mean.0.5x0.5.nc +# Include scaling to convert molecules/cm2/s to kg/m2/s +JPLW_CH4 kg/m2/s N Y F%y4-%m2-01T00:00:00 none 2.66350462E-22 emi_ch4 ./HcoDir/CH4/v2024-01/JPL_WetCharts/HEensemble/JPL_WetCharts_2010-2019.Ensemble_Mean.0.5x0.5.nc # --- Geological seeps --- CH4_SEEPS kg/m2/s N Y - none none emi_ch4 ./HcoDir/CH4/v2020-04/Seeps/Etiope_CH4GeologicalEmis_ScaledToHmiel.1x1.nc @@ -405,7 +409,7 @@ SHIP_LEVS 1 N Y - none none cmv_c3 ./HcoDir/VerticalScaleFactors/v2021-0 #============================================================================== # --- National fossil fuel CO2 scale factors (Nassar et al, 2013) --- -CO2_DIURNAL 1 N Y F%y4-%m2-%d2T%h2:00:00 none none diurnal_scale_factors ./HcoDir/CO2/v2015-04/FOSSIL/TIMES_diurnal_scale_factors.nc +CO2_DIURNAL 1 N Y F2016-01-01T%h2:00:00 none none diurnal_scale_factors ./HcoDir/CO2/v2015-04/FOSSIL/TIMES_diurnal_scale_factors.nc CO2_WEEKLY 1 2006 Y F%y4-%m2-%d2T00:00:00 none none weekly_scale_factors ./HcoDir/CO2/v2015-04/FOSSIL/TIMES_weekly_scale_factors.nc # --- Domestic aviation surface correction factor --- @@ -432,6 +436,9 @@ CONUS_MASK_MIRROR 1 N Y - none none MASK ./HcoDir/MASKS/v2024-04/CONUS_Mask_Mirr # Comment these lines if you are not using any of the CEDS inventories CHINA_MASK 1 N Y - none none MASK ./HcoDir/MASKS/v2018-09/China_mask.generic.1x1.nc + +# For CH4 reservoir emissions from ResME +SEASONAL_RES_MASK 1 Y Y F2022-%m2-01T00:00:00 none none Mask ./HcoDir/CH4/v2024-01/ResME/reservoir_mask.01x01.nc %% DerivedExports%% diff --git a/run/GCHP/ExtData.rc.templates/ExtData.rc.fullchem b/run/GCHP/ExtData.rc.templates/ExtData.rc.fullchem index 47669b46b..8dc1379da 100644 --- a/run/GCHP/ExtData.rc.templates/ExtData.rc.fullchem +++ b/run/GCHP/ExtData.rc.templates/ExtData.rc.fullchem @@ -43,6 +43,13 @@ FLASH_DENS 1 Y Y F1980-%m2-01T00:00:00 none none LDENS ./HcoDir/OFFLINE_LIGHTNIN CONV_DEPTH 1 Y Y F1980-%m2-01T00:00:00 none none CTH ./HcoDir/OFFLINE_LIGHTNING/v2020-03/${RUNDIR_METLIGHTNING}/CLIM/FLASH_CTH_${RUNDIR_METLIGHTNING}_${RUNDIR_METLIGHTNING_RES}_${RUNDIR_MET_LCLIM}.ymonmean.nc4 # #============================================================================== +# --- Fields for soil NOx emissions (Extension 104) --- +# These fields are stored in State_Met, along with the other met fields +# Manually uncomment this line is UseSoilTemperature is true in HEMCO config. +#============================================================================== +#TSOIL1 1 N Y F0;003000 none none TSOIL1 ./MetDir/%y4/%m2/GEOSFP.%y4%m2%d2.A1soil.025x03125.nc +# +#============================================================================== # --- Fields for RRTMG --- # Dynamical heating data is only read in when RRTMG FDH/SEFDH is used and # must be generated in a reference (companion) run. The time after P at @@ -1190,6 +1197,22 @@ CEDS_HCOOH_RCO kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_rco ./HcoDir/C CEDS_HCOOH_SLV kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_slv ./HcoDir/CEDS/v2021-06/%y4/HCOOH-em-anthro_CMIP_CEDS_%y4.nc CEDS_HCOOH_WST kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_wst ./HcoDir/CEDS/v2021-06/%y4/HCOOH-em-anthro_CMIP_CEDS_%y4.nc # +CEDS_TMB_AGR kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_agr ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_ENE kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_ene ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_IND kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_ind ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_TRA kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_tra ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_RCO kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_rco ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_SLV kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_slv ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_WST kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_wst ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +# +CEDS_OTH_AGR kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_agr ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_ENE kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_ene ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_IND kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_ind ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_TRA kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_tra ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_RCO kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_rco ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_SLV kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_slv ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_WST kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_wst ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc +# #============================================================================== # --- EDGAR v4.3 (EDGARv43) --- # EDGARv4.3 is off by default in HEMCO_Config.rc @@ -1413,6 +1436,8 @@ CEDS_CH2O_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none CH2O_shp ./Hc CEDS_ALD2_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none ALD2_shp ./HcoDir/CEDS/v2021-06/%y4/ALD2-em-anthro_CMIP_CEDS_%y4.nc CEDS_MEK_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none MEK_shp ./HcoDir/CEDS/v2021-06/%y4/MEK-em-anthro_CMIP_CEDS_%y4.nc CEDS_HCOOH_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none HCOOH_shp ./HcoDir/CEDS/v2021-06/%y4/HCOOH-em-anthro_CMIP_CEDS_%y4.nc +CEDS_TMB_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none TMB_shp ./HcoDir/CEDS/v2021-06/%y4/TMB-em-anthro_CMIP_CEDS_%y4.nc +CEDS_OTH_SHP kg/m2/s N Y F%y4-%m2-01T00:00:00 none none OTHER_VOC_shp ./HcoDir/CEDS/v2021-06/%y4/OTHER_VOC-em-anthro_CMIP_CEDS_%y4.nc # # --- if not ParaNOx --- # --- if EMEP_SHIP and not ParaNOx --- diff --git a/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon b/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon index 334d9c7d3..b324c2c52 100644 --- a/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon +++ b/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.carbon @@ -447,7 +447,8 @@ Mask fractions: false 0 EDGAR8_CH4_RCO $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_RCO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_CHE $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_CHE_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_IRO $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_IRO_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 -0 EDGAR8_CH4_AWB $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 +# Comment out to avoid double counting with GFED +#0 EDGAR8_CH4_AWB $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_AWB_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 0 EDGAR8_CH4_SWD_INC $ROOT/CH4/v2024-02/EDGARv8/$YYYY/v8.0_FT2022_GHG_CH4_$YYYY_SWD_INC_flx.nc emi_ch4 2010-2022/1-12/1/0 C xy kg/m2/s CH4 - 8 1 )))EDGARv8 @@ -513,8 +514,8 @@ Mask fractions: false # Use updated files (v2024-01); these are COARDS-compliant. #============================================================================== (((RESERVOIRS -0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 - 15 1 -0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 - 15 1 +0 CH4_RES_DAM $ROOT/CH4/v2024-01/ResME/ResME_Dam_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 1500 15 1 +0 CH4_RES_SFC $ROOT/CH4/v2024-01/ResME/ResME_Surface_Emissions.0.1x0.1.nc CH4emis 2022/1/1/0 C xy kg/m2/s CH4 1500 15 1 )))RESERVOIRS #============================================================================== @@ -1724,6 +1725,10 @@ ${RUNDIR_CO2_COPROD} 2009 CHINA_MASK $ROOT/MASKS/v2018-09/China_mask.generic.1x1.nc MASK 2000/1/1/0 C xy 1 1 70/10/150/60 )))CEDSv2.or.CEDS_GBDMAPS.or.CEDS_GBDMAPS_byFuelType +(((RESERVOIRS +1500 SEASONAL_RES_MASK $ROOT/CH4/v2024-01/ResME/reservoir_mask.01x01.nc Mask 2022/1-12/1/0 C xy 1 1 -180/-90/180/90 +)))RESERVOIRS + )))EMISSIONS ### END SECTION MASKS ### diff --git a/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem b/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem index 4890cfd65..4f8882d63 100644 --- a/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem +++ b/run/GCHP/HEMCO_Config.rc.templates/HEMCO_Config.rc.fullchem @@ -173,6 +173,7 @@ VerboseOnCores: root # Accepted values: root all --> LightningClimatology : ${RUNDIR_LIGHTNOX_CLIM} --> CDF table : $ROOT/LIGHTNOX/v2014-07/light_dist.ott2010.dat 104 SoilNOx : ${RUNDIR_SOILNOX_EXT} NO + --> UseSoilTemperature : false --> Use fertilizer NOx : true 105 DustDead : ${RUNDIR_DUSTDEAD_EXT} DST1/DST2/DST3/DST4 --> Mass tuning factor : ${RUNDIR_DUSTDEAD_TF} @@ -203,7 +204,7 @@ VerboseOnCores: root # Accepted values: root all --> Monoterp to SOAS : 0.050 --> Othrterp to SOAP : 0.050 --> Othrterp to SOAS : 0.050 -111 GFED : ${RUNDIR_GFED_EXT} NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO +111 GFED : ${RUNDIR_GFED_EXT} NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6 --> GFED4 : true --> GFED_daily : false --> GFED_3hourly : false @@ -215,7 +216,7 @@ VerboseOnCores: root # Accepted values: root all --> CO to SOAP : 0.013 --> GFED_subgrid_coag : false #see the note near scale factor 281 for the source of this emis factor -114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP +114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP/STYR/EBZ/TMB/ROH/RCOOH/RCHO/ACTA/EOH/HCOOH/ISOP/MACR/MVK/MOH/R4N2/FURA --> FINN_daily : false --> Scaling_CO : 1.0 --> Scaling_SOAP : 0.013 @@ -320,7 +321,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__agTOL $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__agXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__airportsACET $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__airportsALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__airportsALDX $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__airportsBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -355,7 +356,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__airportsTOL $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__airportsXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonptACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonptALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonptALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonptBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -393,7 +394,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__nonptTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonptXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -429,7 +430,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__nonroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__npogACET $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__npogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__npogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__npogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -466,7 +467,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__npogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__npogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -501,7 +502,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_caACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_caALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_caALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_caBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -536,7 +537,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroad_caTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_caXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__railACET $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__railALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__railALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__railBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -572,7 +573,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__railTOL $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__railXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__rwcACET $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__rwcALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__rwcALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__rwcBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -679,7 +680,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__c3TOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__c3XYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__pteguACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__pteguALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__pteguALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__pteguBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -717,7 +718,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__pteguTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__pteguXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptogACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -755,7 +756,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__ptogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__ptogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptnonipmACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptnonipmALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptnonipmALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptnonipmBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -828,7 +829,7 @@ VerboseOnCores: root # Accepted values: root all 0 EPA16_TOLU__onroad_canTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_canXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_mexACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_mexALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_mexALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_mexBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -1223,7 +1224,7 @@ VerboseOnCores: root # Accepted values: root all 0 DICE_HOUSEFUELWOOD_C2H6 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H6 2013/1/1/0 C xy g/m2/yr C2H6 26/1008 2 60 0 DICE_HOUSEFUELWOOD_HAC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc HAC 2013/1/1/0 C xy g/m2/yr HAC 26/1008 2 60 0 DICE_HOUSEFUELWOOD_GLYC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc GLYC 2013/1/1/0 C xy g/m2/yr GLYC 26/1008 2 60 -0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 +0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MGLY 2013/1/1/0 C xy g/m2/yr MGLY 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc APIN 2013/1/1/0 C xy g/m2/yr APIN 26/1008 2 60 0 DICE_HOUSEFUELWOOD_C2H2 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H2 2013/1/1/0 C xy g/m2/yr C2H2 26/1008 2 60 @@ -1540,13 +1541,13 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_C5H12_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 0 CEDS_C5H12_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2401 1 5 -0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2406/706/315 1 5 -0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2407/707/316 1 5 -0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2411/711 1 5 -0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2409/709 1 5 -0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 -0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 +0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2401 1 5 +0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2406/706/315 1 5 +0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2407/707/316 1 5 +0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2411/711 1 5 +0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2409/709 1 5 +0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2407/707 1 5 +0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 0 CEDS_C2H4_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2401 1 5 0 CEDS_C2H4_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4 2406/706/315 1 5 @@ -1627,6 +1628,22 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_HCOOH_RCO $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2409/709 1 5 0 CEDS_HCOOH_SLV $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2407/707 1 5 0 CEDS_HCOOH_WST $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_TMB_AGR $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_agr 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_ENE $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/315 1 5 +0 CEDS_TMB_IND $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/316 1 5 +0 CEDS_TMB_TRA $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_tra 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_RCO $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_SLV $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_WST $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_OTH_AGR $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_ENE $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/315 1 5 +0 CEDS_OTH_IND $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/316 1 5 +0 CEDS_OTH_TRA $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_RCO $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_SLV $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_WST $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 )))CEDSv2 #============================================================================== @@ -1930,10 +1947,10 @@ VerboseOnCores: root # Accepted values: root all # #============================================================================== (((CMIP6_AIRCRAFT -0 CMIP6_AIR_NO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 NO_air 1750-2100/1-12/1/0 C xyz kg/m2/s NO - 20 1 -0 CMIP6_AIR_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO - 20 1 +0 CMIP6_AIR_NO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 NO_air 1750-2100/1-12/1/0 C xyz kg/m2/s NO - 20 1 +0 CMIP6_AIR_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO - 20 1 0 CMIP6_AIR_SOAP - - - - - - SOAP 280 20 1 -0 CMIP6_AIR_SO2 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 SO2_air 1750-2100/1-12/1/0 C xyz kg/m2/s SO2 - 20 1 +0 CMIP6_AIR_SO2 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 SO2_air 1750-2100/1-12/1/0 C xyz kg/m2/s SO2 - 20 1 0 CMIP6_AIR_SO4 - - - - - - SO4 63 20 1 0 CMIP6_AIR_pFe - - - - - - pFe 66 20 1 0 CMIP6_AIR_ACET - - - - - - ACET 601 20 1 @@ -1945,10 +1962,10 @@ VerboseOnCores: root # Accepted values: root all 0 CMIP6_AIR_PRPE - - - - - - PRPE 607 20 1 0 CMIP6_AIR_MACR - - - - - - MACR 608 20 1 0 CMIP6_AIR_RCHO - - - - - - RCHO 609 20 1 -0 CMIP6_AIR_NH3 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 NH3_air 1750-2100/1-12/1/0 C xyz kg/m2/s NH3 - 20 1 +0 CMIP6_AIR_NH3 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 NH3_air 1750-2100/1-12/1/0 C xyz kg/m2/s NH3 - 20 1 # Assume all BC/OC is BCPI/OCPI -0 CMIP6_AIR_BCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 BC_air 1750-2100/1-12/1/0 C xyz kg/m2/s BCPI - 20 1 -0 CMIP6_AIR_OCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 OC_air 1750-2100/1-12/1/0 C xyz kg/m2/s OCPI - 20 1 +0 CMIP6_AIR_BCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 BC_air 1750-2100/1-12/1/0 C xyz kg/m2/s BCPI - 20 1 +0 CMIP6_AIR_OCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 OC_air 1750-2100/1-12/1/0 C xyz kg/m2/s OCPI - 20 1 0 CMIP6_AIR_POG1 - - - - - - POG1 74/76 20 1 0 CMIP6_AIR_POG2 - - - - - - POG2 74/77 20 1 @@ -2656,6 +2673,8 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 4 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 4 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 4 )))HTAPv3_SHIP (((CEDSv2_SHIP @@ -2689,6 +2708,8 @@ VerboseOnCores: root # Accepted values: root all 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 5 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 5 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 5 )))CEDSv2_SHIP (((CEDS_GBDMAPS_SHIP @@ -3472,7 +3493,7 @@ VerboseOnCores: root # Accepted values: root all * SO2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_SO2AfterChem $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 * H2O2_AFTERCHEM ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_H2O2AfterChem $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 * AEROH2O_SNA ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_AeroH2OSNA $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 -* ORVCSESQ ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCSESQ $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 +* ORVCSESQ ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_ORVCsesq $YYYY/$MM/$DD/$HH EY xyz 1 * - 1 1 * JOH ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JOH $YYYY/$MM/$DD/$HH EY xy 1 * - 1 1 * JNO2 ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_JNO2 $YYYY/$MM/$DD/$HH EY xy 1 * - 1 1 * STATE_PSC ./Restarts/GEOSChem.Restart.$YYYY$MM$DD_$HH$MNz.nc4 Chem_StatePSC $YYYY/$MM/$DD/$HH EY xyz count * - 1 1 diff --git a/run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem b/run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem index 9c845f463..cfa7db1f0 100644 --- a/run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem +++ b/run/GCHP/HEMCO_Diagn.rc.templates/HEMCO_Diagn.rc.fullchem @@ -37,6 +37,12 @@ EmisACET_BioBurn ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_ EmisACET_Biogenic ACET 0 4 -1 2 kg/m2/s ACET_emission_flux_from_biogenic_sources EmisACET_Ocean ACET 101 -1 -1 2 kg/m2/s ACET_emission_flux_from_ocean +############################################################################### +##### ACR emissions ##### +############################################################################### +EmisACR_Total ACR -1 -1 -1 3 kg/m2/s ACR_emission_flux_from_all_sectors +EmisACR_BioBurn ACR 111 -1 -1 2 kg/m2/s ACR_emission_flux_from_biomass_burning + ############################################################################### ##### ACTA emissions ##### ############################################################################### @@ -63,6 +69,13 @@ EmisALK4_Anthro ALK4 0 1 -1 3 kg/m2/s ALK4_emission_flux_from_a EmisALK4_BioBurn ALK4 111 -1 -1 2 kg/m2/s ALK4_emission_flux_from_biomass_burning EmisALK4_Ship ALK4 0 10 -1 2 kg/m2/s ALK4_emission_flux_from_ships +############################################################################### +##### ALK6 emissions ##### +############################################################################### +EmisALK6_Total ALK6 -1 -1 -1 3 kg/m2/s ALK6_emission_flux_from_all_sectors +EmisALK6_Anthro ALK6 0 1 -1 3 kg/m2/s ALK6_emission_flux_from_anthropogenic +EmisALK6_Ship ALK6 0 10 -1 2 kg/m2/s ALK6_emission_flux_from_ships + ############################################################################### ##### BCPI and BCPO emissions ##### ############################################################################### @@ -119,6 +132,12 @@ EmisC3H8_Anthro C3H8 0 1 -1 3 kg/m2/s C3H8_emission_flux_from_a EmisC3H8_BioBurn C3H8 111 -1 -1 2 kg/m2/s C3H8_emission_flux_from_biomass_burning EmisC3H8_Ship C3H8 0 10 -1 2 kg/m2/s C3H8_emission_flux_from_ships +############################################################################### +##### C4H6 emissions ##### +############################################################################### +EmisC4H6_Total C4H6 -1 -1 -1 3 kg/m2/s C4H6_emission_flux_from_all_sectors +EmisC4H6_BioBurn C4H6 111 -1 -1 2 kg/m2/s C4H6_emission_flux_from_biomass_burning + ############################################################################### ##### CH2Br2 emissions ##### ############################################################################### @@ -242,6 +261,7 @@ EmisHCl_Anthro HCl 0 1 -1 3 kg/m2/s HCl_emission_flux_from_an ############################################################################### EmisHCOOH_Total HCOOH -1 -1 -1 3 kg/m2/s HCOOH_emission_flux_from_all_sectors EmisHCOOH_Anthro HCOOH 0 1 -1 3 kg/m2/s HCOOH_emission_flux_from_anthropogenic +EmisHCOOH_BioBurn HCOOH 111 -1 -1 2 kg/m2/s HCOOH_emission_flux_from_biomass_burning EmisHCOOH_Ship HCOOH 0 10 -1 2 kg/m2/s HCOOH_emission_flux_from_ship ############################################################################### @@ -315,7 +335,7 @@ EmisMTPO_Total MTPO -1 -1 -1 3 kg/m2/s MTPO_emission_flux_from_a EmisMTPO_Biogenic MTPO 0 4 -1 2 kg/m2/s MTPO_emission_flux_from_biogenic_sources ############################################################################### -##### MVK emissions ##### +##### MVK emissions ##### ############################################################################### EmisMVK_Total MVK -1 -1 -1 3 kg/m2/s MVK_emission_flux_from_all_sectors EmisMVK_BioBurn MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_biomass_burning @@ -469,6 +489,12 @@ EmisSOAP_Ship SOAP 0 10 -1 2 kg/m2/s SOAP_emission_flux_from_s ############################################################################### EmisSOAS_Biogenic SOAS 0 4 -1 2 kg/m2/s SOAS_emission_flux_from_biogenic_sources +############################################################################## +##### STYR emissions ##### +############################################################################### +EmisSTYR_Total STYR -1 -1 -1 3 kg/m2/s STYR_emission_flux_from_all_sectors +EmisSTYR_BioBurn STYR 111 -1 -1 2 kg/m2/s STYR_emission_flux_from_biomass_burning + ############################################################################### ##### TOLU emissions ##### ############################################################################### @@ -508,6 +534,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #============================= #InvCEDS_ALD2 ALD2 0 1 5 3 kg/m2/s ALD2_emission_flux_from_CEDS_inventory #InvCEDS_ALK4 ALK4 0 1 5 3 kg/m2/s ALK4_emission_flux_from_CEDS_inventory +#InvCEDS_ALK6 ALK6 0 1 5 3 kg/m2/s ALK6_emission_flux_from_CEDS_inventory #InvCEDS_BCPI BCPI 0 1 5 3 kg/m2/s BCPI_emission_flux_from_CEDS_inventory #InvCEDS_BCPO BCPO 0 1 5 3 kg/m2/s BCPO_emission_flux_from_CEDS_inventory #InvCEDS_BENZ BENZ 0 1 5 3 kg/m2/s BENZ_emission_flux_from_CEDS_inventory @@ -724,6 +751,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ # GFED Extension #============================= #InvGFED_ACET ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_GFED_extension +#InvGFED_ACR ACR 111 -1 -1 2 kg/m2/s ACR_emission_flux_from_GFED_extension #InvGFED_ACTA ACTA 111 -1 -1 2 kg/m2/s ACTA_emission_flux_from_GFED_extension #InvGFED_ALD2 ALD2 111 -1 -1 2 kg/m2/s ALD2_emission_flux_from_GFED_extension #InvGFED_ALK4 ALK4 111 -1 -1 2 kg/m2/s ALK4_emission_flux_from_GFED_extension @@ -732,13 +760,16 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #InvGFED_BENZ BENZ 111 -1 -1 2 kg/m2/s BENZ_emission_flux_from_GFED_extension #InvGFED_C2H6 C2H6 111 -1 -1 2 kg/m2/s C2H6_emission_flux_from_GFED_extension #InvGFED_C3H8 C3H8 111 -1 -1 2 kg/m2/s C3H8_emission_flux_from_GFED_extension +#InvGFED_C4H6 C4H6 111 -1 -1 2 kg/m2/s C4H6_emission_flux_from_GFED_extension #InvGFED_CH2O CH2O 111 -1 -1 2 kg/m2/s CH2O_emission_flux_from_GFED_extension #InvGFED_CO CO 111 -1 -1 2 kg/m2/s CO_emission_flux_from_GFED_extension #InvGFED_EOH EOH 111 -1 -1 2 kg/m2/s EOH_emission_flux_from_GFED_extension #InvGFED_FURA FURA 111 -1 -1 2 kg/m2/s FURA_emission_flux_from_GFED_extension #InvGFED_GLYX GLYX 111 -1 -1 2 kg/m2/s GLYX_emission_flux_from_GFED_extension +#InvGFED_HCOOH HCOOH 111 -1 -1 2 kg/m2/s HCOOH_emission_flux_from_GFED_extension #InvGFED_ISOP ISOP 111 -1 -1 2 kg/m2/s ISOP_emission_flux_from_GFED_extension #InvGFED_MEK MEK 111 -1 -1 2 kg/m2/s MEK_emission_flux_from_GFED_extension +#InvGFED_MVK MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_GFED_extension #InvGFED_MGLY MGLY 111 -1 -1 2 kg/m2/s MGLY_emission_flux_from_GFED_extension #InvGFED_MOH MOH 111 -1 -1 2 kg/m2/s MOH_emission_flux_from_GFED_extension #InvGFED_MTPA MTP 111 -1 -1 2 kg/m2/s MTPA_emission_flux_from_GFED_extension @@ -755,6 +786,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #InvGFED_RCHO RCHO 111 -1 -1 2 kg/m2/s RCHO_emission_flux_from_GFED_extension #InvGFED_SO2 SO2 111 -1 -1 2 kg/m2/s SO2_emission_flux_from_GFED_extension #InvGFED_SOAP SOAP 111 -1 -1 2 kg/m2/s SOAP_emission_flux_from_GFED_extension +#InvGFED_STYR STYR 111 -1 -1 2 kg/m2/s STYR_emission_flux_from_GFED_extension #InvGFED_TOLU TOLU 111 -1 -1 2 kg/m2/s TOLU_emission_flux_from_GFED_extension #InvGFED_XYLE ACET 111 -1 -1 2 kg/m2/s XYLE_emission_flux_from_GFED_extension diff --git a/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem b/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem index ab18dbc4d..041b7b725 100644 --- a/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem +++ b/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem @@ -65,7 +65,7 @@ COLLECTIONS: @#'DefaultCollection', @#'CloudConvFlux', @#'ConcAboveSfc', @#'ConcAfterChem', - @#'DryDep', + #'DryDep', #'Emissions', #'FV3Dynamics', #'GCHPctmEnvLevCenter', @@ -185,6 +185,8 @@ COLLECTIONS: @#'DefaultCollection', 'EmisACET_BioBurn ', 'GCHPchem', 'EmisACET_Biogenic ', 'GCHPchem', 'EmisACET_Ocean ', 'GCHPchem', + 'EmisACR_Total ', 'GCHPchem', + 'EmisACR_BioBurn ', 'GCHPchem', 'EmisACTA_Total ', 'GCHPchem', 'EmisACTA_BioBurn ', 'GCHPchem', 'EmisALD2_Total ', 'GCHPchem', @@ -199,6 +201,9 @@ COLLECTIONS: @#'DefaultCollection', 'EmisALK4_Anthro ', 'GCHPchem', 'EmisALK4_BioBurn ', 'GCHPchem', 'EmisALK4_Ship ', 'GCHPchem', + 'EmisALK6_Total ', 'GCHPchem', + 'EmisALK6_Anthro ', 'GCHPchem', + 'EmisALK6_Ship ', 'GCHPchem', 'EmisBCPI_Total ', 'GCHPchem', 'EmisBCPI_Aircraft ', 'GCHPchem', 'EmisBCPI_Anthro ', 'GCHPchem', @@ -231,6 +236,8 @@ COLLECTIONS: @#'DefaultCollection', 'EmisC3H8_Anthro ', 'GCHPchem', 'EmisC3H8_BioBurn ', 'GCHPchem', 'EmisC3H8_Ship ', 'GCHPchem', + 'EmisC4H6_Total ', 'GCHPchem', + 'EmisC4H6_BioBurn ', 'GCHPchem', 'EmisCH2Br2_Ocean ', 'GCHPchem', 'EmisCH2I2_Ocean ', 'GCHPchem', 'EmisCH2ICl_Ocean ', 'GCHPchem', @@ -278,6 +285,7 @@ COLLECTIONS: @#'DefaultCollection', 'EmisHCl_Anthro ', 'GCHPchem', 'EmisHCOOH_Total ', 'GCHPchem', 'EmisHCOOH_Anthro ', 'GCHPchem', + 'EmisHCOOH_BioBurn ', 'GCHPchem', 'EmisHCOOH_Ship ', 'GCHPchem', 'EmisHNO3_Ship ', 'GCHPchem', 'EmisHONO_Aircraft ', 'GCHPchem', @@ -383,6 +391,8 @@ COLLECTIONS: @#'DefaultCollection', 'EmisSOAP_BioBurn ', 'GCHPchem', 'EmisSOAP_Ship ', 'GCHPchem', 'EmisSOAS_Biogenic ', 'GCHPchem', + 'EmisSTYR_Total ', 'GCHPchem', + 'EmisSTYR_BioBurn ', 'GCHPchem', 'EmisTOLU_Total ', 'GCHPchem', 'EmisTOLU_Anthro ', 'GCHPchem', 'EmisTOLU_BioBurn ', 'GCHPchem', @@ -534,6 +544,7 @@ COLLECTIONS: @#'DefaultCollection', #'InvMEGAN_FAXX ', 'GCHPchem', #'InvMEGAN_AAXX ', 'GCHPchem', #'InvGFED_ACET ', 'GCHPchem', + #'InvGFED_ACR ', 'GCHPchem', #'InvGFED_ACTA ', 'GCHPchem', #'InvGFED_ALD2 ', 'GCHPchem', #'InvGFED_ALK4 ', 'GCHPchem', @@ -542,11 +553,13 @@ COLLECTIONS: @#'DefaultCollection', #'InvGFED_BENZ ', 'GCHPchem', #'InvGFED_C2H6 ', 'GCHPchem', #'InvGFED_C3H8 ', 'GCHPchem', + #'InvGFED_C4H6 ', 'GCHPchem', #'InvGFED_CH2O ', 'GCHPchem', #'InvGFED_CO ', 'GCHPchem', #'InvGFED_EOH ', 'GCHPchem', #'InvGFED_FURA ', 'GCHPchem', #'InvGFED_GLYX ', 'GCHPchem', + #'InvGFED_HCOOH ', 'GCHPchem', #'InvGFED_ISOP ', 'GCHPchem', #'InvGFED_MEK ', 'GCHPchem', #'InvGFED_MGLY ', 'GCHPchem', @@ -565,6 +578,7 @@ COLLECTIONS: @#'DefaultCollection', #'InvGFED_RCHO ', 'GCHPchem', #'InvGFED_SO2 ', 'GCHPchem', #'InvGFED_SOAP ', 'GCHPchem', + #'InvGFED_STYR ', 'GCHPchem', #'InvGFED_TOLU ', 'GCHPchem', #'InvGFED_XYLE ', 'GCHPchem', #'InvVOLCANOerupt_SO2 ', 'GCHPchem', @@ -1085,9 +1099,10 @@ COLLECTIONS: @#'DefaultCollection', #============================================================================== # %%%%% THE DryDep COLLECTION %%%%% # -# Dry depositon fluxes and velocities (for all dry-depositing species) +# Dry depositon fluxes and velocities # # Available for all simuations that have dry-depositing species +# NOTE: Only keep species that are needed for fullchem benchmarks #============================================================================== DryDep.template: '%y4%m2%d2_%h2%n2z.nc4', DryDep.format: 'CFIO', @@ -1096,356 +1111,17 @@ COLLECTIONS: @#'DefaultCollection', DryDep.frequency: 010000 DryDep.duration: 010000 DryDep.mode: 'time-averaged' - DryDep.fields: 'DryDepVel_SOAS ', 'GCHPchem', - 'DryDepVel_SOAIE ', 'GCHPchem', - 'DryDepVel_SOAGX ', 'GCHPchem', - 'DryDepVel_SO4s ', 'GCHPchem', - 'DryDepVel_SO4 ', 'GCHPchem', - 'DryDepVel_SO2 ', 'GCHPchem', - 'DryDepVel_SALCCL ', 'GCHPchem', - 'DryDepVel_SALCAL ', 'GCHPchem', - 'DryDepVel_SALC ', 'GCHPchem', - 'DryDepVel_SALACL ', 'GCHPchem', - 'DryDepVel_SALAAL ', 'GCHPchem', - 'DryDepVel_SALA ', 'GCHPchem', - 'DryDepVel_RP ', 'GCHPchem', - 'DryDepVel_RIPD ', 'GCHPchem', - 'DryDepVel_RIPC ', 'GCHPchem', - 'DryDepVel_RIPB ', 'GCHPchem', - 'DryDepVel_RIPA ', 'GCHPchem', - 'DryDepVel_RB3P ', 'GCHPchem', - 'DryDepVel_RA3P ', 'GCHPchem', - 'DryDepVel_R4P ', 'GCHPchem', - 'DryDepVel_R4N2 ', 'GCHPchem', - 'DryDepVel_PYAC ', 'GCHPchem', - 'DryDepVel_PRPN ', 'GCHPchem', - 'DryDepVel_PROPNN ', 'GCHPchem', - 'DryDepVel_PPN ', 'GCHPchem', - 'DryDepVel_PP ', 'GCHPchem', - 'DryDepVel_PHEN ', 'GCHPchem', - 'DryDepVel_pFe ', 'GCHPchem', - 'DryDepVel_PAN ', 'GCHPchem', - 'DryDepVel_OCPO ', 'GCHPchem', - 'DryDepVel_OCPI ', 'GCHPchem', - 'DryDepVel_O3 ', 'GCHPchem', - 'DryDepVel_NPRNO3 ', 'GCHPchem', - 'DryDepVel_NPHEN ', 'GCHPchem', - 'DryDepVel_NO2 ', 'GCHPchem', - 'DryDepVel_NITs ', 'GCHPchem', - 'DryDepVel_NIT ', 'GCHPchem', - 'DryDepVel_NH4 ', 'GCHPchem', - 'DryDepVel_NH3 ', 'GCHPchem', - 'DryDepVel_N2O5 ', 'GCHPchem', - 'DryDepVel_MVKPC ', 'GCHPchem', - 'DryDepVel_MVKN ', 'GCHPchem', - 'DryDepVel_MVKHP ', 'GCHPchem', - 'DryDepVel_MVKHCB ', 'GCHPchem', - 'DryDepVel_MVKHC ', 'GCHPchem', - 'DryDepVel_MVKDH ', 'GCHPchem', - 'DryDepVel_MVK ', 'GCHPchem', - 'DryDepVel_MTPO ', 'GCHPchem', - 'DryDepVel_MTPA ', 'GCHPchem', - 'DryDepVel_MSA ', 'GCHPchem', - 'DryDepVel_MPAN ', 'GCHPchem', - 'DryDepVel_MONITU ', 'GCHPchem', - 'DryDepVel_MONITS ', 'GCHPchem', - 'DryDepVel_MONITA ', 'GCHPchem', - 'DryDepVel_MOH ', 'GCHPchem', - 'DryDepVel_MGLY ', 'GCHPchem', - 'DryDepVel_MENO3 ', 'GCHPchem', - 'DryDepVel_MCT ', 'GCHPchem', - 'DryDepVel_MCRHP ', 'GCHPchem', - 'DryDepVel_MCRHNB ', 'GCHPchem', - 'DryDepVel_MCRHN ', 'GCHPchem', - 'DryDepVel_MCRENOL ', 'GCHPchem', - 'DryDepVel_MCRDH ', 'GCHPchem', - 'DryDepVel_MAP ', 'GCHPchem', - 'DryDepVel_MACR1OOH ', 'GCHPchem', - 'DryDepVel_MACR ', 'GCHPchem', - 'DryDepVel_LVOCOA ', 'GCHPchem', - 'DryDepVel_LVOC ', 'GCHPchem', - 'DryDepVel_LIMO ', 'GCHPchem', - 'DryDepVel_ITHN ', 'GCHPchem', - 'DryDepVel_ITCN ', 'GCHPchem', - 'DryDepVel_ISALC ', 'GCHPchem', - 'DryDepVel_ISALA ', 'GCHPchem', - 'DryDepVel_IPRNO3 ', 'GCHPchem', - 'DryDepVel_IONO2 ', 'GCHPchem', - 'DryDepVel_IONO ', 'GCHPchem', - 'DryDepVel_IONITA ', 'GCHPchem', - 'DryDepVel_INPD ', 'GCHPchem', - 'DryDepVel_INPB ', 'GCHPchem', - 'DryDepVel_INDIOL ', 'GCHPchem', - 'DryDepVel_IHN4 ', 'GCHPchem', - 'DryDepVel_IHN3 ', 'GCHPchem', - 'DryDepVel_IHN2 ', 'GCHPchem', - 'DryDepVel_IHN1 ', 'GCHPchem', - 'DryDepVel_IEPOXD ', 'GCHPchem', - 'DryDepVel_IEPOXB ', 'GCHPchem', - 'DryDepVel_IEPOXA ', 'GCHPchem', - 'DryDepVel_IDN ', 'GCHPchem', - 'DryDepVel_IDHPE ', 'GCHPchem', - 'DryDepVel_IDHDP ', 'GCHPchem', - 'DryDepVel_IDCHP ', 'GCHPchem', - 'DryDepVel_IDC ', 'GCHPchem', - 'DryDepVel_ICPDH ', 'GCHPchem', - 'DryDepVel_ICN ', 'GCHPchem', - 'DryDepVel_ICl ', 'GCHPchem', - 'DryDepVel_ICHE ', 'GCHPchem', - 'DryDepVel_IBr ', 'GCHPchem', - 'DryDepVel_I2O4 ', 'GCHPchem', - 'DryDepVel_I2O3 ', 'GCHPchem', - 'DryDepVel_I2O2 ', 'GCHPchem', - 'DryDepVel_I2 ', 'GCHPchem', - 'DryDepVel_HPETHNL ', 'GCHPchem', - 'DryDepVel_HPALD4 ', 'GCHPchem', - 'DryDepVel_HPALD3 ', 'GCHPchem', - 'DryDepVel_HPALD2 ', 'GCHPchem', - 'DryDepVel_HPALD1 ', 'GCHPchem', - 'DryDepVel_HONIT ', 'GCHPchem', - 'DryDepVel_HOI ', 'GCHPchem', - 'DryDepVel_HOCl ', 'GCHPchem', - 'DryDepVel_HOBr ', 'GCHPchem', - 'DryDepVel_HNO3 ', 'GCHPchem', - 'DryDepVel_HMS ', 'GCHPchem', - 'DryDepVel_HMML ', 'GCHPchem', - 'DryDepVel_HMHP ', 'GCHPchem', - 'DryDepVel_HI ', 'GCHPchem', - 'DryDepVel_HCOOH ', 'GCHPchem', - 'DryDepVel_HCl ', 'GCHPchem', - 'DryDepVel_HC5A ', 'GCHPchem', - 'DryDepVel_HBr ', 'GCHPchem', - 'DryDepVel_HAC ', 'GCHPchem', - 'DryDepVel_H2O2 ', 'GCHPchem', - 'DryDepVel_GLYX ', 'GCHPchem', - 'DryDepVel_GLYC ', 'GCHPchem', - 'DryDepVel_FURA ', 'GCHPchem', - 'DryDepVel_ETP ', 'GCHPchem', - 'DryDepVel_ETNO3 ', 'GCHPchem', - 'DryDepVel_ETHP ', 'GCHPchem', - 'DryDepVel_ETHN ', 'GCHPchem', - 'DryDepVel_ETHLN ', 'GCHPchem', - 'DryDepVel_EOH ', 'GCHPchem', - 'DryDepVel_DST4 ', 'GCHPchem', - 'DryDepVel_DST3 ', 'GCHPchem', - 'DryDepVel_DST2 ', 'GCHPchem', - 'DryDepVel_DST1 ', 'GCHPchem', - 'DryDepVel_CSL ', 'GCHPchem', - 'DryDepVel_ClOO ', 'GCHPchem', - 'DryDepVel_ClO ', 'GCHPchem', - 'DryDepVel_ClNO3 ', 'GCHPchem', - 'DryDepVel_ClNO2 ', 'GCHPchem', - 'DryDepVel_Cl2 ', 'GCHPchem', - 'DryDepVel_CH2O ', 'GCHPchem', - 'DryDepVel_BZPAN ', 'GCHPchem', - 'DryDepVel_BZCO3H ', 'GCHPchem', - 'DryDepVel_BrSALC ', 'GCHPchem', - 'DryDepVel_BrSALA ', 'GCHPchem', - 'DryDepVel_BrNO3 ', 'GCHPchem', - 'DryDepVel_BrCl ', 'GCHPchem', - 'DryDepVel_Br2 ', 'GCHPchem', - 'DryDepVel_BENZP ', 'GCHPchem', - 'DryDepVel_BCPO ', 'GCHPchem', - 'DryDepVel_BCPI ', 'GCHPchem', - 'DryDepVel_BALD ', 'GCHPchem', - 'DryDepVel_ATOOH ', 'GCHPchem', - 'DryDepVel_AROMP5 ', 'GCHPchem', - 'DryDepVel_AROMP4 ', 'GCHPchem', - 'DryDepVel_AONITA ', 'GCHPchem', - 'DryDepVel_ALD2 ', 'GCHPchem', - 'DryDepVel_AERI ', 'GCHPchem', - 'DryDepVel_ACTA ', 'GCHPchem', - 'DryDepVel_ACET ', 'GCHPchem', - #'DryDepVel_TSOG3 ', 'GCHPchem', - #'DryDepVel_TSOG2 ', 'GCHPchem', - #'DryDepVel_TSOG1 ', 'GCHPchem', - #'DryDepVel_TSOG0 ', 'GCHPchem', - #'DryDepVel_TSOA3 ', 'GCHPchem', - #'DryDepVel_TSOA2 ', 'GCHPchem', - #'DryDepVel_TSOA1 ', 'GCHPchem', - #'DryDepVel_TSOA0 ', 'GCHPchem', - #'DryDepVel_ASOG3 ', 'GCHPchem', - #'DryDepVel_ASOG2 ', 'GCHPchem', - #'DryDepVel_ASOG1 ', 'GCHPchem', - #'DryDepVel_ASOAN ', 'GCHPchem', - #'DryDepVel_ASOA3 ', 'GCHPchem', - #'DryDepVel_ASOA2 ', 'GCHPchem', - #'DryDepVel_ASOA1 ', 'GCHPchem', - 'DryDep_SOAS ', 'GCHPchem', - 'DryDep_SOAIE ', 'GCHPchem', - 'DryDep_SOAGX ', 'GCHPchem', - 'DryDep_SO4s ', 'GCHPchem', - 'DryDep_SO4 ', 'GCHPchem', - 'DryDep_SO2 ', 'GCHPchem', - 'DryDep_SALCCL ', 'GCHPchem', - 'DryDep_SALCAL ', 'GCHPchem', - 'DryDep_SALC ', 'GCHPchem', - 'DryDep_SALACL ', 'GCHPchem', - 'DryDep_SALAAL ', 'GCHPchem', - 'DryDep_SALA ', 'GCHPchem', - 'DryDep_RP ', 'GCHPchem', - 'DryDep_RIPD ', 'GCHPchem', - 'DryDep_RIPC ', 'GCHPchem', - 'DryDep_RIPB ', 'GCHPchem', - 'DryDep_RIPA ', 'GCHPchem', - 'DryDep_RB3P ', 'GCHPchem', - 'DryDep_RA3P ', 'GCHPchem', - 'DryDep_R4P ', 'GCHPchem', - 'DryDep_R4N2 ', 'GCHPchem', - 'DryDep_PYAC ', 'GCHPchem', - 'DryDep_PRPN ', 'GCHPchem', - 'DryDep_PROPNN ', 'GCHPchem', - 'DryDep_PPN ', 'GCHPchem', - 'DryDep_PP ', 'GCHPchem', - 'DryDep_PHEN ', 'GCHPchem', - 'DryDep_pFe ', 'GCHPchem', - 'DryDep_PAN ', 'GCHPchem', - 'DryDep_OCPO ', 'GCHPchem', - 'DryDep_OCPI ', 'GCHPchem', - 'DryDep_O3 ', 'GCHPchem', - 'DryDep_NPRNO3 ', 'GCHPchem', - 'DryDep_NPHEN ', 'GCHPchem', - 'DryDep_NO2 ', 'GCHPchem', - 'DryDep_NITs ', 'GCHPchem', - 'DryDep_NIT ', 'GCHPchem', - 'DryDep_NH4 ', 'GCHPchem', - 'DryDep_NH3 ', 'GCHPchem', - 'DryDep_N2O5 ', 'GCHPchem', - 'DryDep_MVKPC ', 'GCHPchem', - 'DryDep_MVKN ', 'GCHPchem', - 'DryDep_MVKHP ', 'GCHPchem', - 'DryDep_MVKHCB ', 'GCHPchem', - 'DryDep_MVKHC ', 'GCHPchem', - 'DryDep_MVKDH ', 'GCHPchem', - 'DryDep_MVK ', 'GCHPchem', - 'DryDep_MTPO ', 'GCHPchem', - 'DryDep_MTPA ', 'GCHPchem', - 'DryDep_MSA ', 'GCHPchem', - 'DryDep_MPAN ', 'GCHPchem', - 'DryDep_MONITU ', 'GCHPchem', - 'DryDep_MONITS ', 'GCHPchem', - 'DryDep_MONITA ', 'GCHPchem', - 'DryDep_MOH ', 'GCHPchem', - 'DryDep_MGLY ', 'GCHPchem', - 'DryDep_MENO3 ', 'GCHPchem', - 'DryDep_MCT ', 'GCHPchem', - 'DryDep_MCRHP ', 'GCHPchem', - 'DryDep_MCRHNB ', 'GCHPchem', - 'DryDep_MCRHN ', 'GCHPchem', - 'DryDep_MCRENOL ', 'GCHPchem', - 'DryDep_MCRDH ', 'GCHPchem', - 'DryDep_MAP ', 'GCHPchem', - 'DryDep_MACR1OOH ', 'GCHPchem', - 'DryDep_MACR ', 'GCHPchem', - 'DryDep_LVOCOA ', 'GCHPchem', - 'DryDep_LVOC ', 'GCHPchem', - 'DryDep_LIMO ', 'GCHPchem', - 'DryDep_ITHN ', 'GCHPchem', - 'DryDep_ITCN ', 'GCHPchem', - 'DryDep_ISALC ', 'GCHPchem', - 'DryDep_ISALA ', 'GCHPchem', - 'DryDep_IPRNO3 ', 'GCHPchem', - 'DryDep_IONO2 ', 'GCHPchem', - 'DryDep_IONO ', 'GCHPchem', - 'DryDep_IONITA ', 'GCHPchem', - 'DryDep_INPD ', 'GCHPchem', - 'DryDep_INPB ', 'GCHPchem', - 'DryDep_INDIOL ', 'GCHPchem', - 'DryDep_IHN4 ', 'GCHPchem', - 'DryDep_IHN3 ', 'GCHPchem', - 'DryDep_IHN2 ', 'GCHPchem', - 'DryDep_IHN1 ', 'GCHPchem', - 'DryDep_IEPOXD ', 'GCHPchem', - 'DryDep_IEPOXB ', 'GCHPchem', - 'DryDep_IEPOXA ', 'GCHPchem', - 'DryDep_IDN ', 'GCHPchem', - 'DryDep_IDHPE ', 'GCHPchem', - 'DryDep_IDHDP ', 'GCHPchem', - 'DryDep_IDCHP ', 'GCHPchem', - 'DryDep_IDC ', 'GCHPchem', - 'DryDep_ICPDH ', 'GCHPchem', - 'DryDep_ICN ', 'GCHPchem', - 'DryDep_ICl ', 'GCHPchem', - 'DryDep_ICHE ', 'GCHPchem', - 'DryDep_IBr ', 'GCHPchem', - 'DryDep_I2O4 ', 'GCHPchem', - 'DryDep_I2O3 ', 'GCHPchem', - 'DryDep_I2O2 ', 'GCHPchem', - 'DryDep_I2 ', 'GCHPchem', - 'DryDep_HPETHNL ', 'GCHPchem', - 'DryDep_HPALD4 ', 'GCHPchem', - 'DryDep_HPALD3 ', 'GCHPchem', - 'DryDep_HPALD2 ', 'GCHPchem', - 'DryDep_HPALD1 ', 'GCHPchem', - 'DryDep_HONIT ', 'GCHPchem', - 'DryDep_HOI ', 'GCHPchem', - 'DryDep_HOCl ', 'GCHPchem', - 'DryDep_HOBr ', 'GCHPchem', - 'DryDep_HNO3 ', 'GCHPchem', - 'DryDep_HMS ', 'GCHPchem', - 'DryDep_HMML ', 'GCHPchem', - 'DryDep_HMHP ', 'GCHPchem', - 'DryDep_HI ', 'GCHPchem', - 'DryDep_HCOOH ', 'GCHPchem', - 'DryDep_HCl ', 'GCHPchem', - 'DryDep_HC5A ', 'GCHPchem', - 'DryDep_HBr ', 'GCHPchem', - 'DryDep_HAC ', 'GCHPchem', - 'DryDep_H2O2 ', 'GCHPchem', - 'DryDep_GLYX ', 'GCHPchem', - 'DryDep_GLYC ', 'GCHPchem', - 'DryDep_FURA ', 'GCHPchem', - 'DryDep_ETP ', 'GCHPchem', - 'DryDep_ETNO3 ', 'GCHPchem', - 'DryDep_ETHP ', 'GCHPchem', - 'DryDep_ETHN ', 'GCHPchem', - 'DryDep_ETHLN ', 'GCHPchem', - 'DryDep_EOH ', 'GCHPchem', - 'DryDep_DST4 ', 'GCHPchem', - 'DryDep_DST3 ', 'GCHPchem', - 'DryDep_DST2 ', 'GCHPchem', - 'DryDep_DST1 ', 'GCHPchem', - 'DryDep_CSL ', 'GCHPchem', - 'DryDep_ClOO ', 'GCHPchem', - 'DryDep_ClO ', 'GCHPchem', - 'DryDep_ClNO3 ', 'GCHPchem', - 'DryDep_ClNO2 ', 'GCHPchem', - 'DryDep_Cl2 ', 'GCHPchem', - 'DryDep_CH2O ', 'GCHPchem', - 'DryDep_BZPAN ', 'GCHPchem', - 'DryDep_BZCO3H ', 'GCHPchem', - 'DryDep_BrSALC ', 'GCHPchem', - 'DryDep_BrSALA ', 'GCHPchem', - 'DryDep_BrNO3 ', 'GCHPchem', - 'DryDep_BrCl ', 'GCHPchem', - 'DryDep_Br2 ', 'GCHPchem', - 'DryDep_BENZP ', 'GCHPchem', - 'DryDep_BCPO ', 'GCHPchem', - 'DryDep_BCPI ', 'GCHPchem', - 'DryDep_BALD ', 'GCHPchem', - 'DryDep_ATOOH ', 'GCHPchem', - 'DryDep_AROMP5 ', 'GCHPchem', - 'DryDep_AROMP4 ', 'GCHPchem', - 'DryDep_AONITA ', 'GCHPchem', - 'DryDep_ALD2 ', 'GCHPchem', - 'DryDep_AERI ', 'GCHPchem', - 'DryDep_ACTA ', 'GCHPchem', - 'DryDep_ACET ', 'GCHPchem', - #'DryDep_TSOG3 ', 'GCHPchem', - #'DryDep_TSOG2 ', 'GCHPchem', - #'DryDep_TSOG1 ', 'GCHPchem', - #'DryDep_TSOG0 ', 'GCHPchem', - #'DryDep_TSOA3 ', 'GCHPchem', - #'DryDep_TSOA2 ', 'GCHPchem', - #'DryDep_TSOA1 ', 'GCHPchem', - #'DryDep_TSOA0 ', 'GCHPchem', - #'DryDep_ASOG3 ', 'GCHPchem', - #'DryDep_ASOG2 ', 'GCHPchem', - #'DryDep_ASOG1 ', 'GCHPchem', - #'DryDep_ASOAN ', 'GCHPchem', - #'DryDep_ASOA3 ', 'GCHPchem', - #'DryDep_ASOA2 ', 'GCHPchem', - #'DryDep_ASOA1 ', 'GCHPchem', + DryDep.fields: 'DryDepVel_ACET ', 'GCHPchem', + 'DryDepVel_HNO3 ', 'GCHPchem', + 'DryDepVel_NH3 ', 'GCHPchem', + 'DryDepVel_NH4 ', 'GCHPchem', + 'DryDepVel_NIT ', 'GCHPchem', + 'DryDepVel_NITs ', 'GCHPchem', + 'DryDepVel_O3 ', 'GCHPchem', + 'DryDepVel_SO4 ', 'GCHPchem', + 'DryDep_O3 ', 'GCHPchem', + 'DryDepChm_O3 ', 'GCHPchem', + 'DryDepMix_O3 ', 'GCHPchem', :: #============================================================================== # %%%%% THE JValues COLLECTION %%%%% @@ -1461,156 +1137,167 @@ COLLECTIONS: @#'DefaultCollection', JValues.frequency: 010000 JValues.duration: 010000 JValues.mode: 'time-averaged' - JValues.fields: 'JvalO3O3P ', 'GCHPchem', - 'JvalO3O1D ', 'GCHPchem', - 'Jval_O2 ', 'GCHPchem', - 'Jval_SO4 ', 'GCHPchem', - 'Jval_RP ', 'GCHPchem', - 'Jval_RIPD ', 'GCHPchem', - 'Jval_RIPC ', 'GCHPchem', - 'Jval_RIPB ', 'GCHPchem', - 'Jval_RIPA ', 'GCHPchem', - 'Jval_RCHO ', 'GCHPchem', - 'Jval_RB3P ', 'GCHPchem', - 'Jval_RA3P ', 'GCHPchem', - 'Jval_R4P ', 'GCHPchem', - 'Jval_R4N2 ', 'GCHPchem', - 'Jval_PYAC ', 'GCHPchem', - 'Jval_PRPN ', 'GCHPchem', - 'Jval_PROPNN ', 'GCHPchem', - 'Jval_PP ', 'GCHPchem', - 'Jval_PIP ', 'GCHPchem', - 'Jval_PAN ', 'GCHPchem', - 'Jval_OIO ', 'GCHPchem', - 'Jval_OCS ', 'GCHPchem', - 'Jval_OClO ', 'GCHPchem', - 'Jval_O3 ', 'GCHPchem', - 'Jval_NPRNO3 ', 'GCHPchem', - 'Jval_NPHEN ', 'GCHPchem', - 'Jval_NO3 ', 'GCHPchem', - 'Jval_NO2 ', 'GCHPchem', - 'Jval_NO ', 'GCHPchem', - 'Jval_NITs ', 'GCHPchem', - 'Jval_NIT ', 'GCHPchem', - 'Jval_N2O5 ', 'GCHPchem', - 'Jval_N2O ', 'GCHPchem', - 'Jval_MVKPC ', 'GCHPchem', - 'Jval_MVKN ', 'GCHPchem', - 'Jval_MVKHP ', 'GCHPchem', - 'Jval_MVKHCB ', 'GCHPchem', - 'Jval_MVKHC ', 'GCHPchem', - 'Jval_MVK ', 'GCHPchem', - 'Jval_MPN ', 'GCHPchem', - 'Jval_MPAN ', 'GCHPchem', - 'Jval_MP ', 'GCHPchem', - 'Jval_MONITU ', 'GCHPchem', - 'Jval_MONITS ', 'GCHPchem', - 'Jval_MGLY ', 'GCHPchem', - 'Jval_MENO3 ', 'GCHPchem', - 'Jval_MEK ', 'GCHPchem', - 'Jval_MCRHP ', 'GCHPchem', - 'Jval_MCRHNB ', 'GCHPchem', - 'Jval_MCRHN ', 'GCHPchem', - 'Jval_MCRENOL ', 'GCHPchem', - 'Jval_MAP ', 'GCHPchem', - 'Jval_MACR1OOH ', 'GCHPchem', - 'Jval_MACR ', 'GCHPchem', - 'Jval_ITHN ', 'GCHPchem', - 'Jval_ITCN ', 'GCHPchem', - 'Jval_IPRNO3 ', 'GCHPchem', - 'Jval_IONO2 ', 'GCHPchem', - 'Jval_IONO ', 'GCHPchem', - 'Jval_IO ', 'GCHPchem', - 'Jval_INPD ', 'GCHPchem', - 'Jval_INPB ', 'GCHPchem', - 'Jval_INO ', 'GCHPchem', - 'Jval_IHN4 ', 'GCHPchem', - 'Jval_IHN3 ', 'GCHPchem', - 'Jval_IHN2 ', 'GCHPchem', - 'Jval_IHN1 ', 'GCHPchem', - 'Jval_IDN ', 'GCHPchem', - 'Jval_IDHPE ', 'GCHPchem', - 'Jval_IDHDP ', 'GCHPchem', - 'Jval_IDCHP ', 'GCHPchem', - 'Jval_ICPDH ', 'GCHPchem', - 'Jval_ICN ', 'GCHPchem', - 'Jval_ICl ', 'GCHPchem', - 'Jval_IBr ', 'GCHPchem', - 'Jval_I2O4 ', 'GCHPchem', - 'Jval_I2O3 ', 'GCHPchem', - 'Jval_I2O2 ', 'GCHPchem', - 'Jval_I2 ', 'GCHPchem', - 'Jval_HPETHNL ', 'GCHPchem', - 'Jval_HPALD4 ', 'GCHPchem', - 'Jval_HPALD3 ', 'GCHPchem', - 'Jval_HPALD2 ', 'GCHPchem', - 'Jval_HPALD1 ', 'GCHPchem', - 'Jval_HONIT ', 'GCHPchem', - 'Jval_HOI ', 'GCHPchem', - 'Jval_HOCl ', 'GCHPchem', - 'Jval_HOBr ', 'GCHPchem', - 'Jval_HNO4 ', 'GCHPchem', - 'Jval_HNO3 ', 'GCHPchem', - 'Jval_HNO2 ', 'GCHPchem', - 'Jval_HMHP ', 'GCHPchem', - 'Jval_HCFC22 ', 'GCHPchem', - 'Jval_HCFC142b ', 'GCHPchem', - 'Jval_HCFC141b ', 'GCHPchem', - 'Jval_HCFC123 ', 'GCHPchem', - 'Jval_HC5A ', 'GCHPchem', - 'Jval_HAC ', 'GCHPchem', - 'Jval_H2O2 ', 'GCHPchem', - 'Jval_H2402 ', 'GCHPchem', - 'Jval_H1301 ', 'GCHPchem', - 'Jval_H1211 ', 'GCHPchem', - 'Jval_GLYX ', 'GCHPchem', - 'Jval_GLYC ', 'GCHPchem', - 'Jval_ETP ', 'GCHPchem', - 'Jval_ETNO3 ', 'GCHPchem', - 'Jval_ETHP ', 'GCHPchem', - 'Jval_ETHLN ', 'GCHPchem', - 'Jval_ClOO ', 'GCHPchem', - 'Jval_ClO ', 'GCHPchem', - 'Jval_ClNO3 ', 'GCHPchem', - 'Jval_ClNO2 ', 'GCHPchem', - 'Jval_Cl2O2 ', 'GCHPchem', - 'Jval_Cl2 ', 'GCHPchem', - 'Jval_CHCl3 ', 'GCHPchem', - 'Jval_CHBr3 ', 'GCHPchem', - 'Jval_CH3I ', 'GCHPchem', - 'Jval_CH3Cl ', 'GCHPchem', - 'Jval_CH3CCl3 ', 'GCHPchem', - 'Jval_CH3Br ', 'GCHPchem', - 'Jval_CH2O ', 'GCHPchem', - 'Jval_CH2ICl ', 'GCHPchem', - 'Jval_CH2IBr ', 'GCHPchem', - 'Jval_CH2I2 ', 'GCHPchem', - 'Jval_CH2Cl2 ', 'GCHPchem', - 'Jval_CH2Br2 ', 'GCHPchem', - 'Jval_CFC12 ', 'GCHPchem', - 'Jval_CFC115 ', 'GCHPchem', - 'Jval_CFC114 ', 'GCHPchem', - 'Jval_CFC113 ', 'GCHPchem', - 'Jval_CFC11 ', 'GCHPchem', - 'Jval_CCl4 ', 'GCHPchem', - 'Jval_BZCO3H ', 'GCHPchem', - 'Jval_BrO ', 'GCHPchem', - 'Jval_BrNO3 ', 'GCHPchem', - 'Jval_BrNO2 ', 'GCHPchem', - 'Jval_BrCl ', 'GCHPchem', - 'Jval_Br2 ', 'GCHPchem', - 'Jval_BENZP ', 'GCHPchem', - 'Jval_BALD ', 'GCHPchem', - 'Jval_ATOOH ', 'GCHPchem', - 'Jval_ALD2 ', 'GCHPchem', - 'Jval_ACET ', 'GCHPchem', + JValues.fields: 'JvalO3O3P ', 'GCHPchem', + 'JvalO3O1D ', 'GCHPchem', + 'Jval_ACET ', 'GCHPchem', + 'Jval_ALD2 ', 'GCHPchem', + 'Jval_APINP ', 'GCHPchem', + 'Jval_ATOOH ', 'GCHPchem', + 'Jval_BALD ', 'GCHPchem', + 'Jval_BENZP ', 'GCHPchem', + 'Jval_BPINOOH ', 'GCHPchem', + 'Jval_BPINP ', 'GCHPchem', + 'Jval_Br2 ', 'GCHPchem', + 'Jval_BrCl ', 'GCHPchem', + 'Jval_BrNO3 ', 'GCHPchem', + 'Jval_BrNO2 ', 'GCHPchem', + 'Jval_BrO ', 'GCHPchem', + 'Jval_BZCO3H ', 'GCHPchem', + 'Jval_C96O2H ', 'GCHPchem', + 'Jval_CCl4 ', 'GCHPchem', + 'Jval_CFC11 ', 'GCHPchem', + 'Jval_CFC12 ', 'GCHPchem', + 'Jval_CFC113 ', 'GCHPchem', + 'Jval_CFC114 ', 'GCHPchem', + 'Jval_CFC115 ', 'GCHPchem', + 'Jval_CH2Br2 ', 'GCHPchem', + 'Jval_CH2Cl2 ', 'GCHPchem', + 'Jval_CH2I2 ', 'GCHPchem', + 'Jval_CH2IBr ', 'GCHPchem', + 'Jval_CH2ICl ', 'GCHPchem', + 'Jval_CH2O ', 'GCHPchem', + 'Jval_CH3Br ', 'GCHPchem', + 'Jval_CH3Cl ', 'GCHPchem', + 'Jval_CH3CCl3 ', 'GCHPchem', + 'Jval_CH3I ', 'GCHPchem', + 'Jval_CHBr3 ', 'GCHPchem', + 'Jval_Cl2 ', 'GCHPchem', + 'Jval_Cl2O2 ', 'GCHPchem', + 'Jval_ClNO2 ', 'GCHPchem', + 'Jval_ClNO3 ', 'GCHPchem', + 'Jval_ClO ', 'GCHPchem', + 'Jval_ClOO ', 'GCHPchem', + 'Jval_ETHLN ', 'GCHPchem', + 'Jval_ETHP ', 'GCHPchem', + 'Jval_ETNO3 ', 'GCHPchem', + 'Jval_ETP ', 'GCHPchem', + 'Jval_GLYC ', 'GCHPchem', + 'Jval_GLYX ', 'GCHPchem', + 'Jval_HAC ', 'GCHPchem', + 'Jval_H2O2 ', 'GCHPchem', + 'Jval_HCFC123 ', 'GCHPchem', + 'Jval_HCFC141b ', 'GCHPchem', + 'Jval_HCFC142b ', 'GCHPchem', + 'Jval_HCFC22 ', 'GCHPchem', + 'Jval_H1211 ', 'GCHPchem', + 'Jval_H1301 ', 'GCHPchem', + 'Jval_H2402 ', 'GCHPchem', + 'Jval_HMHP ', 'GCHPchem', + 'Jval_HNO2 ', 'GCHPchem', + 'Jval_HNO3 ', 'GCHPchem', + 'Jval_HNO4 ', 'GCHPchem', + 'Jval_HOBr ', 'GCHPchem', + 'Jval_HOCl ', 'GCHPchem', + 'Jval_HONIT ', 'GCHPchem', + 'Jval_HOI ', 'GCHPchem', + 'Jval_HPALD1 ', 'GCHPchem', + 'Jval_HPALD2 ', 'GCHPchem', + 'Jval_HPALD3 ', 'GCHPchem', + 'Jval_HPALD4 ', 'GCHPchem', + 'Jval_HPETHNL ', 'GCHPchem', + 'Jval_I2 ', 'GCHPchem', + 'Jval_I2O2 ', 'GCHPchem', + 'Jval_I2O3 ', 'GCHPchem', + 'Jval_I2O4 ', 'GCHPchem', + 'Jval_IBr ', 'GCHPchem', + 'Jval_ICl ', 'GCHPchem', + 'Jval_ICN ', 'GCHPchem', + 'Jval_ICPDH ', 'GCHPchem', + 'Jval_IDN ', 'GCHPchem', + 'Jval_IDCHP ', 'GCHPchem', + 'Jval_IDHDP ', 'GCHPchem', + 'Jval_IDHPE ', 'GCHPchem', + 'Jval_IHN1 ', 'GCHPchem', + 'Jval_IHN2 ', 'GCHPchem', + 'Jval_IHN3 ', 'GCHPchem', + 'Jval_IHN4 ', 'GCHPchem', + 'Jval_INO ', 'GCHPchem', + 'Jval_INPB ', 'GCHPchem', + 'Jval_INPD ', 'GCHPchem', + 'Jval_ITCN ', 'GCHPchem', + 'Jval_ITHN ', 'GCHPchem', + 'Jval_IO ', 'GCHPchem', + 'Jval_IONO ', 'GCHPchem', + 'Jval_IONO2 ', 'GCHPchem', + 'Jval_IPRNO3 ', 'GCHPchem', + 'Jval_LIMAL ', 'GCHPchem', + 'Jval_LIMO2H ', 'GCHPchem', + 'Jval_LIMO3H ', 'GCHPchem', + 'Jval_MACR ', 'GCHPchem', + 'Jval_MACR1OOH ', 'GCHPchem', + 'Jval_MAP ', 'GCHPchem', + 'Jval_MCRENOL ', 'GCHPchem', + 'Jval_MCRHN ', 'GCHPchem', + 'Jval_MCRHNB ', 'GCHPchem', + 'Jval_MCRHP ', 'GCHPchem', + 'Jval_MEK ', 'GCHPchem', + 'Jval_MENO3 ', 'GCHPchem', + 'Jval_MGLY ', 'GCHPchem', + 'Jval_MVK ', 'GCHPchem', + 'Jval_MP ', 'GCHPchem', + 'Jval_MPN ', 'GCHPchem', + 'Jval_MONITS ', 'GCHPchem', + 'Jval_MONITU ', 'GCHPchem', + 'Jval_MVKHC ', 'GCHPchem', + 'Jval_MVKHCB ', 'GCHPchem', + 'Jval_MVKHP ', 'GCHPchem', + 'Jval_MVKN ', 'GCHPchem', + 'Jval_MVKPC ', 'GCHPchem', + 'Jval_N2O ', 'GCHPchem', + 'Jval_N2O5 ', 'GCHPchem', + 'Jval_NIT ', 'GCHPchem', + 'Jval_NITs ', 'GCHPchem', + 'Jval_NO ', 'GCHPchem', + 'Jval_NO2 ', 'GCHPchem', + 'Jval_NO3 ', 'GCHPchem', + 'Jval_NPHEN ', 'GCHPchem', + 'Jval_NPRNO3 ', 'GCHPchem', + 'Jval_O2 ', 'GCHPchem', + 'Jval_O3 ', 'GCHPchem', + 'Jval_OClO ', 'GCHPchem', + 'Jval_OCS ', 'GCHPchem', + 'Jval_OIO ', 'GCHPchem', + 'Jval_PAN ', 'GCHPchem', + 'Jval_PINAL ', 'GCHPchem', + 'Jval_PINO3H ', 'GCHPchem', + 'Jval_PINONIC ', 'GCHPchem', + 'Jval_PIP ', 'GCHPchem', + 'Jval_PP ', 'GCHPchem', + 'Jval_PPN ', 'GCHPchem', + 'Jval_PROPNN ', 'GCHPchem', + 'Jval_PRPN ', 'GCHPchem', + 'Jval_PYAC ', 'GCHPchem', + 'Jval_R4P ', 'GCHPchem', + 'Jval_R4N2 ', 'GCHPchem', + 'Jval_RA3P ', 'GCHPchem', + 'Jval_RB3P ', 'GCHPchem', + 'Jval_RCHO ', 'GCHPchem', + 'Jval_RIPA ', 'GCHPchem', + 'Jval_RIPB ', 'GCHPchem', + 'Jval_RIPC ', 'GCHPchem', + 'Jval_RIPD ', 'GCHPchem', + 'Jval_RP ', 'GCHPchem', + 'Jval_SO4 ', 'GCHPchem', :: #============================================================================== # %%%%% THE UVFlux COLLECTION %%%%% # # UV fluxes (from the photolysis module) # -# Available for all full-chemistry simulations with photolysis +# Available for all full-chemistry simulations with photolysis. +# +# NOTE: There seems to be an issue with this diagnostic in GCHP. +# We recommend that you leave the UVFlux collection turned off. #============================================================================== UVFlux.template: '%y4%m2%d2_%h2%n2z.nc4', UVFlux.format: 'CFIO', diff --git a/run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.fullchem b/run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.fullchem index ec305a6dd..6b610b466 100644 --- a/run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.fullchem +++ b/run/GCHP/geoschem_config.yml.templates/geoschem_config.yml.fullchem @@ -71,10 +71,19 @@ operations: photolysis: activate: true - num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud-j: + num_levs_with_cloud: ${RUNDIR_PHOT_CLD_NLEV} + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true input_directories: fastjx_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/FAST_JX/v2024-05/ - cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2023-05/ + cloudj_input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/CLOUD_J/v2024-09/ overhead_O3: use_online_O3_from_model: ${RUNDIR_USE_ONLINE_O3} use_column_O3_from_met: true @@ -105,18 +114,32 @@ operations: transported_species: - ACET - ACTA + - ACR - AERI - ALD2 - ALK4 + - ALK4N2 + - ALK4P + - ALK6 - AONITA + - APAN + - APINP + - APINN + - AROMCHO - AROMP4 - AROMP5 + - AROMPN - ATOOH - BALD - BCPI - BCPO - BENZ - BENZP + - BPINO + - BPINN + - BPINP + - BPINOOH + - BPINON - Br - Br2 - BrCl @@ -126,12 +149,16 @@ operations: - BrSALA - BrSALC - BUTDI + - BUTN - BZCO3H - BZPAN + - C96O2H + - C96N - C2H2 - C2H4 - C2H6 - C3H8 + - C4H6 - CCl4 - CFC11 - CFC113 @@ -166,6 +193,7 @@ operations: - DST2 - DST3 - DST4 + - EBZ - EOH - ETHLN - ETHN @@ -175,6 +203,7 @@ operations: - FURA - GLYC - GLYX + - HACTA - H1211 - H1301 - H2402 @@ -241,7 +270,15 @@ operations: - ISOP - ITCN - ITHN + - LIMAL + - LIMKB + - LIMKET + - LIMN + - LIMNB - LIMO + - LIMO2H + - LIMO3H + - LIMPAN - LVOC - LVOCOA - MACR @@ -254,6 +291,7 @@ operations: - MCRHP - MCT - MEK + - MEKPN - MENO3 - MGLY - MOH @@ -273,6 +311,7 @@ operations: - MVKHP - MVKN - MVKPC + - MYRCO - N2O - N2O5 - NH3 @@ -292,7 +331,13 @@ operations: - OIO - PAN - pFe + - PHAN - PHEN + - PIN + - PINAL + - PINONIC + - PINO3H + - PINPAN - PIP - PP - PPN @@ -302,13 +347,17 @@ operations: - PYAC - R4N2 - R4P + - R7N2 + - R7P - RA3P - RB3P - RCHO + - RCOOH - RIPA - RIPB - RIPC - RIPD + - RNO3 - RP - SALA - SALAAL @@ -323,6 +372,9 @@ operations: - SOAIE - SOAP - SOAS + - STYR + - TLFUONE + - TMB - TOLU - XYLE @@ -334,6 +386,9 @@ operations: #============================================================================ aerosols: + optics: + input_dir: ${RUNDIR_DATA_ROOT}/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + carbon: activate: true brown_carbon: false diff --git a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.build b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.build index fc8ce8484..1f873c421 100755 --- a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.build +++ b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.build @@ -1,18 +1,16 @@ #!/bin/bash # For discover -#SBATCH --time 00:45:00 -#SBATCH --nodes=1 --ntasks-per-node=12 -#SBATCH --job-name=gchp_build -#SBATCH --constraint=sky -#SBATCH --account=s1043 +#SBATCH --time 00:30:00 +#SBATCH --nodes=1 --ntasks-per-node=24 +#SBATCH --mem=6G +#SBATCH --job-name=gchp.build +#SBATCH --constraint=mil # Edit as needed +#SBATCH --account=s____ # Fill in +##SBATCH --qos=___ # Fill in and uncomment if using -rundir=$(pwd -P) -blddir=../build - -source ${rundir}/gchp.env -cd ${blddir} -cmake ${rundir}/CodeDir -DRUNDIR=${rundir} -make -j > build.log -make install >> build.log -cd ${rundir} +source gchp.env +cd build +cmake ../CodeDir -DRUNDIR=.. +make -j +make install diff --git a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.run b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.run index 651a82132..889eb066a 100755 --- a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.run +++ b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.run @@ -4,9 +4,11 @@ #SBATCH --time 00:30:00 #SBATCH --nodes=1 --ntasks-per-node=24 #SBATCH --mem=60G -#SBATCH --job-name=gchp_c30_run -#SBATCH --constraint=sky -#SBATCH --account=s1043 +#SBATCH --job-name=gchp.run +#SBATCH --constraint=mil # Edit as needed +#SBATCH --account=s___ # Fill in +##SBATCH --qos=___ # Fill in and uncomment if using +##SBATCH --exclusive # Uncomment to reserve entire nodes # If a subsequent command fails, treat it as fatal (don't continue) set -e @@ -22,7 +24,7 @@ ulimit -u 50000 # maxproc ulimit -v unlimited # vmemoryuse ulimit -s unlimited # stacksize -source gchp.discover.env +source gchp.env # Print loaded modules module list diff --git a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.env b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.6.0.env similarity index 77% rename from run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.env rename to run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.6.0.env index be3c4b038..97d148ac3 100644 --- a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.discover.env +++ b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.6.0.env @@ -2,13 +2,13 @@ module purge module use /discover/swdev/jcsda/spack-stack/modulefiles -module load miniconda/3.9.7 -module use /discover/swdev/jcsda/spack-stack/spack-stack-v1/envs/skylab-3.0.0-intel-2022.0.1/install/modulefiles/Core +#module load miniconda/3.9.7 +module use /discover/swdev/jcsda/spack-stack/spack-stack-1.6.0/envs/unified-env/install/modulefiles/Core module load stack-intel/2022.0.1 module load stack-intel-oneapi-mpi/2021.5.0 module load cmake/3.23.1 module load git/2.30.2 -module load netcdf-fortran/4.5.4 +module load netcdf-fortran/4.6.1 umask 022 @@ -23,7 +23,7 @@ export MPI_ROOT=${MPI_HOME} export ESMF_COMPILER=intel export ESMF_COMM=intelmpi export ESMF_DIR=/gpfsm/dnb06/projects/p113/ewl/GCHP/ESMF -export ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_discover-spack-stack +export ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_discover-spack-stack-1.6.0 # For GCHP export ESMF_ROOT=${ESMF_INSTALL_PREFIX} diff --git a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.7.0-gnu.milan.env b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.7.0-gnu.milan.env new file mode 100644 index 000000000..aa085c5e8 --- /dev/null +++ b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.7.0-gnu.milan.env @@ -0,0 +1,43 @@ +#!/bin/bash + +# NOTE: use on milan nodes, accessible with `ssh discover-mil` +# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17 + +module purge + +module use /discover/swdev/gmao_SIteam/modulefiles-SLES15 +module use /discover/swdev/jcsda/spack-stack/scu17/modulefiles +module load ecflow/5.11.4 + +module use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-gcc-12.3.0/install/modulefiles/Core +module load stack-gcc/12.3.0 +module load stack-openmpi/4.1.6 +module load stack-python/3.10.13 + +module load cmake/3.28.2 +module load git/2.42.0 +module load netcdf-fortran/4.6.1 + +umask 022 + +export CC=gcc +export CXX=g++ +export FC=gfortran + +# MPI +export MPI_ROOT=${MPI_HOME} + +# For ESMF +export ESMF_COMPILER=gfortran +export ESMF_COMM=openmpi +export ESMF_DIR=/gpfsm/dnb06/projects/p113/ewl/GCHP/ESMF +export ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_discover-spack-stack-1.7.0-gnu + +# For GCHP +export ESMF_ROOT=${ESMF_INSTALL_PREFIX} + +ulimit -l unlimited +ulimit -u 50000 +ulimit -v unlimited +ulimit -s unlimited + diff --git a/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.7.0-intel.milan.env b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.7.0-intel.milan.env new file mode 100644 index 000000000..cda871aef --- /dev/null +++ b/run/GCHP/runScriptSamples/operational_examples/nasa_discover/gchp.spack-stack-1.7.0-intel.milan.env @@ -0,0 +1,43 @@ +#!/bin/bash + +# NOTE: use this with milan nodes, accessible with `ssh discover-mil` +# See also https://spack-stack.readthedocs.io/en/latest/PreConfiguredSites.html#nasa-discover-scu17 + +module purge + +module use /discover/swdev/gmao_SIteam/modulefiles-SLES15 +module use /discover/swdev/jcsda/spack-stack/scu17/modulefiles +module load ecflow/5.11.4 + +module use /gpfsm/dswdev/jcsda/spack-stack/scu17/spack-stack-1.7.0/envs/ue-intel-2021.10.0/install/modulefiles/Core +module load stack-intel/2021.10.0 +module load stack-intel-oneapi-mpi/2021.10.0 +module load stack-python/3.10.13 + +module load cmake/3.28.2 +module load git/2.42.0 +module load netcdf-fortran/4.6.1 + +umask 022 + +export CC=icc +export CXX=icpc +export FC=ifort + +# MPI +export MPI_ROOT=${MPI_HOME} + +# For ESMF +export ESMF_COMPILER=intel +export ESMF_COMM=intelmpi +export ESMF_DIR=/gpfsm/dnb06/projects/p113/ewl/GCHP/ESMF +export ESMF_INSTALL_PREFIX=${ESMF_DIR}/INSTALL_discover-spack-stack-1.7.0-intel + +# For GCHP +export ESMF_ROOT=${ESMF_INSTALL_PREFIX} + +ulimit -l unlimited +ulimit -u 50000 +ulimit -v unlimited +ulimit -s unlimited + diff --git a/run/GEOS/HEMCO_Config.rc b/run/GEOS/HEMCO_Config.rc index 3d8af40ec..51c9c4f5c 100644 --- a/run/GEOS/HEMCO_Config.rc +++ b/run/GEOS/HEMCO_Config.rc @@ -138,7 +138,7 @@ VerboseOnCores: root # Accepted values: root all --> Monoterp to SOAS : 0.050 --> Othrterp to SOAP : 0.050 --> Othrterp to SOAS : 0.050 -111 GFED : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/NAP +111 GFED : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6 --> GFED4 : true --> GFED_daily : false --> GFED_3hourly : false diff --git a/run/GEOS/geoschem_config.yml b/run/GEOS/geoschem_config.yml index a35738fed..478d4d73d 100644 --- a/run/GEOS/geoschem_config.yml +++ b/run/GEOS/geoschem_config.yml @@ -59,10 +59,19 @@ operations: photolysis: activate: true - num_levs_with_cloud: 34 + cloud-j: + num_levs_with_cloud: 34 + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true input_directories: fastjx_input_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/FAST_JX/v2023-10/ - cloudj_input_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/CLOUD_J/v2023-05/ + cloudj_input_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/CLOUD_J/v2024-09/ overhead_O3: use_online_O3_from_model: true use_column_O3_from_met: true @@ -88,18 +97,32 @@ operations: transported_species: - ACET - ACTA + - ACR - AERI - ALD2 - ALK4 + - ALK4N2 + - ALK4P + - ALK6 - AONITA + - APAN + - APINP + - APINN + - AROMCHO - AROMP4 - AROMP5 + - AROMPN - ATOOH - BALD - BCPI - BCPO - BENZ - BENZP + - BPINO + - BPINN + - BPINP + - BPINOOH + - BPINON - Br - Br2 - BrCl @@ -108,12 +131,17 @@ operations: - BrO - BrSALA - BrSALC + - BUTDI + - BUTN - BZCO3H - BZPAN + - C96O2H + - C96N - C2H2 - C2H4 - C2H6 - C3H8 + - C4H6 - CCl4 - CFC11 - CFC113 @@ -148,14 +176,17 @@ operations: - DST2 - DST3 - DST4 + - EBZ - EOH - ETHLN - ETHN - ETHP - ETNO3 - ETP + - FURA - GLYC - GLYX + - HACTA - H1211 - H1301 - H2402 @@ -222,7 +253,15 @@ operations: - ISOP - ITCN - ITHN + - LIMAL + - LIMKB + - LIMKET + - LIMN + - LIMNB - LIMO + - LIMO2H + - LIMO3H + - LIMPAN - LVOC - LVOCOA - MACR @@ -235,6 +274,7 @@ operations: - MCRHP - MCT - MEK + - MEKPN - MENO3 - MGLY - MOH @@ -254,6 +294,7 @@ operations: - MVKHP - MVKN - MVKPC + - MYRCO - N2O - N2O5 - NH3 @@ -273,7 +314,13 @@ operations: - OIO - PAN - pFe + - PHAN - PHEN + - PIN + - PINAL + - PINONIC + - PINO3H + - PINPAN - PIP - PP - PPN @@ -283,13 +330,17 @@ operations: - PYAC - R4N2 - R4P + - R7N2 + - R7P - RA3P - RB3P - RCHO + - RCOOH - RIPA - RIPB - RIPC - RIPD + - RNO3 - RP - SALA - SALAAL @@ -304,6 +355,9 @@ operations: - SOAIE - SOAP - SOAS + - STYR + - TLFUONE + - TMB - TOLU - XYLE @@ -315,6 +369,9 @@ operations: #============================================================================ aerosols: + optics: + input_dir: /discover/nobackup/projects/gmao/share/dasilva/fvInput/ExtData/chemistry/GEOSCHEMchem/v0.0.0/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + carbon: activate: true brown_carbon: false diff --git a/run/WRF/fullchem/HEMCO_Config.rc b/run/WRF/fullchem/HEMCO_Config.rc index e95b0472d..b5b47a068 100644 --- a/run/WRF/fullchem/HEMCO_Config.rc +++ b/run/WRF/fullchem/HEMCO_Config.rc @@ -38,8 +38,8 @@ Separator: / Unit tolerance: 1 Negative values: 0 Only unitless scale factors: false -Verbose: 0 -Warnings: 1 +Verbose: false +VerboseOnCores: root # Accepted values: root all ### END SECTION SETTINGS ### @@ -81,7 +81,7 @@ Warnings: 1 # research purposes. Recommended setting: "AEIC2019_DAILY: false". # # 2. AEIC2019_MONMEAN selects monthly-mean AEIC 2019 emisisons, which will -# incur much less computational overhaead. This options should suffice +# incur much less computational overhaead. This option should suffice # for most simulations. Recommended setting "AEIC2019_MONMEAN: true". # # 3. AEIC_SCALE_1990_2019: If "false", the AEIC 2019 data from the year @@ -206,7 +206,7 @@ Warnings: 1 --> Monoterp to SOAS : 0.050 --> Othrterp to SOAP : 0.050 --> Othrterp to SOAS : 0.050 -111 GFED : on NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP +111 GFED : on NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPO/BCPI/OCPO/OCPI/POG1/POG2/MTPA/BENZ/TOLU/XYLE/NAP/EOH/MOH/SOAP/FURA/PHEN/MVK/ISOP/ACTA/MGLY/GLYX/RCHO/HCOOH/ACR/STYR/C4H6 --> GFED4 : true --> GFED_daily : false --> GFED_3hourly : false @@ -218,7 +218,7 @@ Warnings: 1 --> CO to SOAP : 0.013 --> GFED_subgrid_coag : false #see the note near scale factor 281 for the source of this emis factor -114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP +114 FINN : off NO/CO/ALK4/ACET/MEK/ALD2/PRPE/C2H2/C2H4/C3H8/CH2O/C2H6/SO2/NH3/BCPI/BCPO/OCPI/OCPO/GLYC/HAC/SOAP/STYR/EBZ/TMB/ROH/RCOOH/RCHO/ACTA/EOH/HCOOH/ISOP/MACR/MVK/MOH/R4N2/FURA --> FINN_daily : false --> Scaling_CO : 1.0 --> Scaling_SOAP : 0.013 @@ -312,7 +312,7 @@ Warnings: 1 0 EPA16_TOLU__agTOL $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__agXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_ag_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__airportsACET $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__airportsACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__airportsALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__airportsALDX $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__airportsBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -347,7 +347,7 @@ Warnings: 1 0 EPA16_TOLU__airportsTOL $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__airportsXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_airports_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonptACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonptACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonptALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonptALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonptBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -385,7 +385,7 @@ Warnings: 1 0 EPA16_TOLU__nonptTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonptXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonpt_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__nonroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__nonroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__nonroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__nonroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__nonroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -421,7 +421,7 @@ Warnings: 1 0 EPA16_TOLU__nonroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__nonroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_nonroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__npogACET $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__npogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__npogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__npogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__npogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -458,7 +458,7 @@ Warnings: 1 0 EPA16_TOLU__npogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__npogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_np_oilgas_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroadACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroadACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroadALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroadALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroadBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -493,7 +493,7 @@ Warnings: 1 0 EPA16_TOLU__onroadTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroadXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_caACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_caACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_caALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_caALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_caBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -528,7 +528,7 @@ Warnings: 1 0 EPA16_TOLU__onroad_caTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_caXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_ca_adj_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__railACET $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__railACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__railALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__railALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__railBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -564,7 +564,7 @@ Warnings: 1 0 EPA16_TOLU__railTOL $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__railXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_rail_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__rwcACET $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__rwcACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__rwcALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__rwcALDX $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__rwcBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_rwc_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -671,7 +671,7 @@ Warnings: 1 0 EPA16_TOLU__c3TOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__c3XYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_cmv_c3_12_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__pteguACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__pteguACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__pteguALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__pteguALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__pteguBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -709,7 +709,7 @@ Warnings: 1 0 EPA16_TOLU__pteguTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__pteguXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptegu_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptogACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptogACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptogALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptogALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptogBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -747,7 +747,7 @@ Warnings: 1 0 EPA16_TOLU__ptogTOL $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xyz kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__ptogXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_pt_oilgas_allinln_0pt1degree_3D_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xyz kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__ptnonipmACET $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xyz kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__ptnonipmACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xyz kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__ptnonipmALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xyz kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__ptnonipmALDX $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xyz kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__ptnonipmBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_emln_ptnonipm_allinln_0pt1degree_3D_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xyz kg/m2/s BENZ 26/213/254/1007 1 50 @@ -820,7 +820,7 @@ Warnings: 1 0 EPA16_TOLU__onroad_canTOL $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf TOL 2002-2020/1-12/1/0 RF xy kg/m2/s TOLU 26/213/254/1007 1 50 0 EPA16_XYLE__onroad_canXYLMN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_can_0pt1degree_month_$MM.ncf XYLMN 2002-2020/1-12/1/0 RF xy kg/m2/s XYLE 26/213/254/1007 1 50 0 EPA16_ACET__onroad_mexACET $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACET 2002-2020/1-12/1/0 RF xy kg/m2/s ACET 26/213/254/1007 1 50 -0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s MACR 26/213/254/1007 1 50 +0 EPA16_MACR__onroad_mexACROLEIN $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ACROLEIN 2002-2020/1-12/1/0 RF xy kg/m2/s ACR 26/213/254/1007 1 50 0 EPA16_ALD2__onroad_mexALD2 $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALD2 2002-2020/1-12/1/0 RF xy kg/m2/s ALD2 26/213/254/1007 1 50 0 EPA16_RCHO__onroad_mexALDX $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf ALDX 2002-2020/1-12/1/0 RF xy kg/m2/s RCHO 26/213/254/1007 1 50 0 EPA16_BENZ__onroad_mexBENZ $ROOT/NEI2016/v2021-06/2016fh_16j_onroad_mex_0pt1degree_month_$MM.ncf BENZ 2002-2020/1-12/1/0 RF xy kg/m2/s BENZ 26/213/254/1007 1 50 @@ -1215,7 +1215,7 @@ Warnings: 1 0 DICE_HOUSEFUELWOOD_C2H6 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H6 2013/1/1/0 C xy g/m2/yr C2H6 26/1008 2 60 0 DICE_HOUSEFUELWOOD_HAC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc HAC 2013/1/1/0 C xy g/m2/yr HAC 26/1008 2 60 0 DICE_HOUSEFUELWOOD_GLYC $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc GLYC 2013/1/1/0 C xy g/m2/yr GLYC 26/1008 2 60 -0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 +0 DICE_HOUSEFUELWOOD_MOH $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MOH 2013/1/1/0 C xy g/m2/yr MOH 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_MGLY $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc MGLY 2013/1/1/0 C xy g/m2/yr MGLY 26/1008 2 60 #0 DICE_HOUSEFUELWOOD_APIN $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc APIN 2013/1/1/0 C xy g/m2/yr APIN 26/1008 2 60 0 DICE_HOUSEFUELWOOD_C2H2 $ROOT/DICE_Africa/v2016-10/DICE-Africa-household-fuelwood-use-2013-v01-4Oct2016.nc C2H2 2013/1/1/0 C xy g/m2/yr C2H2 26/1008 2 60 @@ -1361,264 +1361,280 @@ Warnings: 1 # EDGAR, HTAPv3 or CMIP6_SFC_LAND_ANTHRO for the global base emissions %%% #============================================================================== (((CEDSv2 -0 CEDS_NO_AGR $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_agr 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 -0 CEDS_NO_ENE $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_ene 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 -0 CEDS_NO_IND $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_ind 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 -0 CEDS_NO_TRA $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_tra 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 -0 CEDS_NO_RCO $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_rco 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 -0 CEDS_NO_SLV $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_slv 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 -0 CEDS_NO_WST $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_wst 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 - -0 CEDS_CO_AGR $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_agr 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_AGR - - - - - - SOAP 26/280 1 5 -0 CEDS_CO_ENE $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_ene 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_ENE - - - - - - SOAP 26/280 1 5 -0 CEDS_CO_IND $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_ind 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_IND - - - - - - SOAP 26/280 1 5 -0 CEDS_CO_TRA $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_tra 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_TRA - - - - - - SOAP 26/280 1 5 -0 CEDS_CO_RCO $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_rco 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_RCO - - - - - - SOAP 26/280 1 5 -0 CEDS_CO_SLV $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_slv 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_SLV - - - - - - SOAP 26/280 1 5 -0 CEDS_CO_WST $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_wst 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 -0 CEDS_SOAP_WST - - - - - - SOAP 26/280 1 5 - -0 CEDS_SO2_AGR $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_agr 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_AGR - - - - - - SO4 63 1 5 -0 CEDS_pFe_AGR - - - - - - pFe 66 1 5 -0 CEDS_SO2_ENE $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_ene 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_ENE - - - - - - SO4 63 1 5 -0 CEDS_pFe_ENE - - - - - - pFe 66 1 5 -0 CEDS_SO2_IND $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_ind 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_IND - - - - - - SO4 63 1 5 -0 CEDS_pFe_IND - - - - - - pFe 66 1 5 -0 CEDS_SO2_TRA $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_tra 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_TRA - - - - - - SO4 63 1 5 -0 CEDS_pFe_TRA - - - - - - pFe 66 1 5 -0 CEDS_SO2_RCO $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_rco 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_RCO - - - - - - SO4 63 1 5 -0 CEDS_pFe_RCO - - - - - - pFe 66 1 5 -0 CEDS_SO2_SLV $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_slv 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_SLV - - - - - - SO4 63 1 5 -0 CEDS_pFe_SLV - - - - - - pFe 66 1 5 -0 CEDS_SO2_WST $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_wst 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 -0 CEDS_SO4_WST - - - - - - SO4 63 1 5 -0 CEDS_pFe_WST - - - - - - pFe 66 1 5 - -0 CEDS_NH3_AGR $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_agr 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 -0 CEDS_NH3_ENE $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_ene 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 -0 CEDS_NH3_IND $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_ind 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 -0 CEDS_NH3_TRA $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_tra 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 -0 CEDS_NH3_RCO $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_rco 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 -0 CEDS_NH3_SLV $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_slv 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 -0 CEDS_NH3_WST $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_wst 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 - -0 CEDS_BCPI_AGR $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_agr 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_AGR - - - - - - BCPO 71 1 5 -0 CEDS_BCPI_ENE $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_ene 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_ENE - - - - - - BCPO 71 1 5 -0 CEDS_BCPI_IND $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_ind 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_IND - - - - - - BCPO 71 1 5 -0 CEDS_BCPI_TRA $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_tra 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_TRA - - - - - - BCPO 71 1 5 -0 CEDS_BCPI_RCO $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_rco 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_RCO - - - - - - BCPO 71 1 5 -0 CEDS_BCPI_SLV $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_slv 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_SLV - - - - - - BCPO 71 1 5 -0 CEDS_BCPI_WST $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_wst 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 -0 CEDS_BCPO_WST - - - - - - BCPO 71 1 5 - -0 CEDS_OCPI_AGR $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_agr 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_AGR - - - - - - OCPO 73 1 5 -0 CEDS_POG1_AGR - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_AGR - - - - - - POG2 74/77 1 5 -0 CEDS_OCPI_ENE $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_ene 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_ENE - - - - - - OCPO 73 1 5 -0 CEDS_POG1_ENE - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_ENE - - - - - - POG2 74/77 1 5 -0 CEDS_OCPI_IND $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_ind 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_IND - - - - - - OCPO 73 1 5 -0 CEDS_POG1_IND - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_IND - - - - - - POG2 74/77 1 5 -0 CEDS_OCPI_TRA $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_tra 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_TRA - - - - - - OCPO 73 1 5 -0 CEDS_POG1_TRA - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_TRA - - - - - - POG2 74/77 1 5 -0 CEDS_OCPI_RCO $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_rco 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_RCO - - - - - - OCPO 73 1 5 -0 CEDS_POG1_RCO - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_RCO - - - - - - POG2 74/77 1 5 -0 CEDS_OCPI_SLV $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_slv 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_SLV - - - - - - OCPO 73 1 5 -0 CEDS_POG1_SLV - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_SLV - - - - - - POG2 74/77 1 5 -0 CEDS_OCPI_WST $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_wst 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 -0 CEDS_OCPO_WST - - - - - - OCPO 73 1 5 -0 CEDS_POG1_WST - - - - - - POG1 74/76 1 5 -0 CEDS_POG2_WST - - - - - - POG2 74/77 1 5 +0 CEDS_NO_AGR $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_agr 1750-2019/1-12/1/0 C xy kg/m2/s NO 2401 1 5 +0 CEDS_NO_ENE $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s NO 2406/706/315 1 5 +0 CEDS_NO_IND $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s NO 2407/707/316 1 5 +0 CEDS_NO_TRA $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_tra 1750-2019/1-12/1/0 C xy kg/m2/s NO 2411/711 1 5 +0 CEDS_NO_RCO $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_rco 1750-2019/1-12/1/0 C xy kg/m2/s NO 2409/709 1 5 +0 CEDS_NO_SLV $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_slv 1750-2019/1-12/1/0 C xy kg/m2/s NO 2407/707 1 5 +0 CEDS_NO_WST $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_wst 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 1 5 + +0 CEDS_CO_AGR $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_agr 1750-2019/1-12/1/0 C xy kg/m2/s CO 2401 1 5 +0 CEDS_SOAP_AGR - - - - - - SOAP 280/2401 1 5 +0 CEDS_CO_ENE $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s CO 2406/706/315 1 5 +0 CEDS_SOAP_ENE - - - - - - SOAP 280/2406/706/315 1 5 +0 CEDS_CO_IND $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s CO 2407/707/316 1 5 +0 CEDS_SOAP_IND - - - - - - SOAP 280/2407/707/316 1 5 +0 CEDS_CO_TRA $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_tra 1750-2019/1-12/1/0 C xy kg/m2/s CO 2411/711 1 5 +0 CEDS_SOAP_TRA - - - - - - SOAP 280/2411/711 1 5 +0 CEDS_CO_RCO $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_rco 1750-2019/1-12/1/0 C xy kg/m2/s CO 2409/709 1 5 +0 CEDS_SOAP_RCO - - - - - - SOAP 280/2409/709 1 5 +0 CEDS_CO_SLV $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_slv 1750-2019/1-12/1/0 C xy kg/m2/s CO 2407/707 1 5 +0 CEDS_SOAP_SLV - - - - - - SOAP 280/2407/707 1 5 +0 CEDS_CO_WST $ROOT/CEDS/v2021-06/$YYYY/CO-em-anthro_CMIP_CEDS_$YYYY.nc CO_wst 1750-2019/1-12/1/0 C xy kg/m2/s CO 26 1 5 +0 CEDS_SOAP_WST - - - - - - SOAP 26/280 1 5 + +0 CEDS_SO2_AGR $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_agr 1750-2019/1-12/1/0 C xy kg/m2/s SO2 2401 1 5 +0 CEDS_SO4_AGR - - - - - - SO4 63/2401 1 5 +0 CEDS_pFe_AGR - - - - - - pFe 66/2401 1 5 +0 CEDS_SO2_ENE $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s SO2 2406/706/315 1 5 +0 CEDS_SO4_ENE - - - - - - SO4 63/2406/706/315 1 5 +0 CEDS_pFe_ENE - - - - - - pFe 66/2406/706/315 1 5 +0 CEDS_SO2_IND $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s SO2 2407/707/316 1 5 +0 CEDS_SO4_IND - - - - - - SO4 63/2407/707/316 1 5 +0 CEDS_pFe_IND - - - - - - pFe 66/2407/707/316 1 5 +0 CEDS_SO2_TRA $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_tra 1750-2019/1-12/1/0 C xy kg/m2/s SO2 2411/711 1 5 +0 CEDS_SO4_TRA - - - - - - SO4 63/2411/711 1 5 +0 CEDS_pFe_TRA - - - - - - pFe 66/2411/711 1 5 +0 CEDS_SO2_RCO $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_rco 1750-2019/1-12/1/0 C xy kg/m2/s SO2 2409/709 1 5 +0 CEDS_SO4_RCO - - - - - - SO4 63/2409/709 1 5 +0 CEDS_pFe_RCO - - - - - - pFe 66/2409/709 1 5 +0 CEDS_SO2_SLV $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_slv 1750-2019/1-12/1/0 C xy kg/m2/s SO2 2407/707 1 5 +0 CEDS_SO4_SLV - - - - - - SO4 63/2407/707 1 5 +0 CEDS_pFe_SLV - - - - - - pFe 66/2407/707 1 5 +0 CEDS_SO2_WST $ROOT/CEDS/v2021-06/$YYYY/SO2-em-anthro_CMIP_CEDS_$YYYY.nc SO2_wst 1750-2019/1-12/1/0 C xy kg/m2/s SO2 - 1 5 +0 CEDS_SO4_WST - - - - - - SO4 63 1 5 +0 CEDS_pFe_WST - - - - - - pFe 66 1 5 + +0 CEDS_NH3_AGR $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_agr 1750-2019/1-12/1/0 C xy kg/m2/s NH3 2401 1 5 +0 CEDS_NH3_ENE $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s NH3 2406/706/315 1 5 +0 CEDS_NH3_IND $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s NH3 2407/707/316 1 5 +0 CEDS_NH3_TRA $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_tra 1750-2019/1-12/1/0 C xy kg/m2/s NH3 2411/711 1 5 +0 CEDS_NH3_RCO $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_rco 1750-2019/1-12/1/0 C xy kg/m2/s NH3 2409/709 1 5 +0 CEDS_NH3_SLV $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_slv 1750-2019/1-12/1/0 C xy kg/m2/s NH3 2407/707 1 5 +0 CEDS_NH3_WST $ROOT/CEDS/v2021-06/$YYYY/NH3-em-anthro_CMIP_CEDS_$YYYY.nc NH3_wst 1750-2019/1-12/1/0 C xy kg/m2/s NH3 - 1 5 + +0 CEDS_BCPI_AGR $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_agr 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70/2401 1 5 +0 CEDS_BCPO_AGR - - - - - - BCPO 71/2401 1 5 +0 CEDS_BCPI_ENE $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s BCPI 70/2406/706/315 1 5 +0 CEDS_BCPO_ENE - - - - - - BCPO 71/2406/706/315 1 5 +0 CEDS_BCPI_IND $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s BCPI 70/2407/707/316 1 5 +0 CEDS_BCPO_IND - - - - - - BCPO 71/2407/707/316 1 5 +0 CEDS_BCPI_TRA $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_tra 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70/2411/711 1 5 +0 CEDS_BCPO_TRA - - - - - - BCPO 71/2411/711 1 5 +0 CEDS_BCPI_RCO $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_rco 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70/2409/709 1 5 +0 CEDS_BCPO_RCO - - - - - - BCPO 71/2409/709 1 5 +0 CEDS_BCPI_SLV $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_slv 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70/2407/707 1 5 +0 CEDS_BCPO_SLV - - - - - - BCPO 71/2407/707 1 5 +0 CEDS_BCPI_WST $ROOT/CEDS/v2021-06/$YYYY/BC-em-anthro_CMIP_CEDS_$YYYY.nc BC_wst 1750-2019/1-12/1/0 C xy kg/m2/s BCPI 70 1 5 +0 CEDS_BCPO_WST - - - - - - BCPO 71 1 5 + +0 CEDS_OCPI_AGR $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_agr 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72/2401 1 5 +0 CEDS_OCPO_AGR - - - - - - OCPO 73/2401 1 5 +0 CEDS_POG1_AGR - - - - - - POG1 74/76/2401 1 5 +0 CEDS_POG2_AGR - - - - - - POG2 74/77/2401 1 5 +0 CEDS_OCPI_ENE $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s OCPI 72/2406/706/315 1 5 +0 CEDS_OCPO_ENE - - - - - - OCPO 73/2406/706/315 1 5 +0 CEDS_POG1_ENE - - - - - - POG1 74/76/2406/706/315 1 5 +0 CEDS_POG2_ENE - - - - - - POG2 74/77/2406/706/315 1 5 +0 CEDS_OCPI_IND $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s OCPI 72/2407/707/316 1 5 +0 CEDS_OCPO_IND - - - - - - OCPO 73/2407/707/316 1 5 +0 CEDS_POG1_IND - - - - - - POG1 74/76/2407/707/316 1 5 +0 CEDS_POG2_IND - - - - - - POG2 74/77/2407/707/316 1 5 +0 CEDS_OCPI_TRA $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_tra 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72/2411/711 1 5 +0 CEDS_OCPO_TRA - - - - - - OCPO 73/2411/711 1 5 +0 CEDS_POG1_TRA - - - - - - POG1 74/76/2411/711 1 5 +0 CEDS_POG2_TRA - - - - - - POG2 74/77/2411/711 1 5 +0 CEDS_OCPI_RCO $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_rco 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72/2409/709 1 5 +0 CEDS_OCPO_RCO - - - - - - OCPO 73/2409/709 1 5 +0 CEDS_POG1_RCO - - - - - - POG1 74/76/2409/709 1 5 +0 CEDS_POG2_RCO - - - - - - POG2 74/77/2409/709 1 5 +0 CEDS_OCPI_SLV $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_slv 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72/2407/707 1 5 +0 CEDS_OCPO_SLV - - - - - - OCPO 73/2407/707 1 5 +0 CEDS_POG1_SLV - - - - - - POG1 74/76/2407/707 1 5 +0 CEDS_POG2_SLV - - - - - - POG2 74/77/2407/707 1 5 +0 CEDS_OCPI_WST $ROOT/CEDS/v2021-06/$YYYY/OC-em-anthro_CMIP_CEDS_$YYYY.nc OC_wst 1750-2019/1-12/1/0 C xy kg/m2/s OCPI 72 1 5 +0 CEDS_OCPO_WST - - - - - - OCPO 73 1 5 +0 CEDS_POG1_WST - - - - - - POG1 74/76 1 5 +0 CEDS_POG2_WST - - - - - - POG2 74/77 1 5 # Comment out CO2 for fullchem simulations: CO2 not advected -#0 CEDS_CO2_AGR $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_agr 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 -#0 CEDS_CO2_ENE $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_ene 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 -#0 CEDS_CO2_IND $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_ind 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 -#0 CEDS_CO2_TRA $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_tra 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 -#0 CEDS_CO2_RCO $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_rco 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 -#0 CEDS_CO2_SLV $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_slv 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 -#0 CEDS_CO2_WST $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_wst 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 +#0 CEDS_CO2_AGR $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_agr 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 +#0 CEDS_CO2_ENE $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s CO2 315 1 5 +#0 CEDS_CO2_IND $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s CO2 316 1 5 +#0 CEDS_CO2_TRA $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_tra 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 +#0 CEDS_CO2_RCO $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_rco 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 +#0 CEDS_CO2_SLV $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_slv 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 +#0 CEDS_CO2_WST $ROOT/CEDS/v2021-06/$YYYY/CO2-em-anthro_CMIP_CEDS_$YYYY.nc CO2_wst 1750-2019/1-12/1/0 C xy kg/m2/s CO2 - 1 5 # Comment out CH4 for fullchem simulations: do not use CH4 emissions # CEDS CH4 emissions are only available for 1970-2014 -#0 CEDS_CH4_AGR $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_agr 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 -#0 CEDS_CH4_ENE $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_ene 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 -#0 CEDS_CH4_IND $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_ind 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 -#0 CEDS_CH4_TRA $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_tra 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 -#0 CEDS_CH4_RCO $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_rco 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 -#0 CEDS_CH4_SLV $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_slv 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 -#0 CEDS_CH4_WST $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_wst 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 +#0 CEDS_CH4_AGR $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_agr 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 +#0 CEDS_CH4_ENE $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_ene 1970-2014/1-12/1/0 C xyL* kg/m2/s CH4 315 1 5 +#0 CEDS_CH4_IND $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_ind 1970-2014/1-12/1/0 C xyL* kg/m2/s CH4 316 1 5 +#0 CEDS_CH4_TRA $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_tra 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 +#0 CEDS_CH4_RCO $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_rco 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 +#0 CEDS_CH4_SLV $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_slv 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 +#0 CEDS_CH4_WST $ROOT/CEDS/v2021-06/$YYYY/CH4-em-anthro_CMIP_CEDS_$YYYY.nc CH4_wst 1970-2014/1-12/1/0 C xy kg/m2/s CH4 - 1 5 # NOTE: EOH files in CEDS/v2021-06 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here -0 CEDS_MOH_AGR $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_agr 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_AGR - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_AGR - - - - - - ROH 26/92 1 5 -0 CEDS_MOH_ENE $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_ene 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_ENE - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_ENE - - - - - - ROH 26/92 1 5 -0 CEDS_MOH_IND $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_ind 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_IND - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_IND - - - - - - ROH 26/92 1 5 -0 CEDS_MOH_TRA $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_tra 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_TRA - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_TRA - - - - - - ROH 26/92 1 5 -0 CEDS_MOH_RCO $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_rco 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_RCO - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_RCO - - - - - - ROH 26/92 1 5 -0 CEDS_MOH_SLV $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_SLV - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_SLV - - - - - - ROH 26/92 1 5 -0 CEDS_MOH_WST $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 -0 CEDS_EOH_WST - - - - - - EOH 26/91 1 5 -0 CEDS_ROH_WST - - - - - - ROH 26/92 1 5 - -0 CEDS_C2H6_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 -0 CEDS_C2H6_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_ene 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 -0 CEDS_C2H6_IND $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_ind 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 -0 CEDS_C2H6_TRA $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_tra 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 -0 CEDS_C2H6_RCO $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_rco 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 -0 CEDS_C2H6_SLV $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_slv 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 -0 CEDS_C2H6_WST $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_wst 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 - -0 CEDS_C3H8_AGR $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_agr 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 -0 CEDS_C3H8_ENE $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_ene 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 -0 CEDS_C3H8_IND $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_ind 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 -0 CEDS_C3H8_TRA $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_tra 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 -0 CEDS_C3H8_RCO $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_rco 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 -0 CEDS_C3H8_SLV $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_slv 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 -0 CEDS_C3H8_WST $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_wst 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 - -0 CEDS_C4H10_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C4H10_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C4H10_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C4H10_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C4H10_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C4H10_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C4H10_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 - -0 CEDS_C5H12_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C5H12_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C5H12_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C5H12_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C5H12_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C5H12_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C5H12_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 - -0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 -0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 - -0 CEDS_C2H4_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 -0 CEDS_C2H4_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ene 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 -0 CEDS_C2H4_IND $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ind 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 -0 CEDS_C2H4_TRA $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_tra 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 -0 CEDS_C2H4_RCO $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_rco 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 -0 CEDS_C2H4_SLV $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_slv 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 -0 CEDS_C2H4_WST $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_wst 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 - -0 CEDS_PRPE_AGR $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_agr 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 -0 CEDS_PRPE_ENE $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_ene 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 -0 CEDS_PRPE_IND $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_ind 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 -0 CEDS_PRPE_TRA $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_tra 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 -0 CEDS_PRPE_RCO $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_rco 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 -0 CEDS_PRPE_SLV $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_slv 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 -0 CEDS_PRPE_WST $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_wst 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 - -0 CEDS_C2H2_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 -0 CEDS_C2H2_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_ene 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 -0 CEDS_C2H2_IND $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_ind 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 -0 CEDS_C2H2_TRA $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_tra 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 -0 CEDS_C2H2_RCO $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_rco 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 -0 CEDS_C2H2_SLV $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_slv 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 -0 CEDS_C2H2_WST $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_wst 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 - -0 CEDS_BENZ_AGR $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_agr 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 -0 CEDS_BENZ_ENE $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_ene 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 -0 CEDS_BENZ_IND $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_ind 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 -0 CEDS_BENZ_TRA $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_tra 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 -0 CEDS_BENZ_RCO $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_rco 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 -0 CEDS_BENZ_SLV $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_slv 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 -0 CEDS_BENZ_WST $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_wst 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 - -0 CEDS_TOLU_AGR $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_agr 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 -0 CEDS_TOLU_ENE $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_ene 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 -0 CEDS_TOLU_IND $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_ind 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 -0 CEDS_TOLU_TRA $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_tra 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 -0 CEDS_TOLU_RCO $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_rco 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 -0 CEDS_TOLU_SLV $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_slv 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 -0 CEDS_TOLU_WST $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_wst 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 - -0 CEDS_XYLE_AGR $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_agr 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 -0 CEDS_XYLE_ENE $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_ene 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 -0 CEDS_XYLE_IND $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_ind 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 -0 CEDS_XYLE_TRA $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_tra 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 -0 CEDS_XYLE_RCO $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_rco 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 -0 CEDS_XYLE_SLV $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_slv 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 -0 CEDS_XYLE_WST $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_wst 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 - -0 CEDS_CH2O_AGR $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_agr 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 -0 CEDS_CH2O_ENE $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_ene 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 -0 CEDS_CH2O_IND $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_ind 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 -0 CEDS_CH2O_TRA $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_tra 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 -0 CEDS_CH2O_RCO $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_rco 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 -0 CEDS_CH2O_SLV $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_slv 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 -0 CEDS_CH2O_WST $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_wst 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 - -0 CEDS_ALD2_AGR $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 -0 CEDS_ALD2_ENE $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_ene 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 -0 CEDS_ALD2_IND $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_ind 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 -0 CEDS_ALD2_TRA $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 -0 CEDS_ALD2_RCO $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 -0 CEDS_ALD2_SLV $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 -0 CEDS_ALD2_WST $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 - -0 CEDS_MEK_AGR $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_agr 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 -0 CEDS_MEK_ENE $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_ene 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 -0 CEDS_MEK_IND $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_ind 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 -0 CEDS_MEK_TRA $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_tra 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 -0 CEDS_MEK_RCO $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_rco 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 -0 CEDS_MEK_SLV $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_slv 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 -0 CEDS_MEK_WST $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_wst 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 - -0 CEDS_HCOOH_AGR $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_agr 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 -0 CEDS_HCOOH_ENE $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_ene 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 -0 CEDS_HCOOH_IND $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_ind 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 -0 CEDS_HCOOH_TRA $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_tra 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 -0 CEDS_HCOOH_RCO $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 -0 CEDS_HCOOH_SLV $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 -0 CEDS_HCOOH_WST $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_MOH_AGR $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_agr 1750-2019/1-12/1/0 C xy kg/m2/s MOH 90/2401 1 5 +0 CEDS_EOH_AGR - - - - - - EOH 91/2401 1 5 +0 CEDS_ROH_AGR - - - - - - ROH 92/2401 1 5 +0 CEDS_MOH_ENE $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s MOH 90/2406/706/315 1 5 +0 CEDS_EOH_ENE - - - - - - EOH 91/2406/706/315 1 5 +0 CEDS_ROH_ENE - - - - - - ROH 92/2406/706/315 1 5 +0 CEDS_MOH_IND $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s MOH 90/2407/707/316 1 5 +0 CEDS_EOH_IND - - - - - - EOH 91/2407/707/316 1 5 +0 CEDS_ROH_IND - - - - - - ROH 92/2407/707/316 1 5 +0 CEDS_MOH_TRA $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_tra 1750-2019/1-12/1/0 C xy kg/m2/s MOH 90/2411/711 1 5 +0 CEDS_EOH_TRA - - - - - - EOH 91/2411/711 1 5 +0 CEDS_ROH_TRA - - - - - - ROH 92/2411/711 1 5 +0 CEDS_MOH_RCO $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_rco 1750-2019/1-12/1/0 C xy kg/m2/s MOH 90/2409/709 1 5 +0 CEDS_EOH_RCO - - - - - - EOH 91/2409/709 1 5 +0 CEDS_ROH_RCO - - - - - - ROH 92/2409/709 1 5 +0 CEDS_MOH_SLV $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s MOH 90/2407/707 1 5 +0 CEDS_EOH_SLV - - - - - - EOH 91/2407/707 1 5 +0 CEDS_ROH_SLV - - - - - - ROH 92/2407/707 1 5 +0 CEDS_MOH_WST $ROOT/CEDS/v2021-06/$YYYY/EOH-em-anthro_CMIP_CEDS_$YYYY.nc EOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s MOH 26/90 1 5 +0 CEDS_EOH_WST - - - - - - EOH 26/91 1 5 +0 CEDS_ROH_WST - - - - - - ROH 26/92 1 5 + +0 CEDS_C2H6_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 2401 1 5 +0 CEDS_C2H6_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H6 2406/706/315 1 5 +0 CEDS_C2H6_IND $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H6 2407/707/316 1 5 +0 CEDS_C2H6_TRA $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_tra 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 2411/711 1 5 +0 CEDS_C2H6_RCO $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_rco 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 2409/709 1 5 +0 CEDS_C2H6_SLV $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_slv 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 2407/707 1 5 +0 CEDS_C2H6_WST $ROOT/CEDS/v2021-06/$YYYY/C2H6-em-anthro_CMIP_CEDS_$YYYY.nc C2H6_wst 1750-2019/1-12/1/0 C xy kg/m2/s C2H6 26 1 5 + +0 CEDS_C3H8_AGR $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_agr 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 2401 1 5 +0 CEDS_C3H8_ENE $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C3H8 2406/706/315 1 5 +0 CEDS_C3H8_IND $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s C3H8 2407/707/316 1 5 +0 CEDS_C3H8_TRA $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_tra 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 2411/711 1 5 +0 CEDS_C3H8_RCO $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_rco 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 2409/709 1 5 +0 CEDS_C3H8_SLV $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_slv 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 2407/707 1 5 +0 CEDS_C3H8_WST $ROOT/CEDS/v2021-06/$YYYY/C3H8-em-anthro_CMIP_CEDS_$YYYY.nc C3H8_wst 1750-2019/1-12/1/0 C xy kg/m2/s C3H8 26 1 5 + +0 CEDS_C4H10_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2401 1 5 +0 CEDS_C4H10_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2406/706/315 1 5 +0 CEDS_C4H10_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2407/707/316 1 5 +0 CEDS_C4H10_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2411/711 1 5 +0 CEDS_C4H10_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2409/709 1 5 +0 CEDS_C4H10_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 +0 CEDS_C4H10_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_butanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_butanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 + +0 CEDS_C5H12_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2401 1 5 +0 CEDS_C5H12_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2406/706/315 1 5 +0 CEDS_C5H12_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK4 2407/707/316 1 5 +0 CEDS_C5H12_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2411/711 1 5 +0 CEDS_C5H12_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2409/709 1 5 +0 CEDS_C5H12_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 2407/707 1 5 +0 CEDS_C5H12_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_pentanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_pentanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK4 26 1 5 + +0 CEDS_C6H14_AGR $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2401 1 5 +0 CEDS_C6H14_ENE $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2406/706/315 1 5 +0 CEDS_C6H14_IND $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 2407/707/316 1 5 +0 CEDS_C6H14_TRA $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2411/711 1 5 +0 CEDS_C6H14_RCO $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2409/709 1 5 +0 CEDS_C6H14_SLV $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 2407/707 1 5 +0 CEDS_C6H14_WST $ROOT/CEDS/v2021-06/$YYYY/ALK4_hexanes-em-anthro_CMIP_CEDS_$YYYY.nc ALK4_hexanes_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 + +0 CEDS_C2H4_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2401 1 5 +0 CEDS_C2H4_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4 2406/706/315 1 5 +0 CEDS_C2H4_IND $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H4 2407/707/316 1 5 +0 CEDS_C2H4_TRA $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_tra 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2411/711 1 5 +0 CEDS_C2H4_RCO $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_rco 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2409/709 1 5 +0 CEDS_C2H4_SLV $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_slv 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 2407/707 1 5 +0 CEDS_C2H4_WST $ROOT/CEDS/v2021-06/$YYYY/C2H4-em-anthro_CMIP_CEDS_$YYYY.nc C2H4_wst 1750-2019/1-12/1/0 C xy kg/m2/s C2H4 26 1 5 + +0 CEDS_PRPE_AGR $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_agr 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 2401 1 5 +0 CEDS_PRPE_ENE $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s PRPE 2406/706/315 1 5 +0 CEDS_PRPE_IND $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s PRPE 2407/707/316 1 5 +0 CEDS_PRPE_TRA $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_tra 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 2411/711 1 5 +0 CEDS_PRPE_RCO $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_rco 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 2409/709 1 5 +0 CEDS_PRPE_SLV $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_slv 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 2407/707 1 5 +0 CEDS_PRPE_WST $ROOT/CEDS/v2021-06/$YYYY/PRPE-em-anthro_CMIP_CEDS_$YYYY.nc PRPE_wst 1750-2019/1-12/1/0 C xy kg/m2/s PRPE 26 1 5 + +0 CEDS_C2H2_AGR $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_agr 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 2401 1 5 +0 CEDS_C2H2_ENE $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H2 2406/706/315 1 5 +0 CEDS_C2H2_IND $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s C2H2 2407/707/316 1 5 +0 CEDS_C2H2_TRA $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_tra 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 2411/711 1 5 +0 CEDS_C2H2_RCO $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_rco 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 2409/709 1 5 +0 CEDS_C2H2_SLV $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_slv 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 2407/707 1 5 +0 CEDS_C2H2_WST $ROOT/CEDS/v2021-06/$YYYY/C2H2-em-anthro_CMIP_CEDS_$YYYY.nc C2H2_wst 1750-2019/1-12/1/0 C xy kg/m2/s C2H2 26 1 5 + +0 CEDS_BENZ_AGR $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_agr 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 2401 1 5 +0 CEDS_BENZ_ENE $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s BENZ 2406/706/315 1 5 +0 CEDS_BENZ_IND $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s BENZ 2407/707/316 1 5 +0 CEDS_BENZ_TRA $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_tra 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 2411/711 1 5 +0 CEDS_BENZ_RCO $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_rco 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 2409/709 1 5 +0 CEDS_BENZ_SLV $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_slv 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 2407/707 1 5 +0 CEDS_BENZ_WST $ROOT/CEDS/v2021-06/$YYYY/BENZ-em-anthro_CMIP_CEDS_$YYYY.nc BENZ_wst 1750-2019/1-12/1/0 C xy kg/m2/s BENZ 26 1 5 + +0 CEDS_TOLU_AGR $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_agr 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 2401 1 5 +0 CEDS_TOLU_ENE $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s TOLU 2406/706/315 1 5 +0 CEDS_TOLU_IND $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s TOLU 2407/707/316 1 5 +0 CEDS_TOLU_TRA $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_tra 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 2411/711 1 5 +0 CEDS_TOLU_RCO $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_rco 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 2409/709 1 5 +0 CEDS_TOLU_SLV $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_slv 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 2407/707 1 5 +0 CEDS_TOLU_WST $ROOT/CEDS/v2021-06/$YYYY/TOLU-em-anthro_CMIP_CEDS_$YYYY.nc TOLU_wst 1750-2019/1-12/1/0 C xy kg/m2/s TOLU 26 1 5 + +0 CEDS_XYLE_AGR $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_agr 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 2401 1 5 +0 CEDS_XYLE_ENE $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s XYLE 2406/706/315 1 5 +0 CEDS_XYLE_IND $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s XYLE 2407/707/316 1 5 +0 CEDS_XYLE_TRA $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_tra 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 2411/711 1 5 +0 CEDS_XYLE_RCO $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_rco 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 2409/709 1 5 +0 CEDS_XYLE_SLV $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_slv 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 2407/707 1 5 +0 CEDS_XYLE_WST $ROOT/CEDS/v2021-06/$YYYY/XYLE-em-anthro_CMIP_CEDS_$YYYY.nc XYLE_wst 1750-2019/1-12/1/0 C xy kg/m2/s XYLE 26 1 5 + +0 CEDS_CH2O_AGR $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_agr 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 2401 1 5 +0 CEDS_CH2O_ENE $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s CH2O 2406/706/315 1 5 +0 CEDS_CH2O_IND $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s CH2O 2407/707/316 1 5 +0 CEDS_CH2O_TRA $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_tra 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 2411/711 1 5 +0 CEDS_CH2O_RCO $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_rco 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 2409/709 1 5 +0 CEDS_CH2O_SLV $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_slv 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 2407/707 1 5 +0 CEDS_CH2O_WST $ROOT/CEDS/v2021-06/$YYYY/CH2O-em-anthro_CMIP_CEDS_$YYYY.nc CH2O_wst 1750-2019/1-12/1/0 C xy kg/m2/s CH2O 26 1 5 + +0 CEDS_ALD2_AGR $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 2401 1 5 +0 CEDS_ALD2_ENE $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALD2 2406/706/315 1 5 +0 CEDS_ALD2_IND $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALD2 2407/707/316 1 5 +0 CEDS_ALD2_TRA $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 2411/711 1 5 +0 CEDS_ALD2_RCO $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 2409/709 1 5 +0 CEDS_ALD2_SLV $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 2407/707 1 5 +0 CEDS_ALD2_WST $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 1 5 + +0 CEDS_MEK_AGR $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_agr 1750-2019/1-12/1/0 C xy kg/m2/s MEK 2401 1 5 +0 CEDS_MEK_ENE $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s MEK 2406/706/315 1 5 +0 CEDS_MEK_IND $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s MEK 2407/707/316 1 5 +0 CEDS_MEK_TRA $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_tra 1750-2019/1-12/1/0 C xy kg/m2/s MEK 2411/711 1 5 +0 CEDS_MEK_RCO $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_rco 1750-2019/1-12/1/0 C xy kg/m2/s MEK 2409/709 1 5 +0 CEDS_MEK_SLV $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_slv 1750-2019/1-12/1/0 C xy kg/m2/s MEK 2407/707 1 5 +0 CEDS_MEK_WST $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_wst 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 1 5 + +0 CEDS_HCOOH_AGR $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_agr 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2401 1 5 +0 CEDS_HCOOH_ENE $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2406/706/315 1 5 +0 CEDS_HCOOH_IND $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 2407/707/316 1 5 +0 CEDS_HCOOH_TRA $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_tra 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2411/711 1 5 +0 CEDS_HCOOH_RCO $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2409/709 1 5 +0 CEDS_HCOOH_SLV $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 2407/707 1 5 +0 CEDS_HCOOH_WST $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_TMB_AGR $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_agr 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_ENE $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/315 1 5 +0 CEDS_TMB_IND $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s HCOOH 26/316 1 5 +0 CEDS_TMB_TRA $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_tra 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_RCO $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_rco 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_SLV $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_slv 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 +0 CEDS_TMB_WST $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_wst 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 1 5 + +0 CEDS_OTH_AGR $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_agr 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_ENE $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ene 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/315 1 5 +0 CEDS_OTH_IND $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_ind 1750-2019/1-12/1/0 C xyL* kg/m2/s ALK6 26/316 1 5 +0 CEDS_OTH_TRA $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_tra 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_RCO $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_rco 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_SLV $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_slv 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 +0 CEDS_OTH_WST $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_wst 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 1 5 )))CEDSv2 #============================================================================== @@ -1636,10 +1652,13 @@ Warnings: 1 (((CEDS_GBDMAPS >>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS.rc )))CEDS_GBDMAPS + (((CEDS_GBDMAPS_byFuelType -(((.not.CEDS_GBDMAPS.and..not.CEDSv2 +(((.not.CEDS_GBDMAPS +(((.not.CEDSv2 >>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBDMAPS_byFuelType.rc -))).not.CEDS_GBDMAPS.and..not.CEDSv2 +))).not.CEDSv2 +))).not.CEDS_GBDMAPS )))CEDS_GBDMAPS_byFuelType #============================================================================== @@ -1922,7 +1941,7 @@ Warnings: 1 0 CMIP6_AIR_NO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 NO_air 1750-2100/1-12/1/0 C xyz kg/m2/s NO - 20 1 0 CMIP6_AIR_CO $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 CO_air 1750-2100/1-12/1/0 C xyz kg/m2/s CO - 20 1 0 CMIP6_AIR_SOAP - - - - - - SOAP 280 20 1 -0 CMIP6_AIR_SO2 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 SO2_air 1750-2100/1-12/1/0 C xyz kg/m2/s SO2 - 20 1 +0 CMIP6_AIR_SO2 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 SO2_air 1750-2100/1-12/1/0 C xyz kg/m2/s SO2 - 20 1 0 CMIP6_AIR_SO4 - - - - - - SO4 63 20 1 0 CMIP6_AIR_pFe - - - - - - pFe 66 20 1 0 CMIP6_AIR_ACET - - - - - - ACET 601 20 1 @@ -1934,10 +1953,10 @@ Warnings: 1 0 CMIP6_AIR_PRPE - - - - - - PRPE 607 20 1 0 CMIP6_AIR_MACR - - - - - - MACR 608 20 1 0 CMIP6_AIR_RCHO - - - - - - RCHO 609 20 1 -0 CMIP6_AIR_NH3 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 NH3_air 1750-2100/1-12/1/0 C xyz kg/m2/s NH3 - 20 1 +0 CMIP6_AIR_NH3 $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 NH3_air 1750-2100/1-12/1/0 C xyz kg/m2/s NH3 - 20 1 # Assume all BC/OC is BCPI/OCPI -0 CMIP6_AIR_BCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 BC_air 1750-2100/1-12/1/0 C xyz kg/m2/s BCPI - 20 1 -0 CMIP6_AIR_OCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAP2VERTRESL.nc4 OC_air 1750-2100/1-12/1/0 C xyz kg/m2/s OCPI - 20 1 +0 CMIP6_AIR_BCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 BC_air 1750-2100/1-12/1/0 C xyz kg/m2/s BCPI - 20 1 +0 CMIP6_AIR_OCPI $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY_AIR.$GCAPVERTRES.nc4 OC_air 1750-2100/1-12/1/0 C xyz kg/m2/s OCPI - 20 1 0 CMIP6_AIR_POG1 - - - - - - POG1 74/76 20 1 0 CMIP6_AIR_POG2 - - - - - - POG2 74/77 20 1 @@ -2556,6 +2575,39 @@ Warnings: 1 0 ORDONEZ_CH2IBR $ROOT/IODINE/v2020-02/CH2IBr_monthly_emissions_Ordonez_2012_COARDS.nc CH2IBr 2000/1-12/1/0 C xy kg/m2/s CH2IBr - 1 1 )))ORDONEZ_IODOCARB +#============================================================================== +# --- GT_Chlorine --- +# +# Emission inventory for HCl and particulate Cl from continental sources +# +# Reference: +# Zhang, B., & Liu, P., et al (2022). Global Emissions of Hydrogen Chloride +# and Particulate Chloride from Continental Sources. Environmental Science & +# Technology, 56(7), 3894-3904. https://doi.org/10.1021/acs.est.1c05634 +# +# Notes: +# - The HCl emission from open biomass burning (HCL_BIO, HCL_AGR) used the same +# activity data for GFED4 (1998-2014) and BB4CMIP (1960-2014). If your +# emission inventory for open biomass burning has already include HCl +# emissions, shut down either of them to avoid the duplicated emission sources +# - Emissions of particulate Cl are added as HCl as ISORROPIA will reparition +# Cl between particle phase and gas phase. +#============================================================================== +(((GT_Chlorine +0 HCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ene 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_ind 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_res 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 HCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_bbop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1 +0 HCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc HCl_agri 1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1 +0 PCL_ENE $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ene 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 PCL_IND $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_ind 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 PCL_RES $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_res 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 PCL_WST $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_wstop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 26 1/2 1 +0 PCL_BIO $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_bbop 1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1 +0 PCL_AGR $ROOT/GT_Chlorine/v2024-05/GT_Chlorine_01_01_$YYYY_V1.0.0.nc pCl_agri 1960-2014/1-12/1/0 C xy kg/m2/s HCl 75 1/2 1 +)))GT_Chlorine + #============================================================================== # --- Ship emissions --- # @@ -2612,6 +2664,8 @@ Warnings: 1 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 4 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 4 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 4 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 4 )))HTAPv3_SHIP (((CEDSv2_SHIP @@ -2645,6 +2699,8 @@ Warnings: 1 0 CEDS_ALD2_SHP $ROOT/CEDS/v2021-06/$YYYY/ALD2-em-anthro_CMIP_CEDS_$YYYY.nc ALD2_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALD2 26 10 5 0 CEDS_MEK_SHP $ROOT/CEDS/v2021-06/$YYYY/MEK-em-anthro_CMIP_CEDS_$YYYY.nc MEK_shp 1750-2019/1-12/1/0 C xy kg/m2/s MEK 26 10 5 0 CEDS_HCOOH_SHP $ROOT/CEDS/v2021-06/$YYYY/HCOOH-em-anthro_CMIP_CEDS_$YYYY.nc HCOOH_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_TMB_SHP $ROOT/CEDS/v2021-06/$YYYY/TMB-em-anthro_CMIP_CEDS_$YYYY.nc TMB_shp 1750-2019/1-12/1/0 C xy kg/m2/s HCOOH 26 10 5 +0 CEDS_OTH_SHP $ROOT/CEDS/v2021-06/$YYYY/OTHER_VOC-em-anthro_CMIP_CEDS_$YYYY.nc OTHER_VOC_shp 1750-2019/1-12/1/0 C xy kg/m2/s ALK6 26 10 5 )))CEDSv2_SHIP (((CEDS_GBDMAPS_SHIP @@ -2652,9 +2708,11 @@ Warnings: 1 )))CEDS_GBDMAPS_SHIP (((CEDS_SHIP_byFuelType -(((.not.CEDS_GBDMAPS_SHIP.and..not.CEDSv2_SHIP +(((.not.CEDS_GBDMAPS_SHIP +(((.not.CEDSv2_SHIP >>>include $ROOT/CEDS/v2020-08/HEMCO_Config.CEDS_GBD-MAPS_SHIP_byFuelType.rc -))).not.CEDS_GBDMAPS_SHIP.and..not.CEDSv2_SHIP +))).not.CEDSv2_SHIP +))).not.CEDS_GBDMAPS_SHIP )))CEDS_SHIP_byFuelType #============================================================================== @@ -2667,19 +2725,21 @@ Warnings: 1 #============================================================================== (((CMIP6_SHIP 0 CMIP6_CO_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 CO_shp 1750-2100/1-12/1/0 C xy kg/m2/s CO 26 10 5 -0 CMIP6_SOAP_SHP - - - - - - SOAP 26/280 10 5 +0 CMIP6_SOAP_SHP - - - - - - SOAP 26/280 10 5 0 CMIP6_SO2_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 SO2_shp 1750-2100/1-12/1/0 C xy kg/m2/s SO2 - 10 5 -0 CMIP6_SO4_SHP - - - - - - SO4 63 10 5 -0 CMIP6_pFe_SHP - - - - - - pFe 66 10 5 +0 CMIP6_SO4_SHP - - - - - - SO4 63 10 5 +0 CMIP6_pFe_SHP - - - - - - pFe 66 10 5 0 CMIP6_NH3_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 NH3_shp 1750-2100/1-12/1/0 C xy kg/m2/s NH3 - 10 5 0 CMIP6_BCPI_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 BC_shp 1750-2100/1-12/1/0 C xy kg/m2/s BCPI 70 10 5 -0 CMIP6_BCPO_SHP - - - - - - BCPO 71 10 5 +0 CMIP6_BCPO_SHP - - - - - - BCPO 71 10 5 0 CMIP6_OCPI_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 OC_shp 1750-2100/1-12/1/0 C xy kg/m2/s OCPI 72 10 5 -0 CMIP6_OCPO_SHP - - - - - - OCPO 73 10 5 +0 CMIP6_OCPO_SHP - - - - - - OCPO 73 10 5 +0 CMIP6_POG1_SHP - - - - - - POG1 74/76 10 5 +0 CMIP6_POG2_SHP - - - - - - POG2 74/77 10 5 # NOTE: EOH files in CMIP6/v2021-01 are actually VOC1 (total alchohols) and are split into MOH, EOH, ROH here 0 CMIP6_MOH_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 EOH_shp 1750-2100/1-12/1/0 C xy kg/m2/s MOH 26/90 10 5 -0 CMIP6_EOH_SHP - - - - - - EOH 26/91 10 5 -0 CMIP6_ROH_SHP - - - - - - ROH 26/92 10 5 +0 CMIP6_EOH_SHP - - - - - - EOH 26/91 10 5 +0 CMIP6_ROH_SHP - - - - - - ROH 26/92 10 5 0 CMIP6_C2H6_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C2H6_shp 1750-2100/1-12/1/0 C xy kg/m2/s C2H6 26 10 5 0 CMIP6_C3H8_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 C3H8_shp 1750-2100/1-12/1/0 C xy kg/m2/s C3H8 26 10 5 0 CMIP6_C4H10_SHP $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 ALK4_butanes_shp 1750-2100/1-12/1/0 C xy kg/m2/s ALK4 26 10 5 @@ -2712,11 +2772,11 @@ Warnings: 1 )))ICOADS_SHIP (((HTAPv3_SHIP -0 HTAPv3_NO_SHIP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4 +102 HTAPv3_NO_SHP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4 )))HTAPv3_SHIP (((CEDSv2_SHIP -0 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5 +102 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5 )))CEDSv2_SHIP (((CEDS_GBDMAPS_SHIP @@ -2737,12 +2797,12 @@ Warnings: 1 0 ICOADS_SHIP_NO $ROOT/ICOADS_SHIP/v2014-07/ICOADS.generic.1x1.nc NO 2002/1-12/1/0 C xy kg/m2/s NO 1/5 10 1 )))ICOADS_SHIP -(((HTAP_SHIP -0 HTAP_SHIP_NO $ROOT/HTAP/v2015-03/EDGAR_HTAP_NO_SHIPS.generic.01x01.nc emi_no 2008-2010/1/1/0 C xy kg/m2/s NO 1/27 10 2 -)))HTAP_SHIP +(((HTAPv3_SHIP +0 HTAPv3_NO_SHIP $ROOT/HTAPv3/v2022-12/$YYYY/HTAPv3_NO_0.1x0.1_$YYYY.nc NO_SHP 2000-2018/1-12/1/0 C xy kg/m2/s NO 25 10 4 +)))HTAPv3_SHIP (((CEDSv2_SHIP -0 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5 +0 CEDS_NO_SHP $ROOT/CEDS/v2021-06/$YYYY/NO-em-anthro_CMIP_CEDS_$YYYY.nc NO_shp 1750-2019/1-12/1/0 C xy kg/m2/s NO 25 10 5 )))CEDSv2_SHIP (((CEDS_GBDMAPS_SHIP @@ -2993,6 +3053,7 @@ Warnings: 1 0 QFED_C3H6_PBL $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=1:PBL kg/m2/s PRPE 75/311 5 2 0 QFED_C3H6_FT $ROOT/QFED/v2018-07/$YYYY/$MM/qfed2.emis_c3h6.006.$YYYY$MM$DD.nc4 biomass 2000-2022/1-12/1-31/0/+12hour EFY xyL=PBL:5500m kg/m2/s PRPE 75/312 5 2 )))QFED2 + #============================================================================== # --- GFAS biomass burning --- #============================================================================== @@ -3071,6 +3132,35 @@ Warnings: 1 0 CMIP6_BB_MEK $ROOT/CMIP6/v2021-01/$GCAPSCENARIO/$GCAPSCENARIO_$YYYY.nc4 MEK_bbn 1750-2100/1-12/1/0 C xyL=1:PBL kg/m2/s MEK 75 5 3 )))BB4MIPS +#============================================================================== +# --- GFED4 biomass burning emissions climatology +# NOTE: +# - These emissions were generated for 2010-2019 using the GFED extension +# in a 0.5x0.625 HEMCO 3.6.1 standalone simulation. +#============================================================================== +(((GFED4_CLIMATOLOGY +0 GFED4_CLIM_ACET $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s ACET - 5 1 +0 GFED4_CLIM_ALD2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALD2 2019/1-12/1/0 C xy kg/m2/s ALD2 - 5 1 +0 GFED4_CLIM_ALK4 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ALK4 2019/1-12/1/0 C xy kg/m2/s ALK4 - 5 1 +0 GFED4_CLIM_BCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPI 2019/1-12/1/0 C xy kg/m2/s BCPI - 5 1 +0 GFED4_CLIM_BCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BCPO 2019/1-12/1/0 C xy kg/m2/s BCPO - 5 1 +0 GFED4_CLIM_BENZ $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_BENZ 2019/1-12/1/0 C xy kg/m2/s BENZ - 5 1 +0 GFED4_CLIM_C2H6 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C2H6 2019/1-12/1/0 C xy kg/m2/s C2H6 - 5 1 +0 GFED4_CLIM_C3H8 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_C3H8 2019/1-12/1/0 C xy kg/m2/s C3H8 - 5 1 +0 GFED4_CLIM_CH2O $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_ACET 2019/1-12/1/0 C xy kg/m2/s CH2O - 5 1 +0 GFED4_CLIM_CO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_CO 2019/1-12/1/0 C xy kg/m2/s CO - 5 1 +0 GFED4_CLIM_EOH $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_EOH 2019/1-12/1/0 C xy kg/m2/s EOH - 5 1 +0 GFED4_CLIM_MEK $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_MEK 2019/1-12/1/0 C xy kg/m2/s MEK - 5 1 +0 GFED4_CLIM_NO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_NO 2019/1-12/1/0 C xy kg/m2/s NO - 5 1 +0 GFED4_CLIM_OCPI $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPI 2019/1-12/1/0 C xy kg/m2/s OCPI - 5 1 +0 GFED4_CLIM_OCPO $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_OCPO 2019/1-12/1/0 C xy kg/m2/s OCPO - 5 1 +0 GFED4_CLIM_PRPE $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_PRPE 2019/1-12/1/0 C xy kg/m2/s PRPE - 5 1 +0 GFED4_CLIM_SO2 $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SO2 2019/1-12/1/0 C xy kg/m2/s SO2 - 5 1 +0 GFED4_CLIM_SOAP $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_SOAP 2019/1-12/1/0 C xy kg/m2/s SOAP - 5 1 +0 GFED4_CLIM_TOLU $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_TOLU 2019/1-12/1/0 C xy kg/m2/s TOLU - 5 1 +0 GFED4_CLIM_XYLE $ROOT/GFED4/v2023-03/GFED4_climatology_2010-2019_05x0625.nc GFED4_XYLE 2019/1-12/1/0 C xy kg/m2/s XYLE - 5 1 +)))GFED4_CLIMATOLOGY + #============================================================================== # --- Anthropogenic Fugitive, Combustion and Industrial Dust --- # (Philip et al., 2017, ERL) @@ -3097,26 +3187,27 @@ Warnings: 1 # --- Offline biogenic VOC emissions --- #============================================================================== (((OFFLINE_BIOGENICVOC -0 BIOGENIC_ACET $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ACET_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s ACET 40 4 2 -0 BIOGENIC_ALD2 $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ALD2_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s ALD2 41 4 2 -0 BIOGENIC_C2H4 $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc C2H4_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s C2H4 44 4 2 -0 BIOGENIC_EOH $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc EOH_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s EOH 47 4 2 -0 BIOGENIC_ISOP $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ISOP_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s ISOP 61 4 2 -0 BIOGENIC_ISOP_SOAP - - - - - - SOAP 610 4 2 -0 BIOGENIC_ISOP_SOAS - - - - - - SOAS 610 4 2 -0 BIOGENIC_LIMO $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc LIMO_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s LIMO - 4 2 -0 BIOGENIC_LIMO_SOAP - - - - - - SOAP 611 4 2 -0 BIOGENIC_LIMO_SOAS - - - - - - SOAS 611 4 2 -0 BIOGENIC_MTPA $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPA_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s MTPA - 4 2 -0 BIOGENIC_MTPA_SOAP - - - - - - SOAP 611 4 2 -0 BIOGENIC_MTPA_SOAS - - - - - - SOAS 611 4 2 -0 BIOGENIC_MTPO $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPO_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s MTPO - 4 2 -0 BIOGENIC_MTPO_SOAP - - - - - - SOAP 611 4 2 -0 BIOGENIC_MTPO_SOAS - - - - - - SOAS 611 4 2 -0 BIOGENIC_PRPE $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc PRPE_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s PRPE 49 4 2 -0 BIOGENIC_SESQ $ROOT/OFFLINE_BIOVOC/v2019-10/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc SESQ_MEGAN 1980-2021/1-12/1-31/* C xy kgC/m2/s SESQ - 4 2 -0 BIOGENIC_SESQ_SOAP - - - - - - SOAP 612 4 2 -0 BIOGENIC_SESQ_SOAS - - - - - - SOAS 612 4 2 +0 BIOGENIC_ACET $ROOT/OFFLINE_BIOVOC/v2021-12/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ACET_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s ACET - 4 2 +0 BIOGENIC_ALD2 $ROOT/OFFLINE_BIOVOC/v2021-12/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ALD2_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s ALD2 - 4 2 +0 BIOGENIC_C2H4 $ROOT/OFFLINE_BIOVOC/v2021-12/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc C2H4_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s C2H4 - 4 2 +0 BIOGENIC_EOH $ROOT/OFFLINE_BIOVOC/v2021-12/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc EOH_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s EOH - 4 2 +0 BIOGENIC_ISOP $ROOT/OFFLINE_BIOVOC/v2021-12/0.5x0.625/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc ISOP_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s ISOP - 4 2 +0 BIOGENIC_ISOP_SOAP - - - - - - SOAP 610 4 2 +0 BIOGENIC_ISOP_SOAS - - - - - - SOAS 610 4 2 +0 BIOGENIC_LIMO $ROOT/OFFLINE_BIOVOC/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc LIMO_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s LIMO - 4 2 +0 BIOGENIC_LIMO_SOAP - - - - - - SOAP 611 4 2 +0 BIOGENIC_LIMO_SOAS - - - - - - SOAS 611 4 2 +0 BIOGENIC_MOH $ROOT/OFFLINE_BIOVOC/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MOH_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s MOH - 4 2 +0 BIOGENIC_MTPA $ROOT/OFFLINE_BIOVOC/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPA_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPA - 4 2 +0 BIOGENIC_MTPA_SOAP - - - - - - SOAP 611 4 2 +0 BIOGENIC_MTPA_SOAS - - - - - - SOAS 611 4 2 +0 BIOGENIC_MTPO $ROOT/OFFLINE_BIOVOC/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc MTPO_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s MTPO - 4 2 +0 BIOGENIC_MTPO_SOAP - - - - - - SOAP 611 4 2 +0 BIOGENIC_MTPO_SOAS - - - - - - SOAS 611 4 2 +0 BIOGENIC_PRPE $ROOT/OFFLINE_BIOVOC/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc PRPE_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s PRPE - 4 2 +0 BIOGENIC_SESQ $ROOT/OFFLINE_BIOVOC/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/biovoc_05.$YYYY$MM$DD.nc SESQ_MEGAN 1980-2022/1-12/1-31/* EFY xy kg/m2/s SESQ - 4 2 +0 BIOGENIC_SESQ_SOAP - - - - - - SOAP 612 4 2 +0 BIOGENIC_SESQ_SOAS - - - - - - SOAS 612 4 2 )))OFFLINE_BIOGENICVOC #============================================================================== @@ -3124,17 +3215,17 @@ Warnings: 1 #============================================================================== (((OFFLINE_SEASALT (((.not.SeaSalt -0 SEASALT_SALA $ROOT/OFFLINE_SEASALT/v2019-01/0.5x0.625/$YYYY/$MM/seasalt_05.$YYYY$MM$DD.nc SALA_TOTAL 1980-2021/1-12/1-31/* C xy kg/m2/s SALA - 3 2 -0 SEASALT_SALAAL - - - - - - SALAAL 615 3 2 -0 SEASALT_SALACL - - - - - - SALACL 616 3 2 +0 SEASALT_SALA $ROOT/OFFLINE_SEASALT/v2019-01/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_0505.$YYYY$MM$DD.nc SALA_TOTAL 1980-2022/1-12/1-31/* EFY xy kg/m2/s SALA - 3 2 +0 SEASALT_SALAAL - - - - - - SALAAL 615 3 2 +0 SEASALT_SALACL - - - - - - SALACL 616 3 2 (((CalcBrSeasalt -0 SEASALT_BrSALA - - - - - - BrSALA 617 3 2 +0 SEASALT_BrSALA - - - - - - BrSALA 617 3 2 )))CalcBrSeasalt -0 SEASALT_SALC $ROOT/OFFLINE_SEASALT/v2019-01/0.5x0.625/$YYYY/$MM/seasalt_05.$YYYY$MM$DD.nc SALC_TOTAL 1980-2021/1-12/1-31/* C xy kg/m2/s SALC - 3 2 -0 SEASALT_SALCAL - - - - - - SALCAL 615 3 2 -0 SEASALT_SALCCL - - - - - - SALCCL 616 3 2 +0 SEASALT_SALC $ROOT/OFFLINE_SEASALT/v2019-01/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/seasalt_05.$YYYY$MM$DD.nc SALC_TOTAL 1980-2022/1-12/1-31/* EFY xy kg/m2/s SALC - 3 2 +0 SEASALT_SALCAL - - - - - - SALCAL 615 3 2 +0 SEASALT_SALCCL - - - - - - SALCCL 616 3 2 (((CalcBrSeasalt -0 SEASALT_BrSALC - - - - - - BrSALC 617 3 2 +0 SEASALT_BrSALC - - - - - - BrSALC 617 3 2 )))CalcBrSeasalt ))).not.SeaSalt )))OFFLINE_SEASALT @@ -3144,7 +3235,7 @@ Warnings: 1 #============================================================================== (((OFFLINE_SOILNOX (((.not.SoilNOx -0 SOILNOX_NO $ROOT/OFFLINE_SOILNOX/v2019-01/0.5x0.625/$YYYY/$MM/soilnox_05.$YYYY$MM$DD.nc SOIL_NOx 1980-2021/1-12/1-31/* C xy kg/m2/s NO - 3 2 +0 SOILNOX_NO $ROOT/OFFLINE_SOILNOX/v2021-12/${RUNDIR_OFFLINE_EMIS_RES}/$YYYY/$MM/soilnox_05.$YYYY$MM$DD.nc SOIL_NOx 1980-2022/1-12/1-31/* EFY xy kg/m2/s NO - 3 2 ))).not.SoilNOx )))OFFLINE_SOILNOX @@ -3177,10 +3268,10 @@ Warnings: 1 (((SoilNOx 104 DEP_RESERVOIR_DEFAULT $ROOT/SOILNOX/v2014-07/DepReservoirDefault.nc DEP_RESERVOIR 2013/7/1/0 C xy kg/m3 NO - 1 1 (((HEMCO_RESTART -104 PFACTOR ./HEMCO_restart.$YYYY$MM$DD$HH00.nc PFACTOR $YYYY/$MM/$DD/$HH EY xy 1 NO - 1 1 -104 DRYPERIOD ./HEMCO_restart.$YYYY$MM$DD$HH00.nc DRYPERIOD $YYYY/$MM/$DD/$HH EY xy 1 NO - 1 1 -104 GWET_PREV ./HEMCO_restart.$YYYY$MM$DD$HH00.nc GWET_PREV $YYYY/$MM/$DD/$HH EY xy 1 NO - 1 1 -104 DEP_RESERVOIR ./HEMCO_restart.$YYYY$MM$DD$HH00.nc DEP_RESERVOIR $YYYY/$MM/$DD/$HH EY xy kg/m3 NO - 1 1 +104 PFACTOR ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc PFACTOR $YYYY/$MM/$DD/$HH EY xy 1 NO - 1 1 +104 DRYPERIOD ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc DRYPERIOD $YYYY/$MM/$DD/$HH EY xy 1 NO - 1 1 +104 GWET_PREV ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc GWET_PREV $YYYY/$MM/$DD/$HH EY xy 1 NO - 1 1 +104 DEP_RESERVOIR ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc DEP_RESERVOIR $YYYY/$MM/$DD/$HH EY xy kg/m3 NO - 1 1 )))HEMCO_RESTART 104 SOILNOX_FERT $ROOT/SOILNOX/v2014-07/soilNOx.fert_res.generic.05x05.nc FERT 2000/1-12/1-31/0 C xy kg/m3 NO - 1 1 104 SOILNOX_LANDK1 $ROOT/SOILNOX/v2014-07/soilNOx.landtype.generic.025x025.1L.nc LANDFRAC_K01 2000/1/1/0 C xy 1 NO - 1 1 @@ -3277,11 +3368,11 @@ Warnings: 1 #============================================================================== (((MEGAN (((HEMCO_RESTART -108 T_DAVG ./HEMCO_restart.$YYYY$MM$DD$HH00.nc T_DAVG $YYYY/$MM/$DD/$HH EY xy K * - 1 1 -108 T_PREVDAY ./HEMCO_restart.$YYYY$MM$DD$HH00.nc T_PREVDAY $YYYY/$MM/$DD/$HH EY xy K * - 1 1 -108 LAI_PREVDAY ./HEMCO_restart.$YYYY$MM$DD$HH00.nc LAI_PREVDAY $YYYY/$MM/$DD/$HH EY xy 1 * - 1 1 -108 PARDR_DAVG ./HEMCO_restart.$YYYY$MM$DD$HH00.nc PARDR_DAVG $YYYY/$MM/$DD/$HH EY xy W/m2 * - 1 1 -108 PARDF_DAVG ./HEMCO_restart.$YYYY$MM$DD$HH00.nc PARDF_DAVG $YYYY/$MM/$DD/$HH EY xy W/m2 * - 1 1 +108 T_DAVG ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc T_DAVG $YYYY/$MM/$DD/$HH EY xy K * - 1 1 +108 T_PREVDAY ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc T_PREVDAY $YYYY/$MM/$DD/$HH EY xy K * - 1 1 +108 LAI_PREVDAY ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc LAI_PREVDAY $YYYY/$MM/$DD/$HH EY xy 1 * - 1 1 +108 PARDR_DAVG ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc PARDR_DAVG $YYYY/$MM/$DD/$HH EY xy W/m2 * - 1 1 +108 PARDF_DAVG ./Restarts/HEMCO_restart.$YYYY$MM$DD$HH00.nc PARDF_DAVG $YYYY/$MM/$DD/$HH EY xy W/m2 * - 1 1 )))HEMCO_RESTART 108 MEGAN_AEF_ISOP $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc AEF_ISOPRENE 1985/1/1/0 C xy kgC/m2/s * 61 1 1 108 MEGAN_AEF_MBOX $ROOT/MEGAN/v2018-05/MEGAN2.1_EF.geos.025x03125.nc AEF_MBO 1985/1/1/0 C xy kgC/m2/s * 64 1 1 @@ -3312,26 +3403,28 @@ Warnings: 1 #============================================================================== # --- GFED biomass burning emissions (Extension 111) -# NOTE: These are the base emissions in kgDM/m2/s. +# NOTES: +# - These are the base emissions in kgDM/m2/s +# - If a year is not available, you may use the GFED4_CLIMATOLOGY option instead #============================================================================== (((GFED4 -111 GFED_TEMP $ROOT/GFED4/v2020-02/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_TEMP 1997-2019/1-12/01/0 RF xy kgDM/m2/s * - 1 1 -111 GFED_AGRI $ROOT/GFED4/v2020-02/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_AGRI 1997-2019/1-12/01/0 RF xy kgDM/m2/s * - 1 1 -111 GFED_DEFO $ROOT/GFED4/v2020-02/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_DEFO 1997-2019/1-12/01/0 RF xy kgDM/m2/s * - 1 1 -111 GFED_BORF $ROOT/GFED4/v2020-02/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_BORF 1997-2019/1-12/01/0 RF xy kgDM/m2/s * - 1 1 -111 GFED_PEAT $ROOT/GFED4/v2020-02/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_PEAT 1997-2019/1-12/01/0 RF xy kgDM/m2/s * - 1 1 -111 GFED_SAVA $ROOT/GFED4/v2020-02/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_SAVA 1997-2019/1-12/01/0 RF xy kgDM/m2/s * - 1 1 +111 GFED_TEMP $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_TEMP 2010-2023/1-12/01/0 RF xy kgDM/m2/s * - 1 1 +111 GFED_AGRI $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_AGRI 2010-2023/1-12/01/0 RF xy kgDM/m2/s * - 1 1 +111 GFED_DEFO $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_DEFO 2010-2023/1-12/01/0 RF xy kgDM/m2/s * - 1 1 +111 GFED_BORF $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_BORF 2010-2023/1-12/01/0 RF xy kgDM/m2/s * - 1 1 +111 GFED_PEAT $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_PEAT 2010-2023/1-12/01/0 RF xy kgDM/m2/s * - 1 1 +111 GFED_SAVA $ROOT/GFED4/v2023-03/$YYYY/GFED4_gen.025x025.$YYYY$MM.nc DM_SAVA 2010-2023/1-12/01/0 RF xy kgDM/m2/s * - 1 1 (((GFED_subgrid_coag 111 FINN_DAILY_NUMBER $ROOT/FINN/v2015-02/FINN_daily_$YYYY_0.25x0.25_with_num.nc number 2002-2016/1-12/1/0 RF xy unitless * - 1 1 )))GFED_subgrid_coag (((GFED_daily -111 GFED_FRAC_DAY $ROOT/GFED4/v2020-02/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2003-2019/1-12/1-31/0 RF xy 1 * - 1 1 +111 GFED_FRAC_DAY $ROOT/GFED4/v2023-03/$YYYY/GFED4_dailyfrac_gen.025x025.$YYYY$MM.nc GFED_FRACDAY 2010-2023/1-12/1-31/0 RF xy 1 * - 1 1 )))GFED_daily (((GFED_3hourly -111 GFED_FRAC_3HOUR $ROOT/GFED4/v2020-02/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc GFED_FRAC3HR 2003-2019/1-12/1/0-23 RF xy 1 * - 1 1 +111 GFED_FRAC_3HOUR $ROOT/GFED4/v2023-03/$YYYY/GFED4_3hrfrac_gen.025x025.$YYYY$MM.nc GFED_FRAC3HR 2010-2023/1-12/1/0-23 RF xy 1 * - 1 1 )))GFED_3hourly )))GFED4 @@ -3376,7 +3469,7 @@ Warnings: 1 #============================================================================== # --- Time zones (offset to UTC) --- #============================================================================== -* TIMEZONES $ROOT/TIMEZONES/v2015-02/timezones_voronoi_1x1.nc UTC_OFFSET 2000/1/1/0 C xy count * - 1 1 +* TIMEZONES $ROOT/TIMEZONES/v2024-02/timezones_vohra_2017_0.1x0.1.nc UTC_OFFSET 2017/1-12/1/0 C xy count * - 1 1 (((CHEMISTRY_INPUT @@ -3680,7 +3773,7 @@ Warnings: 1 # --- NOAA GMD monthly mean surface CH4 --- #============================================================================== (((GMD_SFC_CH4 -* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2018-01/monthly.gridded.surface.methane.1979-2020.1x1.nc SFC_CH4 1979-2020/1-12/1/0 RY xy ppbv * - 1 1 +* NOAA_GMD_CH4 $ROOT/NOAA_GMD/v2023-10/monthly.gridded.surface.methane.1975-2022.1x1.nc SFC_CH4 1975-2022/1-12/1/0 RY xy ppbv * - 1 1 )))GMD_SFC_CH4 #============================================================================== @@ -3897,12 +3990,12 @@ Warnings: 1 * MODIS_EMISSIVITY_14 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc RTEMISS_band14 2002/1-12/1-31/0 C xy 1 * - 1 1 * MODIS_EMISSIVITY_15 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc RTEMISS_band15 2002/1-12/1-31/0 C xy 1 * - 1 1 * MODIS_EMISSIVITY_16 $ROOT/RRTMG/v2018-11/modis_emissivity.2x25.nc RTEMISS_band16 2002/1-12/1-31/0 C xy 1 * - 1 1 -* TES_CLIM_CCL4 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CCl4 2000/1/1/0 C xyz ppbv * - 1 1 -* TES_CLIM_CFC11 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CFC11 2000/1/1/0 C xyz ppbv * - 1 1 -* TES_CLIM_CFC12 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CFC12 2000/1/1/0 C xyz ppbv * - 1 1 -* TES_CLIM_CFC22 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CFC22 2000/1/1/0 C xyz ppbv * - 1 1 -* TES_CLIM_CH4 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CH4 2000/1/1/0 C xyz ppbv * - 1 1 -* TES_CLIM_N2O $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc N2O 2000/1/1/0 C xyz ppbv * - 1 1 +* TES_CLIM_CCL4 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CCl4 2000/1/1/0 C xyz ppbv * - 1 1 +* TES_CLIM_CFC11 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CFC11 2000/1/1/0 C xyz ppbv * - 1 1 +* TES_CLIM_CFC12 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CFC12 2000/1/1/0 C xyz ppbv * - 1 1 +* TES_CLIM_CFC22 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CFC22 2000/1/1/0 C xyz ppbv * - 1 1 +* TES_CLIM_CH4 $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc CH4 2000/1/1/0 C xyz ppbv * - 1 1 +* TES_CLIM_N2O $ROOT/RRTMG/v2018-11/species_clim_profiles.2x25.nc N2O 2000/1/1/0 C xyz ppbv * - 1 1 )))RRTMG (((SfcVMR @@ -4029,18 +4122,8 @@ Warnings: 1 # --- Annual scale factors --- #============================================================================== (((XIAO_C3H8 -1 TOTFUEL_THISYR $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc NOxscalar 1985-2010/1/1/0 C xy 1 1 -5 TOTFUEL_2002 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc NOxscalar 2002/1/1/0 C xy 1 -1 -27 TOTFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc NOxscalar 2008-2010/1/1/0 C xy 1 -1 6 LIQFUEL_THISYR $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar 1985-2010/1/1/0 C xy 1 1 7 LIQFUEL_1985 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar 1985/1/1/0 C xy 1 -1 -9 LIQFUEL_2006 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar 2006/1/1/0 C xy 1 -1 -10 LIQFUEL_2002 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar 2002/1/1/0 C xy 1 -1 -28 LIQFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc COscalar 2008-2010/1/1/0 C xy 1 -1 -11 SOLFUEL_THISYR $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc SO2scalar 1985-2010/1/1/0 C xy 1 1 -15 SOLFUEL_2002 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc SO2scalar 2002/1/1/0 C xy 1 -1 -19 SOLFUEL_2008 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc SO2scalar 2008/1/1/0 C xy 1 -1 -29 SOLFUEL_2008_2010 $ROOT/AnnualScalar/v2014-07/AnnualScalar.geos.1x1.nc SO2scalar 2008-2010/1/1/0 C xy 1 -1 )))XIAO_C3H8 #============================================================================== @@ -4172,14 +4255,12 @@ Warnings: 1 281 COtoSOAP_burn 0.013 - - - xy 1 1 #============================================================================== -# --- QFED2 diurnal scale factors --- +# --- Diurnal scale factors for biomass burning --- # # Fire diurnal scaling factors (% per hour) from WRAP Report to Project # No. 178-6, July 2005 #============================================================================== -(((QFED2.or.GFAS.or.BB4MIPS 75 QFED2_TOD 0.1392/0.1392/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.1368/0.48/0.96/1.68/2.4/3.12/3.84/4.08/2.88/1.68/0.96/0.1368/0.1368/0.1368/0.1368/0.1368 - - - xy unitless 1 -)))QFED2.or.GFAS.or.BB4MIPS #============================================================================== # --- NAP scale factors --- @@ -4440,6 +4521,27 @@ Warnings: 1 1212 FFF $ROOT/EDGARv43/v2016-11/EDGAR_v43.Seasonal.1x1.nc FFF 2010/1-12/1/0 C xy unitless 1 )))EDGARv43.or.DICE_Africa +(((CEDSv2 +#========================================================================= +# --- Sector-wise diel scale factors for CEDSv2 --- +# These scale factors could potentially be used for other global base emissions if modified accordingly. +#========================================================================= +2401 TOD_AGRICULTURE 0.599/0.599/0.599/0.599/0.599/0.649/0.748/0.898/1.098/1.247/1.447/1.597/1.796/1.746/1.696/1.547/1.347/1.098/0.898/0.748/0.649/0.599/0.599/0.599 - - - xy unitless 1 +2406 TOD_ENERGY 0.790/0.720/0.720/0.710/0.740/0.800/0.920/1.080/1.190/1.220/1.210/1.210/1.170/1.150/1.140/1.130/1.100/1.070/1.040/1.020/1.020/1.010/0.960/0.880 - - - xy unitless 1 +2407 TOD_INDUSTRY 0.750/0.750/0.780/0.820/0.880/0.950/1.020/1.090/1.160/1.220/1.280/1.300/1.220/1.240/1.250/1.160/1.080/1.010/0.950/0.900/0.850/0.810/0.780/0.750 - - - xy unitless 1 +2409 TOD_RESIDENTIAL 0.393/0.393/0.393/0.393/0.393/0.492/1.180/1.475/1.574/1.574/1.377/1.180/1.082/1.082/0.984/0.984/0.984/1.082/1.377/1.475/1.377/1.377/0.984/0.393 - - - xy unitless 1 +2411 TOD_TRANSPORT 0.190/0.090/0.060/0.050/0.090/0.220/0.860/1.840/1.860/1.410/1.240/1.200/1.320/1.440/1.450/1.590/2.030/2.080/1.510/1.060/0.740/0.620/0.610/0.440 - - - xy unitless 1 + +#========================================================================= +# --- Sector-wise day-of-week scale factors for CEDSv2 --- +# These scale factors could potentially be used for other global base emissions if modified accordingly. +#========================================================================= +706 DOW_ENERGY 0.850/1.060/1.060/1.060/1.060/1.060/0.850 - - - xy unitless 1 +707 DOW_INDUSTRY 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1 +709 DOW_RESIDENTIAL 0.800/1.080/1.080/1.080/1.080/1.080/0.800 - - - xy unitless 1 +711 DOW_TRANSPORT 0.790/1.020/1.060/1.080/1.100/1.140/0.810 - - - xy unitless 1 +)))CEDSv2 + ### END SECTION SCALE FACTORS ### ############################################################################### diff --git a/run/WRF/fullchem/HEMCO_Diagn.rc b/run/WRF/fullchem/HEMCO_Diagn.rc index 99129e884..cfa7db1f0 100644 --- a/run/WRF/fullchem/HEMCO_Diagn.rc +++ b/run/WRF/fullchem/HEMCO_Diagn.rc @@ -32,10 +32,22 @@ ############################################################################### ##### ACET emissions ##### ############################################################################### -EmisACET_Total ACET -1 -1 -1 3 kg/m2/s ACET_emission_flux_from_all_sectors -EmisACET_BioBurn ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_biomass_burning -EmisACET_Biogenic ACET 0 4 -1 2 kg/m2/s ACET_emission_flux_from_biogenic_sources -EmisACET_Ocean ACET 101 -1 -1 2 kg/m2/s ACET_emission_flux_from_ocean +EmisACET_Total ACET -1 -1 -1 3 kg/m2/s ACET_emission_flux_from_all_sectors +EmisACET_BioBurn ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_biomass_burning +EmisACET_Biogenic ACET 0 4 -1 2 kg/m2/s ACET_emission_flux_from_biogenic_sources +EmisACET_Ocean ACET 101 -1 -1 2 kg/m2/s ACET_emission_flux_from_ocean + +############################################################################### +##### ACR emissions ##### +############################################################################### +EmisACR_Total ACR -1 -1 -1 3 kg/m2/s ACR_emission_flux_from_all_sectors +EmisACR_BioBurn ACR 111 -1 -1 2 kg/m2/s ACR_emission_flux_from_biomass_burning + +############################################################################### +##### ACTA emissions ##### +############################################################################### +EmisACTA_Total ACTA -1 -1 -1 3 kg/m2/s ACTA_emission_flux_from_all_sectors +EmisACTA_BioBurn ACTA 111 -1 -1 2 kg/m2/s ACTA_emission_flux_from_biomass_burning ############################################################################### ##### ALD2 emissions ##### @@ -57,6 +69,13 @@ EmisALK4_Anthro ALK4 0 1 -1 3 kg/m2/s ALK4_emission_flux_from_a EmisALK4_BioBurn ALK4 111 -1 -1 2 kg/m2/s ALK4_emission_flux_from_biomass_burning EmisALK4_Ship ALK4 0 10 -1 2 kg/m2/s ALK4_emission_flux_from_ships +############################################################################### +##### ALK6 emissions ##### +############################################################################### +EmisALK6_Total ALK6 -1 -1 -1 3 kg/m2/s ALK6_emission_flux_from_all_sectors +EmisALK6_Anthro ALK6 0 1 -1 3 kg/m2/s ALK6_emission_flux_from_anthropogenic +EmisALK6_Ship ALK6 0 10 -1 2 kg/m2/s ALK6_emission_flux_from_ships + ############################################################################### ##### BCPI and BCPO emissions ##### ############################################################################### @@ -113,6 +132,12 @@ EmisC3H8_Anthro C3H8 0 1 -1 3 kg/m2/s C3H8_emission_flux_from_a EmisC3H8_BioBurn C3H8 111 -1 -1 2 kg/m2/s C3H8_emission_flux_from_biomass_burning EmisC3H8_Ship C3H8 0 10 -1 2 kg/m2/s C3H8_emission_flux_from_ships +############################################################################### +##### C4H6 emissions ##### +############################################################################### +EmisC4H6_Total C4H6 -1 -1 -1 3 kg/m2/s C4H6_emission_flux_from_all_sectors +EmisC4H6_BioBurn C4H6 111 -1 -1 2 kg/m2/s C4H6_emission_flux_from_biomass_burning + ############################################################################### ##### CH2Br2 emissions ##### ############################################################################### @@ -208,16 +233,35 @@ EmisEOH_Ship EOH 0 10 -1 2 kg/m2/s EOH_emission_flux_from_sh ############################################################################### EmisETNO3_Ocean ETNO3 101 -1 -1 2 kg/m2/s ETNO3_emission_flux_from_ocean +############################################################################### +##### FURA emissions ##### +############################################################################### +EmisFURA_Total FURA -1 -1 -1 3 kg/m2/s FURA_emission_flux_from_all_sectors +EmisFURA_BioBurn FURA 111 -1 -1 2 kg/m2/s FURA_emission_flux_from_biomass_burning + +############################################################################### +##### GLYX emissions ##### +############################################################################### +EmisGLYX_Total GLYX -1 -1 -1 3 kg/m2/s GLYX_emission_flux_from_all_sectors +EmisGLYX_BioBurn GLYX 111 -1 -1 2 kg/m2/s GLYX_emission_flux_from_biomass_burning + ############################################################################### ##### H2O emissions ##### ############################################################################### EmisH2O_Aircraft H2O 0 20 -1 3 kg/m2/s H2O_emission_flux_from_aircraft +############################################################################### +##### HCl emissions ##### +############################################################################### +EmisHCl_Total HCl 0 -1 -1 3 kg/m2/s HCl_emission_flux_from_all_sectors +EmisHCl_Anthro HCl 0 1 -1 3 kg/m2/s HCl_emission_flux_from_anthropogenic + ############################################################################### ##### HCOOH sources ##### ############################################################################### EmisHCOOH_Total HCOOH -1 -1 -1 3 kg/m2/s HCOOH_emission_flux_from_all_sectors EmisHCOOH_Anthro HCOOH 0 1 -1 3 kg/m2/s HCOOH_emission_flux_from_anthropogenic +EmisHCOOH_BioBurn HCOOH 111 -1 -1 2 kg/m2/s HCOOH_emission_flux_from_biomass_burning EmisHCOOH_Ship HCOOH 0 10 -1 2 kg/m2/s HCOOH_emission_flux_from_ship ############################################################################### @@ -234,6 +278,7 @@ EmisHONO_Aircraft HONO 0 20 -1 3 kg/m2/s HONO_emission_flux_from_a ##### ISOP emissions ##### ############################################################################### EmisISOP_Total ISOP -1 -1 -1 3 kg/m2/s ISOP_emission_flux_from_all_sectors +EmisISOP_BioBurn ISOP 111 -1 -1 2 kg/m2/s ISOP_emission_flux_from_biomass_burning EmisISOP_Biogenic ISOP 0 4 -1 2 kg/m2/s ISOP_emission_flux_from_biogenic_sources ############################################################################### @@ -263,9 +308,8 @@ EmisMENO3_Ocean MENO3 101 -1 -1 2 kg/m2/s MENO3_emission_flux_from_ ############################################################################### ##### MGLY emissions ##### ############################################################################### -# Zero for now, so comment out -#EmisMGLY_Total MGLY -1 -1 -1 3 kg/m2/s MGLY_emission_flux_from_all_sectors -#EmisMGLY_Anthro MGLY 0 1 -1 3 kg/m2/s MGLY_emission_flux_from_anthropogenic +EmisMGLY_Total MGLY -1 -1 -1 3 kg/m2/s MGLY_emission_flux_from_all_sectors +EmisMGLY_BioBurn MGLY 111 -1 -1 2 kg/m2/s MGLY_emission_flux_from_biomass_burning ############################################################################### ##### MOH emissions ##### @@ -273,7 +317,7 @@ EmisMENO3_Ocean MENO3 101 -1 -1 2 kg/m2/s MENO3_emission_flux_from_ EmisMOH_Total MOH -1 -1 -1 3 kg/m2/s MOH_emission_flux_from_all_sectors EmisMOH_Anthro MOH 0 1 -1 3 kg/m2/s MOH_emission_flux_from_anthropogenic EmisMOH_BioBurn MOH 111 -1 -1 2 kg/m2/s MOH_emission_flux_from_biomass_burning -EmisMOH_Biogenic MOH 108 -1 -1 2 kg/m2/s MOH_emission_flux_from_biogenic_sources +EmisMOH_Biogenic MOH 0 4 -1 2 kg/m2/s MOH_emission_flux_from_biogenic_sources EmisMOH_Ocean MOH 101 -1 -1 2 kg/m2/s MOH_emission_flux_from_ocean EmisMOH_Ship MOH 0 10 -1 2 kg/m2/s MOH_emission_flux_from_ships @@ -287,8 +331,15 @@ EmisMTPA_Biogenic MTPA 0 4 -1 2 kg/m2/s MTPA_emission_flux_from_b ############################################################################### ##### MTPO emissions ##### ############################################################################### +EmisMTPO_Total MTPO -1 -1 -1 3 kg/m2/s MTPO_emission_flux_from_all_sectors EmisMTPO_Biogenic MTPO 0 4 -1 2 kg/m2/s MTPO_emission_flux_from_biogenic_sources +############################################################################### +##### MVK emissions ##### +############################################################################### +EmisMVK_Total MVK -1 -1 -1 3 kg/m2/s MVK_emission_flux_from_all_sectors +EmisMVK_BioBurn MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_biomass_burning + ############################################################################### ##### NAP emissions ##### ############################################################################### @@ -353,6 +404,12 @@ EmispFe_Total pFe -1 -1 -1 3 kg/m2/s pFe_emission_flux_from_al EmispFe_Anthro pFe 0 1 -1 3 kg/m2/s pFe_emission_flux_from_anthropogenic EmispFe_Ship pFe 0 10 -1 2 kg/m2/s pFe_emission_flux_from_ships +############################################################################### +##### PHEN emissions ##### +############################################################################### +EmisPHEN_Total PHEN -1 -1 -1 3 kg/m2/s PHEN_emission_flux_from_all_sectors +EmisPHEN_BioBurn PHEN 111 -1 -1 2 kg/m2/s PHEN_emission_flux_from_biomass_burning + ############################################################################### ##### POG1 and POG2 emissions ##### ############################################################################### @@ -378,6 +435,7 @@ EmisPRPE_Ship PRPE 0 10 -1 2 kg/m2/s PRPE_emission_flux_from_s ############################################################################### EmisRCHO_Total RCHO -1 -1 -1 3 kg/m2/s RCHO_emission_flux_from_all_sectors EmisRCHO_Aircraft RCHO 0 20 -1 3 kg/m2/s RCHO_emission_flux_from_aircraft +EmisRCHO_BioBurn RCHO 111 -1 -1 2 kg/m2/s RCHO_emission_flux_from_biomass_burning ############################################################################### ##### SESQ emissions ##### @@ -431,6 +489,12 @@ EmisSOAP_Ship SOAP 0 10 -1 2 kg/m2/s SOAP_emission_flux_from_s ############################################################################### EmisSOAS_Biogenic SOAS 0 4 -1 2 kg/m2/s SOAS_emission_flux_from_biogenic_sources +############################################################################## +##### STYR emissions ##### +############################################################################### +EmisSTYR_Total STYR -1 -1 -1 3 kg/m2/s STYR_emission_flux_from_all_sectors +EmisSTYR_BioBurn STYR 111 -1 -1 2 kg/m2/s STYR_emission_flux_from_biomass_burning + ############################################################################### ##### TOLU emissions ##### ############################################################################### @@ -470,6 +534,7 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #============================= #InvCEDS_ALD2 ALD2 0 1 5 3 kg/m2/s ALD2_emission_flux_from_CEDS_inventory #InvCEDS_ALK4 ALK4 0 1 5 3 kg/m2/s ALK4_emission_flux_from_CEDS_inventory +#InvCEDS_ALK6 ALK6 0 1 5 3 kg/m2/s ALK6_emission_flux_from_CEDS_inventory #InvCEDS_BCPI BCPI 0 1 5 3 kg/m2/s BCPI_emission_flux_from_CEDS_inventory #InvCEDS_BCPO BCPO 0 1 5 3 kg/m2/s BCPO_emission_flux_from_CEDS_inventory #InvCEDS_BENZ BENZ 0 1 5 3 kg/m2/s BENZ_emission_flux_from_CEDS_inventory @@ -532,6 +597,11 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #InvORDONEZ_CH2IBr CH2IBr 0 1 1 2 kg/m2/s CH2IBr_emission_flux_from_ORDONEZ_IODOCARB_inventory #InvORDONEZ_CH3I CH3I 0 1 1 2 kg/m2/s CH3I_emission_flux_from_ORDONEZ_IODOCARB_inventory +#============================= +# GT_Chlorine +#============================= +#InvGTChlorine_HCl HCl 0 1 1 2 kg/m2/s HCl_emission_flux_from_GT_Chlorine_inventory + #============================= # CEDS_SHIP #============================= @@ -681,6 +751,8 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ # GFED Extension #============================= #InvGFED_ACET ACET 111 -1 -1 2 kg/m2/s ACET_emission_flux_from_GFED_extension +#InvGFED_ACR ACR 111 -1 -1 2 kg/m2/s ACR_emission_flux_from_GFED_extension +#InvGFED_ACTA ACTA 111 -1 -1 2 kg/m2/s ACTA_emission_flux_from_GFED_extension #InvGFED_ALD2 ALD2 111 -1 -1 2 kg/m2/s ALD2_emission_flux_from_GFED_extension #InvGFED_ALK4 ALK4 111 -1 -1 2 kg/m2/s ALK4_emission_flux_from_GFED_extension #InvGFED_BCPI BCPI 111 -1 -1 2 kg/m2/s BCPI_emission_flux_from_GFED_extension @@ -688,22 +760,33 @@ HcoConvectiveCloudTopHeight -1 103 -1 -1 2 level Convective_cloud_ #InvGFED_BENZ BENZ 111 -1 -1 2 kg/m2/s BENZ_emission_flux_from_GFED_extension #InvGFED_C2H6 C2H6 111 -1 -1 2 kg/m2/s C2H6_emission_flux_from_GFED_extension #InvGFED_C3H8 C3H8 111 -1 -1 2 kg/m2/s C3H8_emission_flux_from_GFED_extension +#InvGFED_C4H6 C4H6 111 -1 -1 2 kg/m2/s C4H6_emission_flux_from_GFED_extension #InvGFED_CH2O CH2O 111 -1 -1 2 kg/m2/s CH2O_emission_flux_from_GFED_extension #InvGFED_CO CO 111 -1 -1 2 kg/m2/s CO_emission_flux_from_GFED_extension #InvGFED_EOH EOH 111 -1 -1 2 kg/m2/s EOH_emission_flux_from_GFED_extension +#InvGFED_FURA FURA 111 -1 -1 2 kg/m2/s FURA_emission_flux_from_GFED_extension +#InvGFED_GLYX GLYX 111 -1 -1 2 kg/m2/s GLYX_emission_flux_from_GFED_extension +#InvGFED_HCOOH HCOOH 111 -1 -1 2 kg/m2/s HCOOH_emission_flux_from_GFED_extension +#InvGFED_ISOP ISOP 111 -1 -1 2 kg/m2/s ISOP_emission_flux_from_GFED_extension #InvGFED_MEK MEK 111 -1 -1 2 kg/m2/s MEK_emission_flux_from_GFED_extension +#InvGFED_MVK MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_GFED_extension +#InvGFED_MGLY MGLY 111 -1 -1 2 kg/m2/s MGLY_emission_flux_from_GFED_extension #InvGFED_MOH MOH 111 -1 -1 2 kg/m2/s MOH_emission_flux_from_GFED_extension #InvGFED_MTPA MTP 111 -1 -1 2 kg/m2/s MTPA_emission_flux_from_GFED_extension +#InvGFED_MVK MVK 111 -1 -1 2 kg/m2/s MVK_emission_flux_from_GFED_extension #InvGFED_NAP NAP 111 -1 -1 2 kg/m2/s NAP_emission_flux_from_GFED_extension #InvGFED_NH3 NH3 111 -1 -1 2 kg/m2/s NH3_emission_flux_from_GFED_extension #InvGFED_NO NO 111 -1 -1 2 kg/m2/s NO_emission_flux_from_GFED_extension #InvGFED_OCPI OCPI 111 -1 -1 2 kg/m2/s OCPI_emission_flux_from_GFED_extension #InvGFED_OCPO OCPO 111 -1 -1 2 kg/m2/s OCPO_emission_flux_from_GFED_extension +#InvGFED_PHEN PHEN 111 -1 -1 2 kg/m2/s PHEN_emission_flux_from_GFED_extension #InvGFED_POG1 POG1 111 -1 -1 2 kg/m2/s POG1_emission_flux_from_GFED_extension #InvGFED_POG2 POG2 111 -1 -1 2 kg/m2/s POG2_emission_flux_from_GFED_extension #InvGFED_PRPE PRPE 111 -1 -1 2 kg/m2/s PRPE_emission_flux_from_GFED_extension +#InvGFED_RCHO RCHO 111 -1 -1 2 kg/m2/s RCHO_emission_flux_from_GFED_extension #InvGFED_SO2 SO2 111 -1 -1 2 kg/m2/s SO2_emission_flux_from_GFED_extension #InvGFED_SOAP SOAP 111 -1 -1 2 kg/m2/s SOAP_emission_flux_from_GFED_extension +#InvGFED_STYR STYR 111 -1 -1 2 kg/m2/s STYR_emission_flux_from_GFED_extension #InvGFED_TOLU TOLU 111 -1 -1 2 kg/m2/s TOLU_emission_flux_from_GFED_extension #InvGFED_XYLE ACET 111 -1 -1 2 kg/m2/s XYLE_emission_flux_from_GFED_extension diff --git a/run/WRF/fullchem/geoschem_config.yml b/run/WRF/fullchem/geoschem_config.yml index ed5b8c096..e59444f91 100644 --- a/run/WRF/fullchem/geoschem_config.yml +++ b/run/WRF/fullchem/geoschem_config.yml @@ -66,8 +66,20 @@ operations: use_non_local_pbl: true photolysis: - input_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/FAST_JX/v2021-10/ - num_levs_with_cloud: 20 + activate: true + cloud-j: + num_levs_with_cloud: 20 + cloud_scheme_flag: 3 + opt_depth_increase_factor: 1.050 + min_top_inserted_cloud_OD: 0.005 + cloud_overlap_correlation: 0.33 + num_cloud_overlap_blocks: 6 + sphere_correction: 1 + num_wavelength_bins: 18 + use_H2O_UV_absorption: true + input_directories: + fastjx_input_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/FAST_JX/v2024-05/ + cloudj_input_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/CLOUD_J/v2024-09/ overhead_O3: use_online_O3_from_model: true use_column_O3_from_met: true @@ -93,18 +105,32 @@ operations: transported_species: - ACET - ACTA + - ACR - AERI - ALD2 - ALK4 + - ALK4N2 + - ALK4P + - ALK6 - AONITA + - APAN + - APINP + - APINN + - AROMCHO - AROMP4 - AROMP5 + - AROMPN - ATOOH - BALD - BCPI - BCPO - BENZ - BENZP + - BPINO + - BPINN + - BPINP + - BPINOOH + - BPINON - Br - Br2 - BrCl @@ -113,12 +139,17 @@ operations: - BrO - BrSALA - BrSALC + - BUTDI + - BUTN - BZCO3H - BZPAN + - C96O2H + - C96N - C2H2 - C2H4 - C2H6 - C3H8 + - C4H6 - CCl4 - CFC11 - CFC113 @@ -153,14 +184,17 @@ operations: - DST2 - DST3 - DST4 + - EBZ - EOH - ETHLN - ETHN - ETHP - ETNO3 - ETP + - FURA - GLYC - GLYX + - HACTA - H1211 - H1301 - H2402 @@ -227,7 +261,15 @@ operations: - ISOP - ITCN - ITHN + - LIMAL + - LIMKB + - LIMKET + - LIMN + - LIMNB - LIMO + - LIMO2H + - LIMO3H + - LIMPAN - LVOC - LVOCOA - MACR @@ -240,6 +282,7 @@ operations: - MCRHP - MCT - MEK + - MEKPN - MENO3 - MGLY - MOH @@ -259,6 +302,7 @@ operations: - MVKHP - MVKN - MVKPC + - MYRCO - N2O - N2O5 - NH3 @@ -278,7 +322,13 @@ operations: - OIO - PAN - pFe + - PHAN - PHEN + - PIN + - PINAL + - PINONIC + - PINO3H + - PINPAN - PIP - PP - PPN @@ -288,13 +338,17 @@ operations: - PYAC - R4N2 - R4P + - R7N2 + - R7P - RA3P - RB3P - RCHO + - RCOOH - RIPA - RIPB - RIPC - RIPD + - RNO3 - RP - SALA - SALAAL @@ -307,8 +361,11 @@ operations: - SO4s - SOAGX - SOAIE - - SOAS - SOAP + - SOAS + - STYR + - TLFUONE + - TMB - TOLU - XYLE @@ -320,6 +377,9 @@ operations: #============================================================================ aerosols: + optics: + input_dir: /n/holyscratch01/external_repos/GEOS-CHEM/gcgrid/data/ExtData/CHEM_INPUTS/Aerosol_Optics/v2024-08/ + carbon: activate: true brown_carbon: false diff --git a/run/shared/setupConfigFiles.sh b/run/shared/setupConfigFiles.sh index 1db10b6f1..8b21c1bfa 100755 --- a/run/shared/setupConfigFiles.sh +++ b/run/shared/setupConfigFiles.sh @@ -156,8 +156,8 @@ function set_common_settings() { [[ ${sim_extra_option} =~ "complexSOA" ]] || \ [[ "x${sim_extra_option}" == "xAPM" ]]; then - # Add complex SOA species ASOA* and ASOG* following AROMP5 - prev_line=' - AROMP5' + # Add complex SOA species ASOA* and ASOG* following AROMPN + prev_line=' - AROMPN' new_line='\ - ASOA1\ - ASOA2\ - ASOA3\ diff --git a/run/shared/species_database.yml b/run/shared/species_database.yml index 7788822fb..0964c8234 100644 --- a/run/shared/species_database.yml +++ b/run/shared/species_database.yml @@ -18,6 +18,17 @@ ACET: Is_Gas: true Is_Photolysis: true MW_g: 58.09 +ACR: + DD_F0: 1.0 + DD_Hstar: 7.3 + Formula: C3H4O + FullName: Acrolein + Henry_CR: 5100.0 + Henry_K0: 7.3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + MW_g: 56.06 ACTA: DD_F0: 1.0 DD_Hstar: 4.1e+3 @@ -31,6 +42,16 @@ ACTA: Is_WetDep: true MW_g: 60.06 WD_RetFactor: 2.0e-2 +ACO3: + Formula: C3H3O3 + FullName: Peroxyacetyl radical for APAN + Is_Gas: true + MW_g: 87.054 +ACRO2: + Formula: C3H5O4 + FullName: Peroxy radical from ACR + Is_Gas: true + MW_g: 105.07 AERI: DD_DvzAerSnow: 0.03 DD_DvzMinVal: [0.01, 0.01] @@ -47,6 +68,19 @@ AERI: WD_KcScaleFac: [1.0, 0.5, 1.0] WD_RainoutEff: [1.0, 0.0, 1.0] WD_RainoutEff_Luo: [0.4, 0.0, 1.0] +APAN: + DD_F0: 1.0 + DD_Hstar: 3.6 + Formula: C3H3NO5 + FullName: Peroxyacryloyl nitrate + Henry_CR: 5700.0 + Henry_K0: 2.94 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 133.06 + WD_RetFactor: 2.0e-2 DST1_PROP: &DST1properties DD_DustDryDep: true DD_F0: 0.0 @@ -132,10 +166,52 @@ ALD2: MW_g: 44.06 WD_RetFactor: 2.0e-2 ALK4: - FullName: Lumped >= C4 Alkanes + FullName: Lumped C4+C5 Alkanes Is_Advected: true Is_Gas: true MW_g: 58.12 +ALK4N1: + Formula: C4H8NO5 + FullName: Peroxy radical from ALK4N2 + Is_Gas: true + MW_g: 150.13 +ALK4N2: + DD_F0: 1.0 + DD_Hstar: 1.7e+4 + Formula: RO2NO + FullName: Lumped alkyl nitrate from ALK4 + Henry_CR: 5800.0 + Henry_K0: 1.0 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 119.10 + WD_RetFactor: 2.0e-2 +ALK4O2: + Formula: C4H9O2 + FullName: Peroxy radical from ALK4 + Is_Gas: true + MW_g: 89.13 +ALK4P: + DD_F0: 1.0 + DD_Hstar: 2.94e+2 + Formula: CH3CH2CH2CH2OOH + FullName: Peroxide from ALK4O2 + Henry_CR: 5200.0 + Henry_K0: 2.94e+2 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 90.14 + WD_RetFactor: 2.0e-2 +ALK6: + FullName: Lumped >= C6 Alkanes + Is_Advected: true + Formula: C7H16 + Is_Gas: true + MW_g: 100.20 aoa_PROP: &aoaproperties Is_Advected: true Is_Gas: true @@ -182,6 +258,38 @@ AONITA: WD_KcScaleFac: [1.0, 0.5, 1.0] WD_RainoutEff: [0.8, 0.0, 0.8] WD_RetFactor: 2.0e-2 +APINP: + DD_F0: 1.0 + DD_Hstar: 1.0e+5 + Formula: C10H18O3 + FullName: Hydroperoxide from APIN + Henry_CR: 6039.0 + Henry_K0: 1.0e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +APINN: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H17NO4 + FullName: 1st gen organic nitrate from APIN + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 +APINO2: + Formula: C10H17O3 + FullName: Peroxy radical from APIN + Is_Gas: true + MW_g: 185.27 AROMP4: DD_F0: 1.0 DD_Hstar: 4.1e+5 @@ -213,6 +321,42 @@ AROMRO2: FullName: hydroxy-peroxy radical from aromatics Is_Gas: true MW_g: 127.00 +ZRO2: + Formula: C7H9O5 + FullName: RO2 for making lumped aromatic nitrate + Is_Gas: true + MW_g: 173.16 +AROMCHO: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C5H6O4 + FullName: ACCOMECHO from MCM + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 130.10 + Henry_CR: 7500.0 + Henry_K0: 2.0e+6 + WD_RetFactor: 2.0e-2 +AROMCO3: + Formula: C5H5O6 + FullName: Lumped aromatic peroxyacetyl radical + Is_Gas: true + MW_g: 161.09 +AROMPN: + DD_F0: 1.0 + DD_Hstar: 3.6 + Formula: C5H5NO8 + FullName: Lumped PN from aromatics + Henry_CR: 5700.0 + Henry_K0: 2.94 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 207.1 + WD_RetFactor: 2.0e-2 AsF1: << : *DST1properties Formula: As @@ -414,6 +558,83 @@ BENZP: Is_WetDep: true MW_g: 110.11 WD_RetFactor: 2.0e-2 +BPINN: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H17NO4 + FullName: Saturated 1st gen BPIN organic nitrate + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 +BPINO: + DD_F0: 1.0 + DD_Hstar: 1.0e+3 + Formula: C9H14O + FullName: Ketone from BPIN + Henry_CR: 6039.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +BPINO2: + Formula: C10H17O3 + FullName: Peroxy radical from BPIN + Is_Gas: true + MW_g: 185.27 +BPINOO2: + Formula: C10H17O3 + FullName: 2nd-gen peroxy radical from BPIN + Is_Gas: true + MW_g: 185.27 +BPINON: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C9H13NO4 + FullName: Saturated 2nd gen BPIN organic nitrate + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 +BPINOOH: + DD_F0: 1.0 + DD_Hstar: 1.0e+5 + Formula: C9H14O3 + FullName: 2nd-gen peroxide from BPIN + Henry_CR: 6039.0 + Henry_K0: 1.0e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +BPINP: + DD_F0: 1.0 + DD_Hstar: 1.0e+5 + Formula: C10H18O3 + FullName: Peroxide from BPIN + Henry_CR: 6039.0 + Henry_K0: 1.0e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 Br: Formula: Br FullName: Atomic bromine @@ -478,6 +699,25 @@ BRO2: FullName: Peroxy radical from BENZ oxidation Is_Gas: true MW_g: 159.13 +BUTO2: + Formula: C4H7O3 + FullName: peroxy radical from C4H6 + Is_Gas: true + MW_g: 103.097 +BUTN: + DD_F0: 1.0 + DD_Hstar: 5.0e+4 + Formula: C4H7NO4 + FullName: C4H6 alkyl nitrate + Henry_CR: 0.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: false + Is_WetDep: true + MW_g: 133.10 + WD_RetFactor: 2.0e-2 SALA_PROP: &SALAproperties DD_AeroDryDep: true DD_F0: 0.0 @@ -589,6 +829,14 @@ C3H8: Is_Advected: true Is_Gas: true MW_g: 44.11 +C4H6: + Formula: C4H6 + FullName: 1,3-butadiene + Henry_CR: 4500.0 + Henry_K0: 1.40e-2 + Is_Advected: true + Is_Gas: true + MW_g: 54.09 C4HVP1: Formula: C4H7O3 FullName: C4 hydroxy-vinyl peroxy radicals from HPALDS @@ -599,6 +847,38 @@ C4HVP2: FullName: C4 hydroxy-vinyl peroxy radicals from HPALDS Is_Gas: true MW_g: 103.11 +C96N: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C9H15NO4 + FullName: Saturated 2nd gen monoterpene organic nitrate + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 +C96O2: + Formula: C10H17O3 + FullName: 2nd-gen peroxy radical from APIN + Is_Gas: true + MW_g: 185.27 +C96O2H: + DD_F0: 1.0 + DD_Hstar: 3.14e+5 + Formula: C9H16O3 + FullName: Peroxide from APIN 2nd gen + Henry_CR: 6039.0 + Henry_K0: 3.14e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 CaF1: << : *DST1properties Formula: Ca @@ -858,7 +1138,6 @@ CHCl3: FullName: Chloroform Is_Advected: true Is_Gas: true - Is_Photolysis: true MW_g: 119.35 Cl: Formula: Cl @@ -1193,6 +1472,12 @@ e90_s: FullName: Constant burden Southern Hemisphere 90 day tracer Src_Horiz: lat_zone Src_Lats: [ -91.0, -40.0 ] +EBZ: + Formula: C8H10 + FullName: Ethylbenzene + Is_Advected: true + Is_Gas: true + MW_g: 106.167 EOH: DD_F0: 0.0 DD_Hstar: 1.9e+2 @@ -1325,6 +1610,11 @@ FURA: Is_WetDep: true MW_g: 68.07 WD_RetFactor: 2.0e-2 +GCO3: + Formula: HOCH2CO3 + FullName: Peroxyacetyl radical for PHAN + Is_Gas: true + MW_g: 91.0428 GLYC: DD_F0: 1.0 DD_Hstar: 4.1e+4 @@ -1423,6 +1713,19 @@ HAC: Is_WetDep: true MW_g: 74.08 WD_RetFactor: 2.0e-2 +HACTA: + DD_F0: 1.0 + DD_Hstar: 2.83e+4 + Formula: HOCH2CO2H + FullName: Hydroxyacetic/glycolic acid + Henry_CR: 4000.0 + Henry_K0: 2.83e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 76.0514 + WD_RetFactor: 2.0e-2 HBr: DD_F0: 0.0 DD_Hstar: 7.1e+15 @@ -1446,7 +1749,6 @@ HC5A: Is_Advected: true Is_DryDep: true Is_Gas: true - Is_Photolysis: true Is_WetDep: true MW_g: 100.13 WD_RetFactor: 2.0e-2 @@ -2055,6 +2357,7 @@ HO2: Formula: HO2 FullName: Hydroperoxyl radical Is_Gas: true + Is_Photolysis: true MW_g: 33.01 HOBr: DD_F0: 0.0 @@ -2760,18 +3063,93 @@ LBRO2H: FullName: Dummy species to track oxidation of BRO2 by HO2 Is_Gas: true MW_g: 159.13 + KPP_AbsTol: 1.0e+25 LBRO2N: FullName: Dummy species to track oxidation of BRO2 by NO Is_Gas: true MW_g: 159.13 + KPP_AbsTol: 1.0e+25 LCH4: FullName: Dummy species to track loss rate of CH4 Is_Gas: true MW_g: 16.04 + KPP_AbsTol: 1.0e+25 LCO: FullName: Dummy species to track loss rate of CO Is_Gas: true MW_g: 28.01 + KPP_AbsTol: 1.0e+25 +LIMAL: + DD_F0: 1.0 + DD_Hstar: 1.0e+3 + Formula: C10H16O2 + FullName: Aldehyde from limonene + Henry_CR: 6039.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +LIMKB: + DD_F0: 1.0 + DD_Hstar: 1.0e+3 + Formula: C10H16O3 + FullName: 2nd gen ketone from limonene + Henry_CR: 6039.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +LIMKET: + DD_F0: 1.0 + DD_Hstar: 1.0e+3 + Formula: C10H16O2 + FullName: Ketone from limonene + Henry_CR: 6039.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +LIMKO2: + Formula: C10H17O3 + FullName: 2nd-gen peroxy radical from LIMO + Is_Gas: true + MW_g: 185.27 +LIMN: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H17NO4 + FullName: Saturated 1st gen limonene organic nitrate + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 +LIMNB: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H15NO4 + FullName: Saturated 1st gen LIMO organic nitrate + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 LIMO: DD_F0: 0.0 DD_Hstar: 7.0e-2 @@ -2784,24 +3162,73 @@ LIMO: Is_Gas: true Is_WetDep: true MW_g: 136.26 - WD_RetFactor: 2.0e-2 + WD_RetFactor: 2.0e-2 LIMO2: Formula: C10H17O3 FullName: Peroxy radical from LIMO Is_Gas: true MW_g: 185.27 +LIMO2H: + DD_F0: 1.0 + DD_Hstar: 3.14e+5 + Formula: C10H18O3 + FullName: Acid from LIMO + Henry_CR: 6039.0 + Henry_K0: 3.14e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +LIMO3: + Formula: C10H17O3 + FullName: Acylperoxy radical from LIMO + Is_Gas: true + MW_g: 185.27 +LIMO3H: + DD_F0: 1.0 + DD_Hstar: 1.0e+5 + Formula: C10H18O4 + FullName: Peracid from LIMO + Henry_CR: 6039.0 + Henry_K0: 1.0e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +LIMPAN: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H17NO4 + FullName: PAN from LIMO + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 LISOPNO3: FullName: Dummy species to track oxidation of ISOP by NO3 Is_Gas: true MW_g: 68.13 + KPP_AbsTol: 1.0e+25 LISOPOH: FullName: Dummy species to track oxidation of ISOP by OH Is_Gas: true MW_g: 68.13 + KPP_AbsTol: 1.0e+25 LNRO2H: FullName: Dummy species to track oxidation of NRO2 by HO2 Is_Gas: true MW_g: 159.17 + KPP_AbsTol: 1.0e+25 LNRO2N: FullName: Dummy species to track oxidation of NRO2 by NO Is_Gas: true @@ -2810,14 +3237,17 @@ LOx: FullName: Dummy species to track loss rate of Ox Is_Gas: true MW_g: 48.00 + KPP_AbsTol: 1.0e+25 LTRO2H: FullName: Dummy species to track oxidation of TRO2 by HO2 Is_Gas: true MW_g: 173.16 + KPP_AbsTol: 1.0e+25 LTRO2N: FullName: Dummy species to track oxidation of TRO2 by NO Is_Gas: true MW_g: 173.16 + KPP_AbsTol: 1.0e+25 LVOC: DD_F0: 1.0 DD_Hstar: 1.0e+8 @@ -2850,10 +3280,12 @@ LXRO2H: FullName: Dummy species to track oxidation of XRO2 by HO2 Is_Gas: true MW_g: 187.19 + KPP_AbsTol: 1.0e+25 LXRO2N: FullName: Dummy species to track oxidation of XRO2 by NO Is_Gas: true MW_g: 187.19 + KPP_AbsTol: 1.0e+25 MACR: DD_F0: 1.0 DD_Hstar: 6.5 @@ -2996,6 +3428,10 @@ MCT: Is_WetDep: true MW_g: 124.0 WD_RetFactor: 2.0e-2 +MEKCO3: + Formula: C3H5O4 + Is_Gas: true + MW_g: 105.07 MEK: Formula: RC(O)R FullName: Methyl Ethyl Ketone @@ -3007,6 +3443,19 @@ MEK: Is_WetDep: true MW_g: 72.11 WD_RetFactor: 2.0e-2 +MEKPN: + DD_F0: 1.0 + DD_Hstar: 3.6 + Formula: C3H5NO6 + FullName: MEK peroxyacetyl nitrate + Henry_CR: 5700.0 + Henry_K0: 2.94 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 151.07 + WD_RetFactor: 2.0e-2 MENO3: DD_F0: 0.1 DD_Hstar: 2.0 @@ -3179,7 +3628,6 @@ MPAN: Is_Advected: true Is_DryDep: true Is_Gas: true - Is_Photolysis: true Is_WetDep: true MW_g: 147.10 WD_RetFactor: 2.0e-2 @@ -3336,6 +3784,19 @@ MVKPC: Is_WetDep: true MW_g: 118.10 WD_RetFactor: 2.0e-2 +MYRCO: + DD_F0: 1.0 + DD_Hstar: 1.0e+3 + Formula: C10H18O3 + FullName: Aldehyde or ketone from myrcene + Henry_CR: 6039.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 N: Background_VV: 4.0e-20 Formula: N @@ -3818,6 +4279,7 @@ PCO: FullName: Dummy species to track production rate of CO Is_Gas: true MW_g: 28.01 + KPP_AbsTol: 1.0e+25 pFe: DD_F0: 0.0 DD_Hstar: 0.0 @@ -3836,10 +4298,24 @@ PH2O2: FullName: Dummy species to track production rate of H2O2 Is_Gas: true MW_g: 34.02 + KPP_AbsTol: 1.0e+25 PH2SO4: FullName: SO4 from gas-phase chemistry Is_Gas: true MW_g: 96.06 +PHAN: + DD_F0: 1.0 + DD_Hstar: 3.6 + Formula: C2H3NO6 + FullName: Peroxyhydroxyacetic nitric anhydride + Henry_CR: 5700.0 + Henry_K0: 2.94 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 137.0483 + WD_RetFactor: 2.0e-2 PHEN: DD_F0: 1.0 DD_Hstar: 2.8e+3 @@ -3853,11 +4329,87 @@ PHEN: Is_WetDep: true MW_g: 94.11 WD_RetFactor: 2.0e-2 +PIN: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H17NO4 + FullName: Saturated 1st gen monoterpene organic nitrate + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 +PINAL: + DD_F0: 1.0 + DD_Hstar: 1.0e+3 + Formula: C10H16O2 + FullName: Pinonaldehyde + Henry_CR: 6039.0 + Henry_K0: 1.0e+3 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +PINO3: + Formula: C10H17O3 + FullName: Acylperoxy radical from APIN + Is_Gas: true + MW_g: 185.27 +PINO3H: + DD_F0: 1.0 + DD_Hstar: 1.0e+5 + Formula: C10H18O4 + FullName: Pinonic peracid + Henry_CR: 6039.0 + Henry_K0: 1.0e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +PINONIC: + DD_F0: 1.0 + DD_Hstar: 3.14e+5 + Formula: C10H18O3 + FullName: Pinonic acid + Henry_CR: 6039.0 + Henry_K0: 3.14e+5 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_Photolysis: true + Is_WetDep: true + MW_g: 186.28 + WD_RetFactor: 2.0e-2 +PINPAN: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C10H17NO4 + FullName: PAN from pinonaldehyde + Henry_CR: 9200.0 + Henry_K0: 1.7e+4 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 215.28 + WD_RetFactor: 2.0e-2 PIO2: Formula: C10H17O3 FullName: Peroxy radical from MTPA Is_Gas: true MW_g: 185.27 + FullName: Peroxy radical from MTPA + Is_Gas: true + MW_g: 185.27 PIP: Formula: C10H18O3 FullName: Peroxide from MTPA @@ -4136,6 +4688,7 @@ POx: FullName: Dummy species to track production rate of Ox Is_Gas: true MW_g: 48.00 + KPP_AbsTol: 1.0e+25 PP: DD_F0: 1.0 DD_Hstar: 2.94e+2 @@ -4160,6 +4713,7 @@ PPN: Is_Advected: true Is_DryDep: true Is_Gas: true + Is_Photolysis: true Is_WetDep: true MW_g: 135.08 WD_RetFactor: 2.0e-2 @@ -4210,6 +4764,7 @@ PSO4: FullName: Dummy species to track production of SO4 Is_Gas: true MW_g: 96.06 + KPP_AbsTol: 1.0e+25 PSO4AQ: FullName: SO4 from cloud chemistry Is_Gas: true @@ -4233,6 +4788,19 @@ R4N1: FullName: Peroxy radical from R4N2 Is_Gas: true MW_g: 150.13 +RNO3: + DD_F0: 1.0 + DD_Hstar: 1.7e+4 + Formula: RO2NO + FullName: Lumped alkyl nitrate + Henry_CR: 5800.0 + Henry_K0: 1.0 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 203.15 + WD_RetFactor: 2.0e-2 R4N2: DD_F0: 1.0 DD_Hstar: 1.7e+4 @@ -4247,9 +4815,27 @@ R4N2: Is_WetDep: true MW_g: 119.10 WD_RetFactor: 2.0e-2 +R7N1: + Formula: C7H15NO5 + FullName: Peroxy radical from R7N2 + Is_Gas: true + MW_g: 161.2 +R7N2: + DD_F0: 1.0 + DD_Hstar: 1.7e+4 + Formula: RO2NO + FullName: C7 Lumped alkyl nitrate + Henry_CR: 6700.0 + Henry_K0: 0.77 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 161.2 + WD_RetFactor: 2.0e-2 R4O2: Formula: C4H9O2 - FullName: Peroxy radical from ALK4 + FullName: Peroxy radical from isoprene and MTPA alkyl generation Is_Gas: true MW_g: 89.13 R4P: @@ -4266,6 +4852,24 @@ R4P: Is_WetDep: true MW_g: 90.14 WD_RetFactor: 2.0e-2 +R7O2: + Formula: C7H15O2 + FullName: Peroxy radical from ALK6 + Is_Gas: true + MW_g: 131.19 +R7P: + DD_F0: 1.0 + DD_Hstar: 2.94e+2 + Formula: C7H16O2 + FullName: Peroxide from R7O2 + Henry_CR: 5200.0 + Henry_K0: 2.94e+2 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 132.20 + WD_RetFactor: 2.0e-2 RA3P: DD_F0: 1.0 DD_Hstar: 2.94e+2 @@ -4310,10 +4914,18 @@ RCO3: Is_Gas: true MW_g: 89.08 RCOOH: + DD_F0: 1.0 + DD_Hstar: 1.52e+3 Formula: C2H5C(O)OH FullName: '> C2 organic acids' + Henry_CR: 6800.0 + Henry_K0: 1.52e+3 + Is_Advected: true + Is_DryDep: true + Is_WetDep: true Is_Gas: true MW_g: 74.09 + WD_RetFactor: 2.0e-2 RIPA: DD_F0: 1.0 DD_Hstar: 1.7e+6 @@ -4370,6 +4982,19 @@ RIPD: Is_WetDep: true MW_g: 118.15 WD_RetFactor: 2.0e-2 +RNO3: + DD_F0: 1.0 + DD_Hstar: 1.7e+4 + Formula: RO2NO + FullName: Lumped aromatic nitrate + Henry_CR: 5800.0 + Henry_K0: 1.0 + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 203.15 + WD_RetFactor: 2.0e-2 Rn222: Formula: Rn222 FullName: Radon-222 isotope @@ -4631,6 +5256,12 @@ stOX: Src_Horiz: all Src_Mode: model_field Src_Vert: stratosphere +STYR: + Formula: C8H8 + FullName: Styrene + Is_Advected: true + Is_Gas: true + MW_g: 104.1491 TiF1: << : *DST1properties Formula: Ti @@ -4642,6 +5273,28 @@ TiF2: Formula: Ti Fullname: Titanium on dust, Reff = 1.4 microns MW_g: 47.87 +TLFUO2: + Formula: C5H7O5 + Is_Gas: true + MW_g: 147.1 +TLFUONE: + DD_F0: 1.0 + DD_Hstar: 2.0e+6 + Formula: C5H6O2 + FullName: Aromatic furanones + Is_Advected: true + Is_DryDep: true + Is_Gas: true + Is_WetDep: true + MW_g: 98.10 + Henry_CR: 7500.0 + Henry_K0: 2.0e+6 + WD_RetFactor: 2.0e-2 +TMB: + Formula: C8H10 + FullName: Trimethylbenzenes + Is_Gas: true + MW_g: 106.167 TOLU: Formula: C7H8 FullName: Toluene diff --git a/run/shared/species_database_hg.yml b/run/shared/species_database_hg.yml index 3245b80b2..c69094c72 100644 --- a/run/shared/species_database_hg.yml +++ b/run/shared/species_database_hg.yml @@ -251,19 +251,24 @@ PHg2: FullName: Gross production of gaseous oxidized Hg Is_Gas: true MW_g: 200.59 # Use mol wt of atomic Hg + KPP_AbsTol: 1.0e+25 PHg0: FullName: Gross production of Hg2 Is_Gas: true MW_g: 200.59 # Use mol wt of atomic Hg + KPP_AbsTol: 1.0e+25 PHg2Br: FullName: Gaseous oxidized Hg production from Br Is_Gas: true MW_g: 200.59 # Use mol wt of atomic Hg + KPP_AbsTol: 1.0e+25 PHg2OH: FullName: Gaseous oxidized Hg production from OH Is_Gas: true MW_g: 200.59 # Use mol wt of atomic Hg + KPP_AbsTol: 1.0e+25 PHg2Cl: FullName: Gaseous oxidized Hg production from Cl Is_Gas: true MW_g: 200.59 # Use mol wt of atomic Hg + KPP_AbsTol: 1.0e25