From 0f79eb83d183dc4d1845214ecf9db9844e2f6cf2 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Mon, 20 Feb 2012 10:52:12 -0500
Subject: [PATCH] Don't write cycle/particle on error if simulation hasn't
 begun.

---
 src/error.F90  | 8 +++++---
 src/global.F90 | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/error.F90 b/src/error.F90
index cea7a24466..4f4c53d78a 100644
--- a/src/error.F90
+++ b/src/error.F90
@@ -76,9 +76,11 @@ contains
     write(ERROR_UNIT,*)
 
     ! Write information on current cycle and particle
-    write(ERROR_UNIT,'(1X,A,I11) ') 'Cycle:    ', current_cycle
-    write(ERROR_UNIT,'(1X,A,I11)')  'Particle: ', p % id
-    write(ERROR_UNIT,*)
+    if (current_cycle > 0) then
+       write(ERROR_UNIT,'(1X,A,I11) ') 'Cycle:    ', current_cycle
+       write(ERROR_UNIT,'(1X,A,I11)')  'Particle: ', p % id
+       write(ERROR_UNIT,*)
+    end if
 
     ! Release memory from all allocatable arrays
     call free_memory()
diff --git a/src/global.F90 b/src/global.F90
index e22ad48535..e282724b03 100644
--- a/src/global.F90
+++ b/src/global.F90
@@ -118,7 +118,7 @@ module global
   integer    :: n_cycles    = 500   ! # of cycles
   integer    :: n_inactive  = 50    ! # of inactive cycles
   integer    :: n_active            ! # of active cycles
-  integer    :: current_cycle       ! current cycle
+  integer    :: current_cycle = 0   ! current cycle
 
   ! External source
   type(ExtSource), target :: external_source