Home
last modified time | relevance | path

Searched refs:AYlc (Results 1 – 2 of 2) sorted by relevance

/petsc/src/ksp/ksp/impls/bcgsl/
H A Dbcgsl.c219 PetscCall(PetscArraycpy(&AYlc[1], &MZb[1 + ldMZ * (bcgsl->ell)], bcgsl->ell - 1)); in KSPSolve_BCGSL()
220 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AYlc[1], … in KSPSolve_BCGSL()
222 AYlc[0] = 0.; in KSPSolve_BCGSL()
223 AYlc[bcgsl->ell] = -1; in KSPSolve_BCGSL()
233 kappaA = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
235 …PetscCallBLAS("BLASgemv", BLASgemv_("noTr", &ldMZ, &ldMZ, &aone, MZb, &ldMZ, AYlc, &ione, &azero, … in KSPSolve_BCGSL()
237 kappa1 = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
248 for (i = 0; i <= bcgsl->ell; i++) AY0c[i] = AY0c[i] - ghat * AYlc[i]; in KSPSolve_BCGSL()
326 PetscCall(PetscFree5(AY0c, AYlc, AYtc, MZa, MZb)); in KSPBCGSLSetXRes()
391 PetscCall(PetscFree5(AY0c, AYlc, AYtc, MZa, MZb)); in KSPBCGSLSetPol()
[all …]
H A Dbcgslimpl.h41 #define AYlc (bcgsl->vYlc) macro