crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Corrected ace reading to look for the existence of the same locator anywhere in the array instead of just after, and updated the tests.

Browse source
This commit is contained in:
Adam Nelson 2014-05-20 06:16:49 -04:00
parent 9b68d497a2
commit eef806e608
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ace.F90
View file

@ -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

2
tests/test_source_file/results_true.dat
View file

@ -1,2 +1,2 @@
k-combined:
3.013216E-01 2.768871E-03
3.037843E-01 4.395619E-03