crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 13:45:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove obsolete multipole edist update

Browse source
This commit is contained in:
Colin Josey 2016-02-04 20:55:15 -05:00
parent b9504fd542
commit 5f2e466d86
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/multipole.F90
View file

@ -150,22 +150,6 @@ contains
nuc % reactions(j) % threshold = 1 ! TODO: reconsider implications.
nuc % reactions(j) % Q_value = nuc % reactions(j) % Q_value / 1.0D6
! Update edist values TODO: does this do anything when
! the version of data is identical?
if (associated(nuc % reactions(j) % edist)) then
if (nuc % reactions(j) % edist % law == 3) then
! Search for first XS /= 0 for the threshold.
searchQ: do k = 1, nuc % n_grid
if (nuc % reactions(j) % sigma(k) /= ZERO) then
if (k /= 1) then
nuc % reactions(j) % edist % data(1) = nuc % energy(k-1)
end if
exit searchQ
end if
end do searchQ
end if
end if
! Accumulate total
if (MT(i) /= N_LEVEL .and. MT(i) <= N_DA) then
nuc % total = nuc % total + nuc % reactions(j) % sigma