| /petsc/src/vec/is/is/utils/ |
| H A D | iscoloring.c | 73 PetscErrorCode ISColoringDestroy(ISColoring *iscoloring) in ISColoringDestroy() argument
78 if (!*iscoloring) PetscFunctionReturn(PETSC_SUCCESS); in ISColoringDestroy()
79 PetscAssertPointer(*iscoloring, 1); in ISColoringDestroy()
80 if (--(*iscoloring)->refct > 0) { in ISColoringDestroy()
81 *iscoloring = NULL; in ISColoringDestroy()
85 if ((*iscoloring)->is) { in ISColoringDestroy()
86 for (i = 0; i < (*iscoloring)->n; i++) PetscCall(ISDestroy(&(*iscoloring)->is[i])); in ISColoringDestroy()
87 PetscCall(PetscFree((*iscoloring)->is)); in ISColoringDestroy()
89 if ((*iscoloring)->allocated) PetscCall(PetscFree((*iscoloring)->colors)); in ISColoringDestroy()
90 PetscCall(PetscCommDestroy(&(*iscoloring)->comm)); in ISColoringDestroy()
[all …]
|
| /petsc/src/snes/interface/ |
| H A D | snesj2.c | 66 ISColoring iscoloring; in SNESComputeJacobianDefaultColor() local
81 PetscCall(DMCreateColoring(dm, IS_COLORING_GLOBAL, &iscoloring)); in SNESComputeJacobianDefaultColor()
87 PetscCall(MatColoringApply(mc, &iscoloring)); in SNESComputeJacobianDefaultColor()
90 PetscCall(MatFDColoringCreate(B, iscoloring, &color)); in SNESComputeJacobianDefaultColor()
98 PetscCall(MatFDColoringSetUp(B, iscoloring, color)); in SNESComputeJacobianDefaultColor()
99 PetscCall(ISColoringDestroy(&iscoloring)); in SNESComputeJacobianDefaultColor()
148 ISColoring iscoloring; in SNESPruneJacobianColor() local
158 PetscCall(MatColoringApply(mc, &iscoloring)); in SNESPruneJacobianColor()
161 PetscCall(MatFDColoringCreate(B, iscoloring, &matfdcoloring)); in SNESPruneJacobianColor()
171 PetscCall(MatFDColoringSetUp(B, iscoloring, matfdcoloring)); in SNESPruneJacobianColor()
[all …]
|
| /petsc/src/dm/tests/ |
| H A D | ex26.c | 12 ISColoring iscoloring; in main() local
24 PetscCall(DMCreateColoring(da, IS_COLORING_LOCAL, &iscoloring)); in main()
25 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
26 PetscCall(MatFDColoringSetUp(J, iscoloring, matfdcoloring)); in main()
27 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/vec/is/is/utils/ftn-custom/ |
| H A D | ziscoloringf90.c | 12 PETSC_EXTERN void iscoloringgetis_(ISColoring *iscoloring, PetscCopyMode *mode, PetscInt *n, F90Arr… in iscoloringgetis_() argument
16 *ierr = ISColoringGetIS(*iscoloring, *mode, n, &lis); in iscoloringgetis_()
21 PETSC_EXTERN void iscoloringrestoreis_(ISColoring *iscoloring, PetscCopyMode *mode, F90Array1d *ptr… in iscoloringrestoreis_() argument
29 *ierr = ISColoringRestoreIS(*iscoloring, *mode, &is); in iscoloringrestoreis_()
|
| /petsc/src/mat/tests/ |
| H A D | ex24.c | 29 ISColoring iscoloring; in main() local
51 PetscCall(MatColoringApply(coloring, &iscoloring)); in main()
53 if (size == 1) PetscCall(MatISColoringTest(J, iscoloring)); in main()
55 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| H A D | ex240.c | 15 ISColoring iscoloring; in main() local
31 PetscCall(DMCreateColoring(da, IS_COLORING_LOCAL, &iscoloring)); in main()
32 PetscCall(ISColoringGetColors(iscoloring, &n, &nc, &icolors)); in main()
73 PetscCall(MatFDColoringCreate(A, iscoloring, &fdcoloring)); in main()
79 PetscCall(MatFDColoringSetUp(A, iscoloring, fdcoloring)); in main()
91 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| H A D | ex161.c | 13 ISColoring iscoloring; in main() local
89 PetscCall(MatColoringApply(mc, &iscoloring)); in main()
91 PetscCall(MatTransposeColoringCreate(C, iscoloring, &matcoloring)); in main()
92 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/mat/graphops/color/impls/minpack/ |
| H A D | color.c | 27 static PetscErrorCode MatColoringApply_SL(MatColoring mc, ISColoring *iscoloring) in MatColoringApply_SL() argument
79 PetscCall(MatColoringPatch(mat_seq, ncolors, n, s, iscoloring)); in MatColoringApply_SL()
86 iscoloring_seq = *iscoloring; in MatColoringApply_SL()
96 PetscCall(ISColoringCreate(comm, nc, N_loc, colors_loc, PETSC_OWN_POINTER, iscoloring)); in MatColoringApply_SL()
127 static PetscErrorCode MatColoringApply_LF(MatColoring mc, ISColoring *iscoloring) in MatColoringApply_LF() argument
181 PetscCall(MatColoringPatch(mat_seq, ncolors, n, s, iscoloring)); in MatColoringApply_LF()
188 iscoloring_seq = *iscoloring; in MatColoringApply_LF()
199 PetscCall(ISColoringCreate(comm, nc, N_loc, colors_loc, PETSC_OWN_POINTER, iscoloring)); in MatColoringApply_LF()
230 static PetscErrorCode MatColoringApply_ID(MatColoring mc, ISColoring *iscoloring) in MatColoringApply_ID() argument
283 PetscCall(MatColoringPatch(mat_seq, ncolors, n, s, iscoloring)); in MatColoringApply_ID()
[all …]
|
| /petsc/src/mat/graphops/color/impls/natural/ |
| H A D | natural.c | 4 static PetscErrorCode MatColoringApply_Natural(MatColoring mc, ISColoring *iscoloring) in MatColoringApply_Natural() argument
39 PetscCall(ISColoringCreate(comm, n, end - start, colors, PETSC_OWN_POINTER, iscoloring)); in MatColoringApply_Natural()
45 iscoloring_seq = *iscoloring; in MatColoringApply_Natural()
55 PetscCall(ISColoringCreate(comm, nc, N_loc, colors_loc, PETSC_OWN_POINTER, iscoloring)); in MatColoringApply_Natural()
|
| /petsc/src/ts/tutorials/autodiff/adolc-utils/ |
| H A D | sparse.cxx | 48 PetscErrorCode GenerateSeedMatrix(ISColoring iscoloring, PetscScalar **S) in GenerateSeedMatrix() argument
55 PetscCall(ISColoringGetIS(iscoloring, PETSC_USE_POINTER, &p, &is)); in GenerateSeedMatrix()
62 PetscCall(ISColoringRestoreIS(iscoloring, PETSC_USE_POINTER, &is)); in GenerateSeedMatrix()
78 PetscErrorCode GenerateSeedMatrixPlusRecovery(ISColoring iscoloring, PetscScalar **S, PetscScalar *… in GenerateSeedMatrixPlusRecovery() argument
85 PetscCall(ISColoringGetIS(iscoloring, PETSC_USE_POINTER, &p, &is)); in GenerateSeedMatrixPlusRecovery()
95 PetscCall(ISColoringRestoreIS(iscoloring, PETSC_USE_POINTER, &is)); in GenerateSeedMatrixPlusRecovery()
|
| /petsc/src/mat/tutorials/ |
| H A D | ex16.c | 91 ISColoring iscoloring; in main() local
97 PetscCall(MatColoringApply(mc, &iscoloring)); in main()
99 PetscCall(MatFDColoringCreate(Asp, iscoloring, &matfdcoloring)); in main()
101 PetscCall(MatFDColoringSetUp(Asp, iscoloring, matfdcoloring)); in main()
103 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | fdaij.c | 10 PetscErrorCode MatFDColoringCreate_SeqXAIJ(Mat mat, ISColoring iscoloring, MatFDColoring c) in MatFDColoringCreate_SeqXAIJ() argument
12 PetscInt bs, nis = iscoloring->n, m = mat->rmap->n; in MatFDColoringCreate_SeqXAIJ()
51 c->ctype = iscoloring->ctype; in MatFDColoringCreate_SeqXAIJ()
176 PetscErrorCode MatFDColoringSetUp_SeqXAIJ(Mat mat, ISColoring iscoloring, MatFDColoring c) in MatFDColoringSetUp_SeqXAIJ() argument
178 …PetscInt i, n, nrows, mbs = c->m, j, k, m, ncols, col, nis = iscoloring->n, *rowhit, bs,… in MatFDColoringSetUp_SeqXAIJ()
187 PetscCall(ISColoringGetIS(iscoloring, PETSC_OWN_POINTER, PETSC_IGNORE, &c->isa)); in MatFDColoringSetUp_SeqXAIJ()
295 PetscCall(ISColoringRestoreIS(iscoloring, PETSC_OWN_POINTER, &c->isa)); in MatFDColoringSetUp_SeqXAIJ()
|
| H A D | matrart.c | 31 ISColoring iscoloring; in MatRARtSymbolic_SeqAIJ_SeqAIJ_colorrart() local
59 PetscCall(MatColoringApply(coloring, &iscoloring)); in MatRARtSymbolic_SeqAIJ_SeqAIJ_colorrart()
61 PetscCall(MatTransposeColoringCreate(C, iscoloring, &matcoloring)); in MatRARtSymbolic_SeqAIJ_SeqAIJ_colorrart()
64 PetscCall(ISColoringDestroy(&iscoloring)); in MatRARtSymbolic_SeqAIJ_SeqAIJ_colorrart()
|
| /petsc/src/mat/graphops/color/impls/power/ |
| H A D | power.c | 3 static PetscErrorCode MatColoringApply_Power(MatColoring mc, ISColoring *iscoloring) in MatColoringApply_Power() argument
30 PetscCall(MatColoringApply(imc, iscoloring)); in MatColoringApply_Power()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex14.c | 128 ISColoring iscoloring; in main() local
130 PetscCall(DMCreateColoring(user.da, IS_COLORING_GLOBAL, &iscoloring)); in main()
131 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
134 PetscCall(DMCreateColoring(user.da, IS_COLORING_LOCAL, &iscoloring)); in main()
135 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
141 PetscCall(MatFDColoringSetUp(J, iscoloring, matfdcoloring)); in main()
143 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/ts/tutorials/phasefield/ |
| H A D | biharmonic2.c | 51 ISColoring iscoloring; in main() local
120 PetscCall(DMCreateColoring(da, IS_COLORING_GLOBAL, &iscoloring)); in main()
123 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
126 PetscCall(MatFDColoringSetUp(J, iscoloring, matfdcoloring)); in main()
127 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| H A D | biharmonic3.c | 51 ISColoring iscoloring; in main() local
119 PetscCall(DMCreateColoring(da, IS_COLORING_GLOBAL, &iscoloring)); in main()
122 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
125 PetscCall(MatFDColoringSetUp(J, iscoloring, matfdcoloring)); in main()
126 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/snes/tests/ |
| H A D | ex1f.F90 | 450 ISColoring iscoloring
549 PetscCallA(MatColoringApply(mc, iscoloring, ierr))
555 PetscCallA(MatFDColoringCreate(J, iscoloring, fdcoloring, ierr))
558 PetscCallA(MatFDColoringSetUp(J, iscoloring, fdcoloring, ierr))
564 PetscCallA(ISColoringDestroy(iscoloring, ierr))
|
| H A D | ex1.c | 158 ISColoring iscoloring; in main() local
184 PetscCall(MatColoringApply(mc, &iscoloring)); in main()
190 PetscCall(MatFDColoringCreate(J, iscoloring, &fdcoloring)); in main()
193 PetscCall(MatFDColoringSetUp(J, iscoloring, fdcoloring)); in main()
199 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/mat/matfd/ |
| H A D | fdmatrix.c | 223 PetscErrorCode MatFDColoringSetUp(Mat mat, ISColoring iscoloring, MatFDColoring color) in MatFDColoringSetUp() argument
235 PetscUseTypeMethod(mat, fdcoloringsetup, iscoloring, color); in MatFDColoringSetUp()
434 PetscErrorCode MatFDColoringCreate(Mat mat, ISColoring iscoloring, MatFDColoring *color) in MatFDColoringCreate() argument
450 c->ctype = iscoloring->ctype; in MatFDColoringCreate()
453 PetscUseTypeMethod(mat, fdcoloringcreate, iscoloring, c); in MatFDColoringCreate()
|
| /petsc/src/snes/tutorials/ex10d/ |
| H A D | ex10.c | 396 ISColoring iscoloring; in main() local
405 PetscCall(MatColoringApply(mc, &iscoloring)); in main()
407 PetscCall(MatFDColoringCreate(Jac, iscoloring, &matfdcoloring)); in main()
410 PetscCall(MatFDColoringSetUp(Jac, iscoloring, matfdcoloring)); in main()
413 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/ts/tests/ |
| H A D | ex4.c | 49 ISColoring iscoloring; in main() local
125 PetscCall(MatColoringApply(mc, &iscoloring)); in main()
127 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
130 PetscCall(MatFDColoringSetUp(J, iscoloring, matfdcoloring)); in main()
132 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| H A D | ex5.c | 273 ISColoring iscoloring; in main() local
276 PetscCall(DMCreateColoring(da, IS_COLORING_GLOBAL, &iscoloring)); in main()
277 PetscCall(MatFDColoringCreate(J, iscoloring, &matfdcoloring)); in main()
279 PetscCall(MatFDColoringSetUp(J, iscoloring, matfdcoloring)); in main()
280 PetscCall(ISColoringGetColors(iscoloring, NULL, &ncolors, NULL)); in main()
282 PetscCall(ISColoringDestroy(&iscoloring)); in main()
|
| /petsc/src/mat/graphops/color/utils/ |
| H A D | valid.c | 98 PETSC_EXTERN PetscErrorCode MatISColoringTest(Mat A, ISColoring iscoloring) in MatISColoringTest() argument
109 PetscCall(ISColoringGetIS(iscoloring, PETSC_USE_POINTER, &nn, &isis)); in MatISColoringTest()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | fdmpiaij.c | 403 PetscErrorCode MatFDColoringSetUp_MPIXAIJ(Mat mat, ISColoring iscoloring, MatFDColoring c) in MatFDColoringSetUp_MPIXAIJ() argument
408 PetscInt nis = iscoloring->n, nctot, *cols, tmp = 0; in MatFDColoringSetUp_MPIXAIJ()
526 PetscCall(ISColoringGetIS(iscoloring, PETSC_OWN_POINTER, PETSC_IGNORE, &c->isa)); in MatFDColoringSetUp_MPIXAIJ()
650 PetscCall(ISColoringRestoreIS(iscoloring, PETSC_OWN_POINTER, &c->isa)); in MatFDColoringSetUp_MPIXAIJ()
658 PetscErrorCode MatFDColoringCreate_MPIXAIJ(Mat mat, ISColoring iscoloring, MatFDColoring c) in MatFDColoringCreate_MPIXAIJ() argument
660 PetscInt bs, nis = iscoloring->n, m = mat->rmap->n; in MatFDColoringCreate_MPIXAIJ()
|