sdr_inHerit_distanceRefineObject Subroutine

public subroutine sdr_inHerit_distanceRefineObject(proto, geometry)

This routines inherit distance refine sphere object from root node down to leaf node. Only the object with level greater than node level are inHerited

Arguments

TypeIntentOptionalAttributesName
type(sdr_protoTree_type), intent(inout) :: proto

The proto tree description with all the data to refine further

type(sdr_geometry_type), intent(in) :: geometry

type which contains all geometry object infos


Calls

proc~~sdr_inherit_distancerefineobject~~CallsGraph proc~sdr_inherit_distancerefineobject sdr_inHerit_distanceRefineObject proc~tem_firstidatlevel tem_FirstIdAtLevel proc~sdr_inherit_distancerefineobject->proc~tem_firstidatlevel proc~inherit_intersectedobject inHerit_intersectedObject proc~sdr_inherit_distancerefineobject->proc~inherit_intersectedobject proc~tem_stoptimer tem_stopTimer proc~sdr_inherit_distancerefineobject->proc~tem_stoptimer proc~tem_starttimer tem_startTimer proc~sdr_inherit_distancerefineobject->proc~tem_starttimer proc~tem_horizontalspacer tem_horizontalSpacer proc~sdr_inherit_distancerefineobject->proc~tem_horizontalspacer proc~is_intersecting is_intersecting proc~inherit_intersectedobject->proc~is_intersecting interface~append~10 append proc~inherit_intersectedobject->interface~append~10 interface~sdr_append_childintersectedobject sdr_append_childIntersectedObject proc~inherit_intersectedobject->interface~sdr_append_childintersectedobject proc~tem_coordofid tem_CoordOfId proc~inherit_intersectedobject->proc~tem_coordofid proc~tem_spherecubeoverlap tem_sphereCubeOverlap proc~inherit_intersectedobject->proc~tem_spherecubeoverlap proc~is_intersecting->proc~tem_spherecubeoverlap proc~sdr_periodicplanecubeoverlap sdr_periodicPlaneCubeOverlap proc~is_intersecting->proc~sdr_periodicplanecubeoverlap proc~tem_trianglecubeoverlap tem_triangleCubeOverlap proc~is_intersecting->proc~tem_trianglecubeoverlap proc~tem_pointcubeoverlap tem_pointCubeOverlap proc~is_intersecting->proc~tem_pointcubeoverlap proc~tem_boxcubeoverlap tem_boxCubeOverlap proc~is_intersecting->proc~tem_boxcubeoverlap proc~tem_ellipsoidcubeoverlap tem_ellipsoidCubeOverlap proc~is_intersecting->proc~tem_ellipsoidcubeoverlap proc~tem_linecubeoverlap tem_lineCubeOverlap proc~is_intersecting->proc~tem_linecubeoverlap proc~tem_cylindercubeoverlap tem_cylinderCubeOverlap proc~is_intersecting->proc~tem_cylindercubeoverlap proc~sdr_spacerinterwovencubeoverlap sdr_spacerInterwovenCubeOverlap proc~is_intersecting->proc~sdr_spacerinterwovencubeoverlap proc~sdr_append_childintersectedobjectall sdr_append_childIntersectedObjectAll interface~sdr_append_childintersectedobject->proc~sdr_append_childintersectedobjectall proc~sdr_append_childintersectedobjectgtminlevel sdr_append_childIntersectedObjectGTminLevel interface~sdr_append_childintersectedobject->proc~sdr_append_childintersectedobjectgtminlevel proc~sdr_append_childintersectedobjectall->interface~append~10 interface~placeat~8 placeat proc~sdr_append_childintersectedobjectall->interface~placeat~8 interface~mrgrnk mrgrnk proc~sdr_append_childintersectedobjectall->interface~mrgrnk proc~sdr_nodeprop_btest sdr_nodeProp_btest proc~sdr_append_childintersectedobjectall->proc~sdr_nodeprop_btest proc~sdr_periodicplanecubeoverlap->proc~tem_trianglecubeoverlap proc~sdr_append_childintersectedobjectgtminlevel->interface~append~10 proc~sdr_append_childintersectedobjectgtminlevel->interface~placeat~8 proc~sdr_append_childintersectedobjectgtminlevel->interface~mrgrnk proc~sdr_append_childintersectedobjectgtminlevel->proc~sdr_nodeprop_btest proc~sdr_spacerinterwovencubeoverlap->proc~tem_spherecubeoverlap

Called by

proc~~sdr_inherit_distancerefineobject~~CalledByGraph proc~sdr_inherit_distancerefineobject sdr_inHerit_distanceRefineObject program~seeder seeder program~seeder->proc~sdr_inherit_distancerefineobject

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iLevel
integer, private :: iParent
integer, private :: iChild
integer, private :: firstParent
integer, private :: lastParent
integer(kind=long_k), private :: parent_ID_offset
integer(kind=long_k), private :: parentID
integer, private :: parentProps
type(sdr_intersectObjPos_type), private :: distObjPos
type(levelValues_type), private :: leVal
logical, private :: testAll
integer, private :: child_nodePos(8)
integer, private :: nDistRefine_objs
integer, private :: memLeft