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 check for number of active batches > 0.

Browse source
This commit is contained in:
Paul Romano 2012-04-09 10:17:46 -04:00
parent c74a7eacec
commit 33ebeedd78
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/input_xml.F90
View file

@ -109,6 +109,12 @@ contains
n_inactive = criticality % inactive
n_active = n_batches - n_inactive
gen_per_batch = criticality % generations_per_batch
! Check number of active batches
if (n_active <= 0) then
message = "Number of active batches must be greater than 0."
call fatal_error()
end if
else
message = "Need to specify number of batches with <batches> tag."
call fatal_error()