Actual source code: ex119.c
1: static char help[] = "Tests binary MatView() for MPIDENSE matrices \n\n";
3: #include petscmat.h
8: int main(int argc,char **args)
9: {
11: Mat A;
12: PetscViewer viewer;
13: char inputfile[256],outputfile[256];
14: PetscTruth flg;
16: PetscInitialize(&argc,&args,(char *)0,help);
17: PetscOptionsGetString(PETSC_NULL,"-inputfile",inputfile,256,&flg);
18: PetscOptionsGetString(PETSC_NULL,"-outputfile",outputfile,256,&flg);
19: PetscViewerBinaryOpen(PETSC_COMM_WORLD,inputfile,FILE_MODE_READ,&viewer);
20: MatLoad(viewer,MATDENSE,&A);
21: PetscViewerDestroy(viewer);
22: PetscViewerBinaryOpen(PETSC_COMM_WORLD,outputfile,FILE_MODE_WRITE,&viewer);
23: PetscViewerSetFormat(viewer,PETSC_VIEWER_NATIVE);
24: MatView(A,viewer);
25: PetscViewerDestroy(viewer);
26: PetscFinalize();
27: return(0);
28: }