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