Home
last modified time | relevance | path

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

/petsc/src/ksp/ksp/impls/gmres/
H A Dgmreig.c121 PetscScalar *SR, *work; in KSPComputeRitz_GMRES() local
210 PetscCall(PetscMalloc1(nb * bn, &SR)); in KSPComputeRitz_GMRES()
215 PetscCall(PetscArraycpy(&SR[i * bn], &(Q[perm[i] * bn]), bn)); in KSPComputeRitz_GMRES()
219 …PetscCall(PetscArraycpy(&SR[i * bn], &(Q[perm[bn - nb + i] * bn]), bn)); /* permute columns of Q */ in KSPComputeRitz_GMRES()
232 PetscCall(PetscMalloc1(nb * bn, &SR)); in KSPComputeRitz_GMRES()
236 PetscCall(PetscArraycpy(&SR[i * bn], &(Q[perm[i] * bn]), bn)); in KSPComputeRitz_GMRES()
246 PetscCall(PetscMalloc1(nb * bn, &SR)); /* bn rows, nb columns */ in KSPComputeRitz_GMRES()
250 …PetscCall(PetscArraycpy(&SR[i * bn], &(Q[perm[bn - nb + i] * bn]), bn)); /* permute columns of Q */ in KSPComputeRitz_GMRES()
258 …for (j = 0; j < nb; j++) PetscCall(VecMAXPBY(S[j], bn, &SR[j * bn], 0, gmres->fullcycle ? gmres->v… in KSPComputeRitz_GMRES()
260 PetscCall(PetscFree(SR)); in KSPComputeRitz_GMRES()
/petsc/src/ksp/ksp/impls/gmres/dgmres/
H A Ddgmresimpl.h81 #define SR dgmres->Sr macro
H A Ddgmres.c62 PetscCall(PetscMalloc1(neig * max_k, &SR)); in KSPSetUp_DGMRES()
294 PetscCall(PetscFree(SR)); in KSPDestroy_DGMRES()
564 for (j = 0; j < neig; j++) PetscCall(VecMAXPBY(XX[j], n, &SR[j * N], 0, &VEC_VV(0))); in KSPDGMRESComputeDeflationData_DGMRES()
764 for (j = 0; j < NbrEig; j++) PetscCall(PetscArraycpy(&SR[j * N], &Q[j * ldQ], n)); in KSPDGMRESComputeSchurForm_DGMRES()