Searched refs:b_one (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/ |
| H A D | blas_cyclic.c | 250 PetscBLASInt b_one = 1, blda, bm; in TRSVCyclic_Private() local
264 …BLAStrsv", BLAStrsv_("U", trans, "N", &bn, &A[i_oldest * (lda + 1)], &blda, &y[i_oldest], &b_one)); in TRSVCyclic_Private()
272 … if (i_next > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "N", "N", &i_next, A, &blda, y, &b_one)); in TRSVCyclic_Private()
273 …Sgemv_("N", &bn, &i_next, &minus_one, &A[i_oldest], &blda, y, &b_one, &one, &y[i_oldest], &b_one)); in TRSVCyclic_Private()
274 …("BLAStrsv", BLAStrsv_("U", "N", "N", &bn, &A[i_oldest * (lda + 1)], &blda, &y[i_oldest], &b_one)); in TRSVCyclic_Private()
276 …("BLAStrsv", BLAStrsv_("U", "C", "N", &bn, &A[i_oldest * (lda + 1)], &blda, &y[i_oldest], &b_one)); in TRSVCyclic_Private()
277 …Sgemv_("C", &bn, &i_next, &minus_one, &A[i_oldest], &blda, &y[i_oldest], &b_one, &one, y, &b_one)); in TRSVCyclic_Private()
278 … if (i_next > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "C", "N", &i_next, A, &blda, y, &b_one)); in TRSVCyclic_Private()
345 PetscBLASInt b_one = 1, blda, bm; in HEMVCyclic_Private() local
357 … &bn, &alpha, &A[i_oldest * (lda + 1)], &blda, &x[i_oldest], &b_one, &beta, &y[i_oldest], &b_one)); in HEMVCyclic_Private()
[all …]
|