1: #if defined(PETSC_HAVE_FORTRAN_TYPE_STAR)
  2:       Interface
  3:       subroutine DMDASNESSetFunctionLocal(dm,imode,func,ctx,ierr)
  4:       use petscdmdef
  5:       use petscsnesdef
  6:        DM, intent(in) :: dm
  7:        InsertMode, intent(in) :: imode
  8:        external :: func
  9:        type(*) :: ctx
 10:        PetscErrorCode, intent(out) :: ierr
 11:       end subroutine DMDASNESSetFunctionLocal
 12:       end Interface

 14:       Interface
 15:       subroutine DMSNESSetFunctionLocal(dm,func,ctx,ierr)
 16:       use petscdmdef
 17:       use petscsnesdef
 18:        DM, intent(in) :: dm
 19:        external :: func
 20:        type(*)  :: ctx
 21:        PetscErrorCode, intent(out) :: ierr
 22:       end subroutine DMSNESSetFunctionLocal
 23:       end Interface

 25:       Interface
 26:       subroutine DMSNESSetJacobianLocal(dm,func,ctx,ierr)
 27:       use petscdmdef
 28:       use petscsnesdef
 29:        DM, intent(in) :: dm
 30:        external :: func
 31:        type(*)  :: ctx
 32:        PetscErrorCode, intent(out) :: ierr
 33:       end subroutine DMSNESSetJacobianLocal
 34:       end Interface

 36:       Interface
 37:       subroutine SNESSetConvergenceTest(snes,func,cctx,destroy,ierr)
 38:       use petscsnesdef
 39:        SNES :: snes
 40:        external :: func
 41:        type(*) :: cctx
 42:        external :: destroy
 43:        PetscErrorCode, intent(out) :: ierr
 44:       end subroutine
 45:       end Interface
 46: #endif
 47:       Interface
 48:       subroutine SNESSetType(a,b,ierr)
 49:       use petscsnesdef
 50:        SNES, intent(in) :: a
 51:        character(*), intent(in) :: b
 52:        PetscErrorCode, intent(out) :: ierr
 53:       end subroutine
 54:       end Interface

 56:       Interface
 57:       subroutine SNESGetType(a,b,ierr)
 58:       use petscsnesdef
 59:        SNES, intent(in) :: a
 60:        character(*), intent(out) :: b
 61:        PetscErrorCode, intent(out) :: ierr
 62:       end subroutine
 63:       end Interface

 65:       Interface
 66:       subroutine SNESView(a,b,z)
 67:       use petscsnesdef
 68:        SNES a
 69:        PetscViewer b
 70:        integer z
 71:       end subroutine
 72:       end Interface

 74:       Interface
 75:       subroutine SNESSetOptionsPrefix(snes,prefix,ierr)
 76:        use petscsnesdef
 77:        SNES, intent(in) :: snes
 78:        character(*), intent(in) :: prefix
 79:        PetscErrorCode, intent(out) :: ierr
 80:       end subroutine SNESSetOptionsPrefix
 81:       end Interface