exit_element Subroutine

public subroutine exit_element(TreeID, line, tree)

This subroutine checks at which face, edge or corner the line leaves the element and calculates the next element.

found intersection, so exit loop

Arguments

TypeIntentOptionalAttributesName
integer(kind=long_k), intent(in) :: TreeID
type(tem_line) :: line
type(treelmesh_type), intent(in) :: tree

Calls

proc~~exit_element~~CallsGraph proc~exit_element exit_element proc~tem_intersec_line_line tem_intersec_line_line proc~exit_element->proc~tem_intersec_line_line proc~tem_baryofid tem_BaryOfId proc~exit_element->proc~tem_baryofid proc~tem_intersec_line_plane tem_intersec_line_plane proc~exit_element->proc~tem_intersec_line_plane proc~tem_coordofid tem_CoordOfId proc~exit_element->proc~tem_coordofid proc~tem_intersec_ray_point tem_intersec_ray_point proc~exit_element->proc~tem_intersec_ray_point proc~tem_baryofid->proc~tem_coordofid proc~tem_elemsizelevel tem_ElemSizeLevel proc~tem_baryofid->proc~tem_elemsizelevel proc~tem_levelof tem_LevelOf proc~tem_coordofid->proc~tem_levelof

Contents


Variables

TypeVisibilityAttributesNameInitial
type(tem_plane), private :: face
type(tem_line), private :: edge
real(kind=rk), private :: corner(3)
type(tem_intersec), private :: intersection
logical, private :: intersects
type(tem_intersec_elem), private :: elem
integer, private :: coord(4)
integer, private :: iDir