12   DM_Redundant          *red = (DM_Redundant *)dm->data;  in DMCreateMatrix_Redundant()  local
19   PetscCall(MatSetSizes(*J, red->n, red->n, red->N, red->N));  in DMCreateMatrix_Redundant()
21   PetscCall(MatSeqAIJSetPreallocation(*J, red->n, NULL));  in DMCreateMatrix_Redundant()
22   PetscCall(MatSeqBAIJSetPreallocation(*J, 1, red->n, NULL));  in DMCreateMatrix_Redundant()
23   PetscCall(MatMPIAIJSetPreallocation(*J, red->n, NULL, red->N - red->n, NULL));  in DMCreateMatrix_Redundant()
24   PetscCall(MatMPIBAIJSetPreallocation(*J, 1, red->n, NULL, red->N - red->n, NULL));  in DMCreateMatrix_Redundant()
30   PetscCall(PetscMalloc2(red->N, &cols, red->N, &vals));  in DMCreateMatrix_Redundant()
31   for (i = 0; i < red->N; i++) {  in DMCreateMatrix_Redundant()
36 …for (i = rstart; i < rend; i++) PetscCall(MatSetValues(*J, 1, &i, red->N, cols, vals, INSERT_VALUE…  in DMCreateMatrix_Redundant()
56   DM_Redundant          *red = (DM_Redundant *)dm->data;  in DMCreateGlobalVector_Redundant()  local
64   PetscCall(VecSetSizes(*gvec, red->n, red->N));  in DMCreateGlobalVector_Redundant()
74   DM_Redundant *red = (DM_Redundant *)dm->data;  in DMCreateLocalVector_Redundant()  local
81   PetscCall(VecSetSizes(*lvec, red->N, red->N));  in DMCreateLocalVector_Redundant()
89   DM_Redundant      *red = (DM_Redundant *)dm->data;  in DMLocalToGlobalBegin_Redundant()  local
104     if (rank == red->rank) {  in DMLocalToGlobalBegin_Redundant()
108         for (i = 0; i < red->N; i++) buffer[i] = gv[i] + lv[i];  in DMLocalToGlobalBegin_Redundant()
111         for (i = 0; i < red->N; i++) buffer[i] = PetscMax(gv[i], lv[i]);  in DMLocalToGlobalBegin_Redundant()
114     PetscCall(PetscMPIIntCast(red->N, &iN));  in DMLocalToGlobalBegin_Redundant()
115 …(source, gv, iN, MPIU_SCALAR, (imode == ADD_VALUES) ? MPIU_SUM : MPIU_MAX, red->rank, PetscObjectC…  in DMLocalToGlobalBegin_Redundant()
118     PetscCall(PetscArraycpy(gv, lv, red->n));  in DMLocalToGlobalBegin_Redundant()
136   DM_Redundant      *red = (DM_Redundant *)dm->data;  in DMGlobalToLocalBegin_Redundant()  local
146     if (red->n) PetscCall(PetscArraycpy(lv, gv, red->n));  in DMGlobalToLocalBegin_Redundant()
147     PetscCall(PetscMPIIntCast(red->N, &iN));  in DMGlobalToLocalBegin_Redundant()
148     PetscCallMPI(MPI_Bcast(lv, iN, MPIU_SCALAR, red->rank, PetscObjectComm((PetscObject)dm)));  in DMGlobalToLocalBegin_Redundant()
166   DM_Redundant *red = (DM_Redundant *)dm->data;  in DMView_Redundant()  local
171 …all(PetscViewerASCIIPrintf(viewer, "redundant: rank=%d N=%" PetscInt_FMT "\n", red->rank, red->N));  in DMView_Redundant()
177   DM_Redundant    *red = (DM_Redundant *)dm->data;  in DMCreateColoring_Redundant()  local
184     nloc = red->n;  in DMCreateColoring_Redundant()
187     nloc = red->N;  in DMCreateColoring_Redundant()
194 …PetscCall(ISColoringCreate(PetscObjectComm((PetscObject)dm), red->N, nloc, colors, PETSC_OWN_POINT…  in DMCreateColoring_Redundant()
302   DM_Redundant *red = (DM_Redundant *)dm->data;  in DMRedundantSetSize_Redundant()  local
308   red->rank = rank;  in DMRedundantSetSize_Redundant()
309   red->N    = N;  in DMRedundantSetSize_Redundant()
310   red->n    = (myrank == rank) ? N : 0;  in DMRedundantSetSize_Redundant()
313   PetscCall(PetscMalloc1(red->N, &globals));  in DMRedundantSetSize_Redundant()
314   for (i = 0; i < red->N; i++) globals[i] = i;  in DMRedundantSetSize_Redundant()
316 …PetscCall(ISLocalToGlobalMappingCreate(PetscObjectComm((PetscObject)dm), 1, red->N, globals, PETSC…  in DMRedundantSetSize_Redundant()
322   DM_Redundant *red = (DM_Redundant *)dm->data;  in DMRedundantGetSize_Redundant()  local
325   if (rank) *rank = red->rank;  in DMRedundantGetSize_Redundant()
326   if (N) *N = red->N;  in DMRedundantGetSize_Redundant()
351   DM_Redundant *red;  in DMCreate_Redundant()  local
354   PetscCall(PetscNew(&red));  in DMCreate_Redundant()
355   dm->data = red;  in DMCreate_Redundant()