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_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