208   PetscInt     *n_shared = pcis->n_shared;  in PCNNCreateCoarseMatrix()  local
226     for (i = 0; i < n_neigh; i++) size_of_Z += n_shared[i];  in PCNNCreateCoarseMatrix()
231     DZ_IN[i]  = DZ_IN[i - 1] + n_shared[i - 1];  in PCNNCreateCoarseMatrix()
232     DZ_OUT[i] = DZ_OUT[i - 1] + n_shared[i - 1];  in PCNNCreateCoarseMatrix()
239     for (j = 0; j < n_shared[i]; j++) DZ_OUT[i][j] = pcis->work_N[shared[i][j]];  in PCNNCreateCoarseMatrix()
253 …PetscCallMPI(MPIU_Isend(DZ_OUT[i], n_shared[i], MPIU_SCALAR, nn, tag, PetscObjectComm((PetscObject…  in PCNNCreateCoarseMatrix()
254 …PetscCallMPI(MPIU_Irecv(DZ_IN[i], n_shared[i], MPIU_SCALAR, nn, tag, PetscObjectComm((PetscObject)…  in PCNNCreateCoarseMatrix()
259   for (j = 0; j < n_shared[0]; j++) DZ_IN[0][j] = pcis->work_N[shared[0][j]];  in PCNNCreateCoarseMatrix()
265 …PetscCall(PCNNApplySchurToChunk(pc, n_shared[0], shared[0], DZ_IN[0], pcis->work_N, pcis->vec1_B, …  in PCNNCreateCoarseMatrix()
276 …for (k = 0; k < n_shared[ind]; k++) mat[ind * n_neigh + 0] += DZ_IN[ind][k] * pcis->work_N[shared[…  in PCNNCreateCoarseMatrix()
281 …PetscCall(PCNNApplySchurToChunk(pc, n_shared[j], shared[j], DZ_IN[j], pcis->work_N, pcis->vec1_B, …  in PCNNCreateCoarseMatrix()
284 …for (k = 0; k < n_shared[i]; k++) mat[i * n_neigh + j] += DZ_IN[i][k] * pcis->work_N[shared[i][k]];  in PCNNCreateCoarseMatrix()
531 …for (k = 0, value = 0.0; k < pcis->n_shared[0]; k++) value += pcnn->DZ_IN[0][k] * work_N[pcis->sha…  in PCNNBalancing()
547   for (k = 0; k < pcis->n_shared[0]; k++) work_N[pcis->shared[0][k]] = *lambda * pcnn->DZ_IN[0][k];  in PCNNBalancing()