Home
last modified time | relevance | path

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

/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmres.c45 …PetscCall(PetscCalloc4(max_k, &agmres->Rshift, max_k, &agmres->Ishift, hes, &agmres->Rloc, (N + 1)… in KSPSetUp_AGMRES()
133 PetscCall(KSPAGMRESLejaOrdering(agmres->wr, agmres->wi, agmres->Rshift, agmres->Ishift, max_k)); in KSPComputeShifts_DGMRES()
136 PetscScalar *wr, *wi, *Rshift, *Ishift; in KSPComputeShifts_DGMRES() local
137 PetscCall(PetscMalloc4(2 * max_k, &wr, 2 * max_k, &wi, 2 * max_k, &Rshift, 2 * max_k, &Ishift)); in KSPComputeShifts_DGMRES()
160 PetscCall(KSPAGMRESLejaOrdering(wr, wi, Rshift, Ishift, 2 * max_k)); in KSPComputeShifts_DGMRES()
163 agmres->Ishift[i] = Ishift[i]; in KSPComputeShifts_DGMRES()
167 PetscCall(PetscFree(Ishift)); in KSPComputeShifts_DGMRES()
190 PetscReal *Ishift = agmres->Ishift; in KSPAGMRESBuildBasis() local
200 if (Ishift[j - 1] == 0) { in KSPAGMRESBuildBasis()
257 PetscCall(VecAXPY(VEC_V(j), Scale[j - 2] * Ishift[j - 2] * Ishift[j - 2], VEC_V(j - 2))); in KSPAGMRESBuildBasis()
[all …]
H A Dagmresimpl.h20 …PetscScalar *Rshift, *Ishift; /* Real and Imaginary parts of the shifts in the Newton … member
H A Dagmresdeflation.c170 …if (agmres->DeflPrecond) PetscCall(KSPAGMRESLejaOrdering(wr, wi, agmres->Rshift, agmres->Ishift, m… in KSPAGMRESSchurForm()