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

removed check variable to address @paulromano comment

Browse source
This commit is contained in:
Bryan Herman 2014-03-05 17:21:22 -05:00
parent 76cbf0ffaa
commit 40fb29b819
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/input_xml.F90
View file

@ -58,7 +58,6 @@ contains
integer(8) :: temp_long
integer :: n_tracks
logical :: file_exists
logical :: check
character(MAX_FILE_LEN) :: env_variable
character(MAX_WORD_LEN) :: type
character(MAX_LINE_LEN) :: filename
@ -702,10 +701,9 @@ contains
! make sure that the sourcepoint batch numbers are contained in the
! statepoint list
if (.not. source_separate) then
check = .true.
do i = 1, n_source_points
check = statepoint_batch % contains(sourcepoint_batch % get_item(i))
if (.not. check) then
if (.not. statepoint_batch % contains(sourcepoint_batch % &
get_item(i))) then
message = 'Sourcepoint batches are not a subset&
& of statepoint batches.'
call fatal_error()