Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(DomainDecomposition_t), | intent(inout) | :: | this | |||
integer, | intent(in) | :: | nElem |
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