From 3fa6f8def967c4e0dfa6827bb95201d8abf53eb1 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Tue, 29 Jan 2013 15:00:47 -0500 Subject: [PATCH] Add lattice z position to trace information. --- src/geometry.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/geometry.F90 b/src/geometry.F90 index b661bcbcd7..ddcd7c19af 100644 --- a/src/geometry.F90 +++ b/src/geometry.F90 @@ -543,7 +543,8 @@ contains if (verbosity >= 10 .or. trace) then message = " Crossing lattice " // trim(to_str(lat % id)) // & ". Current position (" // trim(to_str(p % coord % lattice_x)) & - // "," // trim(to_str(p % coord % lattice_y)) // ")" + // "," // trim(to_str(p % coord % lattice_y)) // "," // & + trim(to_str(p % coord % lattice_z)) // ")" call write_message() end if