Searched refs:xsplit (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/tests/ |
| H A D | ex7.c | 279 PetscReal *u, *uWw, *uWwcheck, *uWwmat, *x, *xsplit, uWwx, uWwxcheck, diff, norm; in main() local
286 PetscCall(PetscMalloc4(Nj, &u, Njk, &uWw, N * (j + k), &x, N * (j + k), &xsplit)); in main()
317 for (p = 0; p < N; p++) xsplit[m * N + p] = x[split[m] * N + p]; in main()
319 PetscCall(PetscDTAltVApply(N, j, u, xsplit, &ux)); in main()
320 PetscCall(PetscDTAltVApply(N, k, w, PetscSafePointerPlusOffset(xsplit, j * N), &wx)); in main()
349 PetscCall(PetscFree4(u, uWw, x, xsplit)); in main()
|