Actual source code: ex220.c


  2: #include <petscmat.h>

  4: static char help[PETSC_MAX_PATH_LEN] = "Tests MatLoad() with MatCreateDense() for memory leak ";

  6: int main(int argc, char **argv)
  7: {
  8:   PetscViewer viewer;
  9:   Mat         A;
 10:   char        filename[PETSC_MAX_PATH_LEN];
 11:   PetscBool   flg;

 14:   PetscInitialize(&argc, &argv, (char *)0, help);
 15:   PetscOptionsGetString(NULL, NULL, "-f", filename, sizeof(filename), &flg);

 18:   PetscViewerBinaryOpen(PETSC_COMM_WORLD, filename, FILE_MODE_READ, &viewer);
 19:   MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 36, 36, NULL, &A);
 20:   MatLoad(A, viewer);
 21:   PetscViewerDestroy(&viewer);
 22:   MatDestroy(&A);
 23:   PetscFinalize();
 24:   return 0;
 25: }

 27: /*TEST

 29:      test:
 30:        requires: double !complex !defined(PETSC_USE_64BIT_INDICES) datafilespath
 31:        args: -f ${DATAFILESPATH}/matrices/small

 33: TEST*/