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