1 2 #include <petscmat.h> 3 4 static char help[PETSC_MAX_PATH_LEN] = "Tests MatLoad() with MatCreateDense() for memory leak "; 5 6 int main(int argc, char **argv) 7 { 8 PetscErrorCode ierr; 9 PetscViewer viewer; 10 Mat A; 11 char filename[PETSC_MAX_PATH_LEN]; 12 PetscBool flg; 13 14 ierr = PetscInitialize(&argc, &argv, (char*)0, help);if (ierr) return ierr; 15 ierr = PetscOptionsGetString(NULL, NULL, "-f", filename, sizeof(filename), &flg);CHKERRQ(ierr); 16 if (!flg) SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_USER_INPUT, "Must indicate a filename for input with the -f option"); 17 18 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD, filename, FILE_MODE_READ, &viewer);CHKERRQ(ierr); 19 ierr = MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 36, 36, NULL, &A);CHKERRQ(ierr); 20 ierr = MatLoad(A, viewer);CHKERRQ(ierr); 21 ierr = PetscViewerDestroy(&viewer);CHKERRQ(ierr); 22 ierr = MatDestroy(&A);CHKERRQ(ierr); 23 ierr = PetscFinalize(); 24 return ierr; 25 } 26 27 /*TEST 28 29 test: 30 requires: double !complex !define(PETSC_USE_64BIT_INDICES) datafilespath 31 args: -f ${DATAFILESPATH}/matrices/small 32 33 TEST*/ 34