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

Fix distance-to-surface calculationg for general plane surface.

Browse source
This commit is contained in:
Paul Romano 2014-07-28 20:12:02 -04:00
parent ec21addbee
commit 4439de571f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/geometry.F90
View file

@ -892,7 +892,7 @@ contains
if (on_surface .or. tmp == ZERO) then
d = INFINITY
else
d = -(A*x + B*y + C*w - D)/tmp
d = -(A*x + B*y + C*z - D)/tmp
if (d < ZERO) d = INFINITY
end if