Actual source code: petscsnes.h
1: !
2: ! Include file for Fortran use of the SNES package in PETSc
3: !
4: #include finclude/petscsnesdef.h
6: !
7: ! Convergence flags
8: !
9: PetscEnum SNES_CONVERGED_FNORM_ABS
10: PetscEnum SNES_CONVERGED_FNORM_RELATIVE
11: PetscEnum SNES_CONVERGED_PNORM_RELATIVE
12: PetscEnum SNES_CONVERGED_ITS
13: PetscEnum SNES_CONVERGED_TR_DELTA
15: PetscEnum SNES_DIVERGED_FUNCTION_DOMAIN
16: PetscEnum SNES_DIVERGED_FUNCTION_COUNT
17: PetscEnum SNES_DIVERGED_LINEAR_SOLVE
18: PetscEnum SNES_DIVERGED_FNORM_NAN
19: PetscEnum SNES_DIVERGED_MAX_IT
20: PetscEnum SNES_DIVERGED_LS_FAILURE
21: PetscEnum SNES_DIVERGED_LOCAL_MIN
22: PetscEnum SNES_CONVERGED_ITERATING
23:
24: parameter (SNES_CONVERGED_FNORM_ABS = 2)
25: parameter (SNES_CONVERGED_FNORM_RELATIVE = 3)
26: parameter (SNES_CONVERGED_PNORM_RELATIVE = 4)
27: parameter (SNES_CONVERGED_ITS = 5)
28: parameter (SNES_CONVERGED_TR_DELTA = 7)
30: parameter (SNES_DIVERGED_FUNCTION_DOMAIN = -1)
31: parameter (SNES_DIVERGED_FUNCTION_COUNT = -2)
32: parameter (SNES_DIVERGED_LINEAR_SOLVE = -3)
33: parameter (SNES_DIVERGED_FNORM_NAN = -4)
34: parameter (SNES_DIVERGED_MAX_IT = -5)
35: parameter (SNES_DIVERGED_LS_FAILURE = -6)
36: parameter (SNES_DIVERGED_LOCAL_MIN = -8)
37: parameter (SNES_CONVERGED_ITERATING = 0)
38:
39: !
40: ! Some PETSc fortran functions that the user might pass as arguments
41: !
42: external SNESDEFAULTCOMPUTEJACOBIAN
43: external MATMFFDCOMPUTEJACOBIAN
44: external SNESDEFAULTCOMPUTEJACOBIANCOLOR
45: external SNESMONITORDEFAULT
46: external SNESMONITORLG
47: external SNESMONITORSOLUTION
48: external SNESMONITORSOLUTIONUPDATE
50: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIAN,'_SNESDEFAULTCOMPUTEJACOBIAN')
51: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIANCOLOR,'_SNESDEFAULTCOMPUTEJACOBIANCOLOR')
52: !PETSC_DEC_ATTRIBUTES(SNESMONITORDEFAULT,'_SNESMONITORDEFAULT')
53: !PETSC_DEC_ATTRIBUTES(SNESMONITORLG,'_SNESMONITORLG')
54: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTION,'_SNESMONITORSOLUTION')
55: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTIONUPDATE,'_SNESMONITORSOLUTIONUPDATE')
57: external SNESDEFAULTCONVERGED
58: external SNESSKIPCONVERGED
60: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCONVERGED,'_SNESDEFAULTCONVERGED')
61: !PETSC_DEC_ATTRIBUTES(SNESSKIPCONVERGED,'_SNESSKIPCONVERGED')
63: external SNESLINESEARCHCUBIC
64: external SNESLINESEARCHQUADRATIC
65: external SNESLINESEARCHNO
66: external SNESLINESEARCHNONORMS
68: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHCUBIC,'_SNESLINESEARCHCUBIC')
69: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHQUADRATIC,'_SNESLINESEARCHQUADRATIC')
70: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNO,'_SNESLINESEARCHNO')
71: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNONORMS,'_SNESLINESEARCHNONORMS')
73: external SNESDAFORMFUNCTION
74: external SNESDACOMPUTEJACOBIANWITHADIFOR
75: external SNESDACOMPUTEJACOBIAN
77: !PETSC_DEC_ATTRIBUTES(SNESDAFORMFUNCTION,'_SNESDAFORMFUNCTION')
78: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIANWITHADIFOR,'_SNESDACOMPUTEJACOBIANWITHADIFOR')
79: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIAN,'_SNESDACOMPUTEJACOBIAN')
80: !
81: ! End of Fortran include file for the SNES package in PETSc