Actual source code: ex1f90.F90


  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*/