Set the locality of each object
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ky_type), | intent(inout) | :: | self |
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