Home
last modified time | relevance | path

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

/petsc/src/ksp/pc/impls/fieldsplit/
H A Dfieldsplit.c70 PetscScalar *vecz; /* Contains intermediate values, eg for lower bound */ member
1055 PetscCall(PetscCalloc1(jac->gkbdelay, &jac->vecz)); in PCSetUp_FieldSplit()
1865 PetscScalar alpha, z, nrmz2, *vecz; in PCApply_FieldSplit_GKB() local
1881 vecz = jac->vecz; in PCApply_FieldSplit_GKB()
1922 vecz[1] = z; in PCApply_FieldSplit_GKB()
1955 vecz[0] = z; in PCApply_FieldSplit_GKB()
1967 for (j = 0; j < jac->gkbdelay; j++) lowbnd += PetscAbsScalar(vecz[j] * vecz[j]); in PCApply_FieldSplit_GKB()
1971 … for (j = 0; j < jac->gkbdelay - 1; j++) vecz[jac->gkbdelay - j - 1] = vecz[jac->gkbdelay - j - 2]; in PCApply_FieldSplit_GKB()
2104 PetscCall(PetscFree(jac->vecz)); in PCReset_FieldSplit()