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