1 2 program ex5f90 3 4#include <petsc/finclude/petscsys.h> 5 use petscsys 6 implicit none 7 8 PetscViewer viewer 9 PetscErrorCode ierr 10 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 20 21!/*TEST 22! 23! test: 24! output_file: output/ex1_1.out 25! 26!TEST*/ 27