From 9b68d497a2efb4c6ac2df4853606f00ee5a42fc3 Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Mon, 19 May 2014 20:38:07 -0400 Subject: [PATCH 1/2] Info in Troubleshooting portion of manual regarding L(I) issue is no longer needed. Removed. --- docs/source/usersguide/troubleshoot.rst | 8 -------- 1 file changed, 8 deletions(-) diff --git a/docs/source/usersguide/troubleshoot.rst b/docs/source/usersguide/troubleshoot.rst index ba7e4405cc..10ac12184f 100644 --- a/docs/source/usersguide/troubleshoot.rst +++ b/docs/source/usersguide/troubleshoot.rst @@ -79,14 +79,6 @@ with the :envvar:`CROSS_SECTIONS` environment variable. It is recommended to add a line in your ``.profile`` or ``.bash_profile`` setting the :envvar:`CROSS_SECTIONS` environment variable. -ERROR: Invalid usage of L(I) in ACE data; Consider using more recent data set. -****************************************************************************** - -The cross-sections requested in ``materials.xml`` do not conform to the current -standard format. This typically happens with fissionable nuclides in a ``.6*c`` -library as distributed with MCNP. Please try a newer library such as any from -the ``.7*c`` set. - Geometry Debugging ****************** From eef806e608c880c8b77fd1b61a390587e37da97c Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Tue, 20 May 2014 06:16:49 -0400 Subject: [PATCH 2/2] Corrected ace reading to look for the existence of the same locator anywhere in the array instead of just after, and updated the tests. --- src/ace.F90 | 6 +++--- tests/test_source_file/results_true.dat | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/ace.F90 b/src/ace.F90 index 0c1d519d3a..d414e21f89 100644 --- a/src/ace.F90 +++ b/src/ace.F90 @@ -982,7 +982,7 @@ contains ! If this is the case, we should skip incrementing length when it is ! not needed. if (i < NE) then - if (L(i) == L(i + 1)) then + if (any(L(i) == L(i + 1: NE))) then ! adjust location for this block j = lc + 2 + 2*NR + NE + i XSS(j) = XSS(j) - LOCC - lid @@ -1040,7 +1040,7 @@ contains ! If this is the case, we should skip incrementing length when it is ! not needed. if (i < NE) then - if (L(i) == L(i + 1)) then + if (any(L(i) == L(i + 1: NE))) then ! adjust location for this block j = lc + 2 + 2*NR + NE + i XSS(j) = XSS(j) - LOCC - lid @@ -1070,7 +1070,7 @@ contains ! If this is the case, we should skip incrementing length when it is ! not needed. if (i < NE) then - if (L(i) == L(i + 1)) then + if (any(L(i) == L(i + 1: NE))) then ! adjust locators for energy distribution j = lc + 2 + 2*NR + NE + i XSS(j) = XSS(j) - LOCC - lid diff --git a/tests/test_source_file/results_true.dat b/tests/test_source_file/results_true.dat index d714d0bd43..eb3139f582 100644 --- a/tests/test_source_file/results_true.dat +++ b/tests/test_source_file/results_true.dat @@ -1,2 +1,2 @@ k-combined: -3.013216E-01 2.768871E-03 +3.037843E-01 4.395619E-03