6789         PetscScalar *ptr_to_data;  in PCBDDCConstraintsSetUp()  local
6792 …ptr_to_data = &constraints_data[constraints_data_ptr[total_counts_cc] + temp_constraints * size_of…  in PCBDDCConstraintsSetUp()
6793         for (j = 0; j < size_of_constraint; j++) ptr_to_data[j] = array[is_indices[j]];  in PCBDDCConstraintsSetUp()
6797         PetscCallBLAS("BLASasum", real_value = BLASasum_(&Blas_N, ptr_to_data, &Blas_one));  in PCBDDCConstraintsSetUp()
6811           PetscScalar norm, *ptr_to_data;  in PCBDDCConstraintsSetUp()  local
6813           ptr_to_data = &constraints_data[constraints_data_ptr[total_counts_cc]];  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()
6819           PetscScalar *ptr_to_data = &constraints_data[constraints_data_ptr[total_counts_cc]];  in PCBDDCConstraintsSetUp()  local
6834 …j * temp_constraints + k] = BLASdot_(&Blas_N, ptr_to_data + k * size_of_constraint, &Blas_one, ptr…  in PCBDDCConstraintsSetUp()
6862 …lBLAS("BLASgemm", BLASgemm_("N", "N", &Blas_M, &Blas_N, &Blas_K, &one, ptr_to_data, &Blas_LDA, cor…  in PCBDDCConstraintsSetUp()
6865 …for (ii = 0; ii < size_of_constraint; ii++) ptr_to_data[k * size_of_constraint + ii] = singular_va…  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()