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;
12: PetscInitialize(&argc,&args,(char*)0,help);
13: PetscOptionsGetString(NULL,NULL,"-inputfile",inputfile,sizeof(inputfile),&flg);
14: PetscOptionsGetString(NULL,NULL,"-outputfile",outputfile,sizeof(outputfile),&flg);
15: PetscViewerBinaryOpen(PETSC_COMM_WORLD,inputfile,FILE_MODE_READ,&viewer);
16: MatCreate(PETSC_COMM_WORLD,&A);
17: MatSetType(A,MATDENSE);
18: MatLoad(A,viewer);
19: PetscViewerDestroy(&viewer);
20: PetscViewerBinaryOpen(PETSC_COMM_WORLD,outputfile,FILE_MODE_WRITE,&viewer);
21: MatView(A,viewer);
22: PetscViewerDestroy(&viewer);
23: PetscFinalize();
24: return 0;
25: }