Searched refs:ldMZ (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/impls/bcgsl/ |
| H A D | bcgsl.c | 22 PetscBLASInt ldMZ, bierr; in KSPSolve_BCGSL() local
42 PetscCall(PetscBLASIntCast(ell + 1, &ldMZ)); in KSPSolve_BCGSL()
155 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 …S("LAPACKpotrs", LAPACKpotrs_("Lower", &bell, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], &ldMZ, &bier… in KSPSolve_BCGSL()
209 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("Lower", &neqs, &MZa[1 + ldMZ], &ldMZ, &bierr)); in KSPSolve_BCGSL()
[all …]
|