6540   PetscBLASInt Blas_N, Blas_M, Blas_K, Blas_one = 1;  in PCBDDCConstraintsSetUp()  local
6690         PetscCall(PetscBLASIntCast(max_constraints, &Blas_N));  in PCBDDCConstraintsSetUp()
6695 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_va…  in PCBDDCConstraintsSetUp()
6697 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_va…  in PCBDDCConstraintsSetUp()
6718         PetscCall(PetscBLASIntCast(min_n, &Blas_N));  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()
6796         PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
6797         PetscCallBLAS("BLASasum", real_value = BLASasum_(&Blas_N, ptr_to_data, &Blas_one));  in PCBDDCConstraintsSetUp()
6814           PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
6815 …PetscCallBLAS("BLASdot", norm = BLASdot_(&Blas_N, ptr_to_data, &Blas_one, ptr_to_data, &Blas_one));  in PCBDDCConstraintsSetUp()
6817           PetscCallBLAS("BLASscal", BLASscal_(&Blas_N, &norm, ptr_to_data, &Blas_one));  in PCBDDCConstraintsSetUp()
6831             PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
6834 …allBLAS("BLASdot", correlation_mat[j * temp_constraints + k] = BLASdot_(&Blas_N, ptr_to_data + k *…  in PCBDDCConstraintsSetUp()
6837             PetscCall(PetscBLASIntCast(temp_constraints, &Blas_N));  in PCBDDCConstraintsSetUp()
6840 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_va…  in PCBDDCConstraintsSetUp()
6842 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_va…  in PCBDDCConstraintsSetUp()
6853             PetscCall(PetscBLASIntCast(temp_constraints, &Blas_N));  in PCBDDCConstraintsSetUp()
6862 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, ptr_to_data, &Blas_…  in PCBDDCConstraintsSetUp()
6871             PetscCall(PetscBLASIntCast(temp_constraints, &Blas_N));  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()
7150       PetscCall(PetscBLASIntCast(max_constraints, &Blas_N));  in PCBDDCConstraintsSetUp()
7153 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&Blas_M, &Blas_N, qr_basis, &Blas_LDA, qr_tau, &lqr_work…  in PCBDDCConstraintsSetUp()
7159       PetscCall(PetscBLASIntCast(max_size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
7163 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, …  in PCBDDCConstraintsSetUp()
7199           PetscCall(PetscBLASIntCast(primal_dofs, &Blas_N));  in PCBDDCConstraintsSetUp()
7202 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&Blas_M, &Blas_N, qr_basis, &Blas_LDA, qr_tau, qr_work, …  in PCBDDCConstraintsSetUp()
7209           PetscCall(PetscBLASIntCast(primal_dofs, &Blas_N));  in PCBDDCConstraintsSetUp()
7214 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &Blas_N, &Blas_NRHS, qr_basis, &Blas_LDA,…  in PCBDDCConstraintsSetUp()
7220           PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
7224 …PetscCallBLAS("LAPACKorgqr", LAPACKorgqr_(&Blas_M, &Blas_N, &Blas_K, qr_basis, &Blas_LDA, qr_tau, …  in PCBDDCConstraintsSetUp()
7232           PetscCall(PetscBLASIntCast(primal_dofs, &Blas_N));  in PCBDDCConstraintsSetUp()
7238 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, qr_basis, &Blas_LDA…  in PCBDDCConstraintsSetUp()
7265             PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
7271 …PetscCallBLAS("BLASgemm", BLASgemm_("T", "N", &Blas_M, &Blas_N, &Blas_K, &one, dbg_work, &Blas_LDA…  in PCBDDCConstraintsSetUp()
7299           PetscCall(PetscBLASIntCast(size_of_constraint, &Blas_N));  in PCBDDCConstraintsSetUp()
7300 …PetscCallBLAS("BLASdot", norm = BLASdot_(&Blas_N, constraints_data + constraints_data_ptr[total_co…  in PCBDDCConstraintsSetUp()