Actual source code: ex1f90.F90

  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