Actual source code: ex119.c
1: static char help[] = "Tests binary MatView() for MPIDENSE matrices \n\n";
3: #include <petscmat.h>
5: int main(int argc, char **args)
6: {
7: Mat A;
8: PetscViewer viewer;
9: char inputfile[256], outputfile[256];
10: PetscBool flg;
13: PetscInitialize(&argc, &args, (char *)0, help);
14: PetscOptionsGetString(NULL, NULL, "-inputfile", inputfile, sizeof(inputfile), &flg);
15: PetscOptionsGetString(NULL, NULL, "-outputfile", outputfile, sizeof(outputfile), &flg);
16: PetscViewerBinaryOpen(PETSC_COMM_WORLD, inputfile, FILE_MODE_READ, &viewer);
17: MatCreate(PETSC_COMM_WORLD, &A);
18: MatSetType(A, MATDENSE);
19: MatLoad(A, viewer);
20: PetscViewerDestroy(&viewer);
21: PetscViewerBinaryOpen(PETSC_COMM_WORLD, outputfile, FILE_MODE_WRITE, &viewer);
22: MatView(A, viewer);
23: PetscViewerDestroy(&viewer);
24: PetscFinalize();
25: return 0;
26: }