crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Remove unneeded C bindings on Fortran side

Browse source
This commit is contained in:
Paul Romano 2019-01-02 13:50:24 -06:00
parent 84b8d64b9d
commit 463ab5f06b
3 changed files with 1 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

52
src/constants.F90
View file

@ -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

18
src/settings.F90
View file

@ -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

3
src/string.F90
View file

@ -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