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

Fixed nested hex_lattice error

Browse source
This commit is contained in:
Sterling Harper 2014-09-02 15:42:53 -04:00
parent 6438c667dc
commit 8aec6c9f6f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/geometry.F90
View file

@ -1603,14 +1603,14 @@ contains
! is selected. This logic must include consideration of floating point
! precision.
if (d_surf < d_lat) then
if (abs(dist - d_surf)/dist >= FP_REL_PRECISION) then
if ((dist - d_surf)/dist >= FP_REL_PRECISION) then
dist = d_surf
surface_crossed = level_surf_cross
lattice_translation = (/0, 0, 0/)
final_coord => coord
end if
else
if (abs(dist - d_lat)/dist >= FP_REL_PRECISION) then
if ((dist - d_lat)/dist >= FP_REL_PRECISION) then
dist = d_lat
surface_crossed = None
lattice_translation = level_lat_trans