Searched refs:wv (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/dm/dt/tests/ |
| H A D | ex7.c | 134 PetscReal *w, *v, wv; in main() local
174 PetscCall(PetscDTAltVApply(N, k, w, v, &wv)); in main()
185 PetscCall(PetscViewerASCIIPrintf(viewer, "w(v): %g\n", (double)wv)); in main()
195 diff = PetscSqrtReal(PetscSqr(wvcheck - wv)); in main()
196 …wv) + PetscAbsReal(wvcheck)), PETSC_COMM_WORLD, PETSC_ERR_PLIB, "1-form / dot product equivalence:… in main()
221 diff = PetscSqrtReal(PetscSqr(wvcheck - wv)); in main()
222 …wv) + PetscAbsReal(wvcheck)), PETSC_COMM_WORLD, PETSC_ERR_PLIB, "n-form / determinant equivalence:… in main()
248 waxvcheck = alpha * wx + wv; in main()
273 diff = PetscAbsReal(wswapv + wv); in main()
274 …wv)), PETSC_COMM_WORLD, PETSC_ERR_PLIB, "antisymmetry check: components %" PetscInt_FMT " & %" Pet… in main()
[all …]
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtaltv.c | 75 …ode PetscDTAltVApply(PetscInt N, PetscInt k, const PetscReal *w, const PetscReal *v, PetscReal *wv) in PetscDTAltVApply() argument
82 *wv = w[0]; in PetscDTAltVApply()
85 *wv = w[0] * v[0]; in PetscDTAltVApply()
88 *wv = w[0] * v[0] + w[1] * v[1]; in PetscDTAltVApply()
90 *wv = w[0] * (v[0] * v[3] - v[1] * v[2]); in PetscDTAltVApply()
94 *wv = w[0] * v[0] + w[1] * v[1] + w[2] * v[2]; in PetscDTAltVApply()
96 …*wv = w[0] * (v[0] * v[4] - v[1] * v[3]) + w[1] * (v[0] * v[5] - v[2] * v[3]) + w[2] * (v[1] * v[5… in PetscDTAltVApply()
98 …*wv = w[0] * (v[0] * (v[4] * v[8] - v[5] * v[7]) + v[1] * (v[5] * v[6] - v[3] * v[8]) + v[2] * (v[… in PetscDTAltVApply()
127 *wv = sum; in PetscDTAltVApply()
|
| /petsc/src/vec/vec/impls/seq/kokkos/ |
| H A D | veckok.kokkos.cxx | 737 PetscScalarKokkosView wv; in VecWAXPY_SeqKokkos() local
740 PetscCall(VecGetKokkosViewWrite(win, &wv)); in VecWAXPY_SeqKokkos()
743 …okkosExecutionSpace(), 0, win->map->n), KOKKOS_LAMBDA(const PetscInt &i) { wv(i) = alpha * xv(i) +… in VecWAXPY_SeqKokkos()
746 PetscCall(VecRestoreKokkosViewWrite(win, &wv)); in VecWAXPY_SeqKokkos()
976 PetscScalarKokkosViewHost wv; in VecPointwiseMult_SeqKokkos() local
980 PetscCall(VecGetKokkosViewWrite(win, &wv)); in VecPointwiseMult_SeqKokkos()
983 …kkos::DefaultHostExecutionSpace>(0, n), KOKKOS_LAMBDA(const PetscInt &i) { wv(i) = xv(i) * yv(i); … in VecPointwiseMult_SeqKokkos()
987 PetscCall(VecRestoreKokkosViewWrite(win, &wv)); in VecPointwiseMult_SeqKokkos()
990 PetscScalarKokkosView wv; in VecPointwiseMult_SeqKokkos() local
992 PetscCall(VecGetKokkosViewWrite(win, &wv)); in VecPointwiseMult_SeqKokkos()
[all …]
|