Lines Matching refs:kspA
860 KSP kspA = jac->head->ksp, kspInner = NULL, kspUpper = jac->kspupper; in PCSetUp_FieldSplit() local
887 if (kspA != kspInner) PetscCall(KSPSetOperators(kspA, jac->mat[0], jac->pmat[0])); in PCSetUp_FieldSplit()
888 if (kspUpper != kspA) PetscCall(KSPSetOperators(kspUpper, jac->mat[0], jac->pmat[0])); in PCSetUp_FieldSplit()
1112 KSP kspA = ilinkA->ksp, kspUpper = jac->kspupper; in PCSetUpOnBlocks_FieldSplit_Schur() local
1115 if (jac->schurfactorization == PC_FIELDSPLIT_SCHUR_FACT_FULL && kspUpper != kspA) { in PCSetUpOnBlocks_FieldSplit_Schur()
1119 PetscCall(KSPSetUp(kspA)); in PCSetUpOnBlocks_FieldSplit_Schur()
1120 PetscCall(KSPSetUpOnBlocks(kspA)); in PCSetUpOnBlocks_FieldSplit_Schur()
1124 } else if (kspUpper == kspA && jac->schurfactorization == PC_FIELDSPLIT_SCHUR_FACT_FULL) { in PCSetUpOnBlocks_FieldSplit_Schur()
1192 KSP kspA = ilinkA->ksp, kspLower = kspA, kspUpper = jac->kspupper; in PCApply_FieldSplit_Schur() local
1203 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1204 PetscCall(KSPSolve(kspA, ilinkA->x, ilinkA->y)); in PCApply_FieldSplit_Schur()
1205 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApply_FieldSplit_Schur()
1206 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1210 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApply_FieldSplit_Schur()
1213 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApply_FieldSplit_Schur()
1224 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1225 PetscCall(KSPSolve(kspA, ilinkA->x, ilinkA->y)); in PCApply_FieldSplit_Schur()
1226 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApply_FieldSplit_Schur()
1227 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1234 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApply_FieldSplit_Schur()
1236 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApply_FieldSplit_Schur()
1248 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApply_FieldSplit_Schur()
1250 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApply_FieldSplit_Schur()
1258 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1259 PetscCall(KSPSolve(kspA, ilinkA->x, ilinkA->y)); in PCApply_FieldSplit_Schur()
1260 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApply_FieldSplit_Schur()
1261 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1273 if (kspUpper == kspA) { in PCApply_FieldSplit_Schur()
1311 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApply_FieldSplit_Schur()
1313 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApply_FieldSplit_Schur()
1318 if (kspUpper == kspA) { in PCApply_FieldSplit_Schur()
1322 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1323 PetscCall(KSPSolve(kspA, ilinkA->x, ilinkA->y)); in PCApply_FieldSplit_Schur()
1324 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApply_FieldSplit_Schur()
1325 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1328 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApply_FieldSplit_Schur()
1329 PetscCall(KSPSolve(kspA, ilinkA->x, ilinkA->y)); in PCApply_FieldSplit_Schur()
1330 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApply_FieldSplit_Schur()
1396 KSP kspA = ilinkA->ksp, kspLower = kspA, kspUpper = jac->kspupper; in PCMatApply_FieldSplit_Schur() local
1408 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1409 PetscCall(KSPMatSolve(kspA, ilinkA->X, ilinkA->Y)); in PCMatApply_FieldSplit_Schur()
1410 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1413 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCMatApply_FieldSplit_Schur()
1415 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCMatApply_FieldSplit_Schur()
1423 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1424 PetscCall(KSPMatSolve(kspA, ilinkA->X, ilinkA->Y)); in PCMatApply_FieldSplit_Schur()
1425 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1431 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCMatApply_FieldSplit_Schur()
1433 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCMatApply_FieldSplit_Schur()
1441 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCMatApply_FieldSplit_Schur()
1443 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCMatApply_FieldSplit_Schur()
1449 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1450 PetscCall(KSPMatSolve(kspA, ilinkA->X, ilinkA->Y)); in PCMatApply_FieldSplit_Schur()
1451 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1460 if (kspUpper == kspA) { in PCMatApply_FieldSplit_Schur()
1523 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCMatApply_FieldSplit_Schur()
1525 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCMatApply_FieldSplit_Schur()
1529 if (kspUpper == kspA) { in PCMatApply_FieldSplit_Schur()
1533 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1534 PetscCall(KSPMatSolve(kspA, ilinkA->X, ilinkA->Y)); in PCMatApply_FieldSplit_Schur()
1535 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1541 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->X, ilinkA->Y, NULL)); in PCMatApply_FieldSplit_Schur()
1542 PetscCall(KSPMatSolve(kspA, ilinkA->X, ilinkA->Y)); in PCMatApply_FieldSplit_Schur()
1559 KSP kspA = ilinkA->ksp, kspLower = kspA, kspUpper = jac->kspupper; in PCApplyTranspose_FieldSplit_Schur() local
1568 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1569 PetscCall(KSPSolveTranspose(kspA, ilinkA->x, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1570 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1571 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1575 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApplyTranspose_FieldSplit_Schur()
1577 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApplyTranspose_FieldSplit_Schur()
1588 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1589 PetscCall(KSPSolveTranspose(kspA, ilinkA->x, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1590 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1591 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1598 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApplyTranspose_FieldSplit_Schur()
1600 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApplyTranspose_FieldSplit_Schur()
1611 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApplyTranspose_FieldSplit_Schur()
1613 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApplyTranspose_FieldSplit_Schur()
1621 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1622 PetscCall(KSPSolveTranspose(kspA, ilinkA->x, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1623 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1624 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1642 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, 1)); in PCApplyTranspose_FieldSplit_Schur()
1644 PetscCall(PetscObjectIncrementTabLevel((PetscObject)kspA, (PetscObject)kspA, -1)); in PCApplyTranspose_FieldSplit_Schur()
1649 if (kspLower == kspA) { in PCApplyTranspose_FieldSplit_Schur()
1652 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1653 PetscCall(KSPSolveTranspose(kspA, ilinkA->x, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1654 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1655 PetscCall(PetscLogEventEnd(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1657 PetscCall(PetscLogEventBegin(ilinkA->event, kspA, ilinkA->x, ilinkA->y, NULL)); in PCApplyTranspose_FieldSplit_Schur()
1658 PetscCall(KSPSolveTranspose(kspA, ilinkA->x, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()
1659 PetscCall(KSPCheckSolve(kspA, pc, ilinkA->y)); in PCApplyTranspose_FieldSplit_Schur()