diff --git a/src/datatypes.f90 b/src/datatypes.f90 index 052e8d374e..855b91c141 100644 --- a/src/datatypes.f90 +++ b/src/datatypes.f90 @@ -16,9 +16,9 @@ module datatypes implicit none - integer, parameter :: HASH_SIZE = 4993 - integer, parameter :: HASH_MULTIPLIER = 31 - integer, parameter :: DICT_NULL = 0 + integer, parameter, private :: HASH_SIZE = 4993 + integer, parameter, private :: HASH_MULTIPLIER = 31 + integer, parameter, private :: DICT_NULL = 0 !=============================================================================== ! LIST Interfaces -- these allow one to use a single subroutine or function for diff --git a/src/initialize.f90 b/src/initialize.f90 index ecb1abf9ea..45283238c8 100644 --- a/src/initialize.f90 +++ b/src/initialize.f90 @@ -3,7 +3,7 @@ module initialize use constants use cross_section, only: read_xs, read_xsdata use datatypes, only: dict_create, dict_add_key, dict_get_key, & - dict_has_key, DICT_NULL, dict_keys + dict_has_key, dict_keys use datatypes_header, only: ListKeyValueII, DictionaryII use energy_grid, only: unionized_grid, original_indices use error, only: fatal_error