Searched refs:lda_blas (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/utils/lmvm/dense/ |
| H A D | cd_utils.c | 100 PetscBLASInt n, lda_blas, one = 1; in MatUpperTriangularSolveInPlace_Internal() local
102 PetscCall(PetscBLASIntCast(lda, &lda_blas)); in MatUpperTriangularSolveInPlace_Internal()
103 …, BLAStrsv_("U", hermitian_transpose ? "C" : "N", "NotUnitTriangular", &n, A, &lda_blas, x, &one)); in MatUpperTriangularSolveInPlace_Internal()
113 PetscBLASInt n_old, n_new, lda_blas, one = 1; in MatUpperTriangularSolveInPlace_Internal() local
118 PetscCall(PetscBLASIntCast(lda, &lda_blas)); in MatUpperTriangularSolveInPlace_Internal()
120 …PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "N", "NotUnitTriangular", &n_new, A, &lda_blas, x, &one)); in MatUpperTriangularSolveInPlace_Internal()
121 …LASgemv", BLASgemv_("N", &n_old, &n_new, &minus_one, &A[oldest_index], &lda_blas, x, &one, &sone, … in MatUpperTriangularSolveInPlace_Internal()
122 …_("U", "N", "NotUnitTriangular", &n_old, &A[oldest_index * (lda + 1)], &lda_blas, &x[oldest_index]… in MatUpperTriangularSolveInPlace_Internal()
125 …_("U", "C", "NotUnitTriangular", &n_old, &A[oldest_index * (lda + 1)], &lda_blas, &x[oldest_index]… in MatUpperTriangularSolveInPlace_Internal()
126 …LASgemv", BLASgemv_("C", &n_old, &n_new, &minus_one, &A[oldest_index], &lda_blas, &x[oldest_index]… in MatUpperTriangularSolveInPlace_Internal()
[all …]
|