Searched refs:Sr (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ksp/ksp/impls/gmres/agmres/ |
| H A D | agmresdeflation.c | 92 …Int ldA, PetscScalar *B, PetscBLASInt ldB, PetscBool IsReduced, PetscScalar *Sr, PetscInt *CurNeig) in KSPAGMRESSchurForm() argument
161 PetscCall(PetscArrayzero(Sr, (N + 1) * r)); in KSPAGMRESSchurForm()
163 for (i = 0; i < KspSize; i++) Sr[j * (N + 1) + i] = Z[j * N + i]; in KSPAGMRESSchurForm()
168 …PetscCallMPI(MPI_Bcast(Sr, (N + 1) * r, MPIU_SCALAR, agmres->First, PetscObjectComm((PetscObject)k… in KSPAGMRESSchurForm()
186 PetscScalar *Sr = agmres->Sr; in KSPAGMRESComputeDeflationData() local
225 …RESSchurForm(ksp, iKspSize, agmres->hes_origin, blC, agmres->Rloc, blC, PETSC_TRUE, Sr, &CurNeig)); in KSPAGMRESComputeDeflationData()
227 … PetscCall(KSPAGMRESSchurForm(ksp, iKspSize, MatEigL, bN, MatEigR, bN, PETSC_FALSE, Sr, &CurNeig)); in KSPAGMRESComputeDeflationData()
241 PetscCall(VecMAXPBY(U[j], max_k, &Sr[j * (N + 1)], 0, &VEC_V(0))); in KSPAGMRESComputeDeflationData()
242 PetscCall(VecMAXPY(U[j], PrevNeig, &Sr[j * (N + 1) + max_k], TmpU)); in KSPAGMRESComputeDeflationData()
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmresimpl.h | 26 PetscScalar *Sr; /* Schur vectors to extract */ \
81 #define SR dgmres->Sr
|