Home
last modified time | relevance | path

Searched refs:bwork (Results 1 – 1 of 1) sorted by relevance

/petsc/src/ksp/pc/impls/redistribute/
H A Dredistribute.c338 const PetscScalar *bwork, *diag = red->diag; in PCApply_Redistribute() local
352 PetscCall(VecGetArrayRead(b, &bwork)); in PCApply_Redistribute()
355 if (diag[i] == 0.0 && bwork[drows[i]] != 0.0) { in PCApply_Redistribute()
363 for (i = 0; i < dcnt; i++) xwork[drows[i]] = diag[i] * bwork[drows[i]]; in PCApply_Redistribute()
366 PetscCall(VecRestoreArrayRead(b, &bwork)); in PCApply_Redistribute()
386 const PetscScalar *bwork, *diag = red->diag; in PCApplyTranspose_Redistribute() local
402 PetscCall(VecGetArrayRead(b, &bwork)); in PCApplyTranspose_Redistribute()
405 if (diag[i] == 0.0 && bwork[drows[i]] != 0.0) { in PCApplyTranspose_Redistribute()
413 for (i = 0; i < dcnt; i++) xwork[drows[i]] = diag[i] * bwork[drows[i]]; in PCApplyTranspose_Redistribute()
416 PetscCall(VecRestoreArrayRead(b, &bwork)); in PCApplyTranspose_Redistribute()