Actual source code: petscsnes.h90

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

 13:       Interface
 14:       subroutine DMSNESSetFunctionLocal(dm,func,ctx,ierr)
 15:       import tSNES,tDM
 16:        DM, intent(in) :: dm
 17:        external :: func
 18:        type(*)  :: ctx
 19:        PetscErrorCode, intent(out) :: ierr
 20:       end subroutine DMSNESSetFunctionLocal
 21:       end Interface

 23:       Interface
 24:       subroutine DMSNESSetJacobianLocal(dm,func,ctx,ierr)
 25:       import tSNES,tDM
 26:        DM, intent(in) :: dm
 27:        external :: func
 28:        type(*)  :: ctx
 29:        PetscErrorCode, intent(out) :: ierr
 30:       end subroutine DMSNESSetJacobianLocal
 31:       end Interface

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

 53:       Interface
 54:       subroutine SNESGetType(a,b,ierr)
 55:       import tSNES
 56:        SNES, intent(in) :: a
 57:        character(*), intent(out) :: b
 58:        PetscErrorCode, intent(out) :: ierr
 59:       end subroutine
 60:       end Interface

 62:       Interface
 63:       subroutine SNESView(a,b,z)
 64:       import tSNES,tPetscViewer
 65:        SNES a
 66:        PetscViewer b
 67:        PetscErrorCode z
 68:       end subroutine
 69:       end Interface

 71:       Interface
 72:       subroutine SNESSetOptionsPrefix(snes,prefix,ierr)
 73:        import tSNES
 74:        SNES, intent(in) :: snes
 75:        character(*), intent(in) :: prefix
 76:        PetscErrorCode, intent(out) :: ierr
 77:       end subroutine SNESSetOptionsPrefix
 78:       end Interface