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 comments in quadric_distance

Browse source
This commit is contained in:
Paul Romano 2015-10-09 21:35:55 +07:00
parent d61424218f
commit 7adde6fcb3
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/surface_header.F90
View file

@ -1001,14 +1001,14 @@ contains
quad = k*k - a*c
if (quad < ZERO) then
! no intersection with cone
! no intersection with surface
d = INFINITY
elseif (coincident .or. abs(c) < FP_COINCIDENT) then
! particle is on the cone, thus one distance is positive/negative and the
! other is zero. The sign of k determines which distance is zero and which
! is not.
! particle is on the surface, thus one distance is positive/negative and
! the other is zero. The sign of k determines which distance is zero and
! which is not.
if (k >= ZERO) then
d = (-k - sqrt(quad))/a