crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Surface sense calculation for cones.

Browse source
This commit is contained in:
Paul Romano 2012-10-15 09:07:54 -04:00
parent c1bf538429
commit e2c73fd156
1 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/geometry.F90
View file

@ -1035,6 +1035,36 @@ contains
z = z - z0
func = x*x + y*y + z*z - r*r
case (SURF_CONE_X)
x0 = surf % coeffs(1)
y0 = surf % coeffs(2)
z0 = surf % coeffs(3)
r = surf % coeffs(4)
x = x - x0
y = y - y0
z = z - z0
func = y*y + z*z - r*x*x
case (SURF_CONE_Y)
x0 = surf % coeffs(1)
y0 = surf % coeffs(2)
z0 = surf % coeffs(3)
r = surf % coeffs(4)
x = x - x0
y = y - y0
z = z - z0
func = x*x + z*z - r*y*y
case (SURF_CONE_Z)
x0 = surf % coeffs(1)
y0 = surf % coeffs(2)
z0 = surf % coeffs(3)
r = surf % coeffs(4)
x = x - x0
y = y - y0
z = z - z0
func = x*x + y*y - r*z*z
case (SURF_BOX_X)
y0 = surf % coeffs(1)
z0 = surf % coeffs(2)