Actual source code: ex1f90.F90
petsc-3.11.4 2019-09-28
2: program ex5f90
4: #include <petsc/finclude/petscsys.h>
5: use petscsys
6: implicit none
8: PetscViewer viewer
9: PetscErrorCode ierr
11: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
12: if (ierr .ne. 0) then
13: print*,'Unable to initialize PETSc'
14: stop
15: endif
16: call PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr);CHKERRA(ierr)
17: call PetscViewerDestroy(viewer,ierr);CHKERRA(ierr)
18: call PetscFinalize(ierr)
19: end
21: !/*TEST
22: !
23: ! test:
24: ! output_file: output/ex1_1.out
25: !
26: !TEST*/