Actual source code: ex1f90.F90

petsc-master 2018-06-24
Report Typos and Errors

  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*/