Home
last modified time | relevance | path

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

/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmres.c311 for (i = 0; i <= j; i++) *H(i, j) = *RLOC(i, j + 1) / Scale[j] + (Rshift[j] * *RLOC(i, j)); in KSPAGMRESBuildHessenberg()
312 *H(j + 1, j) = *RLOC(j + 1, j + 1) / Scale[j]; in KSPAGMRESBuildHessenberg()
315 for (i = 0; i <= j; i++) *H(i, j) = *RLOC(i, j + 1) / Scale[j] + Rshift[j] * *RLOC(i, j); in KSPAGMRESBuildHessenberg()
316 *H(j + 1, j) = *RLOC(j + 1, j + 1) / Scale[j]; in KSPAGMRESBuildHessenberg()
318 … i <= j; i++) *H(i, j) = (*RLOC(i, j + 1) + Rshift[j - 1] * *RLOC(i, j) - Scale[j - 1] * Ishift[j … in KSPAGMRESBuildHessenberg()
319 *H(j, j) = (*RLOC(j, j + 1) + Rshift[j - 1] * *RLOC(j, j)); in KSPAGMRESBuildHessenberg()
320 *H(j + 1, j) = *RLOC(j + 1, j + 1); in KSPAGMRESBuildHessenberg()
325 for (i = 0; i <= j + 1; i++) *H(i, j) = *RLOC(i, j + 1) / Scale[j]; in KSPAGMRESBuildHessenberg()
H A Dagmresorthog.c203 PetscCallBLAS("BLAScopy", BLAScopy_(&len, &wbufptr[d], &pas, RLOC(d, d), &N)); in KSPAGMRESRoddec()
204 for (k = d + 1; k < nvec; k++) *RLOC(k, d) = 0.0; in KSPAGMRESRoddec()
213 sgn[d] = PetscSign(*RLOC(d, d)); in KSPAGMRESRoddec()
214 PetscCallBLAS("BLASscal", BLASscal_(&bpos, &sgn[d], RLOC(d, d), &N)); in KSPAGMRESRoddec()
H A Dagmresimpl.h50 #define RLOC(a, b) (agmres->Rloc + (b) * (MAXKSPSIZE + 1) + (a)) macro