Home
last modified time | relevance | path

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

/petsc/src/ksp/ksp/impls/bcgsl/
H A Dbcgsl.c155 for (i = 0; i <= bcgsl->ell; ++i) PetscCall(VecMDot(VVR[i], i + 1, VVR, &MZa[i * ldMZ])); in KSPSolve_BCGSL()
158 …for (j = i + 1; j <= bcgsl->ell; ++j) MZa[i * ldMZ + j] = MZa[j * ldMZ + i] = PetscConj(MZa[j * ld… in KSPSolve_BCGSL()
161 PetscCall(PetscArraycpy(MZb, MZa, ldMZ * ldMZ)); in KSPSolve_BCGSL()
170 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("A", "A", &bell, &bell, &MZa[1 + ldMZ], &ldMZ, bcgsl->s,… in KSPSolve_BCGSL()
172 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("A", "A", &bell, &bell, &MZa[1 + ldMZ], &ldMZ, bcgsl->s,… in KSPSolve_BCGSL()
195 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("Lower", &bell, &MZa[1 + ldMZ], &ldMZ, &bierr)); in KSPSolve_BCGSL()
201 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &bell, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], … in KSPSolve_BCGSL()
209 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("Lower", &neqs, &MZa[1 + ldMZ], &ldMZ, &bierr)); in KSPSolve_BCGSL()
215 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], … in KSPSolve_BCGSL()
220 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AYlc[1], … in KSPSolve_BCGSL()
[all …]
H A Dbcgslimpl.h42 #define MZa (bcgsl->mZa) macro