7052     PetscScalar *qr_basis = NULL, *qr_tau = NULL, *qr_work = NULL, lqr_work_t;  in PCBDDCConstraintsSetUp()  local
7145       PetscCall(PetscMalloc1(max_size_of_constraint * max_size_of_constraint, &qr_basis));  in PCBDDCConstraintsSetUp()
7153 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&Blas_M, &Blas_N, qr_basis, &Blas_LDA, qr_tau, &lqr_work…  in PCBDDCConstraintsSetUp()
7163 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, …  in PCBDDCConstraintsSetUp()
7195 …PetscCall(PetscArraycpy(qr_basis, &constraints_data[constraints_data_ptr[total_counts]], size_of_c…  in PCBDDCConstraintsSetUp()
7202 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&Blas_M, &Blas_N, qr_basis, &Blas_LDA, qr_tau, qr_work, …  in PCBDDCConstraintsSetUp()
7214 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &Blas_N, &Blas_NRHS, qr_basis, &Blas_LDA,…  in PCBDDCConstraintsSetUp()
7224 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, …  in PCBDDCConstraintsSetUp()
7238 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, qr_basis, &Blas_LDA…  in PCBDDCConstraintsSetUp()
7240 …PetscCall(PetscArraycpy(qr_basis, &constraints_data[constraints_data_ptr[total_counts]], size_of_c…  in PCBDDCConstraintsSetUp()
7246             start_vals = &qr_basis[j * size_of_constraint];  in PCBDDCConstraintsSetUp()
7253               start_vals = &qr_basis[(primal_dofs + j) * size_of_constraint];  in PCBDDCConstraintsSetUp()
7271 …ASgemm_("T", "N", &Blas_M, &Blas_N, &Blas_K, &one, dbg_work, &Blas_LDA, qr_basis, &Blas_LDB, &zero…  in PCBDDCConstraintsSetUp()
7334       PetscCall(PetscFree(qr_basis));  in PCBDDCConstraintsSetUp()