diff --git a/src/constants.F90 b/src/constants.F90 index 0e667c32a3..efa733ba1f 100644 --- a/src/constants.F90 +++ b/src/constants.F90 @@ -35,9 +35,6 @@ module constants ! NOTE: This is the only section of the constants module that should ever be ! adjusted. Modifying constants in other sections may cause the code to fail. - ! Monoatomic ideal-gas scattering treatment threshold - real(8), parameter :: FREE_GAS_THRESHOLD = 400.0_8 - ! Significance level for confidence intervals real(8), parameter :: CONFIDENCE_LEVEL = 0.95_8 @@ -63,11 +60,6 @@ module constants integer, parameter :: MAX_WORD_LEN = 150 integer, parameter :: MAX_FILE_LEN = 255 - ! Maximum number of external source spatial resamples to encounter before an - ! error is thrown. - integer, parameter :: EXTSRC_REJECT_THRESHOLD = 10000 - real(8), parameter :: EXTSRC_REJECT_FRACTION = 0.05 - ! ============================================================================ ! PHYSICAL CONSTANTS @@ -113,14 +105,6 @@ module constants integer(C_INT), bind(C, name="BC_REFLECT") :: BC_REFLECT integer(C_INT), bind(C, name="BC_PERIODIC") :: BC_PERIODIC - ! Logical operators for cell definitions - integer, parameter :: & - OP_LEFT_PAREN = huge(0), & ! Left parentheses - OP_RIGHT_PAREN = huge(0) - 1, & ! Right parentheses - OP_COMPLEMENT = huge(0) - 2, & ! Complement operator (~) - OP_INTERSECTION = huge(0) - 3, & ! Intersection operator - OP_UNION = huge(0) - 4 ! Union operator (^) - ! Cell fill types integer, parameter :: & FILL_MATERIAL = 1, & ! Cell with a specified material @@ -133,15 +117,6 @@ module constants ! Void material integer, parameter :: MATERIAL_VOID = -1 - ! Flag to say that the outside of a lattice is not defined - integer, parameter :: NO_OUTER_UNIVERSE = -1 - - ! Maximum number of lost particles - integer, parameter :: MAX_LOST_PARTICLES = 10 - - ! Maximum number of lost particles, relative to the total number of particles - real(8), parameter :: REL_MAX_LOST_PARTICLES = 1e-6_8 - ! ============================================================================ ! CROSS SECTION RELATED CONSTANTS @@ -171,17 +146,6 @@ module constants ! Number of mu bins to use when converting Legendres to tabular type integer, parameter :: DEFAULT_NMU = 33 - ! Secondary energy mode for S(a,b) inelastic scattering - integer, parameter :: & - SAB_SECONDARY_EQUAL = 0, & ! Equally-likely outgoing energy bins - SAB_SECONDARY_SKEWED = 1, & ! Skewed outgoing energy bins - SAB_SECONDARY_CONT = 2 ! Continuous, linear-linear interpolation - - ! Elastic mode for S(a,b) elastic scattering - integer, parameter :: & - SAB_ELASTIC_DISCRETE = 3, & ! Sample from discrete cosines - SAB_ELASTIC_EXACT = 4 ! Exact treatment for coherent elastic - ! Reaction types integer, parameter :: & TOTAL_XS = 1, ELASTIC = 2, N_NONELASTIC = 3, N_LEVEL = 4, MISC = 5, & @@ -241,15 +205,6 @@ module constants LIBRARY_MULTIGROUP = 4, & LIBRARY_WMP = 5 - ! Probability table parameters - integer, parameter :: & - URR_CUM_PROB = 1, & - URR_TOTAL = 2, & - URR_ELASTIC = 3, & - URR_FISSION = 4, & - URR_N_GAMMA = 5, & - URR_HEATING = 6 - ! Maximum number of partial fission reactions integer, parameter :: PARTIAL_FISSION_MAX = 4 @@ -258,13 +213,6 @@ module constants TEMPERATURE_NEAREST = 1, & TEMPERATURE_INTERPOLATION = 2 - ! Resonance elastic scattering methods - integer, parameter :: & - RES_SCAT_ARES = 1, & - RES_SCAT_DBRC = 2, & - RES_SCAT_WCM = 3, & - RES_SCAT_CXS = 4 - ! ============================================================================ ! TALLY-RELATED CONSTANTS diff --git a/src/settings.F90 b/src/settings.F90 index 16f35341c7..c26e9666be 100644 --- a/src/settings.F90 +++ b/src/settings.F90 @@ -13,9 +13,6 @@ module settings ! ============================================================================ ! CONTINUOUS-ENERGY CROSS SECTION RELATED VARIABLES - ! Unreoslved resonance probablity tables - logical(C_BOOL), bind(C) :: urr_ptables_on - ! Default temperature and method for choosing temperatures integer(C_INT), bind(C) :: temperature_method logical(C_BOOL), bind(C) :: temperature_multipole @@ -60,18 +57,12 @@ module settings logical(C_BOOL), bind(C) :: trigger_on ! flag for turning triggers on/off logical(C_BOOL), bind(C) :: entropy_on - integer(C_INT32_T), bind(C) :: index_entropy_mesh - - logical(C_BOOL), bind(C, name='ufs_on') :: ufs - integer(C_INT32_T), bind(C) :: index_ufs_mesh ! Write source at end of simulation ! Variance reduction settins logical(C_BOOL), bind(C) :: survival_biasing - real(C_DOUBLE), bind(C) :: weight_cutoff real(C_DOUBLE), bind(C) :: energy_cutoff(4) - real(C_DOUBLE), bind(C) :: weight_survive ! Mode to run in (fixed source, eigenvalue, plotting, etc) integer(C_INT), bind(C) :: run_mode @@ -96,9 +87,6 @@ module settings ! Particle tracks logical(C_BOOL), bind(C) :: write_all_tracks - ! Whether create fission neutrons or not. Only applied for MODE_FIXEDSOURCE - logical(C_BOOL), bind(C) :: create_fission_neutrons - character(MAX_FILE_LEN) :: path_input ! Path to input file character(MAX_FILE_LEN) :: path_cross_sections = '' ! Path to cross_sections.xml character(MAX_FILE_LEN) :: path_state_point ! Path to binary state point @@ -109,12 +97,6 @@ module settings ! Various output options logical(C_BOOL), bind(C) :: output_summary - ! Resonance scattering settings - logical(C_BOOL), bind(C) :: res_scat_on ! is resonance scattering treated? - integer(C_INT), bind(C) :: res_scat_method ! resonance scattering method - real(C_DOUBLE), bind(C) :: res_scat_energy_min - real(C_DOUBLE), bind(C) :: res_scat_energy_max - ! No reduction at end of batch logical(C_BOOL), bind(C) :: reduce_tallies diff --git a/src/string.F90 b/src/string.F90 index 90b51d7aa0..7e1ca41ba8 100644 --- a/src/string.F90 +++ b/src/string.F90 @@ -2,8 +2,7 @@ module string use, intrinsic :: ISO_C_BINDING - use constants, only: MAX_WORDS, MAX_LINE_LEN, ERROR_INT, ERROR_REAL, & - OP_LEFT_PAREN, OP_RIGHT_PAREN, OP_COMPLEMENT, OP_INTERSECTION, OP_UNION + use constants, only: MAX_WORDS, MAX_LINE_LEN, ERROR_INT, ERROR_REAL use error, only: fatal_error, warning use stl_vector, only: VectorInt