1 /* 2 Preconditioner module. 3 */ 4 #if !defined(__PETSCPC_H) 5 #define __PETSCPC_H 6 #include <petscmat.h> 7 #include <petscdmtypes.h> 8 #include <petscpctypes.h> 9 10 PETSC_EXTERN PetscErrorCode PCInitializePackage(void); 11 12 /* 13 PCList contains the list of preconditioners currently registered 14 These are added with PCRegister() 15 */ 16 PETSC_EXTERN PetscFunctionList PCList; 17 18 /* Logging support */ 19 PETSC_EXTERN PetscClassId PC_CLASSID; 20 21 /* Arrays of names for options in implementation PCs */ 22 PETSC_EXTERN const char *const *const PCSides; 23 PETSC_EXTERN const char *const PCJacobiTypes[]; 24 PETSC_EXTERN const char *const PCASMTypes[]; 25 PETSC_EXTERN const char *const PCGASMTypes[]; 26 PETSC_EXTERN const char *const PCCompositeTypes[]; 27 PETSC_EXTERN const char *const PCFieldSplitSchurPreTypes[]; 28 PETSC_EXTERN const char *const PCFieldSplitSchurFactTypes[]; 29 PETSC_EXTERN const char *const PCPARMSGlobalTypes[]; 30 PETSC_EXTERN const char *const PCPARMSLocalTypes[]; 31 PETSC_EXTERN const char *const PCMGTypes[]; 32 PETSC_EXTERN const char *const PCMGCycleTypes[]; 33 PETSC_EXTERN const char *const PCMGGalerkinTypes[]; 34 PETSC_EXTERN const char *const PCExoticTypes[]; 35 PETSC_EXTERN const char *const PCPatchConstructTypes[]; 36 PETSC_EXTERN const char *const PCFailedReasons[]; 37 38 PETSC_EXTERN PetscErrorCode PCCreate(MPI_Comm,PC*); 39 PETSC_EXTERN PetscErrorCode PCSetType(PC,PCType); 40 PETSC_EXTERN PetscErrorCode PCGetType(PC,PCType*); 41 PETSC_EXTERN PetscErrorCode PCSetUp(PC); 42 PETSC_EXTERN PetscErrorCode PCGetSetUpFailedReason(PC,PCFailedReason*); 43 PETSC_EXTERN PetscErrorCode PCSetUpOnBlocks(PC); 44 PETSC_EXTERN PetscErrorCode PCApply(PC,Vec,Vec); 45 PETSC_EXTERN PetscErrorCode PCApplySymmetricLeft(PC,Vec,Vec); 46 PETSC_EXTERN PetscErrorCode PCApplySymmetricRight(PC,Vec,Vec); 47 PETSC_EXTERN PetscErrorCode PCApplyBAorAB(PC,PCSide,Vec,Vec,Vec); 48 PETSC_EXTERN PetscErrorCode PCApplyTranspose(PC,Vec,Vec); 49 PETSC_EXTERN PetscErrorCode PCApplyTransposeExists(PC,PetscBool *); 50 PETSC_EXTERN PetscErrorCode PCApplyBAorABTranspose(PC,PCSide,Vec,Vec,Vec); 51 PETSC_EXTERN PetscErrorCode PCSetReusePreconditioner(PC,PetscBool); 52 PETSC_EXTERN PetscErrorCode PCGetReusePreconditioner(PC,PetscBool*); 53 PETSC_EXTERN PetscErrorCode PCSetErrorIfFailure(PC,PetscBool); 54 55 #define PC_FILE_CLASSID 1211222 56 57 PETSC_EXTERN PetscErrorCode PCApplyRichardson(PC,Vec,Vec,Vec,PetscReal,PetscReal,PetscReal,PetscInt,PetscBool ,PetscInt*,PCRichardsonConvergedReason*); 58 PETSC_EXTERN PetscErrorCode PCApplyRichardsonExists(PC,PetscBool *); 59 PETSC_EXTERN PetscErrorCode PCSetUseAmat(PC,PetscBool); 60 PETSC_EXTERN PetscErrorCode PCGetUseAmat(PC,PetscBool*); 61 62 63 PETSC_EXTERN PetscErrorCode PCRegister(const char[],PetscErrorCode(*)(PC)); 64 65 PETSC_EXTERN PetscErrorCode PCReset(PC); 66 PETSC_EXTERN PetscErrorCode PCDestroy(PC*); 67 PETSC_EXTERN PetscErrorCode PCSetFromOptions(PC); 68 69 PETSC_EXTERN PetscErrorCode PCFactorGetMatrix(PC,Mat*); 70 PETSC_EXTERN PetscErrorCode PCSetModifySubMatrices(PC,PetscErrorCode(*)(PC,PetscInt,const IS[],const IS[],Mat[],void*),void*); 71 PETSC_EXTERN PetscErrorCode PCModifySubMatrices(PC,PetscInt,const IS[],const IS[],Mat[],void*); 72 73 PETSC_EXTERN PetscErrorCode PCSetOperators(PC,Mat,Mat); 74 PETSC_EXTERN PetscErrorCode PCGetOperators(PC,Mat*,Mat*); 75 PETSC_EXTERN PetscErrorCode PCGetOperatorsSet(PC,PetscBool *,PetscBool *); 76 77 PETSC_EXTERN PetscErrorCode PCView(PC,PetscViewer); 78 PETSC_EXTERN PetscErrorCode PCLoad(PC,PetscViewer); 79 PETSC_STATIC_INLINE PetscErrorCode PCViewFromOptions(PC A,PetscObject obj,const char name[]) {return PetscObjectViewFromOptions((PetscObject)A,obj,name);} 80 81 PETSC_EXTERN PetscErrorCode PCSetOptionsPrefix(PC,const char[]); 82 PETSC_EXTERN PetscErrorCode PCAppendOptionsPrefix(PC,const char[]); 83 PETSC_EXTERN PetscErrorCode PCGetOptionsPrefix(PC,const char*[]); 84 85 PETSC_EXTERN PetscErrorCode PCComputeExplicitOperator(PC,Mat*); 86 87 /* 88 These are used to provide extra scaling of preconditioned 89 operator for time-stepping schemes like in SUNDIALS 90 */ 91 PETSC_EXTERN PetscErrorCode PCGetDiagonalScale(PC,PetscBool *); 92 PETSC_EXTERN PetscErrorCode PCDiagonalScaleLeft(PC,Vec,Vec); 93 PETSC_EXTERN PetscErrorCode PCDiagonalScaleRight(PC,Vec,Vec); 94 PETSC_EXTERN PetscErrorCode PCSetDiagonalScale(PC,Vec); 95 96 PETSC_EXTERN PetscErrorCode PCSetDM(PC,DM); 97 PETSC_EXTERN PetscErrorCode PCGetDM(PC,DM*); 98 99 PETSC_EXTERN PetscErrorCode PCSetCoordinates(PC,PetscInt,PetscInt,PetscReal*); 100 101 PETSC_EXTERN PetscErrorCode PCSetApplicationContext(PC,void*); 102 PETSC_EXTERN PetscErrorCode PCGetApplicationContext(PC,void*); 103 104 /* ------------- options specific to particular preconditioners --------- */ 105 106 PETSC_EXTERN PetscErrorCode PCJacobiSetType(PC,PCJacobiType); 107 PETSC_EXTERN PetscErrorCode PCJacobiGetType(PC,PCJacobiType*); 108 PETSC_EXTERN PetscErrorCode PCJacobiSetUseAbs(PC,PetscBool); 109 PETSC_EXTERN PetscErrorCode PCJacobiGetUseAbs(PC,PetscBool*); 110 PETSC_EXTERN PetscErrorCode PCSORSetSymmetric(PC,MatSORType); 111 PETSC_EXTERN PetscErrorCode PCSORGetSymmetric(PC,MatSORType*); 112 PETSC_EXTERN PetscErrorCode PCSORSetOmega(PC,PetscReal); 113 PETSC_EXTERN PetscErrorCode PCSORGetOmega(PC,PetscReal*); 114 PETSC_EXTERN PetscErrorCode PCSORSetIterations(PC,PetscInt,PetscInt); 115 PETSC_EXTERN PetscErrorCode PCSORGetIterations(PC,PetscInt*,PetscInt*); 116 117 PETSC_EXTERN PetscErrorCode PCEisenstatSetOmega(PC,PetscReal); 118 PETSC_EXTERN PetscErrorCode PCEisenstatGetOmega(PC,PetscReal*); 119 PETSC_EXTERN PetscErrorCode PCEisenstatSetNoDiagonalScaling(PC,PetscBool); 120 PETSC_EXTERN PetscErrorCode PCEisenstatGetNoDiagonalScaling(PC,PetscBool*); 121 122 PETSC_EXTERN PetscErrorCode PCBJacobiSetTotalBlocks(PC,PetscInt,const PetscInt[]); 123 PETSC_EXTERN PetscErrorCode PCBJacobiGetTotalBlocks(PC,PetscInt*,const PetscInt*[]); 124 PETSC_EXTERN PetscErrorCode PCBJacobiSetLocalBlocks(PC,PetscInt,const PetscInt[]); 125 PETSC_EXTERN PetscErrorCode PCBJacobiGetLocalBlocks(PC,PetscInt*,const PetscInt*[]); 126 127 PETSC_EXTERN PetscErrorCode PCShellSetApply(PC,PetscErrorCode (*)(PC,Vec,Vec)); 128 PETSC_EXTERN PetscErrorCode PCShellSetApplySymmetricLeft(PC,PetscErrorCode (*)(PC,Vec,Vec)); 129 PETSC_EXTERN PetscErrorCode PCShellSetApplySymmetricRight(PC,PetscErrorCode (*)(PC,Vec,Vec)); 130 PETSC_EXTERN PetscErrorCode PCShellSetApplyBA(PC,PetscErrorCode (*)(PC,PCSide,Vec,Vec,Vec)); 131 PETSC_EXTERN PetscErrorCode PCShellSetApplyTranspose(PC,PetscErrorCode (*)(PC,Vec,Vec)); 132 PETSC_EXTERN PetscErrorCode PCShellSetSetUp(PC,PetscErrorCode (*)(PC)); 133 PETSC_EXTERN PetscErrorCode PCShellSetApplyRichardson(PC,PetscErrorCode (*)(PC,Vec,Vec,Vec,PetscReal,PetscReal,PetscReal,PetscInt,PetscBool ,PetscInt*,PCRichardsonConvergedReason*)); 134 PETSC_EXTERN PetscErrorCode PCShellSetView(PC,PetscErrorCode (*)(PC,PetscViewer)); 135 PETSC_EXTERN PetscErrorCode PCShellSetDestroy(PC,PetscErrorCode (*)(PC)); 136 PETSC_EXTERN PetscErrorCode PCShellSetContext(PC,void*); 137 PETSC_EXTERN PetscErrorCode PCShellGetContext(PC,void**); 138 PETSC_EXTERN PetscErrorCode PCShellSetName(PC,const char[]); 139 PETSC_EXTERN PetscErrorCode PCShellGetName(PC,const char*[]); 140 141 PETSC_EXTERN PetscErrorCode PCFactorSetZeroPivot(PC,PetscReal); 142 143 PETSC_EXTERN PetscErrorCode PCFactorSetShiftType(PC,MatFactorShiftType); 144 PETSC_EXTERN PetscErrorCode PCFactorSetShiftAmount(PC,PetscReal); 145 146 PETSC_EXTERN PetscErrorCode PCFactorSetMatSolverType(PC,MatSolverType); 147 PETSC_EXTERN PetscErrorCode PCFactorGetMatSolverType(PC,MatSolverType*); 148 PETSC_EXTERN PetscErrorCode PCFactorSetUpMatSolverType(PC); 149 PETSC_DEPRECATED("Use PCFactorSetMatSolverType") PETSC_STATIC_INLINE PetscErrorCode PCFactorSetMatSolverPackage(PC pc,MatSolverType stype) 150 { return PCFactorSetMatSolverType(pc,stype); } 151 PETSC_DEPRECATED("Use PCFactorGetMatSolverType") PETSC_STATIC_INLINE PetscErrorCode PCFactorGetMatSolverPackage(PC pc,MatSolverType *stype) 152 { return PCFactorGetMatSolverType(pc,stype); } 153 PETSC_DEPRECATED("Use PCFactorSetUpMatSolverType") PETSC_STATIC_INLINE PetscErrorCode PCFactorSetUpMatSolverPackage(PC pc) 154 { return PCFactorSetUpMatSolverType(pc); } 155 156 PETSC_EXTERN PetscErrorCode PCFactorSetFill(PC,PetscReal); 157 PETSC_EXTERN PetscErrorCode PCFactorSetColumnPivot(PC,PetscReal); 158 PETSC_EXTERN PetscErrorCode PCFactorReorderForNonzeroDiagonal(PC,PetscReal); 159 160 PETSC_EXTERN PetscErrorCode PCFactorSetMatOrderingType(PC,MatOrderingType); 161 PETSC_EXTERN PetscErrorCode PCFactorSetReuseOrdering(PC,PetscBool ); 162 PETSC_EXTERN PetscErrorCode PCFactorSetReuseFill(PC,PetscBool ); 163 PETSC_EXTERN PetscErrorCode PCFactorSetUseInPlace(PC,PetscBool); 164 PETSC_EXTERN PetscErrorCode PCFactorGetUseInPlace(PC,PetscBool*); 165 PETSC_EXTERN PetscErrorCode PCFactorSetAllowDiagonalFill(PC,PetscBool); 166 PETSC_EXTERN PetscErrorCode PCFactorGetAllowDiagonalFill(PC,PetscBool*); 167 PETSC_EXTERN PetscErrorCode PCFactorSetPivotInBlocks(PC,PetscBool); 168 169 PETSC_EXTERN PetscErrorCode PCFactorSetLevels(PC,PetscInt); 170 PETSC_EXTERN PetscErrorCode PCFactorGetLevels(PC,PetscInt*); 171 PETSC_EXTERN PetscErrorCode PCFactorSetDropTolerance(PC,PetscReal,PetscReal,PetscInt); 172 PETSC_EXTERN PetscErrorCode PCFactorGetZeroPivot(PC,PetscReal*); 173 PETSC_EXTERN PetscErrorCode PCFactorGetShiftAmount(PC,PetscReal*); 174 PETSC_EXTERN PetscErrorCode PCFactorGetShiftType(PC,MatFactorShiftType*); 175 176 PETSC_EXTERN PetscErrorCode PCASMSetLocalSubdomains(PC,PetscInt,IS[],IS[]); 177 PETSC_EXTERN PetscErrorCode PCASMSetTotalSubdomains(PC,PetscInt,IS[],IS[]); 178 PETSC_EXTERN PetscErrorCode PCASMSetOverlap(PC,PetscInt); 179 PETSC_EXTERN PetscErrorCode PCASMSetDMSubdomains(PC,PetscBool); 180 PETSC_EXTERN PetscErrorCode PCASMGetDMSubdomains(PC,PetscBool*); 181 PETSC_EXTERN PetscErrorCode PCASMSetSortIndices(PC,PetscBool); 182 183 PETSC_EXTERN PetscErrorCode PCASMSetType(PC,PCASMType); 184 PETSC_EXTERN PetscErrorCode PCASMGetType(PC,PCASMType*); 185 PETSC_EXTERN PetscErrorCode PCASMSetLocalType(PC,PCCompositeType); 186 PETSC_EXTERN PetscErrorCode PCASMGetLocalType(PC,PCCompositeType*); 187 PETSC_EXTERN PetscErrorCode PCASMCreateSubdomains(Mat,PetscInt,IS*[]); 188 PETSC_EXTERN PetscErrorCode PCASMDestroySubdomains(PetscInt,IS[],IS[]); 189 PETSC_EXTERN PetscErrorCode PCASMCreateSubdomains2D(PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt*,IS**,IS**); 190 PETSC_EXTERN PetscErrorCode PCASMGetLocalSubdomains(PC,PetscInt*,IS*[],IS*[]); 191 PETSC_EXTERN PetscErrorCode PCASMGetLocalSubmatrices(PC,PetscInt*,Mat*[]); 192 PETSC_EXTERN PetscErrorCode PCASMGetSubMatType(PC,MatType*); 193 PETSC_EXTERN PetscErrorCode PCASMSetSubMatType(PC,MatType); 194 195 PETSC_EXTERN PetscErrorCode PCGASMSetTotalSubdomains(PC,PetscInt); 196 PETSC_EXTERN PetscErrorCode PCGASMSetSubdomains(PC,PetscInt,IS[],IS[]); 197 PETSC_EXTERN PetscErrorCode PCGASMSetOverlap(PC,PetscInt); 198 PETSC_EXTERN PetscErrorCode PCGASMSetUseDMSubdomains(PC,PetscBool); 199 PETSC_EXTERN PetscErrorCode PCGASMGetUseDMSubdomains(PC,PetscBool*); 200 PETSC_EXTERN PetscErrorCode PCGASMSetSortIndices(PC,PetscBool ); 201 202 PETSC_EXTERN PetscErrorCode PCGASMSetType(PC,PCGASMType); 203 PETSC_EXTERN PetscErrorCode PCGASMCreateSubdomains(Mat,PetscInt,PetscInt*,IS*[]); 204 PETSC_EXTERN PetscErrorCode PCGASMDestroySubdomains(PetscInt,IS*[],IS*[]); 205 PETSC_EXTERN PetscErrorCode PCGASMCreateSubdomains2D(PC,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt,PetscInt*,IS**,IS**); 206 PETSC_EXTERN PetscErrorCode PCGASMGetSubdomains(PC,PetscInt*,IS*[],IS*[]); 207 PETSC_EXTERN PetscErrorCode PCGASMGetSubmatrices(PC,PetscInt*,Mat*[]); 208 209 PETSC_EXTERN PetscErrorCode PCCompositeSetType(PC,PCCompositeType); 210 PETSC_EXTERN PetscErrorCode PCCompositeGetType(PC,PCCompositeType*); 211 PETSC_EXTERN PetscErrorCode PCCompositeAddPC(PC,PCType); 212 PETSC_EXTERN PetscErrorCode PCCompositeGetNumberPC(PC,PetscInt *); 213 PETSC_EXTERN PetscErrorCode PCCompositeGetPC(PC,PetscInt,PC *); 214 PETSC_EXTERN PetscErrorCode PCCompositeSpecialSetAlpha(PC,PetscScalar); 215 216 PETSC_EXTERN PetscErrorCode PCRedundantSetNumber(PC,PetscInt); 217 PETSC_EXTERN PetscErrorCode PCRedundantSetScatter(PC,VecScatter,VecScatter); 218 PETSC_EXTERN PetscErrorCode PCRedundantGetOperators(PC,Mat*,Mat*); 219 220 PETSC_EXTERN PetscErrorCode PCSPAISetEpsilon(PC,double); 221 PETSC_EXTERN PetscErrorCode PCSPAISetNBSteps(PC,PetscInt); 222 PETSC_EXTERN PetscErrorCode PCSPAISetMax(PC,PetscInt); 223 PETSC_EXTERN PetscErrorCode PCSPAISetMaxNew(PC,PetscInt); 224 PETSC_EXTERN PetscErrorCode PCSPAISetBlockSize(PC,PetscInt); 225 PETSC_EXTERN PetscErrorCode PCSPAISetCacheSize(PC,PetscInt); 226 PETSC_EXTERN PetscErrorCode PCSPAISetVerbose(PC,PetscInt); 227 PETSC_EXTERN PetscErrorCode PCSPAISetSp(PC,PetscInt); 228 229 PETSC_EXTERN PetscErrorCode PCHYPRESetType(PC,const char[]); 230 PETSC_EXTERN PetscErrorCode PCHYPREGetType(PC,const char*[]); 231 PETSC_EXTERN PetscErrorCode PCHYPRESetDiscreteGradient(PC,Mat); 232 PETSC_EXTERN PetscErrorCode PCHYPRESetDiscreteCurl(PC,Mat); 233 PETSC_EXTERN PetscErrorCode PCHYPRESetInterpolations(PC,PetscInt,Mat,Mat[],Mat,Mat[]); 234 PETSC_EXTERN PetscErrorCode PCHYPRESetEdgeConstantVectors(PC,Vec,Vec,Vec); 235 PETSC_EXTERN PetscErrorCode PCHYPRESetAlphaPoissonMatrix(PC,Mat); 236 PETSC_EXTERN PetscErrorCode PCHYPRESetBetaPoissonMatrix(PC,Mat); 237 238 PETSC_EXTERN PetscErrorCode PCFieldSplitSetFields(PC,const char[],PetscInt,const PetscInt*,const PetscInt*); 239 PETSC_EXTERN PetscErrorCode PCFieldSplitSetType(PC,PCCompositeType); 240 PETSC_EXTERN PetscErrorCode PCFieldSplitGetType(PC,PCCompositeType*); 241 PETSC_EXTERN PetscErrorCode PCFieldSplitSetBlockSize(PC,PetscInt); 242 PETSC_EXTERN PetscErrorCode PCFieldSplitSetIS(PC,const char[],IS); 243 PETSC_EXTERN PetscErrorCode PCFieldSplitGetIS(PC,const char[],IS*); 244 PETSC_EXTERN PetscErrorCode PCFieldSplitRestrictIS(PC,IS); 245 PETSC_EXTERN PetscErrorCode PCFieldSplitSetDMSplits(PC,PetscBool); 246 PETSC_EXTERN PetscErrorCode PCFieldSplitGetDMSplits(PC,PetscBool*); 247 PETSC_EXTERN PetscErrorCode PCFieldSplitSetDiagUseAmat(PC,PetscBool); 248 PETSC_EXTERN PetscErrorCode PCFieldSplitGetDiagUseAmat(PC,PetscBool*); 249 PETSC_EXTERN PetscErrorCode PCFieldSplitSetOffDiagUseAmat(PC,PetscBool); 250 PETSC_EXTERN PetscErrorCode PCFieldSplitGetOffDiagUseAmat(PC,PetscBool*); 251 252 PETSC_EXTERN PETSC_DEPRECATED("Use PCFieldSplitSetSchurPre") PetscErrorCode PCFieldSplitSchurPrecondition(PC,PCFieldSplitSchurPreType,Mat); 253 PETSC_EXTERN PetscErrorCode PCFieldSplitSetSchurPre(PC,PCFieldSplitSchurPreType,Mat); 254 PETSC_EXTERN PetscErrorCode PCFieldSplitGetSchurPre(PC,PCFieldSplitSchurPreType*,Mat*); 255 PETSC_EXTERN PetscErrorCode PCFieldSplitSetSchurFactType(PC,PCFieldSplitSchurFactType); 256 PETSC_EXTERN PetscErrorCode PCFieldSplitSetSchurScale(PC,PetscScalar); 257 PETSC_EXTERN PetscErrorCode PCFieldSplitGetSchurBlocks(PC,Mat*,Mat*,Mat*,Mat*); 258 PETSC_EXTERN PetscErrorCode PCFieldSplitSchurGetS(PC,Mat *S); 259 PETSC_EXTERN PetscErrorCode PCFieldSplitSchurRestoreS(PC,Mat *S); 260 PETSC_EXTERN PetscErrorCode PCFieldSplitGetDetectSaddlePoint(PC,PetscBool*); 261 PETSC_EXTERN PetscErrorCode PCFieldSplitSetDetectSaddlePoint(PC,PetscBool); 262 PETSC_EXTERN PetscErrorCode PCFieldSplitSetGKBTol(PC,PetscReal); 263 PETSC_EXTERN PetscErrorCode PCFieldSplitSetGKBNu(PC,PetscReal); 264 PETSC_EXTERN PetscErrorCode PCFieldSplitSetGKBMaxit(PC,PetscInt); 265 PETSC_EXTERN PetscErrorCode PCFieldSplitSetGKBDelay(PC,PetscInt); 266 267 PETSC_EXTERN PetscErrorCode PCGalerkinSetRestriction(PC,Mat); 268 PETSC_EXTERN PetscErrorCode PCGalerkinSetInterpolation(PC,Mat); 269 PETSC_EXTERN PetscErrorCode PCGalerkinSetComputeSubmatrix(PC,PetscErrorCode (*)(PC,Mat,Mat,Mat*,void*),void*); 270 271 PETSC_EXTERN PetscErrorCode PCPythonSetType(PC,const char[]); 272 273 PETSC_EXTERN PetscErrorCode PCBiCGStabCUSPSetTolerance(PC,PetscReal); 274 PETSC_EXTERN PetscErrorCode PCBiCGStabCUSPSetIterations(PC,PetscInt); 275 PETSC_EXTERN PetscErrorCode PCBiCGStabCUSPSetUseVerboseMonitor(PC,PetscBool); 276 277 PETSC_EXTERN PetscErrorCode PCAINVCUSPSetDropTolerance(PC,PetscReal); 278 PETSC_EXTERN PetscErrorCode PCAINVCUSPUseScaling(PC,PetscBool); 279 PETSC_EXTERN PetscErrorCode PCAINVCUSPSetNonzeros(PC,PetscInt); 280 PETSC_EXTERN PetscErrorCode PCAINVCUSPSetLinParameter(PC,PetscInt); 281 282 PETSC_EXTERN PetscErrorCode PCPARMSSetGlobal(PC,PCPARMSGlobalType); 283 PETSC_EXTERN PetscErrorCode PCPARMSSetLocal(PC,PCPARMSLocalType); 284 PETSC_EXTERN PetscErrorCode PCPARMSSetSolveTolerances(PC,PetscReal,PetscInt); 285 PETSC_EXTERN PetscErrorCode PCPARMSSetSolveRestart(PC,PetscInt); 286 PETSC_EXTERN PetscErrorCode PCPARMSSetNonsymPerm(PC,PetscBool); 287 PETSC_EXTERN PetscErrorCode PCPARMSSetFill(PC,PetscInt,PetscInt,PetscInt); 288 289 PETSC_EXTERN PetscErrorCode PCGAMGSetType( PC,PCGAMGType); 290 PETSC_EXTERN PetscErrorCode PCGAMGGetType( PC,PCGAMGType*); 291 PETSC_EXTERN PetscErrorCode PCGAMGSetProcEqLim(PC,PetscInt); 292 PETSC_EXTERN PetscErrorCode PCGAMGSetRepartition(PC,PetscBool); 293 PETSC_EXTERN PetscErrorCode PCGAMGASMSetUseAggs(PC,PetscBool); 294 PETSC_EXTERN PetscErrorCode PCGAMGSetUseParallelCoarseGridSolve(PC,PetscBool); 295 PETSC_EXTERN PetscErrorCode PCGAMGSetSolverType(PC,char[],PetscInt); 296 PETSC_EXTERN PetscErrorCode PCGAMGSetThreshold(PC,PetscReal[],PetscInt); 297 PETSC_EXTERN PetscErrorCode PCGAMGSetThresholdScale(PC,PetscReal); 298 PETSC_EXTERN PetscErrorCode PCGAMGSetCoarseEqLim(PC,PetscInt); 299 PETSC_EXTERN PetscErrorCode PCGAMGSetNlevels(PC,PetscInt); 300 PETSC_EXTERN PetscErrorCode PCGAMGSetNSmooths(PC,PetscInt); 301 PETSC_EXTERN PetscErrorCode PCGAMGSetSymGraph(PC,PetscBool); 302 PETSC_EXTERN PetscErrorCode PCGAMGSetSquareGraph(PC,PetscInt); 303 PETSC_EXTERN PetscErrorCode PCGAMGSetReuseInterpolation(PC,PetscBool); 304 PETSC_EXTERN PetscErrorCode PCGAMGFinalizePackage(void); 305 PETSC_EXTERN PetscErrorCode PCGAMGInitializePackage(void); 306 PETSC_EXTERN PetscErrorCode PCGAMGRegister(PCGAMGType,PetscErrorCode (*)(PC)); 307 308 PETSC_EXTERN PetscErrorCode PCGAMGClassicalSetType(PC,PCGAMGClassicalType); 309 PETSC_EXTERN PetscErrorCode PCGAMGClassicalGetType(PC,PCGAMGClassicalType*); 310 311 PETSC_EXTERN PetscErrorCode PCBDDCSetDiscreteGradient(PC,Mat,PetscInt,PetscInt,PetscBool,PetscBool); 312 PETSC_EXTERN PetscErrorCode PCBDDCSetDivergenceMat(PC,Mat,PetscBool,IS); 313 PETSC_EXTERN PetscErrorCode PCBDDCSetChangeOfBasisMat(PC,Mat,PetscBool); 314 PETSC_EXTERN PetscErrorCode PCBDDCSetPrimalVerticesIS(PC,IS); 315 PETSC_EXTERN PetscErrorCode PCBDDCSetPrimalVerticesLocalIS(PC,IS); 316 PETSC_EXTERN PetscErrorCode PCBDDCGetPrimalVerticesIS(PC,IS*); 317 PETSC_EXTERN PetscErrorCode PCBDDCGetPrimalVerticesLocalIS(PC,IS*); 318 PETSC_EXTERN PetscErrorCode PCBDDCSetCoarseningRatio(PC,PetscInt); 319 PETSC_EXTERN PetscErrorCode PCBDDCSetLevels(PC,PetscInt); 320 PETSC_EXTERN PetscErrorCode PCBDDCSetDirichletBoundaries(PC,IS); 321 PETSC_EXTERN PetscErrorCode PCBDDCSetDirichletBoundariesLocal(PC,IS); 322 PETSC_EXTERN PetscErrorCode PCBDDCGetDirichletBoundaries(PC,IS*); 323 PETSC_EXTERN PetscErrorCode PCBDDCGetDirichletBoundariesLocal(PC,IS*); 324 PETSC_EXTERN PetscErrorCode PCBDDCSetNeumannBoundaries(PC,IS); 325 PETSC_EXTERN PetscErrorCode PCBDDCSetNeumannBoundariesLocal(PC,IS); 326 PETSC_EXTERN PetscErrorCode PCBDDCGetNeumannBoundaries(PC,IS*); 327 PETSC_EXTERN PetscErrorCode PCBDDCGetNeumannBoundariesLocal(PC,IS*); 328 PETSC_EXTERN PetscErrorCode PCBDDCSetDofsSplitting(PC,PetscInt,IS[]); 329 PETSC_EXTERN PetscErrorCode PCBDDCSetDofsSplittingLocal(PC,PetscInt,IS[]); 330 PETSC_EXTERN PetscErrorCode PCBDDCSetLocalAdjacencyGraph(PC,PetscInt,const PetscInt[],const PetscInt[],PetscCopyMode); 331 PETSC_EXTERN PetscErrorCode PCBDDCCreateFETIDPOperators(PC,PetscBool,const char*,Mat*,PC*); 332 PETSC_EXTERN PetscErrorCode PCBDDCMatFETIDPGetRHS(Mat,Vec,Vec); 333 PETSC_EXTERN PetscErrorCode PCBDDCMatFETIDPGetSolution(Mat,Vec,Vec); 334 PETSC_EXTERN PetscErrorCode PCBDDCFinalizePackage(void); 335 PETSC_EXTERN PetscErrorCode PCBDDCInitializePackage(void); 336 337 PETSC_EXTERN PetscErrorCode PCISSetUseStiffnessScaling(PC,PetscBool); 338 PETSC_EXTERN PetscErrorCode PCISSetSubdomainScalingFactor(PC,PetscScalar); 339 PETSC_EXTERN PetscErrorCode PCISSetSubdomainDiagonalScaling(PC,Vec); 340 341 PETSC_EXTERN PetscInt PetscMGLevelId; 342 PETSC_EXTERN PetscErrorCode PCMGSetType(PC,PCMGType); 343 PETSC_EXTERN PetscErrorCode PCMGGetType(PC,PCMGType*); 344 PETSC_EXTERN PetscErrorCode PCMGSetLevels(PC,PetscInt,MPI_Comm*); 345 PETSC_EXTERN PetscErrorCode PCMGGetLevels(PC,PetscInt*); 346 347 PETSC_EXTERN PetscErrorCode PCMGSetDistinctSmoothUp(PC); 348 PETSC_EXTERN PetscErrorCode PCMGSetNumberSmooth(PC,PetscInt); 349 PETSC_EXTERN PetscErrorCode PCMGSetCycleType(PC,PCMGCycleType); 350 PETSC_EXTERN PetscErrorCode PCMGSetCycleTypeOnLevel(PC,PetscInt,PCMGCycleType); 351 PETSC_DEPRECATED("Use PCMGSetCycleTypeOnLevel") PETSC_STATIC_INLINE PetscErrorCode PCMGSetCyclesOnLevel(PC pc,PetscInt l,PetscInt t) {return PCMGSetCycleTypeOnLevel(pc,l,(PCMGCycleType)t);} 352 PETSC_EXTERN PetscErrorCode PCMGMultiplicativeSetCycles(PC,PetscInt); 353 PETSC_EXTERN PetscErrorCode PCMGSetGalerkin(PC,PCMGGalerkinType); 354 PETSC_EXTERN PetscErrorCode PCMGGetGalerkin(PC,PCMGGalerkinType*); 355 356 PETSC_EXTERN PetscErrorCode PCMGSetRhs(PC,PetscInt,Vec); 357 PETSC_EXTERN PetscErrorCode PCMGSetX(PC,PetscInt,Vec); 358 PETSC_EXTERN PetscErrorCode PCMGSetR(PC,PetscInt,Vec); 359 360 PETSC_EXTERN PetscErrorCode PCMGSetRestriction(PC,PetscInt,Mat); 361 PETSC_EXTERN PetscErrorCode PCMGGetRestriction(PC,PetscInt,Mat*); 362 PETSC_EXTERN PetscErrorCode PCMGSetInjection(PC,PetscInt,Mat); 363 PETSC_EXTERN PetscErrorCode PCMGGetInjection(PC,PetscInt,Mat*); 364 PETSC_EXTERN PetscErrorCode PCMGSetInterpolation(PC,PetscInt,Mat); 365 PETSC_EXTERN PetscErrorCode PCMGGetInterpolation(PC,PetscInt,Mat*); 366 PETSC_EXTERN PetscErrorCode PCMGSetRScale(PC,PetscInt,Vec); 367 PETSC_EXTERN PetscErrorCode PCMGGetRScale(PC,PetscInt,Vec*); 368 PETSC_EXTERN PetscErrorCode PCMGSetResidual(PC,PetscInt,PetscErrorCode (*)(Mat,Vec,Vec,Vec),Mat); 369 PETSC_EXTERN PetscErrorCode PCMGResidualDefault(Mat,Vec,Vec,Vec); 370 371 PETSC_EXTERN PetscErrorCode PCTelescopeGetSubcommType(PC,PetscSubcommType*); 372 PETSC_EXTERN PetscErrorCode PCTelescopeSetSubcommType(PC,PetscSubcommType); 373 PETSC_EXTERN PetscErrorCode PCTelescopeGetReductionFactor(PC,PetscInt*); 374 PETSC_EXTERN PetscErrorCode PCTelescopeSetReductionFactor(PC,PetscInt); 375 PETSC_EXTERN PetscErrorCode PCTelescopeGetIgnoreDM(PC,PetscBool*); 376 PETSC_EXTERN PetscErrorCode PCTelescopeSetIgnoreDM(PC,PetscBool); 377 PETSC_EXTERN PetscErrorCode PCTelescopeGetIgnoreKSPComputeOperators(PC,PetscBool*); 378 PETSC_EXTERN PetscErrorCode PCTelescopeSetIgnoreKSPComputeOperators(PC,PetscBool); 379 PETSC_EXTERN PetscErrorCode PCTelescopeGetDM(PC,DM*); 380 381 PETSC_EXTERN PetscErrorCode PCPatchSetSaveOperators(PC, PetscBool); 382 PETSC_EXTERN PetscErrorCode PCPatchGetSaveOperators(PC, PetscBool *); 383 PETSC_EXTERN PetscErrorCode PCPatchSetPartitionOfUnity(PC, PetscBool); 384 PETSC_EXTERN PetscErrorCode PCPatchGetPartitionOfUnity(PC, PetscBool *); 385 PETSC_EXTERN PetscErrorCode PCPatchSetMultiplicative(PC, PetscBool); 386 PETSC_EXTERN PetscErrorCode PCPatchGetMultiplicative(PC, PetscBool *); 387 PETSC_EXTERN PetscErrorCode PCPatchSetSubMatType(PC, MatType); 388 PETSC_EXTERN PetscErrorCode PCPatchGetSubMatType(PC, MatType *); 389 PETSC_EXTERN PetscErrorCode PCPatchSetCellNumbering(PC, PetscSection); 390 PETSC_EXTERN PetscErrorCode PCPatchGetCellNumbering(PC, PetscSection *); 391 PETSC_EXTERN PetscErrorCode PCPatchSetConstructType(PC, PCPatchConstructType, PetscErrorCode (*)(PC, PetscInt *, IS **, IS *, void *), void *); 392 PETSC_EXTERN PetscErrorCode PCPatchGetConstructType(PC, PCPatchConstructType *, PetscErrorCode (**)(PC, PetscInt *, IS **, IS *, void *), void **); 393 PETSC_EXTERN PetscErrorCode PCPatchSetDiscretisationInfo(PC, PetscInt, DM *, PetscInt *, PetscInt *, const PetscInt **, const PetscInt *, PetscInt, const PetscInt *, PetscInt, const PetscInt *); 394 PETSC_EXTERN PetscErrorCode PCPatchSetComputeOperator(PC, PetscErrorCode (*)(PC,PetscInt,Mat,IS,PetscInt,const PetscInt *,void *), void *); 395 396 PETSC_EXTERN PetscErrorCode PCLMVMSetMatLMVM(PC, Mat); 397 PETSC_EXTERN PetscErrorCode PCLMVMGetMatLMVM(PC, Mat*); 398 PETSC_EXTERN PetscErrorCode PCLMVMSetIS(PC, IS); 399 PETSC_EXTERN PetscErrorCode PCLMVMClearIS(PC); 400 401 PETSC_EXTERN PetscErrorCode PCExoticSetType(PC,PCExoticType); 402 403 #endif /* __PETSCPC_H */ 404