tem_ellipsoidCubeOverlap Function

public function tem_ellipsoidCubeOverlap(ellipsoid, cube) result(overlap)

This function checks intesection of solid cube and ellipsoid

Arguments

Type IntentOptional Attributes Name
type(tem_ellipsoid_type), intent(in) :: ellipsoid
type(tem_cube_type), intent(in) :: cube

Return Value logical


Calls

proc~~tem_ellipsoidcubeoverlap~~CallsGraph proc~tem_ellipsoidcubeoverlap tem_ellipsoidCubeOverlap proc~hollowellipsoidcubeoverlap hollowellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap->proc~hollowellipsoidcubeoverlap proc~solidellipsoidcubeoverlap solidellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap->proc~solidellipsoidcubeoverlap

Called by

proc~~tem_ellipsoidcubeoverlap~~CalledByGraph proc~tem_ellipsoidcubeoverlap tem_ellipsoidCubeOverlap proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_shape_subtreefromgeominters->proc~tem_ellipsoidcubeoverlap proc~tem_shape2subtree tem_shape2subTree proc~tem_shape2subtree->proc~tem_shape_subtreefromgeominters proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of->proc~tem_shape2subtree 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 proc~tem_init_convergence tem_init_convergence proc~tem_init_convergence->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_write_debugmesh tem_write_debugMesh proc~tem_write_debugmesh->proc~tem_create_subtree_of

Source Code

  function tem_ellipsoidCubeOverlap(ellipsoid, cube) result(overlap)
    ! --------------------------------------------------------------------------!
    !inferface variables
    type(tem_ellipsoid_type), intent(in) :: ellipsoid !< spacer geometry data
    type(tem_cube_type), intent(in) :: cube
    logical :: overlap !< return value
    ! --------------------------------------------------------------------------!
    if(ellipsoid%only_surface) then
      overlap = hollowellipsoidCubeOverlap(ellipsoid, cube)
    else
      overlap = solidellipsoidCubeOverlap(ellipsoid, cube)
    endif

  end function tem_ellipsoidCubeOverlap