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
80: interface
81: subroutine SNESDestroy(a,z)
82: import tSNES
83: SNES a
84: PetscErrorCode z
85: end subroutine
86: end interface