Searched refs:lgqr_work (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 7056 PetscBLASInt lgqr_work; in PCBDDCConstraintsSetUp() local
7157 lgqr_work = -1; in PCBDDCConstraintsSetUp()
7163 …Korgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, &lgqr_work_t, &lgqr_work, &lierr)); in PCBDDCConstraintsSetUp()
7165 PetscCall(PetscBLASIntCast((PetscInt)PetscRealPart(lgqr_work_t), &lgqr_work)); in PCBDDCConstraintsSetUp()
7166 PetscCall(PetscMalloc1(lgqr_work, &gqr_work)); in PCBDDCConstraintsSetUp()
7224 …APACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, gqr_work, &lgqr_work, &lierr)); in PCBDDCConstraintsSetUp()
|