SetElemToRank_DomainDecomposition_t Subroutine

  1. SELF_DomainDecomposition_t.f90
  2. SELF_DomainDecomposition_t
  3. SetElemToRank_DomainDecomposition_t

public subroutine SetElemToRank_DomainDecomposition_t(this, nElem)

Arguments

TypeIntentOptionalAttributesName
class(DomainDecomposition_t), intent(inout) :: this
integer, intent(in) :: nElem

Calls

proc~~setelemtorank_domaindecomposition_t~~CallsGraph proc~setelemtorank_domaindecomposition_t SetElemToRank_DomainDecomposition_t proc~domaindecomp DomainDecomp proc~setelemtorank_domaindecomposition_t->proc~domaindecomp proc~elemtorank ElemToRank proc~setelemtorank_domaindecomposition_t->proc~elemtorank

Contents

Source Code

SetElemToRank_DomainDecomposition_t

Source Code

  subroutine SetElemToRank_DomainDecomposition_t(this,nElem)
    implicit none
    class(DomainDecomposition_t),intent(inout) :: this
    integer,intent(in) :: nElem
    ! Local
    integer :: iel

    this%nElem = nElem

    allocate(this%elemToRank(1:nelem))

    call DomainDecomp(nElem, &
                      this%nRanks, &
                      this%offSetElem)

    do iel = 1,nElem
      call ElemToRank(this%nRanks, &
                      this%offSetElem, &
                      iel, &
                      this%elemToRank(iel))
    enddo

  endsubroutine SetElemToRank_DomainDecomposition_t