Searched refs:M01 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 35 LMProducts M01 = lsb->products[LMVMModeMap(SYMBROYDEN_PRODUCTS_M01, mode)]; in SymBroydenKernel_Recursive_Inner() local
49 PetscCall(LMProductsMult(M01, oldest, next, 1.0, YtX, 1.0, U, PETSC_FALSE)); in SymBroydenKernel_Recursive_Inner()
50 PetscCall(LMProductsMult(M01, oldest, next, 1.0, StBkX, 0.0, V, PETSC_FALSE)); in SymBroydenKernel_Recursive_Inner()
252 …est, PetscBLASInt next, PetscScalar M00[], PetscBLASInt lda00, PetscScalar M01[], PetscBLASInt lda… 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()
[all …]
|