Actual source code: ex1f90.F90

      2:       program ex5f90

      4: #include <petsc/finclude/petscsys.h>
      5:       use petscsys
      6:       implicit none

      8:       PetscViewer viewer
      9:       PetscErrorCode ierr

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

     21: !/*TEST
     22: !
     23: !   test:
     24: !      output_file: output/ex1_1.out
     25: !
     26: !TEST*/