Lines Matching refs:A01
1355 static PetscErrorCode PCHPDDMCheckSymmetry_Private(PC pc, Mat A01, Mat A10, Mat *B01 = nullptr) in PCHPDDMCheckSymmetry_Private() argument
1377 PetscCall(PetscObjectTypeCompare((PetscObject)A01, MATTRANSPOSEVIRTUAL, &flg)); in PCHPDDMCheckSymmetry_Private()
1379 …PetscCall(MatShellGetScalingShifts(A01, (PetscScalar *)MAT_SHELL_NOT_ALLOWED, (PetscScalar *)MAT_S… in PCHPDDMCheckSymmetry_Private()
1380 PetscCall(MatTransposeGetMat(A01, &A01)); in PCHPDDMCheckSymmetry_Private()
1381 PetscCall(MatTranspose(A01, MAT_INITIAL_MATRIX, &B)); in PCHPDDMCheckSymmetry_Private()
1382 A01 = B; in PCHPDDMCheckSymmetry_Private()
1384 PetscCall(PetscObjectTypeCompare((PetscObject)A01, MATHERMITIANTRANSPOSEVIRTUAL, &flg)); in PCHPDDMCheckSymmetry_Private()
1386 …PetscCall(MatShellGetScalingShifts(A01, (PetscScalar *)MAT_SHELL_NOT_ALLOWED, (PetscScalar *)MAT_S… in PCHPDDMCheckSymmetry_Private()
1387 PetscCall(MatHermitianTransposeGetMat(A01, &A01)); in PCHPDDMCheckSymmetry_Private()
1388 PetscCall(MatHermitianTranspose(A01, MAT_INITIAL_MATRIX, &B)); in PCHPDDMCheckSymmetry_Private()
1389 A01 = B; in PCHPDDMCheckSymmetry_Private()
1392 PetscCall(PetscLayoutCompare(T->rmap, A01->rmap, &flg)); in PCHPDDMCheckSymmetry_Private()
1394 PetscCall(PetscLayoutCompare(T->cmap, A01->cmap, &flg)); in PCHPDDMCheckSymmetry_Private()
1396 …PetscCall(MatFindZeroRows(A01, &z)); /* for essential boundary conditions, some implementations wi… in PCHPDDMCheckSymmetry_Private()
1402 PetscCall(MatMultEqual(A01, T, 20, &flg)); in PCHPDDMCheckSymmetry_Private()
1933 Mat A01, A10, B = nullptr, C = nullptr, *sub; in PCSetUp_HPDDM() local
1935 PetscCall(MatSchurComplementGetSubMatrices(P, &A, nullptr, &A01, &A10, nullptr)); in PCSetUp_HPDDM()
1953 …PetscCall(PetscObjectTypeCompareAny((PetscObject)A01, &flg, MATTRANSPOSEVIRTUAL, MATHERMITIANTRANS… in PCSetUp_HPDDM()
1954 if (!flg) C = A01; in PCSetUp_HPDDM()
1956 …PetscCall(MatShellGetScalingShifts(A01, (PetscScalar *)MAT_SHELL_NOT_ALLOWED, (PetscScalar *)MAT_S… in PCSetUp_HPDDM()
1983 PetscCall(PCHPDDMCheckSymmetry_Private(pc, A01, A10)); in PCSetUp_HPDDM()
2144 Mat A00, P00, A01, A10, A11, B, N; in PCSetUp_HPDDM() local
2147 PetscCall(MatSchurComplementGetSubMatrices(P, &A00, &P00, &A01, &A10, &A11)); in PCSetUp_HPDDM()
2155 PetscCall(PCHPDDMCheckSymmetry_Private(pc, A01, A10, &B01)); in PCSetUp_HPDDM()
2176 …PetscCall(MatSchurComplementUpdateSubMatrices(P, A00, P00, A01, A10, A11)); /* replace P00 by diag… in PCSetUp_HPDDM()
2181 PetscCall(MatDuplicate(A01, MAT_COPY_VALUES, &B)); in PCSetUp_HPDDM()
2197 PetscCall(MatGetType(A01, &type)); /* cache MatType */ in PCSetUp_HPDDM()
2198 …PetscCall(MatConvert(A01, MATAIJ, MAT_INPLACE_MATRIX, &A01)); /* MatProduct is not versatile enoug… in PCSetUp_HPDDM()
2199 PetscCall(MatMatMult(D00, A01, MAT_INITIAL_MATRIX, PETSC_CURRENT, &B)); in PCSetUp_HPDDM()
2201 … PetscCall(MatConvert(A01, type, MAT_INPLACE_MATRIX, &A01)); /* reset to previous MatType */ in PCSetUp_HPDDM()
2204 B01 = A01; in PCSetUp_HPDDM()
2208 …if (B01 && B01 != A01) PetscCall(MatSetBlockSizesFromMats(B01, A01, A01)); /* TODO: remove this li… in PCSetUp_HPDDM()
2656 Mat A00, P00, A01 = nullptr, A10, A11, N, b[4]; in PCSetUp_HPDDM() local
2678 if (flg) PetscCall(MatTransposeGetMat(A10, &A01)); in PCSetUp_HPDDM()
2683 if (flg) PetscCall(MatHermitianTransposeGetMat(A10, &A01)); in PCSetUp_HPDDM()
2687 if (!A01) { in PCSetUp_HPDDM()
2708 PetscCall(MatSetOption(A01, MAT_SUBMAT_SINGLEIS, PETSC_TRUE)); in PCSetUp_HPDDM()
2709 PetscCall(MatCreateSubMatrices(A01, 1, &sorted, &data->is, MAT_INITIAL_MATRIX, &sub)); in PCSetUp_HPDDM()
2713 if (A01 || !A10) { in PCSetUp_HPDDM()