ky_set_locality Subroutine

private subroutine ky_set_locality(self, pc)

Set the locality of each object

Type Bound

ky_type

Arguments

Type IntentOptional Attributes Name
class(ky_type), intent(inout) :: self
class(pc_type), intent(in) :: pc

Contents

Source Code


Source Code

  subroutine ky_set_locality(self, pc)
    implicit none
    class(ky_type), intent(inout) :: self
    class(pc_type), intent(in) :: pc
    integer :: is

    !Set the locality of children
    do is=1,self%nsupercell
       call self%supercells(is)%set_locality(pc)
    enddo
    
    !Set our locality
    self%is_empty=all(self%supercells%is_empty)
    self%is_local=any(self%supercells%is_local)
    self%is_all_local=all(self%supercells%is_all_local)

  end subroutine ky_set_locality