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

Minor simplification on multipole branch in calculate_nuclide_xs

Browse source
This commit is contained in:
Paul Romano 2018-01-12 15:09:09 -06:00
parent d2d1703e76
commit df40af793b
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cross_section.F90
View file

@ -181,14 +181,13 @@ contains
call multipole_eval(nuc % multipole, E, sqrtkT, sig_t, sig_a, sig_f)
micro_xs(i_nuclide) % total = sig_t
micro_xs(i_nuclide) % absorption = sig_a
micro_xs(i_nuclide) % elastic = sig_t - sig_a
micro_xs(i_nuclide) % absorption = sig_a
micro_xs(i_nuclide) % fission = sig_f
if (nuc % fissionable) then
micro_xs(i_nuclide) % fission = sig_f
micro_xs(i_nuclide) % nu_fission = sig_f * nuc % nu(E, EMISSION_TOTAL)
else
micro_xs(i_nuclide) % fission = ZERO
micro_xs(i_nuclide) % nu_fission = ZERO
end if