solidSphereCubeOverlap Function

private function solidSphereCubeOverlap(sphere, cube) result(overlap)

This function checks intesection of solid cube and solid sphere

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

Arguments

TypeIntentOptionalAttributesName
type(tem_sphere_type), intent(in) :: sphere
type(tem_cube_type), intent(in) :: cube

Return Value logical


Called by

proc~~solidspherecubeoverlap~~CalledByGraph proc~solidspherecubeoverlap solidSphereCubeOverlap proc~tem_spherecubeoverlap tem_sphereCubeOverlap proc~tem_spherecubeoverlap->proc~solidspherecubeoverlap proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_shape_subtreefromgeominters->proc~tem_spherecubeoverlap proc~tem_cylindercubeoverlap tem_cylinderCubeOverlap proc~tem_shape_subtreefromgeominters->proc~tem_cylindercubeoverlap proc~tem_cylindercubeoverlap->proc~tem_spherecubeoverlap 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

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