| /petsc/src/vec/is/is/utils/ |
| H A D | iscomp.c | 35 PetscErrorCode ISEqual(IS is1, IS is2, PetscBool *flg) in ISEqual() argument 45 PetscValidHeaderSpecific(is2, IS_CLASSID, 2); in ISEqual() 48 if (is1 == is2) { in ISEqual() 53 …PetscCallMPI(MPI_Comm_compare(PetscObjectComm((PetscObject)is1), PetscObjectComm((PetscObject)is2)… in ISEqual() 60 PetscCall(ISGetSize(is2, &sz2)); in ISEqual() 64 PetscCall(ISGetLocalSize(is2, &sz2)); in ISEqual() 69 PetscCall(ISGetIndices(is2, &ptr2)); in ISEqual() 82 PetscCall(ISRestoreIndices(is2, &ptr2)); in ISEqual() 117 PetscErrorCode ISEqualUnsorted(IS is1, IS is2, PetscBool *flg) in ISEqualUnsorted() argument 127 PetscValidHeaderSpecific(is2, IS_CLASSID, 2); in ISEqualUnsorted() [all …]
|
| H A D | isdiff.c | 32 PetscErrorCode ISDifference(IS is1, IS is2, IS *isout) in ISDifference() argument 42 if (!is2) { in ISDifference() 46 PetscValidHeaderSpecific(is2, IS_CLASSID, 2); in ISDifference() 70 PetscCall(ISGetIndices(is2, &i2)); in ISDifference() 71 PetscCall(ISGetLocalSize(is2, &n2)); in ISDifference() 76 PetscCall(ISRestoreIndices(is2, &i2)); in ISDifference() 120 PetscErrorCode ISSum(IS is1, IS is2, IS *is3) in ISSum() argument 128 PetscValidHeaderSpecific(is2, IS_CLASSID, 2); in ISSum() 129 PetscCheckSameComm(is1, 1, is2, 2); in ISSum() 133 PetscCall(ISSorted(is2, &f)); in ISSum() [all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex40.c | 10 IS *is2, is; in ISAllGatherDisjoint() local 17 PetscCall(PetscMalloc1(size, &is2)); in ISAllGatherDisjoint() 25 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, sizes[i], idxs + ls, PETSC_COPY_VALUES, &is2[i])); in ISAllGatherDisjoint() 31 *ois = is2; in ISAllGatherDisjoint() 43 IS *is1, *is2; in main() local 89 PetscCall(ISAllGatherDisjoint(is1[0], &is2)); in main() 93 PetscCall(PetscMalloc1(nd, &is2)); in main() 109 PetscCall(ISCreateStride(PETSC_COMM_SELF, lsize, start, 1, is2 + i)); in main() 115 PetscCall(MatIncreaseOverlap(B, nd, is2, ov)); in main() 126 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main() [all …]
|
| H A D | ex42.c | 18 IS *is1, *is2; in main() local 57 PetscCall(PetscMalloc1(nd, &is2)); in main() 81 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, lsize * bs, idx, PETSC_COPY_VALUES, is2 + i)); in main() 83 PetscCall(ISSetBlockSize(is2[i], bs)); in main() 88 PetscCall(MatIncreaseOverlap(B, nd, is2, ov)); in main() 92 PetscCall(ISSort(is2[i])); in main() 97 PetscCall(MatCreateSubMatrices(B, nd, is2, is2, MAT_INITIAL_MATRIX, &submatB)); in main() 108 PetscCall(ISDestroy(&is2[i])); in main() 115 PetscCall(PetscFree(is2)); in main()
|
| H A D | ex41.c | 17 IS *is1, *is2; in main() local 49 PetscCall(PetscMalloc1(nd, &is2)); in main() 62 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, lsize, idx, PETSC_COPY_VALUES, is2 + i)); in main() 66 PetscCall(MatIncreaseOverlap(B, nd, is2, ov)); in main() 71 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main() 73 PetscCall(ISGetSize(is2[i], &sz2)); in main() 80 PetscCall(ISDestroy(&is2[i])); in main() 84 PetscCall(PetscFree(is2)); in main()
|
| H A D | ex92.c | 13 IS *is1, *is2; in main() local 109 PetscCall(PetscMalloc1(nd, &is2)); in main() 122 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, sz * bs, idx, PETSC_COPY_VALUES, is2 + i)); in main() 125 PetscCall(ISView(is2[i], PETSC_VIEWER_STDOUT_SELF)); in main() 130 PetscCall(ISCreateStride(PETSC_COMM_SELF, sz, 0, 1, is2 + i)); in main() 134 PetscCall(ISIdentity(is2[i], &colflag)); in main() 136 PetscCall(ISView(is2[i], PETSC_VIEWER_STDOUT_SELF)); in main() 147 PetscCall(MatIncreaseOverlap(sA, nd, is2, ov)); in main() 158 PetscCall(ISView(is2[0], PETSC_VIEWER_STDOUT_SELF)); in main() 162 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main() [all …]
|
| H A D | ex51.c | 10 IS *is1, *is2; in main() local 78 PetscCall(PetscMalloc1(nd, &is2)); in main() 89 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, lsize * bs, idx, PETSC_COPY_VALUES, is2 + i)); in main() 92 PetscCall(MatIncreaseOverlap(B, nd, is2, ov)); in main() 95 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main() 101 PetscCall(ISSort(is2[i])); in main() 105 PetscCall(MatCreateSubMatrices(B, nd, is2, is2, MAT_INITIAL_MATRIX, &submatB)); in main() 128 PetscCall(MatCreateSubMatrices(B, nd, is2, is2, MAT_REUSE_MATRIX, &submatB)); in main() 153 PetscCall(ISDestroy(&is2[i])); in main() 158 PetscCall(PetscFree(is2)); in main()
|
| H A D | ex54.c | 11 IS *is1, *is2; in main() local 99 PetscCall(PetscMalloc1(nd, &is2)); in main() 113 …PetscCall(ISCreateGeneral(PETSC_COMM_SELF, emptynd ? 0 : sz * bs, idx, PETSC_COPY_VALUES, is2 + i)… in main() 116 PetscCall(MatIncreaseOverlap(B, nd, is2, ov)); in main() 119 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main() 126 PetscCall(ISSort(is2[i])); in main() 129 PetscCall(MatCreateSubMatrices(B, nd, is2, is2, MAT_INITIAL_MATRIX, &submatB)); in main() 154 PetscCall(MatCreateSubMatrices(B, nd, is2, is2, MAT_REUSE_MATRIX, &submatB)); in main() 179 PetscCall(ISDestroy(&is2[i])); in main() 185 PetscCall(PetscFree(is2)); in main()
|
| H A D | ex91.c | 11 IS *is1, *is2; in main() local 104 PetscCall(PetscMalloc1(nd, &is2)); in main() 115 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, size * bs, idx, PETSC_COPY_VALUES, is2 + i)); in main() 124 PetscCall(MatIncreaseOverlap(sA, nd, is2, ov)); in main() 128 PetscCall(ISSort(is2[i])); in main() 132 PetscCall(ISEqual(is1[i], is2[i], &flg)); in main() 137 PetscCall(MatCreateSubMatrices(sA, nd, is2, is2, MAT_INITIAL_MATRIX, &submatsA)); in main() 161 PetscCall(MatCreateSubMatrices(sA, nd, is2, is2, MAT_REUSE_MATRIX, &submatsA)); in main() 186 PetscCall(ISDestroy(&is2[i])); in main() 192 PetscCall(PetscFree(is2)); in main()
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex25.c | 12 IS is1, is2; in main() local 34 PetscCall(ISCreateStride(PETSC_COMM_SELF, N, 0, 1, &is2)); in main() 37 PetscCall(ISCreateStride(PETSC_COMM_SELF, 0, 0, 1, &is2)); in main() 51 PetscCall(VecScatterCreate(y, is2, x, is1, &ctx)); in main() 64 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex8.c | 10 IS is1, is2; in main() local 22 PetscCall(ISCreateStride(PETSC_COMM_SELF, 3, 1, 2, &is2)); in main() 28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 36 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex38.c | 13 IS is0, is1, is2; in main() local 47 PetscCall(ISCreateGeneral(comm, 3, idxs, PETSC_USE_POINTER, &is2)); in main() 51 PetscCall(ISView(is2, viewer)); in main() 55 PetscCall(VecGetSubVector(X, is2, &W)); in main() 70 PetscCall(VecRestoreSubVector(X, is2, &W)); in main() 75 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex7.c | 10 IS is1, is2; in main() local 22 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 3, idx1, PETSC_COPY_VALUES, &is2)); in main() 28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 36 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex6.c | 10 IS is1, is2; in main() local 22 PetscCall(ISCreateStride(PETSC_COMM_SELF, 3, 0, 2, &is2)); in main() 28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 36 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex14.c | 12 IS is1, is2; in main() local 29 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, rank, 1, &is2)); in main() 35 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 45 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex2.c | 11 IS is1, is2; in main() local 24 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 2, idx2, PETSC_COPY_VALUES, &is2)); in main() 28 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 42 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex4.c | 11 IS is1, is2; in main() local 29 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 2, idx2, PETSC_COPY_VALUES, &is2)); in main() 33 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 41 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex12.c | 13 IS is1, is2; in main() local 30 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, 0, 1, &is2)); in main() 41 PetscCall(VecScatterCreate(y, is2, x, is1, &ctx)); in main() 51 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex5.c | 13 IS is1, is2; in main() local 29 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, 0, 1, &is2)); in main() 41 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 54 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex11.c | 11 IS is1, is2; in main() local 28 PetscCall(ISCreateStride(PETSC_COMM_SELF, N - rank, 0, 1, &is2)); in main() 41 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 52 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex9.c | 11 IS is1, is2; in main() local 27 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 3, idx2, PETSC_COPY_VALUES, &is2)); in main() 41 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 51 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex22.c | 11 IS is1, is2; in main() local 31 PetscCall(ISCreateStride(PETSC_COMM_WORLD, n, (n * (rank + 1)) % N, 1, &is2)); in main() 41 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 51 PetscCall(ISDestroy(&is2)); in main()
|
| H A D | ex23.c | 19 IS is1, is2; in main() local 49 PetscCall(ISCreateStride(PETSC_COMM_SELF, 8, 0, 1, &is2)); in main() 58 PetscCall(VecScatterCreate(x, is1, y, is2, &ctx)); in main() 70 PetscCall(ISDestroy(&is2)); 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 22 *ierr = F90Array1dAccess(is2, MPIU_FORTRANADDR, (void **)&isb PETSC_F90_2PTR_PARAM(ptrd2)); in pcgasmdestroysubdomains_() 26 *ierr = F90Array1dDestroy(is2, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd2)); in pcgasmdestroysubdomains_() 31 …cInt *dof, PetscInt *overlap, PetscInt *Nsub, F90Array1d *is1, F90Array1d *is2, int *ierr PETSC_F9… in pcgasmcreatesubdomains2d_() argument 38 *ierr = F90Array1dCreate(iisl, MPIU_FORTRANADDR, 1, *Nsub, is2 PETSC_F90_2PTR_PARAM(ptrd2)); in pcgasmcreatesubdomains2d_()
|
| /petsc/src/vec/is/sf/tests/ |
| H A D | ex21.c | 17 IS is2; in main() local 42 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, n, indices, PETSC_COPY_VALUES, &is2)); in main() 46 PetscCall(VecScatterCreate(vec, is, vec2, is2, &scatter)); in main() 48 PetscCall(ISDestroy(&is2)); in main()
|