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

Check for invalid tally filter.

Browse source
This commit is contained in:
Paul Romano 2013-02-22 10:36:53 -05:00
parent faede29736
commit ca4fd0dc81
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/input_xml.F90
View file

@ -1705,6 +1705,13 @@ contains
tally_(i) % filter(j) % bins(k))
end do
case default
! Specified tally filter is invalid, raise error
message = "Unknown filter type '" // trim(tally_(i) % &
filter(j) % type) // "' on tally " // &
trim(to_str(t % id)) // "."
call fatal_error()
end select
! Set find_filter, e.g. if filter(3) has type FILTER_CELL, then