| /petsc/src/mat/tests/ |
| H A D | ex68.c | 11 IS isrow, iscol, identity; in main() local
49 PetscCall(MatGetOrdering(mat, MATORDERINGNATURAL, &isrow, &iscol)); in main()
51 PetscCall(MatPermute(mat, isrow, iscol, &B)); in main()
56 PetscCall(MatReorderForNonzeroDiagonal(mat, 1.e-8, isrow, iscol)); in main()
57 PetscCall(MatPermute(mat, isrow, iscol, &B)); in main()
63 PetscCall(ISView(iscol, viewer)); in main()
67 PetscCall(ISDestroy(&iscol)); in main()
69 PetscCall(MatGetOrdering(mat, MATORDERINGND, &isrow, &iscol)); in main()
70 PetscCall(MatPermute(mat, isrow, iscol, &B)); in main()
77 PetscCall(ISView(iscol, viewer)); in main()
[all …]
|
| H A D | ex151.c | 33 IS isrow, iscol; in main() local
53 …cCall(ISCreateGeneral(PETSC_COMM_WORLD, cend - cstart, ixcol + cstart, PETSC_USE_POINTER, &iscol)); in main()
55 PetscCall(ISSetPermutation(iscol)); in main()
64 PetscCall(MatPermute(A, isrow, iscol, &B)); in main()
72 PetscCall(ISView(iscol, viewer)); in main()
76 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex166.c | 33 IS isrow, iscol; in main() local
53 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 5, ixcol, PETSC_USE_POINTER, &iscol)); in main()
55 PetscCall(ISSetPermutation(iscol)); in main()
64 PetscCall(MatPermute(A, isrow, iscol, &B)); in main()
73 PetscCall(ISView(iscol, sviewer)); in main()
78 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex211.c | 6 PetscErrorCode ISGetSeqIS_SameColDist_Private(Mat mat, IS isrow, IS iscol, IS *isrow_d, IS *iscol_d… in ISGetSeqIS_SameColDist_Private() argument
23 PetscCall(ISGetLocalSize(iscol, &ncols)); in ISGetSeqIS_SameColDist_Private()
38 PetscCall(ISGetIndices(iscol, &is_idx)); in ISGetSeqIS_SameColDist_Private()
49 PetscCall(ISRestoreIndices(iscol, &is_idx)); in ISGetSeqIS_SameColDist_Private()
53 PetscCall(ISGetBlockSize(iscol, &i)); in ISGetSeqIS_SameColDist_Private()
131 IS isrow, iscol; in main() local
167 PetscCall(ISCreateStride(PETSC_COMM_WORLD, (rend - rstart) / 2, rstart, 2, &iscol)); in main()
171 PetscCall(ISGetSeqIS_SameColDist_Private(C, isrow, iscol, &isrow_d, &iscol_d, &iscol_o, &garray)); in main()
178 PetscCall(MatCreateSubMatrix(C, isrow, iscol, MAT_INITIAL_MATRIX, &A)); in main()
179 PetscCall(MatCreateSubMatrix(C, isrow, iscol, MAT_REUSE_MATRIX, &A)); in main()
[all …]
|
| H A D | ex59.c | 11 IS isrow, iscol; in main() local
52 PetscCall(ISCreateStride(PETSC_COMM_WORLD, (rend - rstart) / 2, rstart, 2, &iscol)); in main()
54 PetscCall(MatCreateSubMatrix(C, isrow, iscol, MAT_INITIAL_MATRIX, &A)); in main()
55 PetscCall(MatCreateSubMatrix(C, isrow, iscol, MAT_REUSE_MATRIX, &A)); in main()
65 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex57.c | 20 IS isrow, iscol; in main() local
44 PetscCall(ISCreateStride(PETSC_COMM_SELF, m, start, 1, &iscol)); in main()
45 PetscCall(MatCreateSubMatrices(A, 1, &isrow, &iscol, MAT_INITIAL_MATRIX, &B)); in main()
58 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex87.c | 13 IS isrow, iscol, irow[n], icol[n]; in main() local
36 PetscCall(ISCreateStride(PETSC_COMM_SELF, issize, 0, 1, &iscol)); in main()
37 icol[0] = icol[1] = iscol; in main()
54 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex194.c | 11 IS isrow, iscol; in main() local
48 PetscCall(ISCreateStride(PETSC_COMM_WORLD, cend - cstart, cstart, 1, &iscol)); in main()
67 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex97.c | 101 IS isrow, iscol; in main() local
121 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, 4, idxcol, PETSC_USE_POINTER, &iscol)); in main()
123 PetscCall(MatCreateSubMatrix(A, isrow, iscol, MAT_INITIAL_MATRIX, &Asub)); in main()
124 PetscCall(MatCreateSubMatrix(B, isrow, iscol, MAT_INITIAL_MATRIX, &Bsub)); in main()
150 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex58f.F90 | 16 IS isrow, iscol
64 PetscCallA(MatGetOwnershipIS(A, isrow, iscol, ierr))
66 PetscCallA(ISDestroy(iscol, ierr))
|
| H A D | ex99.c | 103 IS isrow, iscol; in main() local
122 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, 3, idxcol, PETSC_USE_POINTER, &iscol)); in main()
124 PetscCall(MatCreateSubMatrix(A, isrow, iscol, MAT_INITIAL_MATRIX, &Asub)); in main()
125 PetscCall(MatCreateSubMatrix(B, isrow, iscol, MAT_INITIAL_MATRIX, &Bsub)); in main()
151 PetscCall(ISDestroy(&iscol)); in main()
|
| H A D | ex139.c | 5 static PetscErrorCode GetLocalRef(Mat A, IS isrow, IS iscol, Mat *B) in GetLocalRef() argument
15 PetscCall(ISOnComm(iscol, PETSC_COMM_WORLD, PETSC_COPY_VALUES, &istmp)); in GetLocalRef()
19 PetscCall(MatCreateLocalRef(A, isrow, iscol, B)); in GetLocalRef()
|
| /petsc/src/mat/interface/ftn-custom/ |
| H A D | zmatrixf.c | 35 PETSC_EXTERN void matcreatesubmatrices_(Mat *mat, PetscInt *n, IS *isrow, IS *iscol, MatReuse *scal… in matcreatesubmatrices_() argument
40 *ierr = MatCreateSubMatrices(*mat, *n, isrow, iscol, *scall, &lsmat); in matcreatesubmatrices_()
44 *ierr = MatCreateSubMatrices(*mat, *n, isrow, iscol, *scall, &lsmat); in matcreatesubmatrices_()
48 PETSC_EXTERN void matcreatesubmatricesmpi_(Mat *mat, PetscInt *n, IS *isrow, IS *iscol, MatReuse *s… in matcreatesubmatricesmpi_() argument
53 *ierr = MatCreateSubMatricesMPI(*mat, *n, isrow, iscol, *scall, &lsmat); in matcreatesubmatricesmpi_()
59 *ierr = MatCreateSubMatricesMPI(*mat, *n, isrow, iscol, *scall, &lsmat); in matcreatesubmatricesmpi_()
|
| /petsc/src/mat/impls/submat/ |
| H A D | submat.c | 4 IS isrow, iscol; /* rows and columns in submatrix, only used to check consistency */ member
153 PetscCall(ISDestroy(&Na->iscol)); in MatDestroy_SubMatrix()
185 PetscErrorCode MatCreateSubMatrixVirtual(Mat A, IS isrow, IS iscol, Mat *newmat) in MatCreateSubMatrixVirtual() argument
195 PetscValidHeaderSpecific(iscol, IS_CLASSID, 3); in MatCreateSubMatrixVirtual()
201 PetscCall(ISGetLocalSize(iscol, &n)); in MatCreateSubMatrixVirtual()
209 PetscCall(PetscObjectReference((PetscObject)iscol)); in MatCreateSubMatrixVirtual()
211 Na->iscol = iscol; in MatCreateSubMatrixVirtual()
237 PetscCall(VecScatterCreate(right, NULL, Na->rwork, iscol, &Na->rprolong)); in MatCreateSubMatrixVirtual()
277 PetscErrorCode MatSubMatrixVirtualUpdate(Mat N, Mat A, IS isrow, IS iscol) in MatSubMatrixVirtualUpdate() argument
286 PetscValidHeaderSpecific(iscol, IS_CLASSID, 4); in MatSubMatrixVirtualUpdate()
[all …]
|
| /petsc/src/mat/tutorials/ |
| H A D | ex1.c | 19 IS isrow, iscol; /* row and column permutations */ in main() local
63 PetscCall(MatGetOrdering(A, rtype, &isrow, &iscol)); in main()
72 PetscCall(ISDestroy(&iscol)); in main()
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baijsolvtran1.c | 7 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_1() local
22 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_1()
52 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_1()
63 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_1_inplace() local
78 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_1_inplace()
107 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_1_inplace()
|
| H A D | baijsolvtrann.c | 7 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_N_inplace() local
23 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_N_inplace()
62 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_N_inplace()
72 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_N() local
89 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_N()
128 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_N()
|
| H A D | baijsolvtran2.c | 7 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_2_inplace() local
22 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_2_inplace()
83 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_2_inplace()
93 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_2() local
109 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_2()
168 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_2()
|
| H A D | baijsolv.c | 7 IS iscol = a->col, isrow = a->row; in MatSolve_SeqBAIJ_N_inplace() local
24 PetscCall(ISGetIndices(iscol, &cout)); in MatSolve_SeqBAIJ_N_inplace()
56 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolve_SeqBAIJ_N_inplace()
66 IS iscol = a->col, isrow = a->row; in MatSolve_SeqBAIJ_7_inplace() local
81 PetscCall(ISGetIndices(iscol, &cout)); in MatSolve_SeqBAIJ_7_inplace()
176 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolve_SeqBAIJ_7_inplace()
186 IS iscol = a->col, isrow = a->row; in MatSolve_SeqBAIJ_7() local
201 PetscCall(ISGetIndices(iscol, &cout)); in MatSolve_SeqBAIJ_7()
295 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolve_SeqBAIJ_7()
305 IS iscol = a->col, isrow = a->row; in MatSolve_SeqBAIJ_6_inplace() local
[all …]
|
| H A D | baijsolvtran3.c | 7 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_3_inplace() local
22 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_3_inplace()
91 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_3_inplace()
101 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_3() local
117 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_3()
184 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_3()
|
| H A D | baijsolvtran4.c | 7 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_4_inplace() local
22 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_4_inplace()
99 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_4_inplace()
109 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_4() local
125 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_4()
200 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_4()
|
| H A D | baijfact3.c | 150 PetscErrorCode MatLUFactorSymbolic_SeqBAIJ(Mat B, Mat A, IS isrow, IS iscol, const MatFactorInfo *i… in MatLUFactorSymbolic_SeqBAIJ() argument
175 PetscCall(ISInvertPermutation(iscol, PETSC_DECIDE, &isicol)); in MatLUFactorSymbolic_SeqBAIJ()
264 b->col = iscol; in MatLUFactorSymbolic_SeqBAIJ()
268 PetscCall(PetscObjectReference((PetscObject)iscol)); in MatLUFactorSymbolic_SeqBAIJ()
296 PetscCall(ISIdentity(iscol, &col_identity)); in MatLUFactorSymbolic_SeqBAIJ()
|
| H A D | baijsolvtran5.c | 7 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_5_inplace() local
22 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_5_inplace()
107 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_5_inplace()
117 IS iscol = a->col, isrow = a->row; in MatSolveTranspose_SeqBAIJ_5() local
133 PetscCall(ISGetIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_5()
216 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolveTranspose_SeqBAIJ_5()
|
| /petsc/src/mat/impls/localref/ |
| H A D | mlocalref.c | 215 PetscErrorCode MatCreateLocalRef(Mat A, IS isrow, IS iscol, Mat *newmat) in MatCreateLocalRef() argument
225 PetscValidHeaderSpecific(iscol, IS_CLASSID, 3); in MatCreateLocalRef()
232 PetscCall(ISGetLocalSize(iscol, &n)); in MatCreateLocalRef()
263 if (isrow == iscol && A->rmap->mapping == A->cmap->mapping) { in MatCreateLocalRef()
267 PetscCall(ISL2GCompose(iscol, A->cmap->mapping, &cltog)); in MatCreateLocalRef()
272 PetscCall(PetscObjectTypeCompare((PetscObject)iscol, ISBLOCK, &lr->colisblock)); in MatCreateLocalRef()
279 PetscCall(ISGetBlockSize(iscol, &cbs)); in MatCreateLocalRef()
291 if (isrow == iscol && A->rmap->mapping == A->cmap->mapping) { in MatCreateLocalRef()
295 PetscCall(ISL2GComposeBlock(iscol, A->cmap->mapping, &cltog)); in MatCreateLocalRef()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aijfact.c | 54 PetscErrorCode MatLUFactorSymbolic_SeqAIJ(Mat B, Mat A, IS isrow, IS iscol, const MatFactorInfo *in… in MatLUFactorSymbolic_SeqAIJ() argument
73 PetscCall(ISInvertPermutation(iscol, PETSC_DECIDE, &isicol)); in MatLUFactorSymbolic_SeqAIJ()
162 b->col = iscol; in MatLUFactorSymbolic_SeqAIJ()
164 PetscCall(PetscObjectReference((PetscObject)iscol)); in MatLUFactorSymbolic_SeqAIJ()
744 IS iscol = a->col, isrow = a->row; in MatSolve_SeqAIJ_inplace() local
764 PetscCall(ISGetIndices(iscol, &cout)); in MatSolve_SeqAIJ_inplace()
790 PetscCall(ISRestoreIndices(iscol, &cout)); in MatSolve_SeqAIJ_inplace()
800 IS iscol = a->col, isrow = a->row; in MatMatSolve_SeqAIJ_inplace() local
825 PetscCall(ISGetIndices(iscol, &cout)); in MatMatSolve_SeqAIJ_inplace()
853 PetscCall(ISRestoreIndices(iscol, &cout)); in MatMatSolve_SeqAIJ_inplace()
[all …]
|