crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Pass argument to fatal_error.

Browse source
This commit is contained in:
Paul Romano 2014-10-25 10:53:32 -04:00
parent db84521286
commit 314c9c246d
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/state_point.F90
View file

@ -305,7 +305,7 @@ contains
! Set filename
filename = trim(path_output) // 'source.' // &
& zero_padded(current_batch, count_digits(n_batches))
#ifdef HDF5
filename = trim(filename) // '.h5'
#else
@ -572,9 +572,8 @@ contains
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()
call fatal_error("The number batches specified in settings.xml is fewer &
& than the number of batches in the given statepoint file.")
end if
! Read information specific to eigenvalue run