Searched refs:trs_rhs (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 7058 PetscScalar *trs_rhs = NULL; in PCBDDCConstraintsSetUp() local
7168 PetscCall(PetscMalloc1(max_constraints * max_constraints, &trs_rhs)); in PCBDDCConstraintsSetUp()
7207 PetscCall(PetscArrayzero(trs_rhs, primal_dofs * primal_dofs)); in PCBDDCConstraintsSetUp()
7208 for (j = 0; j < primal_dofs; j++) trs_rhs[j * (primal_dofs + 1)] = 1.0; in PCBDDCConstraintsSetUp()
7214 …", LAPACKtrtrs_("U", "T", "N", &Blas_N, &Blas_NRHS, qr_basis, &Blas_LDA, trs_rhs, &Blas_LDB, &lier… in PCBDDCConstraintsSetUp()
7238 …LASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, qr_basis, &Blas_LDA, trs_rhs, &Blas_LDB, &zero… in PCBDDCConstraintsSetUp()
7330 PetscCall(PetscFree(trs_rhs)); in PCBDDCConstraintsSetUp()
|