From 92b8019351cc5e1ef0764ae35055bcef078f5752 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Wed, 5 Oct 2011 23:01:53 -0400
Subject: [PATCH] Prevent tallies.out from being created if there are no
 tallies.

---
 src/tally.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/tally.f90 b/src/tally.f90
index 697fc31a4a..7005fa81f1 100644
--- a/src/tally.f90
+++ b/src/tally.f90
@@ -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"