From 6e0347a82fc0c0370bb3e4dd7ed8641f12a9e457 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Sun, 25 Sep 2011 19:30:08 -0400
Subject: [PATCH] Fixed error in output module that caused failed compilation
 with gfortran.

---
 src/output.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/output.f90 b/src/output.f90
index 2723ec8f64..0efb113315 100644
--- a/src/output.f90
+++ b/src/output.f90
@@ -536,7 +536,7 @@ contains
        write(ou, *) '    Surface Bins:' // trim(string)
     end if
 
-    if (t % n_bins(T_UNIVERSE)) then
+    if (t % n_bins(T_UNIVERSE) > 0) then
        string = ""
        do i = 1, t % n_bins(T_UNIVERSE)
           uid = t % universe_bins(i) % scalar
@@ -546,7 +546,7 @@ contains
        write(ou, *) '    Material Bins:' // trim(string)
     end if
 
-    if (t % n_bins(T_MATERIAL)) then
+    if (t % n_bins(T_MATERIAL) > 0) then
        string = ""
        do i = 1, t % n_bins(T_MATERIAL)
           uid = t % material_bins(i) % scalar