1 /* 2 Preconditioner module. 3 */ 4 #if !defined(__PETSCPC_H) 5 #define __PETSCPC_H 6 #include <petscmat.h> 7 #include <petscdmtypes.h> 8 9 PETSC_EXTERN PetscErrorCode PCInitializePackage(void); 10 11 /* 12 PCList contains the list of preconditioners currently registered 13 These are added with PCRegister() 14 */ 15 PETSC_EXTERN PetscFunctionList PCList; 16 17 /*S 18 PC - Abstract PETSc object that manages all preconditioners including direct solvers such as PCLU 19 20 Level: beginner 21 22 Concepts: preconditioners 23 24 .seealso: PCCreate(), PCSetType(), PCType (for list of available types) 25 S*/ 26 typedef struct _p_PC* PC; 27 28 /*J 29 PCType - String with the name of a PETSc preconditioner method. 30 31 Level: beginner 32 33 Notes: Click on the links below to see details on a particular solver 34 35 PCRegister() is used to register preconditioners that are then accessible via PCSetType() 36 37 .seealso: PCSetType(), PC, PCCreate(), PCRegister(), PCSetFromOptions() 38 J*/ 39 typedef const char* PCType; 40 #define PCNONE "none" 41 #define PCJACOBI "jacobi" 42 #define PCSOR "sor" 43 #define PCLU "lu" 44 #define PCSHELL "shell" 45 #define PCBJACOBI "bjacobi" 46 #define PCMG "mg" 47 #define PCEISENSTAT "eisenstat" 48 #define PCILU "ilu" 49 #define PCICC "icc" 50 #define PCASM "asm" 51 #define PCGASM "gasm" 52 #define PCKSP "ksp" 53 #define PCCOMPOSITE "composite" 54 #define PCREDUNDANT "redundant" 55 #define PCSPAI "spai" 56 #define PCNN "nn" 57 #define PCCHOLESKY "cholesky" 58 #define PCPBJACOBI "pbjacobi" 59 #define PCMAT "mat" 60 #define PCHYPRE "hypre" 61 #define PCPARMS "parms" 62 #define PCFIELDSPLIT "fieldsplit" 63 #define PCTFS "tfs" 64 #define PCML "ml" 65 #define PCGALERKIN "galerkin" 66 #define PCEXOTIC "exotic" 67 #define PCCP "cp" 68 #define PCBFBT "bfbt" 69 #define PCLSC "lsc" 70 #define PCPYTHON "python" 71 #define PCPFMG "pfmg" 72 #define PCSYSPFMG "syspfmg" 73 #define PCREDISTRIBUTE "redistribute" 74 #define PCSVD "svd" 75 #define PCGAMG "gamg" 76 #define PCSACUSP "sacusp" /* these four run on NVIDIA GPUs using CUSP */ 77 #define PCSACUSPPOLY "sacusppoly" 78 #define PCBICGSTABCUSP "bicgstabcusp" 79 #define PCAINVCUSP "ainvcusp" 80 #define PCBDDC "bddc" 81 #define PCKACZMARZ "kaczmarz" 82 83 /* Logging support */ 84 PETSC_EXTERN PetscClassId PC_CLASSID; 85 86 /*E 87 PCSide - If the preconditioner is to be applied to the left, right 88 or symmetrically around the operator. 89 90 Level: beginner 91 92 .seealso: 93 E*/ 94 typedef enum { PC_SIDE_DEFAULT=-1,PC_LEFT,PC_RIGHT,PC_SYMMETRIC} PCSide; 95 #define PC_SIDE_MAX (PC_SYMMETRIC + 1) 96 PETSC_EXTERN const char *const *const PCSides; 97 98 PETSC_EXTERN PetscErrorCode PCCreate(MPI_Comm,PC*); 99 PETSC_EXTERN PetscErrorCode PCSetType(PC,PCType); 100 PETSC_EXTERN PetscErrorCode PCSetUp(PC); 101 PETSC_EXTERN PetscErrorCode PCSetUpOnBlocks(PC); 102 PETSC_EXTERN PetscErrorCode PCApply(PC,Vec,Vec); 103 PETSC_EXTERN PetscErrorCode PCApplySymmetricLeft(PC,Vec,Vec); 104 PETSC_EXTERN PetscErrorCode PCApplySymmetricRight(PC,Vec,Vec); 105 PETSC_EXTERN PetscErrorCode PCApplyBAorAB(PC,PCSide,Vec,Vec,Vec); 106 PETSC_EXTERN PetscErrorCode PCApplyTranspose(PC,Vec,Vec); 107 PETSC_EXTERN PetscErrorCode PCApplyTransposeExists(PC,PetscBool *); 108 PETSC_EXTERN PetscErrorCode PCApplyBAorABTranspose(PC,PCSide,Vec,Vec,Vec); 109 PETSC_EXTERN PetscErrorCode PCSetReusePreconditioner(PC,PetscBool); 110 111 #define PC_FILE_CLASSID 1211222 112 113 /*E 114 PCRichardsonConvergedReason - reason a PCApplyRichardson method terminates 115 116 Level: advanced 117 118 Notes: this must match finclude/petscpc.h and the KSPConvergedReason values in petscksp.h 119 120 .seealso: PCApplyRichardson() 121 E*/ 122 typedef enum { 123 PCRICHARDSON_CONVERGED_RTOL = 2, 124 PCRICHARDSON_CONVERGED_ATOL = 3, 125 PCRICHARDSON_CONVERGED_ITS = 4, 126 PCRICHARDSON_DIVERGED_DTOL = -4} PCRichardsonConvergedReason; 127 128 PETSC_EXTERN PetscErrorCode PCApplyRichardson(PC,Vec,Vec,Vec,PetscReal,PetscReal,PetscReal,PetscInt,PetscBool ,PetscInt*,PCRichardsonConvergedReason*); 129 PETSC_EXTERN PetscErrorCode PCApplyRichardsonExists(PC,PetscBool *); 130 PETSC_EXTERN PetscErrorCode PCSetInitialGuessNonzero(PC,PetscBool ); 131 PETSC_EXTERN PetscErrorCode PCSetUseAmat(PC,PetscBool); 132 PETSC_EXTERN PetscErrorCode PCGetUseAmat(PC,PetscBool*); 133 134 PETSC_EXTERN PetscErrorCode PCRegisterAll(void); 135 PETSC_EXTERN PetscBool PCRegisterAllCalled; 136 137 PETSC_EXTERN PetscErrorCode PCRegister(const char[],PetscErrorCode(*)(PC)); 138 139 PETSC_EXTERN PetscErrorCode PCReset(PC); 140 PETSC_EXTERN PetscErrorCode PCDestroy(PC*); 141 PETSC_EXTERN PetscErrorCode PCSetFromOptions(PC); 142 PETSC_EXTERN PetscErrorCode PCGetType(PC,PCType*); 143 144 PETSC_EXTERN PetscErrorCode PCFactorGetMatrix(PC,Mat*); 145 PETSC_EXTERN PetscErrorCode PCSetModifySubMatrices(PC,PetscErrorCode(*)(PC,PetscInt,const IS[],const IS[],Mat[],void*),void*); 146 PETSC_EXTERN PetscErrorCode PCModifySubMatrices(PC,PetscInt,const IS[],const IS[],Mat[],void*); 147 148 PETSC_EXTERN PetscErrorCode PCSetOperators(PC,Mat,Mat); 149 PETSC_EXTERN PetscErrorCode PCGetOperators(PC,Mat*,Mat*); 150 PETSC_EXTERN PetscErrorCode PCGetOperatorsSet(PC,PetscBool *,PetscBool *); 151 152 PETSC_EXTERN PetscErrorCode PCView(PC,PetscViewer); 153 PETSC_EXTERN PetscErrorCode PCLoad(PC,PetscViewer); 154 PETSC_STATIC_INLINE PetscErrorCode PCViewFromOptions(PC A,const char prefix[],const char name[]) {return PetscObjectViewFromOptions((PetscObject)A,prefix,name);} 155 156 PETSC_EXTERN PetscErrorCode PCSetOptionsPrefix(PC,const char[]); 157 PETSC_EXTERN PetscErrorCode PCAppendOptionsPrefix(PC,const char[]); 158 PETSC_EXTERN PetscErrorCode PCGetOptionsPrefix(PC,const char*[]); 159 160 PETSC_EXTERN PetscErrorCode PCComputeExplicitOperator(PC,Mat*); 161 162 /* 163 These are used to provide extra scaling of preconditioned 164 operator for time-stepping schemes like in SUNDIALS 165 */ 166 PETSC_EXTERN PetscErrorCode PCGetDiagonalScale(PC,PetscBool *); 167 PETSC_EXTERN PetscErrorCode PCDiagonalScaleLeft(PC,Vec,Vec); 168 PETSC_EXTERN PetscErrorCode PCDiagonalScaleRight(PC,Vec,Vec); 169 PETSC_EXTERN PetscErrorCode PCSetDiagonalScale(PC,Vec); 170 171 /* ------------- options specific to particular preconditioners --------- */ 172 173 PETSC_EXTERN PetscErrorCode PCJacobiSetUseRowMax(PC); 174 PETSC_EXTERN PetscErrorCode PCJacobiSetUseRowSum(PC); 175 PETSC_EXTERN PetscErrorCode PCJacobiSetUseAbs(PC); 176 PETSC_EXTERN PetscErrorCode PCSORSetSymmetric(PC,MatSORType); 177 PETSC_EXTERN PetscErrorCode PCSORSetOmega(PC,PetscReal); 178 PETSC_EXTERN PetscErrorCode PCSORSetIterations(PC,PetscInt,PetscInt); 179 180 PETSC_EXTERN PetscErrorCode PCEisenstatSetOmega(PC,PetscReal); 181 PETSC_EXTERN PetscErrorCode PCEisenstatNoDiagonalScaling(PC); 182 183 PETSC_EXTERN PetscErrorCode PCBJacobiSetTotalBlocks(PC,PetscInt,const PetscInt[]); 184 PETSC_EXTERN PetscErrorCode PCBJacobiSetLocalBlocks(PC,PetscInt,const PetscInt[]); 185 186 PETSC_EXTERN PetscErrorCode PCShellSetApply(PC,PetscErrorCode (*)(PC,Vec,Vec)); 187 PETSC_EXTERN PetscErrorCode PCShellSetApplyBA(PC,PetscErrorCode (*)(PC,PCSide,Vec,Vec,Vec)); 188 PETSC_EXTERN PetscErrorCode PCShellSetApplyTranspose(PC,PetscErrorCode (*)(PC,Vec,Vec)); 189 PETSC_EXTERN PetscErrorCode PCShellSetSetUp(PC,PetscErrorCode (*)(PC)); 190 PETSC_EXTERN PetscErrorCode PCShellSetApplyRichardson(PC,PetscErrorCode (*)(PC,Vec,Vec,Vec,PetscReal,PetscReal,PetscReal,PetscInt,PetscBool ,PetscInt*,PCRichardsonConvergedReason*)); 191 PETSC_EXTERN PetscErrorCode PCShellSetView(PC,PetscErrorCode (*)(PC,PetscViewer)); 192 PETSC_EXTERN PetscErrorCode PCShellSetDestroy(PC,PetscErrorCode (*)(PC)); 193 PETSC_EXTERN PetscErrorCode PCShellGetContext(PC,void**); 194 PETSC_EXTERN PetscErrorCode PCShellSetContext(PC,void*); 195 PETSC_EXTERN PetscErrorCode PCShellSetName(PC,const char[]); 196 PETSC_EXTERN PetscErrorCode PCShellGetName(PC,const char*[]); 197 198 PETSC_EXTERN PetscErrorCode PCFactorSetZeroPivot(PC,PetscReal); 199 200 PETSC_EXTERN PetscErrorCode PCFactorSetShiftType(PC,MatFactorShiftType); 201 PETSC_EXTERN PetscErrorCode PCFactorSetShiftAmount(PC,PetscReal); 202 203 PETSC_EXTERN PetscErrorCode PCFactorSetMatSolverPackage(PC,const MatSolverPackage); 204 PETSC_EXTERN PetscErrorCode PCFactorGetMatSolverPackage(PC,const MatSolverPackage*); 205 PETSC_EXTERN PetscErrorCode PCFactorSetUpMatSolverPackage(PC); 206 207 PETSC_EXTERN PetscErrorCode PCFactorSetFill(PC,PetscReal); 208 PETSC_EXTERN PetscErrorCode PCFactorSetColumnPivot(PC,PetscReal); 209 PETSC_EXTERN PetscErrorCode PCFactorReorderForNonzeroDiagonal(PC,PetscReal); 210 211 PETSC_EXTERN PetscErrorCode PCFactorSetMatOrderingType(PC,MatOrderingType); 212 PETSC_EXTERN PetscErrorCode PCFactorSetReuseOrdering(PC,PetscBool ); 213 PETSC_EXTERN PetscErrorCode PCFactorSetReuseFill(PC,PetscBool ); 214 PETSC_EXTERN PetscErrorCode PCFactorSetUseInPlace(PC); 215 PETSC_EXTERN PetscErrorCode PCFactorSetAllowDiagonalFill(PC); 216 PETSC_EXTERN PetscErrorCode PCFactorSetPivotInBlocks(PC,PetscBool ); 217 218 PETSC_EXTERN PetscErrorCode PCFactorGetLevels(PC,PetscInt*); 219 PETSC_EXTERN PetscErrorCode PCFactorSetLevels(PC,PetscInt); 220 PETSC_EXTERN PetscErrorCode PCFactorSetDropTolerance(PC,PetscReal,PetscReal,PetscInt); 221 222 PETSC_EXTERN PetscErrorCode PCASMSetLocalSubdomains(PC,PetscInt,IS[],IS[]); 223 PETSC_EXTERN PetscErrorCode PCASMSetTotalSubdomains(PC,PetscInt,IS[],IS[]); 224 PETSC_EXTERN PetscErrorCode PCASMSetOverlap(PC,PetscInt); 225 PETSC_EXTERN PetscErrorCode PCASMSetDMSubdomains(PC,PetscBool); 226 PETSC_EXTERN PetscErrorCode PCASMGetDMSubdomains(PC,PetscBool*); 227 PETSC_EXTERN PetscErrorCode PCASMSetSortIndices(PC,PetscBool ); 228 229 /*E 230 PCASMType - Type of additive Schwarz method to use 231 232 $ PC_ASM_BASIC - Symmetric version where residuals from the ghost points are used 233 $ and computed values in ghost regions are added together. 234 $ Classical standard additive Schwarz. 235 $ PC_ASM_RESTRICT - Residuals from ghost points are used but computed values in ghost 236 $ region are discarded. 237 $ Default. 238 $ PC_ASM_INTERPOLATE - Residuals from ghost points are not used, computed values in ghost 239 $ region are added back in. 240 $ PC_ASM_NONE - Residuals from ghost points are not used, computed ghost values are 241 $ discarded. 242 $ Not very good. 243 244 Level: beginner 245 246 .seealso: PCASMSetType() 247 E*/ 248 typedef enum {PC_ASM_BASIC = 3,PC_ASM_RESTRICT = 1,PC_ASM_INTERPOLATE = 2,PC_ASM_NONE = 0} PCASMType; 249 PETSC_EXTERN const char *const PCASMTypes[]; 250 251 PETSC_EXTERN PetscErrorCode PCASMSetType(PC,PCASMType); 252 PETSC_EXTERN PetscErrorCode PCASMCreateSubdomains(Mat,PetscInt,IS*[]); 253 PETSC_EXTERN PetscErrorCode PCASMDestroySubdomains(PetscInt,IS[],IS[]); 254 PETSC_EXTERN PetscErrorCode PCASMCreateSubdomains2D(PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt*,IS**,IS**); 255 PETSC_EXTERN PetscErrorCode PCASMGetLocalSubdomains(PC,PetscInt*,IS*[],IS*[]); 256 PETSC_EXTERN PetscErrorCode PCASMGetLocalSubmatrices(PC,PetscInt*,Mat*[]); 257 258 /*E 259 PCGASMType - Type of generalized additive Schwarz method to use (differs from ASM in allowing multiple processors per subdomain). 260 261 Each subdomain has nested inner and outer parts. The inner subdomains are assumed to form a non-overlapping covering of the computational 262 domain, while the outer subdomains contain the inner subdomains and overlap with each other. This preconditioner will compute 263 a subdomain correction over each *outer* subdomain from a residual computed there, but its different variants will differ in 264 (a) how the outer subdomain residual is computed, and (b) how the outer subdomain correction is computed. 265 266 $ PC_GASM_BASIC - Symmetric version where the full from the outer subdomain is used, and the resulting correction is applied 267 $ over the outer subdomains. As a result, points in the overlap will receive the sum of the corrections 268 $ from neighboring subdomains. 269 $ Classical standard additive Schwarz. 270 $ PC_GASM_RESTRICT - Residual from the outer subdomain is used but the correction is restricted to the inner subdomain only 271 $ (i.e., zeroed out over the overlap portion of the outer subdomain before being applied). As a result, 272 $ each point will receive a correction only from the unique inner subdomain containing it (nonoverlapping covering 273 $ assumption). 274 $ Default. 275 $ PC_GASM_INTERPOLATE - Residual is zeroed out over the overlap portion of the outer subdomain, but the resulting correction is 276 $ applied over the outer subdomain. As a result, points in the overlap will receive the sum of the corrections 277 $ from neighboring subdomains. 278 $ 279 $ PC_GASM_NONE - Residuals and corrections are zeroed out outside the local subdomains. 280 $ Not very good. 281 282 Level: beginner 283 284 .seealso: PCGASMSetType() 285 E*/ 286 typedef enum {PC_GASM_BASIC = 3,PC_GASM_RESTRICT = 1,PC_GASM_INTERPOLATE = 2,PC_GASM_NONE = 0} PCGASMType; 287 PETSC_EXTERN const char *const PCGASMTypes[]; 288 289 PETSC_EXTERN PetscErrorCode PCGASMSetSubdomains(PC,PetscInt,IS[],IS[]); 290 PETSC_EXTERN PetscErrorCode PCGASMSetTotalSubdomains(PC,PetscInt,PetscBool); 291 PETSC_EXTERN PetscErrorCode PCGASMSetOverlap(PC,PetscInt); 292 PETSC_EXTERN PetscErrorCode PCGASMSetDMSubdomains(PC,PetscBool); 293 PETSC_EXTERN PetscErrorCode PCGASMGetDMSubdomains(PC,PetscBool*); 294 PETSC_EXTERN PetscErrorCode PCGASMSetSortIndices(PC,PetscBool ); 295 296 PETSC_EXTERN PetscErrorCode PCGASMSetType(PC,PCGASMType); 297 PETSC_EXTERN PetscErrorCode PCGASMCreateLocalSubdomains(Mat,PetscInt,PetscInt,IS*[],IS*[]); 298 PETSC_EXTERN PetscErrorCode PCGASMDestroySubdomains(PetscInt,IS[],IS[]); 299 PETSC_EXTERN PetscErrorCode PCGASMCreateSubdomains2D(PC,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt*,IS**,IS**); 300 PETSC_EXTERN PetscErrorCode PCGASMGetSubdomains(PC,PetscInt*,IS*[],IS*[]); 301 PETSC_EXTERN PetscErrorCode PCGASMGetSubmatrices(PC,PetscInt*,Mat*[]); 302 303 /*E 304 PCCompositeType - Determines how two or more preconditioner are composed 305 306 $ PC_COMPOSITE_ADDITIVE - results from application of all preconditioners are added together 307 $ PC_COMPOSITE_MULTIPLICATIVE - preconditioners are applied sequentially to the residual freshly 308 $ computed after the previous preconditioner application 309 $ PC_COMPOSITE_SYMMETRIC_MULTIPLICATIVE - preconditioners are applied sequentially to the residual freshly 310 $ computed from first preconditioner to last and then back (Use only for symmetric matrices and preconditions) 311 $ PC_COMPOSITE_SPECIAL - This is very special for a matrix of the form alpha I + R + S 312 $ where first preconditioner is built from alpha I + S and second from 313 $ alpha I + R 314 315 Level: beginner 316 317 .seealso: PCCompositeSetType() 318 E*/ 319 typedef enum {PC_COMPOSITE_ADDITIVE,PC_COMPOSITE_MULTIPLICATIVE,PC_COMPOSITE_SYMMETRIC_MULTIPLICATIVE,PC_COMPOSITE_SPECIAL,PC_COMPOSITE_SCHUR} PCCompositeType; 320 PETSC_EXTERN const char *const PCCompositeTypes[]; 321 322 PETSC_EXTERN PetscErrorCode PCCompositeSetType(PC,PCCompositeType); 323 PETSC_EXTERN PetscErrorCode PCCompositeAddPC(PC,PCType); 324 PETSC_EXTERN PetscErrorCode PCCompositeGetPC(PC,PetscInt,PC *); 325 PETSC_EXTERN PetscErrorCode PCCompositeSpecialSetAlpha(PC,PetscScalar); 326 327 PETSC_EXTERN PetscErrorCode PCRedundantSetNumber(PC,PetscInt); 328 PETSC_EXTERN PetscErrorCode PCRedundantSetScatter(PC,VecScatter,VecScatter); 329 PETSC_EXTERN PetscErrorCode PCRedundantGetOperators(PC,Mat*,Mat*); 330 331 PETSC_EXTERN PetscErrorCode PCSPAISetEpsilon(PC,double); 332 PETSC_EXTERN PetscErrorCode PCSPAISetNBSteps(PC,PetscInt); 333 PETSC_EXTERN PetscErrorCode PCSPAISetMax(PC,PetscInt); 334 PETSC_EXTERN PetscErrorCode PCSPAISetMaxNew(PC,PetscInt); 335 PETSC_EXTERN PetscErrorCode PCSPAISetBlockSize(PC,PetscInt); 336 PETSC_EXTERN PetscErrorCode PCSPAISetCacheSize(PC,PetscInt); 337 PETSC_EXTERN PetscErrorCode PCSPAISetVerbose(PC,PetscInt); 338 PETSC_EXTERN PetscErrorCode PCSPAISetSp(PC,PetscInt); 339 340 PETSC_EXTERN PetscErrorCode PCHYPRESetType(PC,const char[]); 341 PETSC_EXTERN PetscErrorCode PCHYPREGetType(PC,const char*[]); 342 PETSC_EXTERN PetscErrorCode PCBJacobiGetLocalBlocks(PC,PetscInt*,const PetscInt*[]); 343 PETSC_EXTERN PetscErrorCode PCBJacobiGetTotalBlocks(PC,PetscInt*,const PetscInt*[]); 344 345 PETSC_EXTERN PetscErrorCode PCFieldSplitSetFields(PC,const char[],PetscInt,const PetscInt*,const PetscInt*); 346 PETSC_EXTERN PetscErrorCode PCFieldSplitGetType(PC,PCCompositeType*); 347 PETSC_EXTERN PetscErrorCode PCFieldSplitSetType(PC,PCCompositeType); 348 PETSC_EXTERN PetscErrorCode PCFieldSplitSetBlockSize(PC,PetscInt); 349 PETSC_EXTERN PetscErrorCode PCFieldSplitSetIS(PC,const char[],IS); 350 PETSC_EXTERN PetscErrorCode PCFieldSplitGetIS(PC,const char[],IS*); 351 PETSC_EXTERN PetscErrorCode PCFieldSplitSetDMSplits(PC,PetscBool); 352 PETSC_EXTERN PetscErrorCode PCFieldSplitGetDMSplits(PC,PetscBool*); 353 354 /*E 355 PCFieldSplitSchurPreType - Determines how to precondition Schur complement 356 357 Level: intermediate 358 359 .seealso: PCFieldSplitSchurPrecondition() 360 E*/ 361 typedef enum {PC_FIELDSPLIT_SCHUR_PRE_SELF,PC_FIELDSPLIT_SCHUR_PRE_SELFP,PC_FIELDSPLIT_SCHUR_PRE_A11,PC_FIELDSPLIT_SCHUR_PRE_USER,PC_FIELDSPLIT_SCHUR_PRE_FULL} PCFieldSplitSchurPreType; 362 PETSC_EXTERN const char *const PCFieldSplitSchurPreTypes[]; 363 364 /*E 365 PCFieldSplitSchurFactType - determines which off-diagonal parts of the approximate block factorization to use 366 367 Level: intermediate 368 369 .seealso: PCFieldSplitSetSchurFactType() 370 E*/ 371 typedef enum { 372 PC_FIELDSPLIT_SCHUR_FACT_DIAG, 373 PC_FIELDSPLIT_SCHUR_FACT_LOWER, 374 PC_FIELDSPLIT_SCHUR_FACT_UPPER, 375 PC_FIELDSPLIT_SCHUR_FACT_FULL 376 } PCFieldSplitSchurFactType; 377 PETSC_EXTERN const char *const PCFieldSplitSchurFactTypes[]; 378 379 PETSC_EXTERN PetscErrorCode PCFieldSplitSchurPrecondition(PC,PCFieldSplitSchurPreType,Mat); 380 PETSC_EXTERN PetscErrorCode PCFieldSplitSetSchurFactType(PC,PCFieldSplitSchurFactType); 381 PETSC_EXTERN PetscErrorCode PCFieldSplitGetSchurBlocks(PC,Mat*,Mat*,Mat*,Mat*); 382 PETSC_EXTERN PetscErrorCode PCFieldSplitSchurGetS(PC,Mat *S); 383 PETSC_EXTERN PetscErrorCode PCFieldSplitSchurRestoreS(PC,Mat *S); 384 385 PETSC_EXTERN PetscErrorCode PCGalerkinSetRestriction(PC,Mat); 386 PETSC_EXTERN PetscErrorCode PCGalerkinSetInterpolation(PC,Mat); 387 388 PETSC_EXTERN PetscErrorCode PCSetCoordinates(PC,PetscInt,PetscInt,PetscReal*); 389 PETSC_EXTERN PetscErrorCode PCSASetVectors(PC,PetscInt,PetscReal *); 390 391 PETSC_EXTERN PetscErrorCode PCPythonSetType(PC,const char[]); 392 393 PETSC_EXTERN PetscErrorCode PCSetDM(PC,DM); 394 PETSC_EXTERN PetscErrorCode PCGetDM(PC,DM*); 395 396 PETSC_EXTERN PetscErrorCode PCSetApplicationContext(PC,void*); 397 PETSC_EXTERN PetscErrorCode PCGetApplicationContext(PC,void*); 398 399 PETSC_EXTERN PetscErrorCode PCBiCGStabCUSPSetTolerance(PC,PetscReal); 400 PETSC_EXTERN PetscErrorCode PCBiCGStabCUSPSetIterations(PC,PetscInt); 401 PETSC_EXTERN PetscErrorCode PCBiCGStabCUSPSetUseVerboseMonitor(PC,PetscBool); 402 403 PETSC_EXTERN PetscErrorCode PCAINVCUSPSetDropTolerance(PC,PetscReal); 404 PETSC_EXTERN PetscErrorCode PCAINVCUSPUseScaling(PC,PetscBool); 405 PETSC_EXTERN PetscErrorCode PCAINVCUSPSetNonzeros(PC,PetscInt); 406 PETSC_EXTERN PetscErrorCode PCAINVCUSPSetLinParameter(PC,PetscInt); 407 /*E 408 PCPARMSGlobalType - Determines the global preconditioner method in PARMS 409 410 Level: intermediate 411 412 .seealso: PCPARMSSetGlobal() 413 E*/ 414 typedef enum {PC_PARMS_GLOBAL_RAS,PC_PARMS_GLOBAL_SCHUR,PC_PARMS_GLOBAL_BJ} PCPARMSGlobalType; 415 PETSC_EXTERN const char *const PCPARMSGlobalTypes[]; 416 /*E 417 PCPARMSLocalType - Determines the local preconditioner method in PARMS 418 419 Level: intermediate 420 421 .seealso: PCPARMSSetLocal() 422 E*/ 423 typedef enum {PC_PARMS_LOCAL_ILU0,PC_PARMS_LOCAL_ILUK,PC_PARMS_LOCAL_ILUT,PC_PARMS_LOCAL_ARMS} PCPARMSLocalType; 424 PETSC_EXTERN const char *const PCPARMSLocalTypes[]; 425 426 PETSC_EXTERN PetscErrorCode PCPARMSSetGlobal(PC pc,PCPARMSGlobalType type); 427 PETSC_EXTERN PetscErrorCode PCPARMSSetLocal(PC pc,PCPARMSLocalType type); 428 PETSC_EXTERN PetscErrorCode PCPARMSSetSolveTolerances(PC pc,PetscReal tol,PetscInt maxits); 429 PETSC_EXTERN PetscErrorCode PCPARMSSetSolveRestart(PC pc,PetscInt restart); 430 PETSC_EXTERN PetscErrorCode PCPARMSSetNonsymPerm(PC pc,PetscBool nonsym); 431 PETSC_EXTERN PetscErrorCode PCPARMSSetFill(PC pc,PetscInt lfil0,PetscInt lfil1,PetscInt lfil2); 432 433 /*E 434 PCGAMGType - type of generalized algebraic multigrid (PCGAMG) method 435 436 Level: intermediate 437 438 .seealso: PCMG, PCSetType(), PCGAMGSetThreshold(), PCGAMGSetThreshold(), PCGAMGSetReuseProl() 439 E*/ 440 typedef const char *PCGAMGType; 441 #define PCGAMGAGG "agg" 442 #define PCGAMGGEO "geo" 443 #define PCGAMGCLASSICAL "classical" 444 PETSC_EXTERN PetscErrorCode PCGAMGSetProcEqLim(PC,PetscInt); 445 PETSC_EXTERN PetscErrorCode PCGAMGSetRepartitioning(PC,PetscBool); 446 PETSC_EXTERN PetscErrorCode PCGAMGSetUseASMAggs(PC,PetscBool); 447 PETSC_EXTERN PetscErrorCode PCGAMGSetSolverType(PC,char[],PetscInt); 448 PETSC_EXTERN PetscErrorCode PCGAMGSetThreshold(PC,PetscReal); 449 PETSC_EXTERN PetscErrorCode PCGAMGSetCoarseEqLim(PC,PetscInt); 450 PETSC_EXTERN PetscErrorCode PCGAMGSetNlevels(PC,PetscInt); 451 PETSC_EXTERN PetscErrorCode PCGAMGSetType( PC,PCGAMGType ); 452 PETSC_EXTERN PetscErrorCode PCGAMGSetNSmooths(PC pc, PetscInt n); 453 PETSC_EXTERN PetscErrorCode PCGAMGSetSymGraph(PC pc, PetscBool n); 454 PETSC_EXTERN PetscErrorCode PCGAMGSetSquareGraph(PC,PetscBool); 455 PETSC_EXTERN PetscErrorCode PCGAMGSetReuseProl(PC,PetscBool); 456 PETSC_EXTERN PetscErrorCode PCGAMGFinalizePackage(void); 457 PETSC_EXTERN PetscErrorCode PCGAMGInitializePackage(void); 458 459 typedef const char *PCGAMGClassicalType; 460 #define PCGAMGCLASSICALDIRECT "direct" 461 #define PCGAMGCLASSICALSTANDARD "standard" 462 PETSC_EXTERN PetscErrorCode PCGAMGClassicalSetType(PC,PCGAMGClassicalType); 463 464 #if defined(PETSC_HAVE_PCBDDC) 465 PETSC_EXTERN PetscErrorCode PCBDDCSetPrimalVerticesLocalIS(PC,IS); 466 PETSC_EXTERN PetscErrorCode PCBDDCSetCoarseningRatio(PC,PetscInt); 467 PETSC_EXTERN PetscErrorCode PCBDDCSetLevels(PC,PetscInt); 468 PETSC_EXTERN PetscErrorCode PCBDDCSetNullSpace(PC,MatNullSpace); 469 PETSC_EXTERN PetscErrorCode PCBDDCSetDirichletBoundaries(PC,IS); 470 PETSC_EXTERN PetscErrorCode PCBDDCGetDirichletBoundaries(PC,IS*); 471 PETSC_EXTERN PetscErrorCode PCBDDCSetNeumannBoundaries(PC,IS); 472 PETSC_EXTERN PetscErrorCode PCBDDCGetNeumannBoundaries(PC,IS*); 473 PETSC_EXTERN PetscErrorCode PCBDDCSetDofsSplitting(PC,PetscInt,IS[]); 474 PETSC_EXTERN PetscErrorCode PCBDDCSetLocalAdjacencyGraph(PC,PetscInt,const PetscInt[],const PetscInt[],PetscCopyMode); 475 PETSC_EXTERN PetscErrorCode PCBDDCCreateFETIDPOperators(PC,Mat*,PC*); 476 PETSC_EXTERN PetscErrorCode PCBDDCMatFETIDPGetRHS(Mat,Vec,Vec); 477 PETSC_EXTERN PetscErrorCode PCBDDCMatFETIDPGetSolution(Mat,Vec,Vec); 478 #endif 479 480 PETSC_EXTERN PetscErrorCode PCISSetUseStiffnessScaling(PC,PetscBool); 481 PETSC_EXTERN PetscErrorCode PCISSetSubdomainScalingFactor(PC,PetscScalar); 482 PETSC_EXTERN PetscErrorCode PCISSetSubdomainDiagonalScaling(PC,Vec); 483 484 /*E 485 PCMGType - Determines the type of multigrid method that is run. 486 487 Level: beginner 488 489 Values: 490 + PC_MG_MULTIPLICATIVE (default) - traditional V or W cycle as determined by PCMGSetCycles() 491 . PC_MG_ADDITIVE - the additive multigrid preconditioner where all levels are 492 smoothed before updating the residual. This only uses the 493 down smoother, in the preconditioner the upper smoother is ignored 494 . PC_MG_FULL - same as multiplicative except one also performs grid sequencing, 495 that is starts on the coarsest grid, performs a cycle, interpolates 496 to the next, performs a cycle etc. This is much like the F-cycle presented in "Multigrid" by Trottenberg, Oosterlee, Schuller page 49, but that 497 algorithm supports smoothing on before the restriction on each level in the initial restriction to the coarsest stage. In addition that algorithm 498 calls the V-cycle only on the coarser level and has a post-smoother instead. 499 - PC_MG_KASKADE - like full multigrid except one never goes back to a coarser level 500 from a finer 501 502 .seealso: PCMGSetType() 503 504 E*/ 505 typedef enum { PC_MG_MULTIPLICATIVE,PC_MG_ADDITIVE,PC_MG_FULL,PC_MG_KASKADE } PCMGType; 506 PETSC_EXTERN const char *const PCMGTypes[]; 507 #define PC_MG_CASCADE PC_MG_KASKADE; 508 509 /*E 510 PCMGCycleType - Use V-cycle or W-cycle 511 512 Level: beginner 513 514 Values: 515 + PC_MG_V_CYCLE 516 - PC_MG_W_CYCLE 517 518 .seealso: PCMGSetCycleType() 519 520 E*/ 521 typedef enum { PC_MG_CYCLE_V = 1,PC_MG_CYCLE_W = 2 } PCMGCycleType; 522 PETSC_EXTERN const char *const PCMGCycleTypes[]; 523 524 PETSC_EXTERN PetscErrorCode PCMGSetType(PC,PCMGType); 525 PETSC_EXTERN PetscErrorCode PCMGSetLevels(PC,PetscInt,MPI_Comm*); 526 PETSC_EXTERN PetscErrorCode PCMGGetLevels(PC,PetscInt*); 527 528 PETSC_EXTERN PetscErrorCode PCMGSetNumberSmoothUp(PC,PetscInt); 529 PETSC_EXTERN PetscErrorCode PCMGSetNumberSmoothDown(PC,PetscInt); 530 PETSC_EXTERN PetscErrorCode PCMGSetCycleType(PC,PCMGCycleType); 531 PETSC_EXTERN PetscErrorCode PCMGSetCycleTypeOnLevel(PC,PetscInt,PCMGCycleType); 532 PETSC_EXTERN PetscErrorCode PCMGSetCyclesOnLevel(PC,PetscInt,PetscInt); 533 PETSC_EXTERN PetscErrorCode PCMGMultiplicativeSetCycles(PC,PetscInt); 534 PETSC_EXTERN PetscErrorCode PCMGSetGalerkin(PC,PetscBool); 535 PETSC_EXTERN PetscErrorCode PCMGGetGalerkin(PC,PetscBool*); 536 537 538 PETSC_EXTERN PetscErrorCode PCMGSetRhs(PC,PetscInt,Vec); 539 PETSC_EXTERN PetscErrorCode PCMGSetX(PC,PetscInt,Vec); 540 PETSC_EXTERN PetscErrorCode PCMGSetR(PC,PetscInt,Vec); 541 542 PETSC_EXTERN PetscErrorCode PCMGSetRestriction(PC,PetscInt,Mat); 543 PETSC_EXTERN PetscErrorCode PCMGGetRestriction(PC,PetscInt,Mat*); 544 PETSC_EXTERN PetscErrorCode PCMGSetInterpolation(PC,PetscInt,Mat); 545 PETSC_EXTERN PetscErrorCode PCMGGetInterpolation(PC,PetscInt,Mat*); 546 PETSC_EXTERN PetscErrorCode PCMGSetRScale(PC,PetscInt,Vec); 547 PETSC_EXTERN PetscErrorCode PCMGGetRScale(PC,PetscInt,Vec*); 548 PETSC_EXTERN PetscErrorCode PCMGSetResidual(PC,PetscInt,PetscErrorCode (*)(Mat,Vec,Vec,Vec),Mat); 549 PETSC_EXTERN PetscErrorCode PCMGResidualDefault(Mat,Vec,Vec,Vec); 550 551 /*E 552 PCExoticType - Face based or wirebasket based coarse grid space 553 554 Level: beginner 555 556 .seealso: PCExoticSetType(), PCEXOTIC 557 E*/ 558 typedef enum { PC_EXOTIC_FACE,PC_EXOTIC_WIREBASKET } PCExoticType; 559 PETSC_EXTERN const char *const PCExoticTypes[]; 560 PETSC_EXTERN PetscErrorCode PCExoticSetType(PC,PCExoticType); 561 562 #endif /* __PETSCPC_H */ 563