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~2~~CallsGraph proc~tem_ellipsoidcubeoverlap~2 tem_ellipsoidCubeOverlap proc~hollowellipsoidcubeoverlap~2 hollowellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap~2->proc~hollowellipsoidcubeoverlap~2 proc~solidellipsoidcubeoverlap~2 solidellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap~2->proc~solidellipsoidcubeoverlap~2

Contents

Source Code

tem_ellipsoidCubeOverlap

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