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