Home
last modified time | relevance | path

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

/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmresorthog.c116 PetscScalar *Qloc = agmres->Qloc; in KSPAGMRESRoddec() local
145 PetscCallBLAS("BLAScopy", BLAScopy_(&bnloc, col, &pas, &Qloc[j * nloc], &pas)); in KSPAGMRESRoddec()
151 Ajj = Qloc[j * nloc + j]; in KSPAGMRESRoddec()
152 PetscCallBLAS("BLASnrm2", rho = -PetscSign(Ajj) * BLASnrm2_(&len, &Qloc[j * nloc + j], &pas)); in KSPAGMRESRoddec()
158 PetscCallBLAS("BLASscal", BLASscal_(&len, &val, &Qloc[j * nloc + j + 1], &pas)); in KSPAGMRESRoddec()
159 Qloc[j * nloc + j] = 1.0; in KSPAGMRESRoddec()
162 …PetscCallBLAS("BLASdot", tt = tloc[j] * BLASdot_(&len, &Qloc[j * nloc + j], &pas, &Qloc[k * nloc +… in KSPAGMRESRoddec()
163 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&len, &tt, &Qloc[j * nloc + j], &pas, &Qloc[k * nloc + j], &pa… in KSPAGMRESRoddec()
165 Qloc[j * nloc + j] = rho; in KSPAGMRESRoddec()
172 PetscCallBLAS("BLAScopy", BLAScopy_(&len, &Qloc[d * nloc + d], &bnloc, &wbufptr[d], &pas)); in KSPAGMRESRoddec()
[all …]
H A Dagmresimpl.h18 PetscScalar *Qloc; /* Orthogonal reflectors from the QR of the basis */ member
H A Dagmres.c51 PetscCall(PetscMalloc1(nloc * (N + 1), &agmres->Qloc)); in KSPSetUp_AGMRES()
495 PetscCall(PetscFree(agmres->Qloc)); in KSPDestroy_AGMRES()