Actual source code: ex1f90.F90

petsc-master 2016-09-30
Report Typos and Errors
  2:       program ex5f90
  3:       implicit none
 4:  #include <petsc/finclude/petscsys.h>
 5:  #include <petsc/finclude/petscviewer.h>
  6: #include <petsc/finclude/petscviewer.h90>
  7:       PetscViewer viewer
  8:       PetscErrorCode ierr

 10:       call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
 11:       if (ierr .ne. 0) then
 12:          print*,'Unable to initialize PETSc'
 13:          stop
 14:       endif
 15:       call PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr);CHKERRQ(ierr)
 16:       call PetscViewerDestroy(viewer,ierr);CHKERRQ(ierr)
 17:       call PetscFinalize(ierr)
 18:       end