1c4762a1bSJed Brown 25906a408SBlaise Bourdin program ex1f90 3c4762a1bSJed Brown 4c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 5c4762a1bSJed Brown use petscsys 65906a408SBlaise Bourdin use iso_c_binding 7c4762a1bSJed Brown implicit none 8c4762a1bSJed Brown 9c4762a1bSJed Brown PetscViewer viewer 10c4762a1bSJed Brown PetscErrorCode ierr 115906a408SBlaise Bourdin call PetscInitialize(PETSC_NULL_CHARACTER,"ex1f90 test"//c_new_line,ierr) 12c4762a1bSJed Brown if (ierr .ne. 0) then 13c4762a1bSJed Brown print*,'Unable to initialize PETSc' 14c4762a1bSJed Brown stop 15c4762a1bSJed Brown endif 16c4762a1bSJed Brown call PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr);CHKERRA(ierr) 17c4762a1bSJed Brown call PetscViewerDestroy(viewer,ierr);CHKERRA(ierr) 18c4762a1bSJed Brown call PetscFinalize(ierr) 19c4762a1bSJed Brown end 20c4762a1bSJed Brown 21c4762a1bSJed Brown!/*TEST 22c4762a1bSJed Brown! 235906a408SBlaise Bourdin! build: 24*dfd57a17SPierre Jolivet! requires: defined(PETSC_USING_F2003) defined(PETSC_USING_F90FREEFORM) 255906a408SBlaise Bourdin! 26c4762a1bSJed Brown! test: 27c4762a1bSJed Brown! output_file: output/ex1_1.out 28c4762a1bSJed Brown! 29c4762a1bSJed Brown!TEST*/ 30