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