hollowellipsoidCubeOverlap Function

  1. tem_ellipsoid_module.f90
  2. tem_ellipsoid_module
  3. hollowellipsoidCubeOverlap

private pure function hollowellipsoidCubeOverlap(me, cube) result(overlap)

This function checks intesection of solid cube and hollow ellipsoid

This algorithm is taken from http://tog.acm.org/resources/GraphicsGems/gems/Boxellipsoid.c

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(in) :: me

ellipsoid type
type(tem_cube_type), intent(in) :: cube

cube type

Return Value logical


Called by

proc~~hollowellipsoidcubeoverlap~~CalledByGraph proc~hollowellipsoidcubeoverlap hollowellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap tem_ellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap->proc~hollowellipsoidcubeoverlap proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_shape_subtreefromgeominters->proc~tem_ellipsoidcubeoverlap proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of->proc~tem_shape_subtreefromgeominters proc~tem_write_debugmesh tem_write_debugMesh proc~tem_write_debugmesh->proc~tem_create_subtree_of program~tem_varsys_test tem_varSys_test program~tem_varsys_test->proc~tem_create_subtree_of proc~tem_init_tracker_subtree tem_init_tracker_subTree proc~tem_init_tracker_subtree->proc~tem_create_subtree_of proc~tem_init_convergence tem_init_convergence proc~tem_init_convergence->proc~tem_create_subtree_of proc~tem_create_subtree_of_st_funlist tem_create_subTree_of_st_funList proc~tem_create_subtree_of_st_funlist->proc~tem_create_subtree_of

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: rsqr
real(kind=rk), private :: a
real(kind=rk), private :: b
integer, private :: i
real(kind=rk), private :: dmin
real(kind=rk), private :: dmax