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_LINE_SEARCH 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_LINE_SEARCH = -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: external SNESDEFAULTCONVERGED 51: external SNESSKIPCONVERGED 53: external SNESLINESEARCHCUBIC 54: external SNESLINESEARCHQUADRATIC 55: external SNESLINESEARCHNO 56: external SNESLINESEARCHNONORMS 58: external SNESDAFORMFUNCTION 59: external SNESDACOMPUTEJACOBIANWITHADIFOR 60: external SNESDACOMPUTEJACOBIAN 62: ! End of Fortran include file for the SNES package in PETSc