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

Made module variables in datatypes private.

Browse source
This commit is contained in:
Paul Romano 2011-10-31 19:23:04 -04:00
parent cf22731cfb
commit 884c8387f7
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/datatypes.f90
View file

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

2
src/initialize.f90
View file

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