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

Added error for restarts with small n_batches

Browse source
This commit is contained in:
Sterling Harper 2014-09-12 18:46:21 -04:00
parent bca4562d67
commit ec02056940
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/state_point.F90
View file

@ -575,6 +575,12 @@ contains
! Read batch number to restart at
call sp % read_data(restart_batch, "current_batch")
if (restart_batch > n_batches) then
message = 'The number batches specified in settings.xml is fewer than' //&
& ' the number of batches in the given statepoint file.'
call fatal_error()
end if
! Read information specific to eigenvalue run
if (run_mode == MODE_EIGENVALUE) then
call sp % read_data(int_array(1), "n_inactive")