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 SNESDEFAULTCOMPUTEJACOBIANCOLOR
44: external SNESMONITORDEFAULT
45: external SNESMONITORLG
46: external SNESMONITORSOLUTION
47: external SNESMONITORSOLUTIONUPDATE
49: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIAN,'_SNESDEFAULTCOMPUTEJACOBIAN')
50: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIANCOLOR,'_SNESDEFAULTCOMPUTEJACOBIANCOLOR')
51: !PETSC_DEC_ATTRIBUTES(SNESMONITORDEFAULT,'_SNESMONITORDEFAULT')
52: !PETSC_DEC_ATTRIBUTES(SNESMONITORLG,'_SNESMONITORLG')
53: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTION,'_SNESMONITORSOLUTION')
54: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTIONUPDATE,'_SNESMONITORSOLUTIONUPDATE')
56: external SNESDEFAULTCONVERGED
57: external SNESSKIPCONVERGED
59: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCONVERGED,'_SNESDEFAULTCONVERGED')
60: !PETSC_DEC_ATTRIBUTES(SNESSKIPCONVERGED,'_SNESSKIPCONVERGED')
62: external SNESLINESEARCHCUBIC
63: external SNESLINESEARCHQUADRATIC
64: external SNESLINESEARCHNO
65: external SNESLINESEARCHNONORMS
67: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHCUBIC,'_SNESLINESEARCHCUBIC')
68: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHQUADRATIC,'_SNESLINESEARCHQUADRATIC')
69: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNO,'_SNESLINESEARCHNO')
70: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNONORMS,'_SNESLINESEARCHNONORMS')
72: external SNESDAFORMFUNCTION
73: external SNESDACOMPUTEJACOBIANWITHADIFOR
74: external SNESDACOMPUTEJACOBIAN
76: !PETSC_DEC_ATTRIBUTES(SNESDAFORMFUNCTION,'_SNESDAFORMFUNCTION')
77: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIANWITHADIFOR,'_SNESDACOMPUTEJACOBIANWITHADIFOR')
78: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIAN,'_SNESDACOMPUTEJACOBIAN')
79: !
80: ! End of Fortran include file for the SNES package in PETSc