Searched refs:nfp (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/impls/fetidp/ |
| H A D | fetidp.c | 512 PetscInt fidp[8] = {-1}, nfp = 8; in KSPFETIDPSetUpOperators() local
526 …tidp_pressure_field", "Field id for pressures for saddle-point problems", NULL, fidp, &nfp, NULL)); in KSPFETIDPSetUpOperators()
533 fetidp->saddlepoint = (nfp > 0 ? PETSC_TRUE : fetidp->saddlepoint); in KSPFETIDPSetUpOperators()
633 if (nfp == 0) { /* zero pressure block */ in KSPFETIDPSetUpOperators()
639 nfp = 1; in KSPFETIDPSetUpOperators()
649 PetscCall(PetscMalloc1(nfp, &tis)); in KSPFETIDPSetUpOperators()
651 for (PetscInt i = 0; i < nfp; i++) { in KSPFETIDPSetUpOperators()
658 PetscCall(ISConcatenate(PETSC_COMM_SELF, nfp, tis, &lPall)); in KSPFETIDPSetUpOperators()
661 for (PetscInt i = 0; i < nfp; i++) { in KSPFETIDPSetUpOperators()
668 PetscCall(ISConcatenate(PetscObjectComm((PetscObject)ksp), nfp, tis, &Pall)); in KSPFETIDPSetUpOperators()
[all …]
|