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