Wrapper code like this does is not working for Robert:

subroutine my_PetscOptionsClearValue(value,ierr)
  use petscsys
  implicit none
  character(len=250), intent(in) :: value
  PetscErrorCode, intent(inout) :: ierr

#if PETSC_VERSION_LT(3,7,0)
  call PetscOptionsClearValue(value,ierr)
#else
  call PetscOptionsClearValue(PETSC_NULL_OBJECT,value,ierr)
#endif

Direct calls to PetscOptionsClearValue work, but calling through his
wrapper does not seem to do anything. Is Fortran doing something funny with
strings here?

Mark

Reply via email to