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: {
8: Mat A;
9: PetscViewer viewer;
10: char inputfile[256],outputfile[256];
11: PetscBool flg;
13: PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr;
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 ierr;
26: }