Actual source code: ex10f90.F90

petsc-master 2016-08-28
Report Typos and Errors
  1:       program ex10f90
  2: #include "petsc/finclude/petscdef.h"
  3:       use petsc
  4:       implicit none

  6:       PetscErrorCode                            :: ierr
  7:       Character(len=256)                        :: filename
  8:       PetscBool                                 :: flg

 10:       Call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
 11:       call PetscOptionsGetString(PETSC_NULL_OBJECT,PETSC_NULL_CHARACTER,'-f',filename,flg,ierr)
 12:       if (flg) then
 13:          call PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,filename,PETSC_TRUE,ierr);
 14:       end if
 15:       call PetscOptionsView(PETSC_NULL_OBJECT,PETSC_VIEWER_STDOUT_WORLD,ierr)
 16:       Call PetscFinalize(ierr)
 17:       end program ex10f90