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

save previous data earlier

Browse source
This commit is contained in:
Guillaume 2017-06-20 15:04:49 -04:00
parent 42d741b463
commit 593cca09b3
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/tracking.F90
View file

@ -153,6 +153,11 @@ contains
last_cell = p % coord(p % n_coord) % cell
call p % set_last_coord()
! Update last_ information. This is needed to use the same filters as
! the ones implemented for regular tallies
p % last_uvw = p % coord(p % n_coord) % uvw
p % last_E = p % E
p % coord(p % n_coord) % cell = NONE
if (any(lattice_translation /= 0)) then
! Particle crosses lattice boundary
@ -163,11 +168,6 @@ contains
! Particle crosses surface
p % surface = surface_crossed
! Update last_ information. This is needed to use the same filters as
! the ones implemented for regular tallies
p % last_uvw = p % coord(p % n_coord) % uvw
p % last_E = p % E
call cross_surface(p, last_cell)
p % event = EVENT_SURFACE
end if