tem_unify_vrtx Subroutine

private subroutine tem_unify_vrtx(inList, origList, coord, map, tree, nElems, nUnique, refine)

This subroutine takes the sorted list as an input and unifies its entries the result is used to create a unique array of vertex coordinates and a map for the 8 vertices of each element.

Arguments

TypeIntentOptionalAttributesName
integer(kind=long_k), intent(inout), allocatable:: inList(:)
integer(kind=long_k), intent(inout), allocatable:: origList(:)
type(grw_real2darray_type) :: coord
integer, intent(inout), allocatable:: map(:,:)
type(treelmesh_type), intent(in) :: tree
integer, intent(in) :: nElems
integer, intent(in) :: nUnique

number of unique vertices (from q-Values)

logical, intent(in) :: refine(:)

Calls

proc~~tem_unify_vrtx~~CallsGraph proc~tem_unify_vrtx tem_unify_vrtx interface~append~22 append proc~tem_unify_vrtx->interface~append~22 proc~tem_posofid tem_PosOfId proc~tem_unify_vrtx->proc~tem_posofid proc~tem_posoflong tem_posOfLong proc~tem_unify_vrtx->proc~tem_posoflong proc~tem_originofid tem_originOfId proc~tem_unify_vrtx->proc~tem_originofid interface~destroy~15 destroy proc~tem_unify_vrtx->interface~destroy~15 interface~init~15 init proc~tem_unify_vrtx->interface~init~15 proc~tem_appendsp1darray tem_appendSp1dArray interface~append~22->proc~tem_appendsp1darray proc~tem_appendintlist tem_appendIntList interface~append~22->proc~tem_appendintlist proc~tem_appendintlong1darray tem_appendIntLong1dArray interface~append~22->proc~tem_appendintlong1darray proc~tem_appenddp2darray tem_appendDp2dArray interface~append~22->proc~tem_appenddp2darray proc~tem_appendintlongarrayto1darray tem_appendIntLongArrayTo1dArray interface~append~22->proc~tem_appendintlongarrayto1darray proc~tem_appendlonglist tem_appendLongList interface~append~22->proc~tem_appendlonglist proc~tem_appendint2darray tem_appendInt2dArray interface~append~22->proc~tem_appendint2darray proc~tem_appendsp2darray tem_appendSp2dArray interface~append~22->proc~tem_appendsp2darray proc~tem_appendint1darray tem_appendInt1dArray interface~append~22->proc~tem_appendint1darray proc~tem_appendintlong2darray tem_appendIntLong2dArray interface~append~22->proc~tem_appendintlong2darray proc~tem_appenddp1darray tem_appendDp1dArray interface~append~22->proc~tem_appenddp1darray proc~tem_pathof tem_PathOf proc~tem_posofid->proc~tem_pathof proc~tem_pathcomparison tem_PathComparison proc~tem_posofid->proc~tem_pathcomparison proc~tem_coordofid tem_CoordOfId proc~tem_originofid->proc~tem_coordofid proc~tem_elemsizelevel tem_ElemSizeLevel proc~tem_originofid->proc~tem_elemsizelevel proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~15->proc~destroy_ga2d_real proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real proc~tem_levelof tem_LevelOf proc~tem_coordofid->proc~tem_levelof

Called by

proc~~tem_unify_vrtx~~CalledByGraph proc~tem_unify_vrtx tem_unify_vrtx proc~tem_calc_vrtx_coord tem_calc_vrtx_coord proc~tem_calc_vrtx_coord->proc~tem_unify_vrtx proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~tem_calc_vrtx_coord proc~tem_init_tracker tem_init_tracker proc~tem_init_tracker->proc~hvs_output_init

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: count1
integer, private :: count2
integer, private :: iElem
integer, private :: iVrtx
integer, private :: pos
integer, private :: counter
type(grw_longarray_type), private :: unique
real(kind=rk), private :: tmp_vrtx(3)