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