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