| /petsc/src/mat/tests/ |
| H A D | ex240.c | 14 MatFDColoring fdcoloring; in main() local
73 PetscCall(MatFDColoringCreate(A, iscoloring, &fdcoloring)); in main()
75 if (single) PetscCall(MatFDColoringSetBlockSize(fdcoloring, PETSC_DEFAULT, nc)); in main()
77 if (two) PetscCall(MatFDColoringSetBlockSize(fdcoloring, PETSC_DEFAULT, 2)); in main()
78 PetscCall(MatFDColoringSetFromOptions(fdcoloring)); in main()
79 PetscCall(MatFDColoringSetUp(A, iscoloring, fdcoloring)); in main()
81 PetscCall(MatFDColoringSetValues(A, fdcoloring, cm)); in main()
92 PetscCall(MatFDColoringDestroy(&fdcoloring)); in main()
|
| /petsc/src/snes/tests/ |
| H A D | ex1f.F90 | 176 subroutine FormFunction(snes, X, F, fdcoloring, ierr) argument
182 MatFDColoring fdcoloring
217 PetscCallA(MatFDColoringGetPerturbedColumns(fdcoloring, PETSC_NULL_INTEGER, indices, ierr))
221 … PetscCallA(MatFDColoringRestorePerturbedColumns(fdcoloring, PETSC_NULL_INTEGER, indices, ierr))
449 MatFDColoring fdcoloring
513 PetscCallA(SNESSetFunction(snes, r, FormFunction, fdcoloring, ierr))
555 PetscCallA(MatFDColoringCreate(J, iscoloring, fdcoloring, ierr))
556 PetscCallA(MatFDColoringSetFunction(fdcoloring, FormFunction, fdcoloring, ierr))
557 PetscCallA(MatFDColoringSetFromOptions(fdcoloring, ierr))
558 PetscCallA(MatFDColoringSetUp(J, iscoloring, fdcoloring, ierr))
[all …]
|
| H A D | ex1.c | 70 MatFDColoring fdcoloring; in main() local
190 PetscCall(MatFDColoringCreate(J, iscoloring, &fdcoloring)); in main()
191 PetscCall(MatFDColoringSetFunction(fdcoloring, (MatFDColoringFn *)FormFunction, &user)); in main()
192 PetscCall(MatFDColoringSetFromOptions(fdcoloring)); in main()
193 PetscCall(MatFDColoringSetUp(J, iscoloring, fdcoloring)); in main()
198 PetscCall(SNESSetJacobian(snes, J, J, SNESComputeJacobianDefaultColor, fdcoloring)); in main()
296 if (fd_coloring) PetscCall(MatFDColoringDestroy(&fdcoloring)); in main()
|
| /petsc/src/snes/utils/ |
| H A D | dmlocalsnes.c | 151 MatFDColoring fdcoloring; in SNESComputeJacobian_DMLocal() local
152 PetscCall(PetscObjectQuery((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject *)&fdcoloring)); in SNESComputeJacobian_DMLocal()
153 if (!fdcoloring) { in SNESComputeJacobian_DMLocal()
157 PetscCall(MatFDColoringCreate(B, coloring, &fdcoloring)); in SNESComputeJacobian_DMLocal()
161 …PetscCall(MatFDColoringSetFunction(fdcoloring, (MatFDColoringFn *)SNESComputeFunction_DMLocal, dml… in SNESComputeJacobian_DMLocal()
166 PetscCall(PetscObjectSetOptionsPrefix((PetscObject)fdcoloring, ((PetscObject)dm)->prefix)); in SNESComputeJacobian_DMLocal()
167 PetscCall(MatFDColoringSetFromOptions(fdcoloring)); in SNESComputeJacobian_DMLocal()
168 PetscCall(MatFDColoringSetUp(B, coloring, fdcoloring)); in SNESComputeJacobian_DMLocal()
169 … PetscCall(PetscObjectCompose((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject)fdcoloring)); in SNESComputeJacobian_DMLocal()
170 PetscCall(PetscObjectDereference((PetscObject)fdcoloring)); in SNESComputeJacobian_DMLocal()
[all …]
|
| H A D | dmdasnes.c | 172 MatFDColoring fdcoloring; in SNESComputeJacobian_DMDA() local
173 PetscCall(PetscObjectQuery((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject *)&fdcoloring)); in SNESComputeJacobian_DMDA()
174 if (!fdcoloring) { in SNESComputeJacobian_DMDA()
178 PetscCall(MatFDColoringCreate(B, coloring, &fdcoloring)); in SNESComputeJacobian_DMDA()
181 …PetscCall(MatFDColoringSetFunction(fdcoloring, (MatFDColoringFn *)SNESComputeFunction_DMDA, dmdasn… in SNESComputeJacobian_DMDA()
186 PetscCall(PetscObjectSetOptionsPrefix((PetscObject)fdcoloring, ((PetscObject)dm)->prefix)); in SNESComputeJacobian_DMDA()
187 PetscCall(MatFDColoringSetFromOptions(fdcoloring)); in SNESComputeJacobian_DMDA()
188 PetscCall(MatFDColoringSetUp(B, coloring, fdcoloring)); in SNESComputeJacobian_DMDA()
190 … PetscCall(PetscObjectCompose((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject)fdcoloring)); in SNESComputeJacobian_DMDA()
191 PetscCall(PetscObjectDereference((PetscObject)fdcoloring)); in SNESComputeJacobian_DMDA()
[all …]
|
| /petsc/src/ts/utils/ |
| H A D | dmlocalts.c | 152 MatFDColoring fdcoloring; in TSComputeIJacobian_DMLocal() local
153 PetscCall(PetscObjectQuery((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject *)&fdcoloring)); in TSComputeIJacobian_DMLocal()
154 if (!fdcoloring) { in TSComputeIJacobian_DMLocal()
158 PetscCall(MatFDColoringCreate(B, coloring, &fdcoloring)); in TSComputeIJacobian_DMLocal()
162 …PetscCall(MatFDColoringSetFunction(fdcoloring, (MatFDColoringFn *)(PetscVoidFn *)TSComputeIFunctio… in TSComputeIJacobian_DMLocal()
167 PetscCall(PetscObjectSetOptionsPrefix((PetscObject)fdcoloring, ((PetscObject)dm)->prefix)); in TSComputeIJacobian_DMLocal()
168 PetscCall(MatFDColoringSetFromOptions(fdcoloring)); in TSComputeIJacobian_DMLocal()
169 PetscCall(MatFDColoringSetUp(B, coloring, fdcoloring)); in TSComputeIJacobian_DMLocal()
170 … PetscCall(PetscObjectCompose((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject)fdcoloring)); in TSComputeIJacobian_DMLocal()
171 PetscCall(PetscObjectDereference((PetscObject)fdcoloring)); in TSComputeIJacobian_DMLocal()
[all …]
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf2.c | 48 PetscBool fddefault, fdcoloring; /* flags */ in main() local
95 PetscCall(PetscOptionsHasName(NULL, NULL, "-tao_fdcoloring", &fdcoloring)); in main()
105 if (fdcoloring) { in main()
139 if (fdcoloring) PetscCall(MatFDColoringDestroy(&matfdcoloring)); in main()
|
| /petsc/doc/manual/ |
| H A D | snes.md | 1190 MatFDColoring fdcoloring;
1213 MatFDColoringCreate(J, iscoloring, &fdcoloring);
1215 MatFDColoringSetFunction(fdcoloring, (MatFDColoringFn *)FormFunction, &user);
1216 MatFDColoringSetFromOptions(fdcoloring);
1222 SNESSetJacobian(snes, J, J, SNESComputeJacobianDefaultColor, fdcoloring);
1287 MatFDColoringSetParameters(MatFDColoring fdcoloring, PetscReal rerror, PetscReal umin);
1338 MatFDColoringCreate(J, iscoloring, &fdcoloring);
1339 MatFDColoringSetFromOptions(fdcoloring);
|
| /petsc/src/snes/interface/ |
| H A D | snes.c | 462 MatFDColoring fdcoloring; in SNESView() local
463 … PetscCall(PetscObjectQuery((PetscObject)dm, "DMDASNES_FDCOLORING", (PetscObject *)&fdcoloring)); in SNESView()
464 if (fdcoloring) { in SNESView()
|
| /petsc/src/dm/interface/ |
| H A D | dm.c | 8853 PetscErrorCode MatFDColoringUseDM(Mat coloring, MatFDColoring fdcoloring) in MatFDColoringUseDM() argument
|