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

Added MGXS support for void materials

Browse source
This commit is contained in:
Adam Nelson 2015-11-28 20:18:13 -05:00
parent ca602e8b97
commit 0911de76eb
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/tracking.F90
View file

@ -91,8 +91,15 @@ contains
else
! Since the MGXS can be angle dependent, this needs to be done
! After every collision for the MGXS mode
call calculate_mgxs(macro_xs(p % material) % obj, p % g, &
p % coord(p % n_coord) % uvw, material_xs)
if (p % material /= MATERIAL_VOID) then
call calculate_mgxs(macro_xs(p % material) % obj, p % g, &
p % coord(p % n_coord) % uvw, material_xs)
else
material_xs % total = ZERO
material_xs % elastic = ZERO
material_xs % absorption = ZERO
material_xs % nu_fission = ZERO
end if
end if
! Find the distance to the nearest boundary