6582     PetscReal   *singular_vals;  in PCBDDCConstraintsSetUp()  local
6684         PetscCall(PetscMalloc1(max_constraints, &singular_vals));  in PCBDDCConstraintsSetUp()
6695 …PACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_vals, &temp_work, &…  in PCBDDCConstraintsSetUp()
6697 …PACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_vals, &temp_work, &…  in PCBDDCConstraintsSetUp()
6711         PetscCall(PetscMalloc1(min_n, &singular_vals));  in PCBDDCConstraintsSetUp()
6722 …CKgesvd_("O", "N", &Blas_M, &Blas_N, &constraints_data[0], &Blas_LDA, singular_vals, &dummy_scalar…  in PCBDDCConstraintsSetUp()
6724 …CKgesvd_("O", "N", &Blas_M, &Blas_N, &constraints_data[0], &Blas_LDA, singular_vals, &dummy_scalar…  in PCBDDCConstraintsSetUp()
6840 …PACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_vals, work, &lwork,…  in PCBDDCConstraintsSetUp()
6842 …PACKsyev", LAPACKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_vals, work, &lwork,…  in PCBDDCConstraintsSetUp()
6848 …  while (j < temp_constraints && singular_vals[j] / singular_vals[temp_constraints - 1] < tol) j++;  in PCBDDCConstraintsSetUp()
6860 …   for (k = j; k < temp_constraints; k++) singular_vals[k] = 1.0 / PetscSqrtReal(singular_vals[k]);  in PCBDDCConstraintsSetUp()
6865 … size_of_constraint; ii++) ptr_to_data[k * size_of_constraint + ii] = singular_vals[temp_constrain…  in PCBDDCConstraintsSetUp()
6875 …vd", LAPACKgesvd_("O", "N", &Blas_M, &Blas_N, ptr_to_data, &Blas_LDA, singular_vals, &dummy_scalar…  in PCBDDCConstraintsSetUp()
6877 …vd", LAPACKgesvd_("O", "N", &Blas_M, &Blas_N, ptr_to_data, &Blas_LDA, singular_vals, &dummy_scalar…  in PCBDDCConstraintsSetUp()
6885             while (j < k && singular_vals[k - j - 1] / singular_vals[0] < tol) j++;  in PCBDDCConstraintsSetUp()
6910       PetscCall(PetscFree(singular_vals));  in PCBDDCConstraintsSetUp()