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

fixed a bug where p % last_xyz wasn't updated when necessary for tracklength tallies with meshfilters

Browse source
This commit is contained in:
Nick Horelik 2012-03-26 16:08:27 -07:00
parent b2c40ee3c0
commit 1466eca5fc
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/physics.F90
View file

@ -81,6 +81,9 @@ contains
! Select smaller of the two distances
distance = min(d_boundary, d_collision)
! Save coordinates for tallying purposes
p % last_xyz = p % coord0 % xyz
! Advance particle
coord => p % coord0
do while (associated(coord))
@ -128,9 +131,6 @@ contains
p % surface = NONE
call collision()
! Save coordinates at collision for tallying purposes
p % last_xyz = p % coord0 % xyz
! Set last material to none since cross sections will need to be
! re-evaluated
p % last_material = NONE