| /petsc/src/tao/pde_constrained/tutorials/ |
| H A D | elliptic.c | 49 Vec uwork; member
193 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormFunction()
194 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormFunction()
214 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormGradient()
215 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormGradient()
216 PetscCall(MatMultTranspose(user->L, user->lwork, user->uwork)); in FormGradient()
217 PetscCall(VecScale(user->uwork, user->alpha)); in FormGradient()
218 PetscCall(Gather(G, user->ywork, user->state_scatter, user->uwork, user->design_scatter)); in FormGradient()
234 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormFunctionGradient()
235 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormFunctionGradient()
[all …]
|
| H A D | parabolic.c | 47 Vec uwork; member
242 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormFunction()
243 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormFunction()
278 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormGradient()
279 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormGradient()
280 PetscCall(MatMult(user->LT, user->lwork, user->uwork)); in FormGradient()
281 PetscCall(VecScale(user->uwork, user->alpha)); in FormGradient()
282 PetscCall(Gather(G, user->ywork, user->state_scatter, user->uwork, user->design_scatter)); in FormGradient()
311 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormFunctionGradient()
312 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormFunctionGradient()
[all …]
|
| H A D | hyperbolic.c | 43 Vec uwork, vwork; member
228 PetscCall(VecWAXPY(user->uwork, -1.0, user->ur, user->u)); in FormFunction()
229 PetscCall(VecPointwiseMult(user->uwork, user->uwork, user->uwork)); in FormFunction()
230 PetscCall(MatMult(user->L, user->uwork, user->lwork)); in FormFunction()
252 PetscCall(MatMult(user->LT, user->y, user->uwork)); in FormGradient()
254 PetscCall(VecPointwiseMult(user->uwork, user->vwork, user->uwork)); in FormGradient()
255 PetscCall(VecScale(user->uwork, user->alpha)); in FormGradient()
261 PetscCall(Gather(G, user->ywork, user->state_scatter, user->uwork, user->design_scatter)); in FormGradient()
279 PetscCall(MatMult(user->LT, user->y, user->uwork)); in FormFunctionGradient()
281 PetscCall(VecPointwiseMult(user->uwork, user->vwork, user->uwork)); in FormFunctionGradient()
[all …]
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 18 PetscScalar *uwork, *data, *U, ds = 0.; in MatDenseOrthogonalRangeOrComplement() local
33 PetscCall(PetscMalloc1(ulw, &uwork)); in MatDenseOrthogonalRangeOrComplement()
36 uwork = work; in MatDenseOrthogonalRangeOrComplement()
53 …esvd", LAPACKgesvd_("A", "N", &bM, &bN, data, &bM, sing, U, &bM, &ds, &di, uwork, &lwork, &lierr)); in MatDenseOrthogonalRangeOrComplement()
56 …svd", LAPACKgesvd_("A", "N", &bM, &bN, data, &bM, sing, U, &bM, &ds, &di, uwork, &lwork, rwork2, &… in MatDenseOrthogonalRangeOrComplement()
65 if (!work) PetscCall(PetscFree(uwork)); in MatDenseOrthogonalRangeOrComplement()
|