tem_lineCubeOverlap Function

  1. tem_line_module.f90
  2. tem_line_module
  3. tem_lineCubeOverlap

public function tem_lineCubeOverlap(line, cube, pntIntersect) result(overlap)

Function computes intersection of line with cube

If optional argument pntIntersect contains the intersection point of the line with cube

Arguments

TypeIntentOptionalAttributesName
type(tem_line_type), intent(in) :: line

line segment to check for intersection
type(tem_cube_type), intent(in) :: cube

cube to intersect with
real(kind=rk), intent(out), optional :: pntIntersect(3)

intersection point if there is intersection

Return Value logical


Calls

proc~~tem_linecubeoverlap~~CallsGraph proc~tem_linecubeoverlap tem_lineCubeOverlap proc~raycubeoverlap rayCubeOverlap proc~tem_linecubeoverlap->proc~raycubeoverlap

Called by

proc~~tem_linecubeoverlap~~CalledByGraph proc~tem_linecubeoverlap tem_lineCubeOverlap proc~tem_cylindercubeoverlap tem_cylinderCubeOverlap proc~tem_cylindercubeoverlap->proc~tem_linecubeoverlap proc~tem_cano_initsubtree tem_cano_initSubTree proc~tem_cano_initsubtree->proc~tem_linecubeoverlap proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_shape_subtreefromgeominters->proc~tem_cylindercubeoverlap proc~tem_shape_subtreefromgeominters->proc~tem_cano_initsubtree 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


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: proj
real(kind=rk), private :: loc_pntIntersect(3)