Searched refs:mcolors (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/vec/is/is/utils/ |
| H A D | iscoloring.c | 238 PetscInt *mcolors, **ii, nc = iscoloring->n, i, base, n = iscoloring->N; in ISColoringGetIS() local
247 PetscCall(PetscCalloc1(nc, &mcolors)); in ISColoringGetIS()
248 for (i = 0; i < n; i++) mcolors[colors[i]]++; in ISColoringGetIS()
252 for (i = 1; i < nc; i++) ii[i] = ii[i - 1] + mcolors[i - 1]; in ISColoringGetIS()
253 PetscCall(PetscArrayzero(mcolors, nc)); in ISColoringGetIS()
258 for (i = 0; i < n; i++) ii[colors[i]][mcolors[colors[i]]++] = i + base; /* global idx */ in ISColoringGetIS()
260 for (i = 0; i < n; i++) ii[colors[i]][mcolors[colors[i]]++] = i; /* local idx */ in ISColoringGetIS()
264 …for (i = 0; i < nc; i++) PetscCall(ISCreateGeneral(iscoloring->comm, mcolors[i], ii[i], PETSC_COPY… in ISColoringGetIS()
270 PetscCall(PetscFree(mcolors)); in ISColoringGetIS()
|