Actual source code: nn.h
petsc-3.3-p5 2012-12-01
5: #include <../src/ksp/pc/impls/is/pcis.h>
7: /*
8: Private context (data structure) for the NN preconditioner.
9: */
10: typedef struct {
11: /* First MUST come the folowing line, for the stuff that is common to FETI and Neumann-Neumann. */
12: PC_IS pcis;
13: /* Then, everything else. */
14: Mat coarse_mat;
15: Vec coarse_x;
16: Vec coarse_b;
17: KSP ksp_coarse;
18: PetscScalar **DZ_IN; /* proc[k].DZ_IN[i][] = bit of vector to be received from processor i by proc. k */
19: PetscScalar factor_coarse_rhs;
20: } PC_NN;
22: extern PetscErrorCode PCNNCreateCoarseMatrix (PC);
23: extern PetscErrorCode PCNNApplySchurToChunk(PC pc,PetscInt n,PetscInt* idx,PetscScalar *chunk,PetscScalar* array_N,Vec vec1_B,Vec vec2_B,Vec vec1_D,Vec vec2_D);
24: extern PetscErrorCode PCNNApplyInterfacePreconditioner (PC pc,Vec r,Vec z,PetscScalar* work_N,Vec vec1_B,Vec vec2_B,
25: Vec vec3_B,Vec vec1_D,Vec vec2_D,Vec vec1_N,Vec vec2_N);
26: extern PetscErrorCode PCNNBalancing(PC pc,Vec r,Vec u,Vec z,Vec vec1_B,Vec vec2_B,Vec vec3_B,Vec vec1_D,Vec vec2_D,PetscScalar *work_N);
28: #endif /* __pcnn_h */