Actual source code: ex1f90.F90

petsc-dev 2014-08-28
Report Typos and Errors
  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