2: program ex1f90 4: #include <petsc/finclude/petscsys.h> 5: use petscsys 6: use,intrinsic :: iso_c_binding 7: implicit none 9: PetscViewer viewer 10: PetscErrorCode ierr 11: PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER,"ex1f90 test"//c_new_line,ierr)) 13: PetscCallA(PetscViewerBinaryOpen(PETSC_COMM_WORLD,'binaryoutput',FILE_MODE_READ,viewer,ierr)) 14: PetscCallA(PetscViewerDestroy(viewer,ierr)) 15: PetscCallA(PetscFinalize(ierr)) 16: end 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*/