1*c4762a1bSJed Brown 2*c4762a1bSJed Brown program ex5f90 3*c4762a1bSJed Brown 4*c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 5*c4762a1bSJed Brown use petscsys 6*c4762a1bSJed Brown implicit none 7*c4762a1bSJed Brown 8*c4762a1bSJed Brown PetscViewer viewer 9*c4762a1bSJed Brown PetscErrorCode ierr 10*c4762a1bSJed Brown 11*c4762a1bSJed Brown call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 12*c4762a1bSJed Brown if (ierr .ne. 0) then 13*c4762a1bSJed Brown print*,'Unable to initialize PETSc' 14*c4762a1bSJed Brown stop 15*c4762a1bSJed Brown endif 16*c4762a1bSJed Brown call PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr);CHKERRA(ierr) 17*c4762a1bSJed Brown call PetscViewerDestroy(viewer,ierr);CHKERRA(ierr) 18*c4762a1bSJed Brown call PetscFinalize(ierr) 19*c4762a1bSJed Brown end 20*c4762a1bSJed Brown 21*c4762a1bSJed Brown!/*TEST 22*c4762a1bSJed Brown! 23*c4762a1bSJed Brown! test: 24*c4762a1bSJed Brown! output_file: output/ex1_1.out 25*c4762a1bSJed Brown! 26*c4762a1bSJed Brown!TEST*/ 27