Lines Matching refs:nsplits
42 PetscInt nsplits; /* Number of field divisions defined */ member
120 …cInt_FMT ", blocksize = %" PetscInt_FMT "\n", PCCompositeTypes[jac->type], jac->nsplits, jac->bs)); in PCView_FieldSplit()
122 …h %s composition: total splits = %" PetscInt_FMT "\n", PCCompositeTypes[jac->type], jac->nsplits)); in PCView_FieldSplit()
128 for (i = 0; i < jac->nsplits; i++) { in PCView_FieldSplit()
153 wd = w / (jac->nsplits + 1); in PCView_FieldSplit()
154 x = x - wd * (jac->nsplits - 1) / 2.0; in PCView_FieldSplit()
155 for (i = 0; i < jac->nsplits; i++) { in PCView_FieldSplit()
212 for (i = 0; i < jac->nsplits; i++) { in PCView_FieldSplit_Schur()
301 …cInt_FMT ", blocksize = %" PetscInt_FMT "\n", PCCompositeTypes[jac->type], jac->nsplits, jac->bs)); in PCView_FieldSplit_GKB()
303 …h %s composition: total splits = %" PetscInt_FMT "\n", PCCompositeTypes[jac->type], jac->nsplits)); in PCView_FieldSplit_GKB()
337 wd = w / (jac->nsplits + 1); in PCView_FieldSplit_GKB()
338 x = x - wd * (jac->nsplits - 1) / 2.0; in PCView_FieldSplit_GKB()
339 for (i = 0; i < jac->nsplits; i++) { in PCView_FieldSplit_GKB()
537 } else if (jac->nsplits == 1) { in PCFieldSplitSetDefaults()
548 …ac->nsplits >= 2, PetscObjectComm((PetscObject)pc), PETSC_ERR_PLIB, "Unhandled case, must have at … in PCFieldSplitSetDefaults()
587 nsplit = jac->nsplits; in PCSetUp_FieldSplit()
1711 } else if (jac->type == PC_COMPOSITE_MULTIPLICATIVE && jac->nsplits == 2) { in PCApply_FieldSplit()
1799 } else if (jac->type == PC_COMPOSITE_MULTIPLICATIVE && jac->nsplits == 2) { in PCMatApply_FieldSplit()
2082 PetscCall(MatDestroyMatrices(jac->nsplits, &jac->mat)); in PCReset_FieldSplit()
2086 if (jac->pmat) PetscCall(MatDestroyMatrices(jac->nsplits, &jac->pmat)); in PCReset_FieldSplit()
2087 if (jac->Afield) PetscCall(MatDestroyMatrices(jac->nsplits, &jac->Afield)); in PCReset_FieldSplit()
2088 jac->nsplits = 0; in PCReset_FieldSplit()
2155 if (jac->bs > 0 && jac->nsplits == 0) { in PCSetFromOptions_FieldSplit()
2221 PetscCall(PetscSNPrintf(ilink->splitname, 2, "%" PetscInt_FMT, jac->nsplits)); in PCFieldSplitSetFields_FieldSplit()
2223 PetscCall(PetscMPIIntCast(jac->nsplits, &nse)); in PCFieldSplitSetFields_FieldSplit()
2224 …ilink->event = jac->nsplits < 5 ? KSP_Solve_FS_0 + nse : KSP_Solve_FS_0 + 4; /* Splits greater tha… in PCFieldSplitSetFields_FieldSplit()
2249 jac->nsplits++; in PCFieldSplitSetFields_FieldSplit()
2264 …Check(jac->nsplits == 2, PetscObjectComm((PetscObject)pc), PETSC_ERR_PLIB, "Unexpected number of s… in PCFieldSplitSchurGetSubKSP_FieldSplit()
2265 nn = jac->nsplits + (jac->kspupper != jac->head->ksp ? 1 : 0); in PCFieldSplitSchurGetSubKSP_FieldSplit()
2281 PetscCall(PetscMalloc1(jac->nsplits, subksp)); in PCFieldSplitGetSubKSP_FieldSplit_Schur()
2285 if (n) *n = jac->nsplits; in PCFieldSplitGetSubKSP_FieldSplit_Schur()
2296 PetscCall(PetscMalloc1(jac->nsplits, subksp)); in PCFieldSplitGetSubKSP_FieldSplit()
2301 …nsplits, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Corrupt PCFIELDSPLIT object: number of splits in linked… in PCFieldSplitGetSubKSP_FieldSplit()
2302 if (n) *n = jac->nsplits; in PCFieldSplitGetSubKSP_FieldSplit()
2407 PetscCall(PetscSNPrintf(ilink->splitname, 7, "%" PetscInt_FMT, jac->nsplits)); in PCFieldSplitSetIS_FieldSplit()
2409 PetscCall(PetscMPIIntCast(jac->nsplits, &nse)); in PCFieldSplitSetIS_FieldSplit()
2410 …ilink->event = jac->nsplits < 5 ? KSP_Solve_FS_0 + nse : KSP_Solve_FS_0 + 4; /* Splits greater tha… in PCFieldSplitSetIS_FieldSplit()
2435 jac->nsplits++; in PCFieldSplitSetIS_FieldSplit()
2710 … jac->nsplits, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Field %" PetscInt_FMT " requested but o… in PCFieldSplitGetISByIndex()