fm_set_is_local Subroutine

  subroutine fm_set_is_local(self, pc)
    implicit none
    class(fieldmat_type), intent(inout) :: self
    class(pc_type), intent(in) :: pc
    integer :: ik

    !Set the locality of children
    do ik=1,self%naky
       call self%kyb(ik)%set_locality(pc)
    enddo
    
    !Set our locality
    self%is_empty=all(self%kyb%is_empty)
    self%is_local=any(self%kyb%is_local)
    self%is_all_local=all(self%kyb%is_local)
  end subroutine fm_set_is_local