Searched refs:swapv (Results 1 – 1 of 1) sorted by relevance
254 PetscReal rj, rl, *swapv, wswapv, diff; in main() local266 PetscCall(PetscMalloc1(N * k, &swapv)); in main()267 for (m = 0; m < N * k; m++) swapv[m] = v[m]; in main()269 swapv[j * N + m] = v[l * N + m]; in main()270 swapv[l * N + m] = v[j * N + m]; in main()272 PetscCall(PetscDTAltVApply(N, k, w, swapv, &wswapv)); in main()275 PetscCall(PetscFree(swapv)); in main()