6540   PetscBLASInt Blas_N, Blas_M, Blas_K, Blas_one = 1;  in PCBDDCConstraintsSetUp()  local
6717         PetscCall(PetscBLASIntCast(max_n, &Blas_M));  in PCBDDCConstraintsSetUp()
6722 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("O", "N", &Blas_M, &Blas_N, &constraints_data[0], &Blas_…  in PCBDDCConstraintsSetUp()
6724 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("O", "N", &Blas_M, &Blas_N, &constraints_data[0], &Blas_…  in PCBDDCConstraintsSetUp()
6852             PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_M));  in PCBDDCConstraintsSetUp()
6862 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, ptr_to_data, &Blas_…  in PCBDDCConstraintsSetUp()
6870             PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_M));  in PCBDDCConstraintsSetUp()
6875 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("O", "N", &Blas_M, &Blas_N, ptr_to_data, &Blas_LDA, sing…  in PCBDDCConstraintsSetUp()
6877 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("O", "N", &Blas_M, &Blas_N, ptr_to_data, &Blas_LDA, sing…  in PCBDDCConstraintsSetUp()
7149       PetscCall(PetscBLASIntCast(max_size_of_constraint, &Blas_M));  in PCBDDCConstraintsSetUp()
7153 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&Blas_M, &Blas_N, qr_basis, &Blas_LDA, qr_tau, &lqr_work…  in PCBDDCConstraintsSetUp()
7158       PetscCall(PetscBLASIntCast(max_size_of_constraint, &Blas_M));  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()
7198           PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_M));  in PCBDDCConstraintsSetUp()
7202 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&Blas_M, &Blas_N, qr_basis, &Blas_LDA, qr_tau, qr_work, …  in PCBDDCConstraintsSetUp()
7219           PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_M));  in PCBDDCConstraintsSetUp()
7224 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, …  in PCBDDCConstraintsSetUp()
7231           PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_M));  in PCBDDCConstraintsSetUp()
7238 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, qr_basis, &Blas_LDA…  in PCBDDCConstraintsSetUp()
7264             PetscCall(PetscBLASIntCast(primal_dofs, &Blas_M));  in PCBDDCConstraintsSetUp()
7271 …PetscCallBLAS("BLASgemm", BLASgemm_("T", "N", &Blas_M, &Blas_N, &Blas_K, &one, dbg_work, &Blas_LDA…  in PCBDDCConstraintsSetUp()