Prevent tallies.out from being created if there are no tallies.

This commit is contained in:
Paul Romano 2011-10-05 23:01:53 -04:00
parent ac2c500933
commit 92b8019351

View file

@ -564,6 +564,9 @@ contains
character(80) :: space = " " ! spaces
type(TallyObject), pointer :: t
! Skip if there are no tallies
if (n_tallies == 0) return
! Initialize names for tally filter types
filter_name(T_UNIVERSE) = "Universe"
filter_name(T_MATERIAL) = "Material"