Searched refs:lda01 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 252 …t, PetscScalar M00[], PetscBLASInt lda00, PetscScalar M01[], PetscBLASInt lda01, PetscScalar M11[]… in SymBroydenCompactDenseUpdateArrays() argument
269 PetscCall(PetscArrayzero(M01, m * lda01)); in SymBroydenCompactDenseUpdateArrays()
287 M01[i + i * lda01] = beta; in SymBroydenCompactDenseUpdateArrays()
300 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M01, &lda01, q1, &ione, &sone, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
301 …PetscCallBLAS("BLASgemv", BLASgemv_("C", &m, &m, &sone, M01, &lda01, q0, &ione, &szero, p1, &ione)… in SymBroydenCompactDenseUpdateArrays()
326 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p0, &ione, p1, &ione, M01, &lda01)); in SymBroydenCompactDenseUpdateArrays()
327 for (PetscBLASInt j = 0; j < m; j++) M01[j + i * lda01] = beta * p0[j]; in SymBroydenCompactDenseUpdateArrays()
328 for (PetscBLASInt j = 0; j < m; j++) M01[i + j * lda01] = PetscConj(alpha * p1[j]); in SymBroydenCompactDenseUpdateArrays()
329 M01[i + i * lda01] = beta; in SymBroydenCompactDenseUpdateArrays()
|