0

我正在尝试在 PETSc 中创建和打印MATDENSE矩阵。我的 MWE 看起来像这样：

static char help[] = "";

#include <petscmat.h>
#include <petscviewer.h>

int main(int argc,char **args)
{
  Mat            A;
  PetscInt       Istart,Iend,m = 2,n = 2;
  PetscErrorCode ierr;
  PetscMPIInt    rank,size;
  PetscViewer    viewer;

  ierr = PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr;
  ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr);
  ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr);
  ierr = PetscOptionsGetInt(NULL,NULL,"-m",&m,NULL);CHKERRQ(ierr);
  ierr = PetscOptionsGetInt(NULL,NULL,"-n",&n,NULL);CHKERRQ(ierr);

  ierr = MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, m, n, NULL, &A); CHKERRQ(ierr);
  ierr = MatSetUp(A);CHKERRQ(ierr);

  ierr = MatGetOwnershipRange(A,&Istart,&Iend);CHKERRQ(ierr);

  MatZeroEntries(A);

  printf("rank: %d, istart: %d, iend: %d\n", rank, Istart, Iend);

  ierr = MatAssemblyBegin(A,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);
  ierr = MatAssemblyEnd(A,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);

  ierr = MatSetOption(A,MAT_SYMMETRIC,PETSC_TRUE);CHKERRQ(ierr);

  ierr = PetscViewerCreate(PETSC_COMM_WORLD,&viewer);CHKERRQ(ierr);
  ierr = PetscViewerASCIIOpen(PETSC_COMM_WORLD, "out.txt", &viewer);
  ierr = MatView(A, viewer); CHKERRQ(ierr);

  ierr = MatDestroy(&A);CHKERRQ(ierr);
  ierr = PetscViewerDestroy(&viewer);CHKERRQ(ierr);
  ierr = PetscFinalize();
  return ierr;
}

问题是，当在多个进程上运行时，程序突然挂在MatView()函数上，而不是写入out.txt文件。我在这里做错了什么？

4

1 回答 1

0

奇怪的是，这是由 Lubuntu 18.10 的 MPI 包中的一些错误引起的。一旦我更新到 Lubuntu 19.04，问题就消失了。

提示：总是尝试make check在这种情况下运行。测试集将自动构建和运行，您可以观察 PETSc 行为，而无需大量的手动试错。

于 2019-12-02T13:42:50.410 回答