Searched refs:Blas_K (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 6540 PetscBLASInt Blas_N, Blas_M, Blas_K, Blas_one = 1; in PCBDDCConstraintsSetUp() local
6854 PetscCall(PetscBLASIntCast(temp_constraints, &Blas_K)); in PCBDDCConstraintsSetUp()
6862 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, ptr_to_data, &Blas_… in PCBDDCConstraintsSetUp()
7160 PetscCall(PetscBLASIntCast(max_constraints, &Blas_K)); in PCBDDCConstraintsSetUp()
7162 if (Blas_K > Blas_M) Blas_K = Blas_M; /* adjust just for computing optimal work */ in PCBDDCConstraintsSetUp()
7163 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, … in PCBDDCConstraintsSetUp()
7221 PetscCall(PetscBLASIntCast(primal_dofs, &Blas_K)); in PCBDDCConstraintsSetUp()
7224 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, … in PCBDDCConstraintsSetUp()
7233 PetscCall(PetscBLASIntCast(primal_dofs, &Blas_K)); in PCBDDCConstraintsSetUp()
7238 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, qr_basis, &Blas_LDA… in PCBDDCConstraintsSetUp()
[all …]
|