ky_set_locality Subroutine

private subroutine ky_set_locality(self)

Set the locality of each object

Type Bound

ky_type

Arguments

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

Contents

Source Code


Source Code

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

    !Set the locality of children
    do is=1,self%nsupercell
       call self%supercells(is)%set_locality
    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