Lines Matching refs:A2
11 Mat A, B, A2, B2, T; in main() local
211 Mat A2; in main() local
232 PetscCall(MatCreate(PETSC_COMM_WORLD, &A2)); in main()
233 PetscCall(MatSetType(A2, MATIS)); in main()
239 PetscCall(MatLoad(A2, view)); in main()
240 PetscCall(CheckMat(A, A2, PETSC_TRUE, "Load")); in main()
241 PetscCall(MatView(A2, PETSC_VIEWER_STDOUT_WORLD)); in main()
247 PetscCall(MatLoad(A2, view)); in main()
248 PetscCall(MatView(A2, PETSC_VIEWER_STDOUT_WORLD)); in main()
254 PetscCall(MatLoad(A2, view)); in main()
255 PetscCall(MatView(A2, PETSC_VIEWER_STDOUT_WORLD)); in main()
259 PetscCall(MatDestroy(&A2)); in main()
264 PetscCall(MatCreate(comm, &A2)); in main()
265 PetscCall(MatSetType(A2, MATIS)); in main()
268 PetscCall(MatLoad(A2, view)); in main()
269 PetscCall(MatView(A2, PETSC_VIEWER_STDOUT_(comm))); in main()
272 PetscCall(MatDestroy(&A2)); in main()
280 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
281 PetscCall(CheckMat(A, A2, PETSC_FALSE, "MatDuplicate and MatAXPY")); in main()
285 PetscCall(MatConvert(A2, MATAIJ, MAT_INITIAL_MATRIX, &B2)); in main()
287 PetscCall(MatConvert(A2, MATAIJ, MAT_REUSE_MATRIX, &B2)); in main()
289 PetscCall(MatConvert(A2, MATAIJ, MAT_INPLACE_MATRIX, &A2)); in main()
290 PetscCall(CheckMat(B, A2, PETSC_TRUE, "MatConvert_IS_XAIJ MAT_INPLACE_MATRIX")); in main()
291 PetscCall(MatDestroy(&A2)); in main()
295 PetscCall(MatConvert(B2, MATIS, MAT_INITIAL_MATRIX, &A2)); in main()
296 PetscCall(CheckMat(A, A2, PETSC_TRUE, "MatConvert_XAIJ_IS MAT_INITIAL_MATRIX")); in main()
297 PetscCall(MatConvert(B2, MATIS, MAT_REUSE_MATRIX, &A2)); in main()
298 PetscCall(CheckMat(A, A2, PETSC_TRUE, "MatConvert_XAIJ_IS MAT_REUSE_MATRIX")); in main()
301 PetscCall(MatDestroy(&A2)); in main()
364 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
374 PetscCall(MatDiagonalScale(A2, y, x)); in main()
376 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatDiagonalScale")); in main()
377 PetscCall(MatDestroy(&A2)); in main()
388 PetscCall(MatPtAP(A, B, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &A2)); in main()
390 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatPtAP MAT_INITIAL_MATRIX")); in main()
391 PetscCall(MatPtAP(A, B, MAT_REUSE_MATRIX, PETSC_DETERMINE, &A2)); in main()
392 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatPtAP MAT_REUSE_MATRIX")); in main()
393 PetscCall(MatDestroy(&A2)); in main()
400 PetscCall(MatDuplicate(A, MAT_DO_NOT_COPY_VALUES, &A2)); in main()
405 PetscCall(MatGetLocalSubMatrix(A2, reven, ceven, &Aee)); in main()
406 PetscCall(MatGetLocalSubMatrix(A2, reven, codd, &Aeo)); in main()
407 PetscCall(MatGetLocalSubMatrix(A2, rodd, ceven, &Aoe)); in main()
408 PetscCall(MatGetLocalSubMatrix(A2, rodd, codd, &Aoo)); in main()
440 PetscCall(MatRestoreLocalSubMatrix(A2, reven, ceven, &Aee)); in main()
441 PetscCall(MatRestoreLocalSubMatrix(A2, reven, codd, &Aeo)); in main()
442 PetscCall(MatRestoreLocalSubMatrix(A2, rodd, ceven, &Aoe)); in main()
443 PetscCall(MatRestoreLocalSubMatrix(A2, rodd, codd, &Aoo)); in main()
448 PetscCall(MatAssemblyBegin(A2, MAT_FINAL_ASSEMBLY)); in main()
449 PetscCall(MatAssemblyEnd(A2, MAT_FINAL_ASSEMBLY)); in main()
450 PetscCall(MatAXPY(A2, -1., A, SAME_NONZERO_PATTERN)); in main()
451 PetscCall(CheckMat(A2, NULL, PETSC_FALSE, "MatGetLocalSubMatrix")); in main()
452 PetscCall(MatDestroy(&A2)); in main()
482 PetscCall(MatCreateNest(PETSC_COMM_WORLD, nr, rows, nc, cols, mats, &A2)); in main()
490 PetscCall(MatConvert(A2, MATIS, MAT_INITIAL_MATRIX, &B2)); in main()
492 PetscCall(MatConvert(A2, MATIS, MAT_REUSE_MATRIX, &B2)); in main()
495 PetscCall(MatConvert(A2, MATIS, MAT_INPLACE_MATRIX, &A2)); in main()
496 PetscCall(CheckMat(A2, T, PETSC_TRUE, "MatConvert_Nest_IS MAT_INPLACE_MATRIX")); in main()
498 PetscCall(MatDestroy(&A2)); in main()
519 PetscCall(MatCreateSubMatrix(A, is, is, MAT_INITIAL_MATRIX, &A2)); in main()
521 PetscCall(CheckMat(A2, B2, PETSC_TRUE, "first MatCreateSubMatrix")); in main()
523 PetscCall(MatCreateSubMatrix(A, is, is, MAT_REUSE_MATRIX, &A2)); in main()
525 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "reuse MatCreateSubMatrix")); in main()
526 PetscCall(MatDestroy(&A2)); in main()
530 PetscCall(MatCreateSubMatrix(A, is, is2, MAT_INITIAL_MATRIX, &A2)); in main()
532 PetscCall(MatCreateSubMatrix(A, is, is2, MAT_REUSE_MATRIX, &A2)); in main()
534 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "second MatCreateSubMatrix")); in main()
537 PetscCall(MatDestroy(&A2)); in main()
592 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
596 PetscCall(MatDiagonalSet(A2, x, allow_repeated ? ADD_VALUES : INSERT_VALUES)); in main()
598 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatDiagonalSet")); in main()
600 PetscCall(MatDestroy(&A2)); in main()
605 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
607 PetscCall(MatShift(A2, 2.0)); in main()
609 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatShift")); in main()
610 PetscCall(MatDestroy(&A2)); in main()
659 PetscCall(MatTranspose(A, MAT_INITIAL_MATRIX, &A2)); in main()
661 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "initial matrix MatTranspose")); in main()
663 PetscCall(MatTranspose(A, MAT_REUSE_MATRIX, &A2)); in main()
664 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "reuse matrix (not in place) MatTranspose")); in main()
665 PetscCall(MatDestroy(&A2)); in main()
667 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
668 PetscCall(MatTranspose(A2, MAT_INPLACE_MATRIX, &A2)); in main()
669 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "reuse matrix (in place) MatTranspose")); in main()
670 PetscCall(MatDestroy(&A2)); in main()
672 PetscCall(MatTranspose(A, MAT_INITIAL_MATRIX, &A2)); in main()
673 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "reuse matrix (different type) MatTranspose")); in main()
674 PetscCall(MatDestroy(&A2)); in main()
684 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
686 PetscCall(MatISFixLocalEmpty(A2, PETSC_TRUE)); in main()
687 PetscCall(MatAssemblyBegin(A2, MAT_FINAL_ASSEMBLY)); in main()
688 PetscCall(MatAssemblyEnd(A2, MAT_FINAL_ASSEMBLY)); in main()
689 PetscCall(CheckMat(A2, B, PETSC_FALSE, "MatISFixLocalEmpty (null)")); in main()
691 PetscCall(MatZeroRows(A2, 2, r, 0.0, NULL, NULL)); in main()
692 PetscCall(MatViewFromOptions(A2, NULL, "-fixempty_view")); in main()
695 PetscCall(MatISFixLocalEmpty(A2, PETSC_TRUE)); in main()
696 PetscCall(MatAssemblyBegin(A2, MAT_FINAL_ASSEMBLY)); in main()
697 PetscCall(MatAssemblyEnd(A2, MAT_FINAL_ASSEMBLY)); in main()
698 PetscCall(MatViewFromOptions(A2, NULL, "-fixempty_view")); in main()
699 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatISFixLocalEmpty (rows)")); in main()
700 PetscCall(MatDestroy(&A2)); in main()
702 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
703 PetscCall(MatZeroRows(A2, 2, r, 0.0, NULL, NULL)); in main()
704 PetscCall(MatTranspose(A2, MAT_INPLACE_MATRIX, &A2)); in main()
706 PetscCall(MatViewFromOptions(A2, NULL, "-fixempty_view")); in main()
707 PetscCall(MatISFixLocalEmpty(A2, PETSC_TRUE)); in main()
708 PetscCall(MatAssemblyBegin(A2, MAT_FINAL_ASSEMBLY)); in main()
709 PetscCall(MatAssemblyEnd(A2, MAT_FINAL_ASSEMBLY)); in main()
710 PetscCall(MatViewFromOptions(A2, NULL, "-fixempty_view")); in main()
711 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatISFixLocalEmpty (cols)")); in main()
713 PetscCall(MatDestroy(&A2)); in main()
717 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
719 PetscCall(MatZeroRowsColumns(A2, 2, r, 0.0, NULL, NULL)); in main()
721 PetscCall(MatViewFromOptions(A2, NULL, "-fixempty_view")); in main()
722 PetscCall(MatISFixLocalEmpty(A2, PETSC_TRUE)); in main()
723 PetscCall(MatAssemblyBegin(A2, MAT_FINAL_ASSEMBLY)); in main()
724 PetscCall(MatAssemblyEnd(A2, MAT_FINAL_ASSEMBLY)); in main()
725 PetscCall(MatViewFromOptions(A2, NULL, "-fixempty_view")); in main()
726 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatISFixLocalEmpty (rows+cols)")); in main()
727 PetscCall(MatDestroy(&A2)); in main()
834 PetscCall(MatGetDiagonalBlock(A, &A2)); in main()
836 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatGetDiagonalBlock")); in main()
839 PetscCall(MatGetDiagonalBlock(A, &A2)); in main()
841 PetscCall(CheckMat(A2, B2, PETSC_FALSE, "MatGetDiagonalBlock")); in main()
851 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
857 PetscCall(MatISGetLocalMat(A2, &lA2)); in main()
859 PetscCall(MatISRestoreLocalMat(A2, &lA2)); in main()
860 PetscCall(MatISSetLocalMat(A2, tA)); in main()
865 PetscCall(MatISSetAllowRepeated(A2, PETSC_FALSE)); in main()
867 PetscCall(MatISGetLocalMat(A2, &lA2)); in main()
870 PetscCall(MatISRestoreLocalMat(A2, &lA2)); in main()
871 …if (repmap) PetscCall(CheckMat(A2, B, usemult, "MatISSetAllowRepeated(false) with repeated entries… in main()
872 …else PetscCall(CheckMat(A2, B, usemult, "MatISSetAllowRepeated(false) with non-repeated entries")); in main()
873 PetscCall(MatDestroy(&A2)); in main()
880 PetscCall(MatDuplicate(A, MAT_COPY_VALUES, &A2)); in main()
881 PetscCall(MatISSetAllowRepeated(A2, PETSC_TRUE)); in main()
882 PetscCall(MatISGetLocalMat(A2, &lA)); in main()
885 PetscCall(MatISRestoreLocalMat(A2, &lA)); in main()
886 PetscCall(MatDestroy(&A2)); in main()