2: program ex5f90 3: implicit none 4: #include finclude/petscsys.h 5: #include finclude/petscviewer.h 6: #include "finclude/petscviewer.h90" 7: PetscViewer viewer 8: PetscErrorCode ierr 10: call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 12: call PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr) 13: call PetscViewerDestroy(viewer,ierr) 15: call PetscFinalize(ierr) 16: end