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

User-specified random number gen seed now active, fixed logical statment and moved init RNG to after read input

Browse source
This commit is contained in:
Bryan Herman 2012-02-23 13:54:35 -08:00
parent 36dd722e18
commit 4de58721d6
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/initialize.F90
View file

@ -70,15 +70,15 @@ contains
call header("INITIALIZATION", level=1)
end if
! Initialize random number generator
call initialize_prng()
! set up dictionaries
call create_dictionaries()
! Read XML input files
call read_input_xml()
! Initialize random number generator
call initialize_prng()
! Set up universe structures
call prepare_universes()

2
src/input_xml.F90
View file

@ -108,7 +108,7 @@ contains
end if
! Random number seed
if (dble(criticality % seed) > 0_8) seed = dble(criticality % seed)
if (dble(criticality % seed) > 0.0_8) seed = dble(criticality % seed)
! Verbosity
if (verbosity_ > 0) verbosity = verbosity_