1c4762a1bSJed Brown 25906a408SBlaise Bourdin program ex1f90 3c4762a1bSJed Brown 4c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 5c4762a1bSJed Brown use petscsys 6eb20d01eSSatish Balay use,intrinsic :: iso_c_binding 7c4762a1bSJed Brown implicit none 8c4762a1bSJed Brown 9c4762a1bSJed Brown PetscViewer viewer 10c4762a1bSJed Brown PetscErrorCode ierr 11*dcb3e689SBarry Smith PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER,'ex1f90 test'//c_new_line,ierr)) 12d8606c27SBarry Smith 13d8606c27SBarry Smith PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr)) 14d8606c27SBarry Smith PetscCallA(PetscViewerDestroy(viewer,ierr)) 15d8606c27SBarry Smith PetscCallA(PetscFinalize(ierr)) 16c4762a1bSJed Brown end 17c4762a1bSJed Brown 18c4762a1bSJed Brown!/*TEST 19c4762a1bSJed Brown! 205906a408SBlaise Bourdin! build: 21dfd57a17SPierre Jolivet! requires: defined(PETSC_USING_F2003) defined(PETSC_USING_F90FREEFORM) 225906a408SBlaise Bourdin! 23c4762a1bSJed Brown! test: 24c4762a1bSJed Brown! output_file: output/ex1_1.out 25c4762a1bSJed Brown! 26c4762a1bSJed Brown!TEST*/ 27