| /petsc/src/vec/is/is/utils/ |
| H A D | iscomp.c | 35 PetscErrorCode ISEqual(IS is1, IS is2, PetscBool *flg) in ISEqual() argument
44 PetscValidHeaderSpecific(is1, IS_CLASSID, 1); in ISEqual()
48 if (is1 == is2) { in ISEqual()
53 …PetscCallMPI(MPI_Comm_compare(PetscObjectComm((PetscObject)is1), PetscObjectComm((PetscObject)is2)… in ISEqual()
59 PetscCall(ISGetSize(is1, &sz1)); in ISEqual()
63 PetscCall(ISGetLocalSize(is1, &sz1)); in ISEqual()
68 PetscCall(ISGetIndices(is1, &ptr1)); in ISEqual()
81 PetscCall(ISRestoreIndices(is1, &ptr1)); in ISEqual()
87 PetscCall(PetscObjectGetComm((PetscObject)is1, &comm)); in ISEqual()
117 PetscErrorCode ISEqualUnsorted(IS is1, IS is2, PetscBool *flg) in ISEqualUnsorted() argument
[all …]
|
| H A D | isdiff.c | 32 PetscErrorCode ISDifference(IS is1, IS is2, IS *isout) in ISDifference() argument
40 PetscValidHeaderSpecific(is1, IS_CLASSID, 1); in ISDifference()
43 PetscCall(ISDuplicate(is1, isout)); in ISDifference()
48 PetscCall(ISGetIndices(is1, &i1)); in ISDifference()
49 PetscCall(ISGetLocalSize(is1, &n1)); in ISDifference()
68 PetscCall(ISRestoreIndices(is1, &i1)); in ISDifference()
90 PetscCall(PetscObjectGetComm((PetscObject)is1, &comm)); in ISDifference()
120 PetscErrorCode ISSum(IS is1, IS is2, IS *is3) in ISSum() argument
127 PetscValidHeaderSpecific(is1, IS_CLASSID, 1); in ISSum()
129 PetscCheckSameComm(is1, 1, is2, 2); in ISSum()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex40.c | 43 IS *is1, *is2; in main() local
81 PetscCall(PetscMalloc1(ndpar, &is1)); in main()
87 PetscCall(ISBuildTwoSided(ndmap, NULL, &is1[0])); in main()
89 PetscCall(ISAllGatherDisjoint(is1[0], &is2)); in main()
92 PetscCall(PetscMalloc1(nd, &is1)); in main()
108 PetscCall(ISCreateStride(PETSC_COMM_SELF, lsize, start, 1, is1 + i)); in main()
114 PetscCall(MatIncreaseOverlap(A, ndpar, is1, ov)); in main()
119 PetscCall(ISAllGatherDisjoint(is1[0], &is)); in main()
120 PetscCall(ISDestroy(&is1[0])); in main()
121 PetscCall(PetscFree(is1)); in main()
[all …]
|
| H A D | ex92.c | 13 IS *is1, *is2; in main() local
108 PetscCall(PetscMalloc1(nd, &is1)); in main()
121 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, sz * bs, idx, PETSC_COPY_VALUES, is1 + i)); in main()
129 PetscCall(ISCreateStride(PETSC_COMM_SELF, sz, 0, 1, is1 + i)); in main()
151 PetscCall(MatIncreaseOverlap(A, nd, is1, ov)); in main()
156 PetscCall(ISView(is1[0], PETSC_VIEWER_STDOUT_SELF)); in main()
162 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main()
165 PetscCall(ISSort(is1[i])); in main()
176 for (i = 0; i < nd; ++i) PetscCall(ISSort(is1[i])); in main()
178 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_INITIAL_MATRIX, &submatA)); in main()
[all …]
|
| H A D | ex42.c | 18 IS *is1, *is2; in main() local
56 PetscCall(PetscMalloc1(nd, &is1)); in main()
80 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, lsize * bs, idx, PETSC_COPY_VALUES, is1 + i)); in main()
82 PetscCall(ISSetBlockSize(is1[i], bs)); in main()
87 PetscCall(MatIncreaseOverlap(A, nd, is1, ov)); in main()
91 PetscCall(ISSort(is1[i])); in main()
96 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_INITIAL_MATRIX, &submatA)); in main()
107 PetscCall(ISDestroy(&is1[i])); in main()
114 PetscCall(PetscFree(is1)); in main()
|
| H A D | ex41.c | 17 IS *is1, *is2; in main() local
48 PetscCall(PetscMalloc1(nd, &is1)); in main()
61 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, lsize, idx, PETSC_COPY_VALUES, is1 + i)); in main()
65 PetscCall(MatIncreaseOverlap(A, nd, is1, ov)); in main()
71 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main()
72 PetscCall(ISGetSize(is1[i], &sz1)); in main()
79 PetscCall(ISDestroy(&is1[i])); in main()
83 PetscCall(PetscFree(is1)); in main()
|
| H A D | ex51.c | 10 IS *is1, *is2; in main() local
77 PetscCall(PetscMalloc1(nd, &is1)); in main()
88 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, lsize * bs, idx, PETSC_COPY_VALUES, is1 + i)); in main()
91 PetscCall(MatIncreaseOverlap(A, nd, is1, ov)); in main()
95 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main()
100 PetscCall(ISSort(is1[i])); in main()
104 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_INITIAL_MATRIX, &submatA)); in main()
127 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_REUSE_MATRIX, &submatA)); in main()
152 PetscCall(ISDestroy(&is1[i])); in main()
157 PetscCall(PetscFree(is1)); in main()
|
| H A D | ex54.c | 11 IS *is1, *is2; in main() local
98 PetscCall(PetscMalloc1(nd, &is1)); in main()
112 …PetscCall(ISCreateGeneral(PETSC_COMM_SELF, emptynd ? 0 : sz * bs, idx, PETSC_COPY_VALUES, is1 + i)… in main()
115 PetscCall(MatIncreaseOverlap(A, nd, is1, ov)); in main()
119 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main()
125 PetscCall(ISSort(is1[i])); in main()
130 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_INITIAL_MATRIX, &submatA)); in main()
153 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_REUSE_MATRIX, &submatA)); in main()
178 PetscCall(ISDestroy(&is1[i])); in main()
184 PetscCall(PetscFree(is1)); in main()
|
| H A D | ex91.c | 11 IS *is1, *is2; in main() local
103 PetscCall(PetscMalloc1(nd, &is1)); in main()
114 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, size * bs, idx, PETSC_COPY_VALUES, is1 + i)); in main()
123 PetscCall(MatIncreaseOverlap(A, nd, is1, ov)); in main()
127 PetscCall(ISSort(is1[i])); in main()
132 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main()
136 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_INITIAL_MATRIX, &submatA)); in main()
160 PetscCall(MatCreateSubMatrices(A, nd, is1, is1, MAT_REUSE_MATRIX, &submatA)); in main()
185 PetscCall(ISDestroy(&is1[i])); in main()
191 PetscCall(PetscFree(is1)); in main()
|
| /petsc/src/vec/is/is/tests/ |
| H A D | ex12.c | 10 IS is0, is1; in main() local
38 PetscCall(ISCreate(comm, &is1)); in main()
39 PetscCall(PetscObjectSetName((PetscObject)is1, objname)); in main()
40 PetscCall(ISSetLayout(is1, map)); in main()
41 PetscCall(ISLoad(is1, viewer)); in main()
46 PetscCall(ISEqual(is0, is1, &flg)); in main()
51 PetscCall(ISDestroy(&is1)); in main()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex21.c | 19 PetscErrorCode Create(MPI_Comm comm, Mat *inA, IS *is0, IS *is1) in Create() argument
35 PetscCall(ISCreateStride(comm, 2, r + 2, 1, is1)); in Create()
96 PetscErrorCode Destroy(Mat *A, IS *is0, IS *is1) in Destroy() argument
101 PetscCall(ISDestroy(is1)); in Destroy()
109 IS is0, is1; in main() local
120 PetscCall(Create(PETSC_COMM_WORLD, &A, &is0, &is1)); in main()
123 PetscCall(ISView(is1, PETSC_VIEWER_STDOUT_WORLD)); in main()
124 …PetscCall(MatGetSchurComplement(A, is0, is0, is1, is1, MAT_INITIAL_MATRIX, &S, ainv_type, MAT_IGNO… in main()
137 PetscCall(Destroy(&A, &is0, &is1)); in main()
152 PetscCall(Create(PETSC_COMM_WORLD, &A, &is0, &is1)); in main()
[all …]
|
| /petsc/src/dm/partitioner/impls/matpart/ |
| H A D | partmatpart.c | 92 IS is1, is2, is3; in PetscPartitionerPartition_MatPartitioning() local
156 PetscCall(MatPartitioningApply(p->mp, &is1)); in PetscPartitionerPartition_MatPartitioning()
163 PetscCall(ISGetIndices(is1, &assignment_arr)); in PetscPartitionerPartition_MatPartitioning()
165 PetscCall(ISRestoreIndices(is1, &assignment_arr)); in PetscPartitionerPartition_MatPartitioning()
169 PetscCall(ISPartitioningToNumbering(is1, &is2)); in PetscPartitionerPartition_MatPartitioning()
170 PetscCall(ISDestroy(&is1)); in PetscPartitionerPartition_MatPartitioning()
173 PetscCall(ISOnComm(is2, PETSC_COMM_SELF, PETSC_USE_POINTER, &is1)); in PetscPartitionerPartition_MatPartitioning()
174 PetscCall(ISRenumber(is1, NULL, NULL, &is3)); in PetscPartitionerPartition_MatPartitioning()
175 PetscCall(ISDestroy(&is1)); in PetscPartitionerPartition_MatPartitioning()
180 PetscCall(ISInvertPermutation(is3, numVertices, &is1)); in PetscPartitionerPartition_MatPartitioning()
[all …]
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex25.c | 12 IS is1, is2; in main() local
33 PetscCall(ISCreateStride(PETSC_COMM_SELF, N, 0, 1, &is1)); in main()
36 PetscCall(ISCreateStride(PETSC_COMM_SELF, 0, 0, 1, &is1)); in main()
51 PetscCall(VecScatterCreate(y, is2, x, is1, &ctx)); in main()
63 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex8.c | 10 IS is1, is2; in main() local
21 PetscCall(ISCreateStride(PETSC_COMM_SELF, 3, 0, 2, &is1)); in main()
28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
35 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex38.c | 13 IS is0, is1, is2; in main() local
46 PetscCall(ISComplement(is0, rstart, rend, &is1)); in main()
50 PetscCall(ISView(is1, viewer)); in main()
54 PetscCall(VecGetSubVector(X, is1, &Z)); in main()
69 PetscCall(VecRestoreSubVector(X, is1, &Z)); in main()
74 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex7.c | 10 IS is1, is2; in main() local
21 PetscCall(ISCreateStride(PETSC_COMM_SELF, 3, 0, 2, &is1)); in main()
28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
35 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex6.c | 10 IS is1, is2; in main() local
21 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 3, idx1, PETSC_COPY_VALUES, &is1)); in main()
28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
35 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex14.c | 12 IS is1, is2; in main() local
28 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, 0, 1, &is1)); in main()
35 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
44 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex17f.F90 | 17 IS is1, is2
59 PetscCallA(ISCreateStride(PETSC_COMM_SELF, NN, first, stride, is1, ierr))
61 PetscCallA(VecScatterCreate(y, is2, x, is1, ctx, ierr))
73 PetscCallA(PetscBarrier(is1, ierr))
76 PetscCallA(ISDestroy(is1, ierr))
|
| H A D | ex2.c | 11 IS is1, is2; in main() local
23 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 2, idx1, PETSC_COPY_VALUES, &is1)); in main()
28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
41 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex4.c | 11 IS is1, is2; in main() local
28 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 2, idx1, PETSC_COPY_VALUES, &is1)); in main()
33 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
40 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex12.c | 13 IS is1, is2; in main() local
29 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, n * rank, 1, &is1)); in main()
41 PetscCall(VecScatterCreate(y, is2, x, is1, &ctx)); in main()
50 PetscCall(ISDestroy(&is1)); in main()
|
| H A D | ex5.c | 13 IS is1, is2; in main() local
28 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, n * rank, 1, &is1)); in main()
41 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main()
53 PetscCall(ISDestroy(&is1)); in main()
|
| /petsc/src/ksp/pc/impls/gasm/ftn-custom/ |
| H A D | zgasmf.c | 16 PETSC_EXTERN void pcgasmdestroysubdomains_(PetscInt *n, F90Array1d *is1, F90Array1d *is2, int *ierr… in pcgasmdestroysubdomains_() argument
20 *ierr = F90Array1dAccess(is1, MPIU_FORTRANADDR, (void **)&isa PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmdestroysubdomains_()
24 *ierr = F90Array1dDestroy(is1, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmdestroysubdomains_()
31 …PetscInt *N, PetscInt *dof, PetscInt *overlap, PetscInt *Nsub, F90Array1d *is1, F90Array1d *is2, i… in pcgasmcreatesubdomains2d_() argument
36 *ierr = F90Array1dCreate(iis, MPIU_FORTRANADDR, 1, *Nsub, is1 PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmcreatesubdomains2d_()
|
| /petsc/src/ksp/pc/tests/ |
| H A D | ex6.c | 48 IS *is1, *is2, *islocal1, *islocal2; in main() local
78 PetscCall(PCASMCreateSubdomains2D(m + 1, m + 1, x1, x2, 1, 0, &Nsub1, &is1, &islocal1)); in main()
79 PetscCall(MatIncreaseOverlap(C, Nsub1, is1, ol)); in main()
86 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main()
89 for (i = 0; i < Nsub1; ++i) PetscCall(ISDestroy(&is1[i])); in main()
94 PetscCall(PetscFree(is1)); in main()
|