Actual source code: pcbddcprivateimpl.h

  1: /* prototypes of all BDDC private functions */
  2: #pragma once

  4: #include <petsc/private/pcbddcstructsimpl.h>

  6: /* main functions */
  7: PETSC_EXTERN PetscErrorCode PCBDDCAnalyzeInterface(PC);
  8: PETSC_EXTERN PetscErrorCode PCBDDCConstraintsSetUp(PC);

 10: /* reset functions */
 11: PETSC_EXTERN PetscErrorCode PCBDDCResetTopography(PC);
 12: PETSC_EXTERN PetscErrorCode PCBDDCResetSolvers(PC);
 13: PETSC_EXTERN PetscErrorCode PCBDDCResetCustomization(PC);

 15: /* graph */
 16: PETSC_EXTERN PetscErrorCode PCBDDCGraphCreate(PCBDDCGraph *);
 17: PETSC_EXTERN PetscErrorCode PCBDDCGraphDestroy(PCBDDCGraph *);
 18: PETSC_EXTERN PetscErrorCode PCBDDCGraphInit(PCBDDCGraph, ISLocalToGlobalMapping, PetscInt, PetscInt);
 19: PETSC_EXTERN PetscErrorCode PCBDDCGraphReset(PCBDDCGraph);
 20: PETSC_EXTERN PetscErrorCode PCBDDCGraphResetCSR(PCBDDCGraph);
 21: PETSC_EXTERN PetscErrorCode PCBDDCGraphResetCoords(PCBDDCGraph);
 22: PETSC_EXTERN PetscErrorCode PCBDDCGraphSetUp(PCBDDCGraph, PetscInt, IS, IS, PetscInt, IS[], IS);
 23: PETSC_EXTERN PetscErrorCode PCBDDCGraphComputeConnectedComponents(PCBDDCGraph);
 24: PETSC_EXTERN PetscErrorCode PCBDDCGraphComputeConnectedComponentsLocal(PCBDDCGraph);
 25: PETSC_EXTERN PetscErrorCode PCBDDCGraphASCIIView(PCBDDCGraph, PetscInt, PetscViewer);
 26: PETSC_EXTERN PetscErrorCode PCBDDCGraphGetCandidatesIS(PCBDDCGraph, PetscInt *, IS *[], PetscInt *, IS *[], IS *);
 27: PETSC_EXTERN PetscErrorCode PCBDDCGraphRestoreCandidatesIS(PCBDDCGraph, PetscInt *, IS *[], PetscInt *, IS *[], IS *);
 28: PETSC_EXTERN PetscErrorCode PCBDDCGraphGetDirichletDofs(PCBDDCGraph, IS *);
 29: PETSC_EXTERN PetscErrorCode PCBDDCGraphGetDirichletDofsB(PCBDDCGraph, IS *);
 30: PETSC_EXTERN PetscErrorCode PCBDDCDestroyGraphCandidatesIS(void *);

 32: /* interface for scaling operator */
 33: PETSC_EXTERN PetscErrorCode PCBDDCScalingSetUp(PC);
 34: PETSC_EXTERN PetscErrorCode PCBDDCScalingDestroy(PC);
 35: PETSC_EXTERN PetscErrorCode PCBDDCScalingRestriction(PC, Vec, Vec);
 36: PETSC_EXTERN PetscErrorCode PCBDDCScalingExtension(PC, Vec, Vec);

 38: /* nullspace correction */
 39: PETSC_EXTERN PetscErrorCode PCBDDCNullSpaceAssembleCorrection(PC, PetscBool, PetscBool);

 41: /* utils */
 42: PETSC_EXTERN PetscErrorCode PCBDDCComputeLocalMatrix(PC, Mat);
 43: PETSC_EXTERN PetscErrorCode PCBDDCSetUpLocalWorkVectors(PC);
 44: PETSC_EXTERN PetscErrorCode PCBDDCSetUpSolvers(PC);
 45: PETSC_EXTERN PetscErrorCode PCBDDCSetUpLocalScatters(PC);
 46: PETSC_EXTERN PetscErrorCode PCBDDCSetUpLocalSolvers(PC, PetscBool, PetscBool);
 47: PETSC_EXTERN PetscErrorCode PCBDDCSetUpCorrection(PC, PetscScalar **);
 48: PETSC_EXTERN PetscErrorCode PCBDDCSetUpCoarseSolver(PC, PetscScalar *);
 49: PETSC_EXTERN PetscErrorCode PCBDDCComputePrimalNumbering(PC, PetscInt *, PetscInt **);
 50: PETSC_EXTERN PetscErrorCode PCBDDCScatterCoarseDataBegin(PC, InsertMode, ScatterMode);
 51: PETSC_EXTERN PetscErrorCode PCBDDCScatterCoarseDataEnd(PC, InsertMode, ScatterMode);
 52: PETSC_EXTERN PetscErrorCode PCBDDCApplyInterfacePreconditioner(PC, PetscBool);
 53: PETSC_EXTERN PetscErrorCode PCBDDCOrthonormalizeVecs(PetscInt *, Vec[]);
 54: PETSC_EXTERN PetscErrorCode PCBDDCSetUseExactDirichlet(PC, PetscBool);
 55: PETSC_EXTERN PetscErrorCode PCBDDCSetLevel(PC, PetscInt);
 56: PETSC_EXTERN PetscErrorCode PCBDDCGlobalToLocal(VecScatter, Vec, Vec, IS, IS *);
 57: PETSC_EXTERN PetscErrorCode PCBDDCAdaptiveSelection(PC);
 58: PETSC_EXTERN PetscErrorCode PCBDDCConsistencyCheckIS(PC, MPI_Op, IS *);
 59: PETSC_EXTERN PetscErrorCode PCBDDCComputeLocalTopologyInfo(PC);
 60: PETSC_EXTERN PetscErrorCode MatCreateSubMatrixUnsorted(Mat, IS, IS, Mat *);
 61: PETSC_EXTERN PetscErrorCode PCBDDCDetectDisconnectedComponents(PC, PetscBool, PetscInt *, IS *[], IS *);
 62: PETSC_EXTERN PetscErrorCode MatSeqAIJCompress(Mat, Mat *);
 63: PETSC_EXTERN PetscErrorCode PCBDDCReuseSolversBenignAdapt(PCBDDCReuseSolvers, Vec, Vec, PetscBool, PetscBool);
 64: PETSC_EXTERN PetscErrorCode PCBDDCComputeNoNetFlux(Mat, Mat, PetscBool, IS, PCBDDCGraph, MatNullSpace *);
 65: PETSC_EXTERN PetscErrorCode PCBDDCNullSpaceCreate(MPI_Comm, PetscBool, PetscInt, Vec[], MatNullSpace *);
 66: PETSC_EXTERN PetscErrorCode PCBDDCNedelecSupport(PC);
 67: PETSC_EXTERN PetscErrorCode PCBDDCAddPrimalVerticesLocalIS(PC, IS);
 68: PETSC_EXTERN PetscErrorCode PCBDDCComputeFakeChange(PC, PetscBool, PCBDDCGraph, PCBDDCSubSchurs, Mat *, IS *, IS *, PetscBool *);

 70: /* benign subspace trick */
 71: PETSC_EXTERN PetscErrorCode PCBDDCBenignPopOrPushB0(PC, PetscBool);
 72: PETSC_EXTERN PetscErrorCode PCBDDCBenignGetOrSetP0(PC, Vec, PetscBool);
 73: PETSC_EXTERN PetscErrorCode PCBDDCBenignDetectSaddlePoint(PC, PetscBool, IS *);
 74: PETSC_EXTERN PetscErrorCode PCBDDCBenignCheck(PC, IS);
 75: PETSC_EXTERN PetscErrorCode PCBDDCBenignShellMat(PC, PetscBool);
 76: PETSC_EXTERN PetscErrorCode PCBDDCBenignRemoveInterior(PC, Vec, Vec);

 78: /* feti-dp */
 79: PETSC_EXTERN PetscErrorCode PCBDDCCreateFETIDPMatContext(PC, FETIDPMat_ctx *);
 80: PETSC_EXTERN PetscErrorCode PCBDDCSetupFETIDPMatContext(FETIDPMat_ctx);
 81: PETSC_EXTERN PetscErrorCode PCBDDCCreateFETIDPPCContext(PC, FETIDPPC_ctx *);
 82: PETSC_EXTERN PetscErrorCode PCBDDCSetupFETIDPPCContext(Mat, FETIDPPC_ctx);
 83: PETSC_EXTERN PetscErrorCode FETIDPPCApply(PC, Vec, Vec);
 84: PETSC_EXTERN PetscErrorCode FETIDPPCApplyTranspose(PC, Vec, Vec);
 85: PETSC_EXTERN PetscErrorCode FETIDPPCView(PC, PetscViewer);
 86: PETSC_EXTERN PetscErrorCode PCBDDCDestroyFETIDPPC(PC);
 87: PETSC_EXTERN PetscErrorCode FETIDPMatMult(Mat, Vec, Vec);
 88: PETSC_EXTERN PetscErrorCode FETIDPMatMultTranspose(Mat, Vec, Vec);

 90: PETSC_EXTERN PetscErrorCode PCBDDCDestroyFETIDPMat(Mat);

 92: /* interface to SubSchurs */
 93: PETSC_EXTERN PetscErrorCode PCBDDCInitSubSchurs(PC);
 94: PETSC_EXTERN PetscErrorCode PCBDDCSetUpSubSchurs(PC);

 96: /* sub schurs API */
 97: PETSC_EXTERN PetscErrorCode PCBDDCSubSchursCreate(PCBDDCSubSchurs *);
 98: PETSC_EXTERN PetscErrorCode PCBDDCSubSchursInit(PCBDDCSubSchurs, const char *, IS, IS, PCBDDCGraph, ISLocalToGlobalMapping, PetscBool, PetscBool);
 99: PETSC_EXTERN PetscErrorCode PCBDDCSubSchursReset(PCBDDCSubSchurs);
100: PETSC_EXTERN PetscErrorCode PCBDDCSubSchursDestroy(PCBDDCSubSchurs *);
101: PETSC_EXTERN PetscErrorCode PCBDDCSubSchursSetUp(PCBDDCSubSchurs, Mat, Mat, PetscBool, PetscInt[], PetscInt[], PetscInt, Vec, PetscBool, PetscBool, PetscBool, PetscInt, PetscInt[], IS[], Mat, IS);