From 6dd8ea536466fb74dbd950f89c55aca10714afa8 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Thu, 5 Apr 2012 09:55:33 -0400
Subject: [PATCH] Added information on location/direction upon fatal_error.

---
 src/error.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/error.F90 b/src/error.F90
index 59cc6d80e0..d3ca4eb586 100644
--- a/src/error.F90
+++ b/src/error.F90
@@ -80,6 +80,8 @@ contains
        write(ERROR_UNIT,'(1X,A,I12) ') 'Batch:     ', current_batch
        write(ERROR_UNIT,'(1X,A,I12) ') 'Generation:', current_gen
        write(ERROR_UNIT,'(1X,A,I12)')  'Particle:  ', p % id
+       write(ERROR_UNIT,'(1X,A,3ES11.4)') 'Location:  ', p % coord0 % xyz
+       write(ERROR_UNIT,'(1X,A,3ES11.4)') 'Direction: ', p % coord0 % uvw
        write(ERROR_UNIT,*)
     end if