4729     Mat       A_RRmA_RV  = NULL;  in PCBDDCSetUpCorrection()  local
4753       PetscCall(MatCreateSeqDense(PETSC_COMM_SELF, lda_rhs, n_eff_vertices, NULL, &A_RRmA_RV));  in PCBDDCSetUpCorrection()
4864         PetscCall(MatMatSolve(F, Brhs, A_RRmA_RV));  in PCBDDCSetUpCorrection()
4871           PetscCall(MatDenseGetArray(A_RRmA_RV, &marr));  in PCBDDCSetUpCorrection()
4885           PetscCall(MatDenseRestoreArray(A_RRmA_RV, &marr));  in PCBDDCSetUpCorrection()
4892         PetscCall(MatDenseGetArray(A_RRmA_RV, &marr));  in PCBDDCSetUpCorrection()
4902         PetscCall(MatDenseRestoreArray(A_RRmA_RV, &marr));  in PCBDDCSetUpCorrection()
4911 …  PetscCall(MatDenseScatter_Private(pcbddc->R_to_B, A_RRmA_RV, B, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCSetUpCorrection()
4942           PetscCall(MatCreateSeqAIJFromDenseExpand(A_RRmA_RV, n_vertices, R_eff_V_J, &T));  in PCBDDCSetUpCorrection()
4943           PetscCall(MatDestroy(&A_RRmA_RV));  in PCBDDCSetUpCorrection()
4944           A_RRmA_RV = T;  in PCBDDCSetUpCorrection()
4946         PetscCall(MatAXPY(A_RRmA_RV, 1.0, B, UNKNOWN_NONZERO_PATTERN)); /* XXX ? */  in PCBDDCSetUpCorrection()
4951         PetscCall(MatCreateSeqAIJFromDenseExpand(A_RRmA_RV, n_vertices, R_eff_V_J, &T));  in PCBDDCSetUpCorrection()
4952         PetscCall(MatDestroy(&A_RRmA_RV));  in PCBDDCSetUpCorrection()
4953         A_RRmA_RV = T;  in PCBDDCSetUpCorrection()
4959         PetscCall(MatCreateSubMatrix(A_RRmA_RV, is_R, NULL, MAT_INITIAL_MATRIX, &T));  in PCBDDCSetUpCorrection()
4960         PetscCall(MatDestroy(&A_RRmA_RV));  in PCBDDCSetUpCorrection()
4961         A_RRmA_RV = T;  in PCBDDCSetUpCorrection()
4970         PetscCall(MatDenseGetArrayRead(A_RRmA_RV, &marr));  in PCBDDCSetUpCorrection()
4993         PetscCall(MatDenseRestoreArrayRead(A_RRmA_RV, &marr));  in PCBDDCSetUpCorrection()
4996       PetscCall(MatMatMult(A_VR, A_RRmA_RV, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &S_VV));  in PCBDDCSetUpCorrection()
5007       PetscCall(MatNestSetSubMat(coarse_phi_multi, 0, 0, A_RRmA_RV));  in PCBDDCSetUpCorrection()
5011       if (A_RRmA_RV) {  in PCBDDCSetUpCorrection()
5015 …  PetscCall(MatDenseScatter_Private(pcbddc->R_to_B, A_RRmA_RV, B, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCSetUpCorrection()
5019 …  PetscCall(MatDenseScatter_Private(pcbddc->R_to_D, A_RRmA_RV, B, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCSetUpCorrection()
5032     PetscCall(MatDestroy(&A_RRmA_RV));  in PCBDDCSetUpCorrection()