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


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