1: ! 2: ! 3: ! Include file for Fortran use of the KSP package in PETSc 4: ! 5: #include petsc/finclude/petsckspdef.h 7: ! 8: ! CG Types 9: ! 10: PetscEnum KSP_CG_SYMMETRIC 11: PetscEnum KSP_CG_HERMITIAN 12: parameter (KSP_CG_SYMMETRIC=0,KSP_CG_HERMITIAN=1) 14: PetscEnum KSP_FCG_TRUNC_TYPE_STANDARD 15: PetscEnum KSP_FCG_TRUNC_TYPE_NOTAY 16: parameter (KSP_FCG_TRUNC_TYPE_STANDARD=0) 17: parameter (KSP_FCG_TRUNC_TYPE_NOTAY=1) 19: PetscEnum KSP_CONVERGED_RTOL 20: PetscEnum KSP_CONVERGED_ATOL 21: PetscEnum KSP_CONVERGED_ITS 22: PetscEnum KSP_DIVERGED_NULL 23: PetscEnum KSP_DIVERGED_ITS 24: PetscEnum KSP_DIVERGED_DTOL 25: PetscEnum KSP_DIVERGED_BREAKDOWN 26: PetscEnum KSP_CONVERGED_ITERATING 27: PetscEnum KSP_CONVERGED_CG_NEG_CURVE 28: PetscEnum KSP_CONVERGED_CG_CONSTRAINED 29: PetscEnum KSP_CONVERGED_STEP_LENGTH 30: PetscEnum KSP_CONVERGED_HAPPY_BREAKDOWN 31: PetscEnum KSP_DIVERGED_BREAKDOWN_BICG 32: PetscEnum KSP_DIVERGED_NONSYMMETRIC 33: PetscEnum KSP_DIVERGED_INDEFINITE_PC 34: PetscEnum KSP_DIVERGED_NANORINF 35: PetscEnum KSP_DIVERGED_INDEFINITE_MAT 37: parameter (KSP_CONVERGED_RTOL = 2) 38: parameter (KSP_CONVERGED_ATOL = 3) 39: parameter (KSP_CONVERGED_ITS = 4) 40: parameter (KSP_CONVERGED_CG_NEG_CURVE = 5) 41: parameter (KSP_CONVERGED_CG_CONSTRAINED = 6) 42: parameter (KSP_CONVERGED_STEP_LENGTH = 7) 43: parameter (KSP_CONVERGED_HAPPY_BREAKDOWN = 8) 45: parameter (KSP_DIVERGED_NULL = -2) 46: parameter (KSP_DIVERGED_ITS = -3) 47: parameter (KSP_DIVERGED_DTOL = -4) 48: parameter (KSP_DIVERGED_BREAKDOWN = -5) 49: parameter (KSP_DIVERGED_BREAKDOWN_BICG = -6) 50: parameter (KSP_DIVERGED_NONSYMMETRIC = -7) 51: parameter (KSP_DIVERGED_INDEFINITE_PC = -8) 52: parameter (KSP_DIVERGED_NANORINF = -9) 53: parameter (KSP_DIVERGED_INDEFINITE_MAT = -10) 55: parameter (KSP_CONVERGED_ITERATING = 0) 56: ! 57: ! Possible arguments to KSPSetNormType() 58: ! 59: PetscEnum KSP_NORM_NONE 60: PetscEnum KSP_NORM_PRECONDITIONED 61: PetscEnum KSP_NORM_UNPRECONDITIONED 62: PetscEnum KSP_NORM_NATURAL 64: parameter (KSP_NORM_NONE=0) 65: parameter (KSP_NORM_PRECONDITIONED=1) 66: parameter (KSP_NORM_UNPRECONDITIONED=2) 67: parameter (KSP_NORM_NATURAL=3) 68: ! 69: ! Possible arguments to KSPMonitorSet() 70: ! 71: external KSPCONVERGEDDEFAULT 72: external KSPMONITORDEFAULT 73: external KSPMONITORTRUERESIDUALNORM 74: external KSPMONITORLGRESIDUALNORM 75: external KSPMONITORLGTRUERESIDUALNORM 76: external KSPMONITORSOLUTION 77: external KSPMONITORSINGULARVALUE 78: external KSPGMRESMONITORKRYLOV 79: ! 80: ! Possible arguments to KSPGMRESSetRefinementType() 81: ! 82: PetscEnum KSP_GMRES_CGS_REFINE_NEVER 83: PetscEnum KSP_GMRES_CGS_REFINE_IFNEEDED 84: PetscEnum KSP_GMRES_CGS_REFINE_ALWAYS 85: ! 86: parameter (KSP_GMRES_CGS_REFINE_NEVER = 0) 87: parameter (KSP_GMRES_CGS_REFINE_IFNEEDED = 1) 88: parameter (KSP_GMRES_CGS_REFINE_ALWAYS = 2) 89: ! 90: ! End of Fortran include file for the KSP package in PETSc 91: !