840     PetscScalar       *work, *S_data, *schur_factor, infty = PETSC_MAX_REAL;  in PCBDDCSubSchursSetUp()  local
1133         PetscScalar       *S_data, *AIIm1_data;  in PCBDDCSubSchursSetUp()  local
1139         PetscCall(MatDenseGetArray(S_all, &S_data));  in PCBDDCSubSchursSetUp()
1192 …ASsyrk", BLASsyrk_("L", "N", &B_n, &B_k, &sum, cs_AIB + i * size_schur, &B_n, &one, S_data, &B_n));  in PCBDDCSubSchursSetUp()
1196 …_n, &B_k, &sum, cs_AIB + k * size_schur, &B_n, cs_AIB + i * size_schur, &B_n, &one, S_data, &B_n));  in PCBDDCSubSchursSetUp()
1201 …"L", "N", &B_n, &B_k, &sum, array + n_I, &B_n, cs_AIB + i * size_schur, &B_n, &one, S_data, &B_n));  in PCBDDCSubSchursSetUp()
1219 …for (j = k; j < size_schur; j++) S_data[j * size_schur + k] = PetscConj(S_data[k * size_schur + j]…  in PCBDDCSubSchursSetUp()
1231         PetscCall(MatDenseRestoreArray(S_all, &S_data));  in PCBDDCSubSchursSetUp()
1715             PetscCall(MatDenseGetArray(S_all_inv, &S_data));  in PCBDDCSubSchursSetUp()
1719               PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("L", &B_N, S_data, &B_N, &B_ierr));  in PCBDDCSubSchursSetUp()
1721               PetscCallBLAS("LAPACKpotri", LAPACKpotri_("L", &B_N, S_data, &B_N, &B_ierr));  in PCBDDCSubSchursSetUp()
1724 …PetscCallBLAS("LAPACKsytrf", LAPACKsytrf_("L", &B_N, S_data, &B_N, pivots, Bwork, &B_lwork, &B_ier…  in PCBDDCSubSchursSetUp()
1726 …       PetscCallBLAS("LAPACKsytri", LAPACKsytri_("L", &B_N, S_data, &B_N, pivots, Bwork, &B_ierr));  in PCBDDCSubSchursSetUp()
1729               PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&B_N, &B_N, S_data, &B_N, pivots, &B_ierr));  in PCBDDCSubSchursSetUp()
1731 …  PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&B_N, S_data, &B_N, pivots, Bwork, &B_lwork, &B_ierr));  in PCBDDCSubSchursSetUp()
1736             PetscCall(MatDenseRestoreArray(S_all_inv, &S_data));  in PCBDDCSubSchursSetUp()