Date: 2013-07-02T14:38:12+00:00

Actual source code: ex1f90.F90
petsc-3.4.2 2013-07-02

      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