From 76b5647f58c85b16b8a1bc6bfe0d37a4891ab6ab Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Wed, 15 Feb 2012 15:55:05 -0500
Subject: [PATCH] Added cycle and particle number to fatal error output.

---
 src/error.F90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/error.F90 b/src/error.F90
index b227f2f588..cea7a24466 100644
--- a/src/error.F90
+++ b/src/error.F90
@@ -2,7 +2,7 @@ module error
 
   use, intrinsic :: ISO_FORTRAN_ENV
 
-  use global, only: master, free_memory, message, mpi_err
+  use global
 
 #ifdef MPI
   use mpi
@@ -75,6 +75,11 @@ contains
     end do
     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,*)
+
     ! Release memory from all allocatable arrays
     call free_memory()