1: !
  2: !
  3: !  Include file for Fortran use of the KSP package in PETSc
  4: !
 5:  #include finclude/petsckspdef.h

  7: !
  8: !  CG Types
  9: !
 10:       PetscEnum KSP_CG_SYMMETRIC
 11:       PetscEnum KSP_CG_HERMITIAN

 13:       parameter (KSP_CG_SYMMETRIC=0,KSP_CG_HERMITIAN=1)

 15:       PetscEnum KSP_CONVERGED_RTOL
 16:       PetscEnum KSP_CONVERGED_ATOL
 17:       PetscEnum KSP_CONVERGED_ITS
 18:       PetscEnum KSP_DIVERGED_NULL
 19:       PetscEnum KSP_DIVERGED_ITS
 20:       PetscEnum KSP_DIVERGED_DTOL
 21:       PetscEnum KSP_DIVERGED_BREAKDOWN
 22:       PetscEnum KSP_CONVERGED_ITERATING
 23:       PetscEnum KSP_CONVERGED_CG_NEG_CURVE
 24:       PetscEnum KSP_CONVERGED_CG_CONSTRAINED
 25:       PetscEnum KSP_CONVERGED_STEP_LENGTH
 26:       PetscEnum KSP_CONVERGED_HAPPY_BREAKDOWN
 27:       PetscEnum KSP_DIVERGED_BREAKDOWN_BICG
 28:       PetscEnum KSP_DIVERGED_NONSYMMETRIC
 29:       PetscEnum KSP_DIVERGED_INDEFINITE_PC
 30:       PetscEnum KSP_DIVERGED_NANORINF
 31:       PetscEnum KSP_DIVERGED_INDEFINITE_MAT

 33:       parameter (KSP_CONVERGED_RTOL            = 2)
 34:       parameter (KSP_CONVERGED_ATOL            = 3)
 35:       parameter (KSP_CONVERGED_ITS             = 4)
 36:       parameter (KSP_CONVERGED_CG_NEG_CURVE    = 5)
 37:       parameter (KSP_CONVERGED_CG_CONSTRAINED  = 6)
 38:       parameter (KSP_CONVERGED_STEP_LENGTH     = 7)
 39:       parameter (KSP_CONVERGED_HAPPY_BREAKDOWN = 8)

 41:       parameter (KSP_DIVERGED_NULL           = -2)
 42:       parameter (KSP_DIVERGED_ITS            = -3)
 43:       parameter (KSP_DIVERGED_DTOL           = -4)
 44:       parameter (KSP_DIVERGED_BREAKDOWN      = -5)
 45:       parameter (KSP_DIVERGED_BREAKDOWN_BICG = -6)
 46:       parameter (KSP_DIVERGED_NONSYMMETRIC   = -7)
 47:       parameter (KSP_DIVERGED_INDEFINITE_PC  = -8)
 48:       parameter (KSP_DIVERGED_NANORINF       = -9)
 49:       parameter (KSP_DIVERGED_INDEFINITE_MAT = -10)

 51:       parameter (KSP_CONVERGED_ITERATING = 0)
 52: !
 53: !  Possible arguments to KSPSetNormType()
 54: !
 55:       PetscEnum KSP_NORM_NONE
 56:       PetscEnum KSP_NORM_PRECONDITIONED
 57:       PetscEnum KSP_NORM_UNPRECONDITIONED
 58:       PetscEnum KSP_NORM_NATURAL

 60:       parameter (KSP_NORM_NONE=0)
 61:       parameter (KSP_NORM_PRECONDITIONED=1)
 62:       parameter (KSP_NORM_UNPRECONDITIONED=2)
 63:       parameter (KSP_NORM_NATURAL=3)
 64: !
 65: !   Possible arguments to KSPMonitorSet()
 66: !
 67:       external KSPCONVERGEDDEFAULT
 68:       external KSPMONITORDEFAULT
 69:       external KSPMONITORTRUERESIDUALNORM
 70:       external KSPMONITORLGRESIDUALNORM
 71:       external KSPMONITORLGTRUERESIDUALNORM
 72:       external KSPMONITORSOLUTION
 73:       external KSPMONITORSINGULARVALUE
 74:       external KSPGMRESMONITORKRYLOV
 75: !
 76: !   Possible arguments to KSPGMRESSetRefinementType()
 77: !
 78:       PetscEnum KSP_GMRES_CGS_REFINE_NEVER
 79:       PetscEnum KSP_GMRES_CGS_REFINE_IFNEEDED
 80:       PetscEnum KSP_GMRES_CGS_REFINE_ALWAYS
 81: !
 82:       parameter (KSP_GMRES_CGS_REFINE_NEVER = 0)
 83:       parameter (KSP_GMRES_CGS_REFINE_IFNEEDED = 1)
 84:       parameter (KSP_GMRES_CGS_REFINE_ALWAYS = 2)
 85: !
 86: !  End of Fortran include file for the KSP package in PETSc
 87: !