crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fix diff material bug

Browse source
This commit is contained in:
Sterling Harper 2016-01-18 11:45:36 -05:00
parent 509c4150d3
commit 4942a2b19b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/tally.F90
View file

@ -758,7 +758,8 @@ contains
select case (t % estimator)
case (ESTIMATOR_ANALOG)
if (p % event_nuclide == t % deriv % diff_nuclide) then
if (materials(p % material) % id == t % deriv % diff_material &
.and. p % event_nuclide == t % deriv % diff_nuclide) then
associate(mat => materials(p % material))
do l = 1, mat % n_nuclides
if (mat % nuclide(l) == t % deriv % diff_nuclide) exit