2: program ex5f90 3: implicit none 4: #include include/finclude/petsc.h 5: #include include/finclude/petscviewer.h 6: #include "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