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

Fixed subtle bug with S(a,b) cross section calculation.

Browse source
This commit is contained in:
Paul Romano 2012-04-01 20:25:26 -04:00
parent 671f305b3e
commit 2f3bbef81c
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cross_section.F90
View file

@ -187,8 +187,13 @@ contains
end if
end if
! Set last evaluated energy
if (index_sab == 0) micro_xs(index_nuclide) % last_E = p % E
! Set last evaluated energy -- if we're in S(a,b) region, force
! re-calculation of cross-section
if (index_sab == 0) then
micro_xs(index_nuclide) % last_E = p % E
else
micro_xs(index_nuclide) % last_E = ZERO
end if
end subroutine calculate_nuclide_xs