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_COUNT
16: PetscEnum SNES_DIVERGED_LINEAR_SOLVE
17: PetscEnum SNES_DIVERGED_FNORM_NAN
18: PetscEnum SNES_DIVERGED_MAX_IT
19: PetscEnum SNES_DIVERGED_LS_FAILURE
20: PetscEnum SNES_DIVERGED_LOCAL_MIN
21: PetscEnum SNES_CONVERGED_ITERATING
22:
23: parameter (SNES_CONVERGED_FNORM_ABS = 2)
24: parameter (SNES_CONVERGED_FNORM_RELATIVE = 3)
25: parameter (SNES_CONVERGED_PNORM_RELATIVE = 4)
26: parameter (SNES_CONVERGED_ITS = 5)
27: parameter (SNES_CONVERGED_TR_DELTA = 7)
29: parameter (SNES_DIVERGED_FUNCTION_COUNT = -2)
30: parameter (SNES_DIVERGED_LINEAR_SOLVE = -3)
31: parameter (SNES_DIVERGED_FNORM_NAN = -4)
32: parameter (SNES_DIVERGED_MAX_IT = -5)
33: parameter (SNES_DIVERGED_LS_FAILURE = -6)
34: parameter (SNES_DIVERGED_LOCAL_MIN = -8)
35: parameter (SNES_CONVERGED_ITERATING = 0)
36:
37: !
38: ! Some PETSc fortran functions that the user might pass as arguments
39: !
40: external SNESDEFAULTCOMPUTEJACOBIAN
41: external SNESDEFAULTCOMPUTEJACOBIANCOLOR
42: external SNESMONITORDEFAULT
43: external SNESMONITORLG
44: external SNESMONITORSOLUTION
45: external SNESMONITORSOLUTIONUPDATE
47: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIAN,'_SNESDEFAULTCOMPUTEJACOBIAN')
48: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIANCOLOR,'_SNESDEFAULTCOMPUTEJACOBIANCOLOR')
49: !PETSC_DEC_ATTRIBUTES(SNESMONITORDEFAULT,'_SNESMONITORDEFAULT')
50: !PETSC_DEC_ATTRIBUTES(SNESMONITORLG,'_SNESMONITORLG')
51: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTION,'_SNESMONITORSOLUTION')
52: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTIONUPDATE,'_SNESMONITORSOLUTIONUPDATE')
54: external SNESDEFAULTCONVERGED
55: external SNESSKIPCONVERGED
57: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCONVERGED,'_SNESDEFAULTCONVERGED')
58: !PETSC_DEC_ATTRIBUTES(SNESSKIPCONVERGED,'_SNESSKIPCONVERGED')
60: external SNESLINESEARCHCUBIC
61: external SNESLINESEARCHQUADRATIC
62: external SNESLINESEARCHNO
63: external SNESLINESEARCHNONORMS
65: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHCUBIC,'_SNESLINESEARCHCUBIC')
66: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHQUADRATIC,'_SNESLINESEARCHQUADRATIC')
67: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNO,'_SNESLINESEARCHNO')
68: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNONORMS,'_SNESLINESEARCHNONORMS')
70: external SNESDAFORMFUNCTION
71: external SNESDACOMPUTEJACOBIANWITHADIFOR
72: external SNESDACOMPUTEJACOBIAN
74: !PETSC_DEC_ATTRIBUTES(SNESDAFORMFUNCTION,'_SNESDAFORMFUNCTION')
75: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIANWITHADIFOR,'_SNESDACOMPUTEJACOBIANWITHADIFOR')
76: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIAN,'_SNESDACOMPUTEJACOBIAN')
77: !
78: ! End of Fortran include file for the SNES package in PETSc