tem_eTypeOfId Function

public function tem_eTypeOfId(tID, me) result(eType)

Return the element type of a treeID .

Arguments

Type IntentOptional Attributes Name
integer(kind=long_k), intent(in) :: tID

the element you are looking for
type(tem_element_type), intent(in) :: me

the descriptor you use for searching

Return Value integer

element type


Calls

proc~~tem_etypeofid~~CallsGraph proc~tem_etypeofid tem_eTypeOfId interface~positionofval~5 positionofval proc~tem_etypeofid->interface~positionofval~5 proc~posofval_label posofval_label interface~positionofval~5->proc~posofval_label interface~sortedposofval~5 sortedposofval proc~posofval_label->interface~sortedposofval~5 proc~sortposofval_label sortposofval_label interface~sortedposofval~5->proc~sortposofval_label

Called by

proc~~tem_etypeofid~~CalledByGraph proc~tem_etypeofid tem_eTypeOfId proc~tem_treeidintotal tem_treeIDinTotal proc~tem_treeidintotal->proc~tem_etypeofid proc~tem_build_listhorizontaldep tem_build_listHorizontalDep proc~tem_build_listhorizontaldep->proc~tem_treeidintotal proc~tem_build_treehorizontaldep tem_build_treeHorizontalDep proc~tem_build_treehorizontaldep->proc~tem_treeidintotal proc~tem_build_verticaldependencies tem_build_verticalDependencies proc~tem_build_verticaldependencies->proc~tem_treeidintotal proc~tem_get_faceneigh tem_get_faceNeigh proc~tem_get_faceneigh->proc~tem_treeidintotal proc~tem_init_surfdata tem_init_surfData proc~tem_init_surfdata->proc~tem_treeidintotal proc~update_buffer_elempos update_buffer_elemPos proc~update_buffer_elempos->proc~tem_treeidintotal proc~update_elempostototalpos update_elemPosToTotalPos proc~update_elempostototalpos->proc~tem_treeidintotal proc~update_elempostototalpos->proc~update_buffer_elempos proc~tem_build_horizontaldependencies tem_build_horizontalDependencies proc~tem_build_horizontaldependencies->proc~tem_build_listhorizontaldep proc~tem_build_horizontaldependencies->proc~tem_build_treehorizontaldep proc~tem_create_leveldesc tem_create_levelDesc proc~tem_create_leveldesc->proc~tem_build_verticaldependencies proc~tem_create_leveldesc->proc~tem_build_horizontaldependencies proc~tem_find_allelements tem_find_allElements proc~tem_create_leveldesc->proc~tem_find_allelements proc~tem_extend_commfromcoarserprp tem_extend_commFromCoarserPrp proc~tem_extend_commfromcoarserprp->proc~tem_get_faceneigh proc~tem_extend_commfromfinerprp tem_extend_commFromFinerPrp proc~tem_extend_commfromfinerprp->proc~tem_get_faceneigh proc~tem_find_allelements->proc~update_elempostototalpos proc~tem_get_faces tem_get_faces proc~tem_get_faces->proc~tem_get_faceneigh proc~tem_update_surfpos tem_update_surfPos proc~tem_update_surfpos->proc~tem_init_surfdata proc~tem_collect_faces tem_collect_faces proc~tem_collect_faces->proc~tem_get_faces proc~tem_dimbydim_construction tem_dimByDim_construction proc~tem_dimbydim_construction->proc~tem_create_leveldesc proc~tem_extend_remoteprp tem_extend_remotePrp proc~tem_extend_remoteprp->proc~tem_extend_commfromcoarserprp proc~tem_extend_remoteprp->proc~tem_extend_commfromfinerprp

Source Code

  function tem_eTypeOfId( tID, me ) result( eType )
    ! ---------------------------------------------------------------------------
    !> the element you are looking for
    integer(kind=long_k), intent(in) :: tID
    !> the descriptor you use for searching
    type(tem_element_type), intent(in) :: me
    !> element type
    integer :: eType
    ! ---------------------------------------------------------------------------
    integer :: pos
    ! ---------------------------------------------------------------------------
    eType = eT_undefined
    pos = PositionOfVal( me  = me%tID, val = tID )
    if( pos > 0 ) then
      eType = me%eType%val( pos )
    end if

  end function tem_eTypeOfId