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

check filetype before reading in source

Browse source
This commit is contained in:
Bryan Herman 2014-03-05 17:42:45 -05:00
parent c5d29c4077
commit 17793dfdcf
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/source.F90
View file

@ -49,6 +49,12 @@ contains
! Read the file type
call sp % read_data(itmp, "filetype")
! Check to make sure this is a source file
if (itmp /= FILETYPE_SOURCE) then
message = "Specified starting source file not a source file type."
call fatal_error()
end if
! Read in the source bank
call sp % read_source_bank()