crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Added check for unsupported external source type.

Browse source
This commit is contained in:
Paul Romano 2011-12-20 12:50:08 -05:00
parent 2898702569
commit aed80ac08d
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/source.F90
View file

@ -72,6 +72,10 @@ contains
if (external_source%type == SRC_BOX) then
p_min = external_source%values(1:3)
p_max = external_source%values(4:6)
else
message = "Unsupported external source type: " // &
int_to_str(external_source%type)
call fatal_error()
end if
! Initialize first cycle source bank