Searched refs:M00 (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ksp/ksp/utils/lmvm/bfgs/ |
| H A D | bfgs.c | 122 LMProducts M00, StB0S, YtS, D; in BFGSCompactDenseProductsUpdate() local
131 M00 = lsb->products[M00_t]; in BFGSCompactDenseProductsUpdate()
132 PetscCall(LMProductsPrepare(M00, lmvm->J0, oldest, next)); in BFGSCompactDenseProductsUpdate()
133 PetscCall(LMProductsGetLocalMatrix(M00, &M00_local, &k, &local_is_nonempty)); in BFGSCompactDenseProductsUpdate()
169 PetscCall(LMProductsRestoreLocalMatrix(M00, &M00_local, &next)); in BFGSCompactDenseProductsUpdate()
190 LMProducts M00, YtS, D; in BFGSKernel_CompactDense() local
197 M00 = bfgs->products[M00_t]; in BFGSKernel_CompactDense()
211 PetscCall(LMProductsSolve(M00, oldest, next, StB0X, u, PETSC_FALSE)); in BFGSKernel_CompactDense()
|
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 34 LMProducts M00 = lsb->products[LMVMModeMap(SYMBROYDEN_PRODUCTS_M00, mode)]; in SymBroydenKernel_Recursive_Inner() local
48 PetscCall(LMProductsMult(M00, oldest, next, 1.0, StBkX, 0.0, U, PETSC_FALSE)); in SymBroydenKernel_Recursive_Inner()
252 …Arrays(PetscBLASInt m, PetscBLASInt oldest, PetscBLASInt next, PetscScalar M00[], PetscBLASInt lda… 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()
[all …]
|