From 2b1e8abd75cf0ec8b27ea01cda449f7d3bb5950e Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 5 Jul 2013 16:57:11 -0400 Subject: [PATCH 1/2] Normalize direction vector after reflecting particle. Closes #192. --- src/geometry.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/geometry.F90 b/src/geometry.F90 index cb90997846..6504da33f5 100644 --- a/src/geometry.F90 +++ b/src/geometry.F90 @@ -555,7 +555,8 @@ contains end select ! Set new particle direction - p % coord0 % uvw = (/ u, v, w /) + norm = sqrt(u*u + v*v + w*w) + p % coord0 % uvw = [u, v, w] / norm ! Reassign particle's cell and surface p % coord0 % cell = last_cell From 5853d27505f48a631f9ab5d1395eb1d47358aa0e Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 7 Jul 2013 15:21:53 -0400 Subject: [PATCH 2/2] Set blank default for xs listing alias. --- src/input_xml.F90 | 4 +++- src/templates/cross_sections_t.xml | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 229282bfe1..617788e472 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -2552,7 +2552,9 @@ contains ! create dictionary entry for both name and alias call xs_listing_dict % add_key(listing % name, i) - call xs_listing_dict % add_key(listing % alias, i) + if (listing % alias /= '') then + call xs_listing_dict % add_key(listing % alias, i) + end if end do end subroutine read_cross_sections_xml diff --git a/src/templates/cross_sections_t.xml b/src/templates/cross_sections_t.xml index 07bdaddb99..0852b85042 100644 --- a/src/templates/cross_sections_t.xml +++ b/src/templates/cross_sections_t.xml @@ -7,7 +7,7 @@ - +