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 SNESDEFAULTCOMPUTEJACOBIANCOLOR
 44:       external SNESMONITORDEFAULT
 45:       external SNESMONITORLG
 46:       external SNESMONITORSOLUTION
 47:       external SNESMONITORSOLUTIONUPDATE

 49: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIAN,'_SNESDEFAULTCOMPUTEJACOBIAN')
 50: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCOMPUTEJACOBIANCOLOR,'_SNESDEFAULTCOMPUTEJACOBIANCOLOR')
 51: !PETSC_DEC_ATTRIBUTES(SNESMONITORDEFAULT,'_SNESMONITORDEFAULT')
 52: !PETSC_DEC_ATTRIBUTES(SNESMONITORLG,'_SNESMONITORLG')
 53: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTION,'_SNESMONITORSOLUTION')
 54: !PETSC_DEC_ATTRIBUTES(SNESMONITORSOLUTIONUPDATE,'_SNESMONITORSOLUTIONUPDATE')

 56:       external SNESDEFAULTCONVERGED
 57:       external SNESSKIPCONVERGED

 59: !PETSC_DEC_ATTRIBUTES(SNESDEFAULTCONVERGED,'_SNESDEFAULTCONVERGED')
 60: !PETSC_DEC_ATTRIBUTES(SNESSKIPCONVERGED,'_SNESSKIPCONVERGED')

 62:       external SNESLINESEARCHCUBIC
 63:       external SNESLINESEARCHQUADRATIC
 64:       external SNESLINESEARCHNO
 65:       external SNESLINESEARCHNONORMS

 67: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHCUBIC,'_SNESLINESEARCHCUBIC')
 68: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHQUADRATIC,'_SNESLINESEARCHQUADRATIC')
 69: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNO,'_SNESLINESEARCHNO')
 70: !PETSC_DEC_ATTRIBUTES(SNESLINESEARCHNONORMS,'_SNESLINESEARCHNONORMS')

 72:       external SNESDAFORMFUNCTION
 73:       external SNESDACOMPUTEJACOBIANWITHADIFOR
 74:       external SNESDACOMPUTEJACOBIAN

 76: !PETSC_DEC_ATTRIBUTES(SNESDAFORMFUNCTION,'_SNESDAFORMFUNCTION')
 77: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIANWITHADIFOR,'_SNESDACOMPUTEJACOBIANWITHADIFOR')
 78: !PETSC_DEC_ATTRIBUTES(SNESDACOMPUTEJACOBIAN,'_SNESDACOMPUTEJACOBIAN')
 79: !
 80: !  End of Fortran include file for the SNES package in PETSc