1: ! 2: ! 3: ! Include file for Fortran use of the KSP package in PETSc 4: ! 5: #if !defined (PETSCKSPDEF_H) 6: #define PETSCKSPDEF_H 8: #include "petsc/finclude/petscpc.h" 10: #define KSP type(tKSP) 11: #define KSPGuess type(tKSPGuess) 13: #define KSPType character*(80) 14: #define KSPGuessType character*(80) 15: #define KSPCGType PetscEnum 16: #define KSPFCDTruncationType PetscEnum 17: #define KSPConvergedReason PetscEnum 18: #define KSPNormType PetscEnum 19: #define KSPGMRESCGSRefinementType PetscEnum 20: #define MatSchurComplementAinvType PetscEnum 21: #define MatLMVMSymBroydenScaleType PetscEnum 22: #define KSPHPDDMType PetscEnum 23: #define KSPChebyshevKind PetscEnum 25: ! 26: ! Various Krylov subspace methods 27: ! 28: #define KSPRICHARDSON 'richardson' 29: #define KSPCHEBYSHEV 'chebyshev' 30: #define KSPCG 'cg' 31: #define KSPGROPPCG 'groppcg' 32: #define KSPPIPECG 'pipecg' 33: #define KSPPIPECGRR 'pipecgrr' 34: #define KSPPIPELCG 'pipelcg' 35: #define KSPPIPECG2 'pipecg2' 36: #define KSPCGNE 'cgne' 37: #define KSPNASH 'nash' 38: #define KSPSTCG 'stcg' 39: #define KSPGLTR 'gltr' 40: #define KSPFCG 'fcg' 41: #define KSPPIPEFCG 'pipefcg' 42: #define KSPGMRES 'gmres' 43: #define KSPPIPEFGMRES 'pipefgmres' 44: #define KSPFGMRES 'fgmres' 45: #define KSPLGMRES 'lgmres' 46: #define KSPDGMRES 'dgmres' 47: #define KSPPGMRES 'pgmres' 48: #define KSPTCQMR 'tcqmr' 49: #define KSPBCGS 'bcgs' 50: #define KSPIBCGS 'ibcgs' 51: #define KSPQMRCGS 'qmrcgs' 52: #define KSPFBCGS 'fbcgs' 53: #define KSPFBCGSR 'fbcgsr' 54: #define KSPBCGSL 'bcgsl' 55: #define KSPPIPEBCGS 'pipebcgs' 56: #define KSPCGS 'cgs' 57: #define KSPTFQMR 'tfqmr' 58: #define KSPCR 'cr' 59: #define KSPPIPECR 'pipecr' 60: #define KSPLSQR 'lsqr' 61: #define KSPPREONLY 'preonly' 62: #define KSPNONE 'none' 63: #define KSPQCG 'qcg' 64: #define KSPBICG 'bicg' 65: #define KSPMINRES 'minres' 66: #define KSPSYMMLQ 'symmlq' 67: #define KSPLCD 'lcd' 68: #define KSPPYTHON 'python' 69: #define KSPGCR 'gcr' 70: #define KSPPIPEGCR 'pipegcr' 71: #define KSPTSIRM 'tsirm' 72: #define KSPCGLS 'cgls' 73: #define KSPFETIDP 'fetidp' 74: #define KSPHPDDM 'hpddm' 75: ! 76: ! Various Initial guesses for Krylov subspace methods 77: ! 78: #define KSPGUESSFISCHER 'fischer' 79: #define KSPGUESSPOD 'pod' 80: #endif