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 bug where no surface current tallies caused segfault.

Browse source
This commit is contained in:
Paul Romano 2011-11-08 12:50:03 -05:00
parent 6f9a347cac
commit cbb23472f3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tally.f90
View file

@ -604,14 +604,14 @@ contains
xyz0 = p % last_xyz
xyz1 = p % xyz
! Get pointer to tally and mesh
! Get pointer to tally
t => tallies(i)
m => meshes(t % mesh)
! Skip non-surface-current tallies
if (.not. t % surface_current) cycle
! Determine indices for starting and ending location
m => meshes(t % mesh)
call get_mesh_indices(m, xyz0, ijk0, start_in_mesh)
call get_mesh_indices(m, xyz1, ijk1, end_in_mesh)