sc_set_locality Subroutine

  subroutine sc_set_locality(self, pc)
    implicit none
    class(supercell_type), intent(inout) :: self
    class(pc_type), intent(in) :: pc
    integer :: ic

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

  end subroutine sc_set_locality