tem_shape_subTreeFromGeomInters Subroutine

public subroutine tem_shape_subTreeFromGeomInters(me, inTree, countElems, countPoints, grwPnts, storePnts, map2global)

This routine creates subTree from geometry intersection

Arguments

TypeIntentOptionalAttributesName
type(tem_shape_type), intent(in) :: me

shape objects on which to work

type(treelmesh_type), intent(in) :: inTree

Global tree

integer, intent(inout) :: countElems(globalMaxLevels)

How many elements there will be for each level in the track

integer, intent(inout) :: countPoints

How many points there will be

type(tem_grwPoints_type), intent(inout) :: grwPnts

growing array to store tracking points

logical, intent(in) :: storePnts

to Store points in grwPnts

type(dyn_intarray_type), intent(inout) :: map2global

growing array for the map2global


Calls

proc~~tem_shape_subtreefromgeominters~~CallsGraph proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_converttreeidtocube tem_convertTreeIDtoCube proc~tem_shape_subtreefromgeominters->proc~tem_converttreeidtocube proc~tem_cano_storepntsinsubtree tem_cano_storePntsInSubTree proc~tem_shape_subtreefromgeominters->proc~tem_cano_storepntsinsubtree interface~append~21 append proc~tem_shape_subtreefromgeominters->interface~append~21 mpi_wtime mpi_wtime proc~tem_shape_subtreefromgeominters->mpi_wtime proc~tem_stlcubeoverlap tem_stlCubeOverlap proc~tem_shape_subtreefromgeominters->proc~tem_stlcubeoverlap proc~tem_spherecubeoverlap tem_sphereCubeOverlap proc~tem_shape_subtreefromgeominters->proc~tem_spherecubeoverlap proc~tem_trianglecubeoverlap tem_triangleCubeOverlap proc~tem_shape_subtreefromgeominters->proc~tem_trianglecubeoverlap proc~tem_abort tem_abort proc~tem_shape_subtreefromgeominters->proc~tem_abort proc~tem_cano_initsubtree tem_cano_initSubTree proc~tem_shape_subtreefromgeominters->proc~tem_cano_initsubtree proc~tem_ellipsoidcubeoverlap tem_ellipsoidCubeOverlap proc~tem_shape_subtreefromgeominters->proc~tem_ellipsoidcubeoverlap proc~tem_cylindercubeoverlap tem_cylinderCubeOverlap proc~tem_shape_subtreefromgeominters->proc~tem_cylindercubeoverlap interface~init~15 init proc~tem_shape_subtreefromgeominters->interface~init~15 proc~tem_levelof tem_LevelOf proc~tem_shape_subtreefromgeominters->proc~tem_levelof proc~tem_endofid tem_endOfId proc~tem_converttreeidtocube->proc~tem_endofid proc~tem_elemsize tem_ElemSize proc~tem_converttreeidtocube->proc~tem_elemsize proc~tem_originofid tem_originOfId proc~tem_converttreeidtocube->proc~tem_originofid proc~tem_cano_storepntsinsubtree->interface~append~21 proc~tem_idofcoord tem_IdOfCoord proc~tem_cano_storepntsinsubtree->proc~tem_idofcoord proc~tem_coordofreal tem_CoordOfReal proc~tem_cano_storepntsinsubtree->proc~tem_coordofreal proc~tem_posofid tem_PosOfId proc~tem_cano_storepntsinsubtree->proc~tem_posofid proc~append_da_veclabel append_da_veclabel interface~append~21->proc~append_da_veclabel proc~append_da_label append_da_label interface~append~21->proc~append_da_label proc~tem_stlcubeoverlap->proc~tem_trianglecubeoverlap proc~solidspherecubeoverlap solidSphereCubeOverlap proc~tem_spherecubeoverlap->proc~solidspherecubeoverlap proc~hollowspherecubeoverlap hollowSphereCubeOverlap proc~tem_spherecubeoverlap->proc~hollowspherecubeoverlap proc~triboxoverlap_loc triBoxOverlap_loc proc~tem_trianglecubeoverlap->proc~triboxoverlap_loc mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~tem_cano_initsubtree->proc~tem_converttreeidtocube proc~tem_cano_initsubtree->interface~append~21 proc~tem_cano_initsubtree->proc~tem_levelof proc~tem_cano_initsubtree->proc~tem_idofcoord proc~tem_cano_initsubtree->proc~tem_coordofreal proc~tem_linecubeoverlap tem_lineCubeOverlap proc~tem_cano_initsubtree->proc~tem_linecubeoverlap proc~tem_boxcubeoverlap tem_boxCubeOverlap proc~tem_cano_initsubtree->proc~tem_boxcubeoverlap proc~tem_planecubeoverlap tem_planeCubeOverlap proc~tem_cano_initsubtree->proc~tem_planecubeoverlap proc~tem_cano_initsubtree->proc~tem_posofid proc~hollowellipsoidcubeoverlap hollowellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap->proc~hollowellipsoidcubeoverlap proc~solidellipsoidcubeoverlap solidellipsoidCubeOverlap proc~tem_ellipsoidcubeoverlap->proc~solidellipsoidcubeoverlap proc~tem_cylindercubeoverlap->proc~tem_spherecubeoverlap proc~tem_cylindercubeoverlap->proc~tem_linecubeoverlap proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real

Called by

proc~~tem_shape_subtreefromgeominters~~CalledByGraph proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of->proc~tem_shape_subtreefromgeominters 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 proc~tem_write_debugmesh tem_write_debugMesh proc~tem_write_debugmesh->proc~tem_create_subtree_of proc~tem_init_tracker_subtree tem_init_tracker_subTree proc~tem_init_tracker_subtree->proc~tem_create_subtree_of program~tem_varsys_test tem_varSys_test program~tem_varsys_test->proc~tem_create_subtree_of proc~check_variableoperations check_variableOperations proc~check_variableoperations->proc~tem_create_subtree_of_st_funlist program~tem_varsys_stfunvar_test tem_varSys_stfunVar_test program~tem_varsys_stfunvar_test->proc~tem_create_subtree_of_st_funlist program~tem_variable_combine_test tem_variable_combine_Test program~tem_variable_combine_test->proc~tem_create_subtree_of_st_funlist program~tem_variable_extract_test tem_variable_extract_test program~tem_variable_extract_test->proc~tem_create_subtree_of_st_funlist program~tem_varsys_opvar_test tem_varSys_opVar_test program~tem_varsys_opvar_test->proc~tem_create_subtree_of_st_funlist program~tem_variable_evaltype_test tem_variable_evaltype_test program~tem_variable_evaltype_test->proc~tem_create_subtree_of_st_funlist program~tem_logical_opertor_test tem_logical_opertor_test program~tem_logical_opertor_test->proc~check_variableoperations

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: tStart
real(kind=rk), private :: tEnd
integer, private :: iElem
integer, private :: dPos
integer, private :: tLevel
integer, private :: iObj
logical, private :: wasAdded
logical, private :: intersects
logical, private :: addToSubTree
type(tem_cube_type), private :: cube
integer(kind=long_k), private :: treeID