Fixed bug for nuclides appearing with and without S(a,b) tables. Closes #82 on github.

This commit is contained in:
Paul Romano 2012-03-26 09:19:35 -04:00
parent 5524fde7f0
commit a718407074

View file

@ -188,7 +188,7 @@ contains
end if
! Set last evaluated energy
micro_xs(index_nuclide) % last_E = p % E
if (index_sab == 0) micro_xs(index_nuclide) % last_E = p % E
end subroutine calculate_nuclide_xs