Searched refs:starw (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/dt/interface/ |
| H A D | dtaltv.c | 786 …rorCode PetscDTAltVStar(PetscInt N, PetscInt k, PetscInt pow, const PetscReal *w, PetscReal *starw) in PetscDTAltVStar() argument
800 for (i = 0; i < Nk; i++) starw[Nk - 1 - i] = w[i] * mult[i]; in PetscDTAltVStar()
802 for (i = 0; i < Nk; i++) starw[i] = w[i]; in PetscDTAltVStar()
805 for (i = 0; i < Nk; i++) starw[i] = -starw[i]; in PetscDTAltVStar()
820 starw[j] = sOdd ? -w[idx] : w[idx]; in PetscDTAltVStar()
823 for (i = 0; i < Nk; i++) starw[i] = w[i]; in PetscDTAltVStar()
827 for (i = 0; i < Nk; i++) starw[i] = -starw[i]; in PetscDTAltVStar()
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex7.c | 450 PetscReal *u, *starw, *starstarw, wu, starwdotu; in main() local
456 PetscCall(PetscMalloc3(Nk, &u, Nk, &starw, Nk, &starstarw)); in main()
457 PetscCall(PetscDTAltVStar(N, k, 1, w, starw)); in main()
458 PetscCall(PetscDTAltVStar(N, N - k, 1, starw, starstarw)); in main()
462 if (Nk) PetscCall(PetscRealView(Nk, starw, viewer)); in main()
473 for (l = 0; l < Nk; l++) starwdotu += starw[l] * u[l]; in main()
486 PetscCall(PetscFree3(u, starw, starstarw)); in main()
|