Searched refs:B01 (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/mat/tests/ |
| H A D | ex159.c | 64 Mat B00, B01, B10; in main() local
79 PetscCall(MatCreateNest(PETSC_COMM_WORLD, 2, isx, 1, NULL, Bx01, &B01)); in main()
80 PetscCall(MatSetUp(B01)); in main()
88 By[1] = B01; in main()
98 PetscCall(MatDestroy(&B01)); in main()
|
| /petsc/src/ksp/pc/impls/hpddm/ |
| H A D | pchpddm.cxx | 119 …Private(PC pc, Mat A, Mat N, Mat *B, const char *pcpre, Vec *diagonal = nullptr, Mat B01 = nullptr) in PCHPDDMSetAuxiliaryMatNormal_Private() argument
130 if (!B01) PetscCall(MatConvert(N, MATAIJ, MAT_INITIAL_MATRIX, B)); in PCHPDDMSetAuxiliaryMatNormal_Private()
131 else PetscCall(MatTransposeMatMult(B01, A, MAT_INITIAL_MATRIX, PETSC_DETERMINE, B)); in PCHPDDMSetAuxiliaryMatNormal_Private()
140 if (B01) { in PCHPDDMSetAuxiliaryMatNormal_Private()
141 PetscCall(PCHPDDMSplittingMatNormal_Private(B01, is, &splitting[1])); in PCHPDDMSetAuxiliaryMatNormal_Private()
142 PetscCall(MatDestroy(&B01)); in PCHPDDMSetAuxiliaryMatNormal_Private()
1355 static PetscErrorCode PCHPDDMCheckSymmetry_Private(PC pc, Mat A01, Mat A10, Mat *B01 = nullptr) in PCHPDDMCheckSymmetry_Private() argument
1363 if (B01) *B01 = nullptr; in PCHPDDMCheckSymmetry_Private()
1398 if (B01) PetscCall(MatDuplicate(T, MAT_COPY_VALUES, B01)); in PCHPDDMCheckSymmetry_Private()
1403 if (!B01) PetscCheck(flg, PetscObjectComm((PetscObject)pc), PETSC_ERR_SUP, "A01 != A10^T"); in PCHPDDMCheckSymmetry_Private()
[all …]
|