Searched refs:lda00 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 252 …, PetscBLASInt oldest, PetscBLASInt next, PetscScalar M00[], PetscBLASInt lda00, PetscScalar M01[]… in SymBroydenCompactDenseUpdateArrays() argument
268 PetscCall(PetscArrayzero(M00, m * lda00)); in SymBroydenCompactDenseUpdateArrays()
286 M00[i + i * lda00] = alpha; in SymBroydenCompactDenseUpdateArrays()
299 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M00, &lda00, q0, &ione, &szero, p0, &ione)… in SymBroydenCompactDenseUpdateArrays()
321 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p0, &ione, p0, &ione, M00, &lda00)); in SymBroydenCompactDenseUpdateArrays()
322 for (PetscInt j = 0; j < m; j++) M00[j + i * lda00] = alpha * p0[j]; in SymBroydenCompactDenseUpdateArrays()
323 for (PetscInt j = 0; j < m; j++) M00[i + j * lda00] = PetscConj(alpha * p0[j]); in SymBroydenCompactDenseUpdateArrays()
324 M00[i + i * lda00] = alpha; in SymBroydenCompactDenseUpdateArrays()
|