#include <petsc/private/matimpl.h> /*I "petscmat.h"  I*/
#include <petsc/private/isimpl.h>

static PetscErrorCode MatColoringApply_Natural(MatColoring mc, ISColoring *iscoloring)
{
  PetscInt         start, end, i, bs = 1, n;
  ISColoringValue *colors;
  MPI_Comm         comm;
  PetscBool        flg1, flg2;
  Mat              mat     = mc->mat;
  Mat              mat_seq = mc->mat;
  PetscMPIInt      size;
  ISColoring       iscoloring_seq;
  ISColoringValue *colors_loc;
  PetscInt         rstart, rend, N_loc, nc;

  PetscFunctionBegin;
  /* this is ugly way to get blocksize but cannot call MatGetBlockSize() because AIJ can have bs > 1 */
  PetscCall(PetscObjectTypeCompare((PetscObject)mat, MATSEQBAIJ, &flg1));
  PetscCall(PetscObjectTypeCompare((PetscObject)mat, MATMPIBAIJ, &flg2));
  if (flg1 || flg2) PetscCall(MatGetBlockSize(mat, &bs));

  PetscCall(PetscObjectGetComm((PetscObject)mat, &comm));
  PetscCallMPI(MPI_Comm_size(comm, &size));
  if (size > 1) {
    /* create a sequential iscoloring on all processors */
    PetscCall(MatGetSeqNonzeroStructure(mat, &mat_seq));
  }

  PetscCall(MatGetSize(mat_seq, &n, NULL));
  PetscCall(MatGetOwnershipRange(mat_seq, &start, &end));
  n = n / bs;
  PetscCheck(n <= IS_COLORING_MAX - 1, PETSC_COMM_SELF, PETSC_ERR_SUP, "Maximum color size exceeded");

  start = start / bs;
  end   = end / bs;
  PetscCall(PetscMalloc1(end - start + 1, &colors));
  for (i = start; i < end; i++) colors[i - start] = (ISColoringValue)i;
  PetscCall(ISColoringCreate(comm, n, end - start, colors, PETSC_OWN_POINTER, iscoloring));

  if (size > 1) {
    PetscCall(MatDestroySeqNonzeroStructure(&mat_seq));

    /* convert iscoloring_seq to a parallel iscoloring */
    iscoloring_seq = *iscoloring;
    rstart         = mat->rmap->rstart / bs;
    rend           = mat->rmap->rend / bs;
    N_loc          = rend - rstart; /* number of local nodes */

    /* get local colors for each local node */
    PetscCall(PetscMalloc1(N_loc + 1, &colors_loc));
    for (i = rstart; i < rend; i++) colors_loc[i - rstart] = iscoloring_seq->colors[i];
    /* create a parallel iscoloring */
    nc = iscoloring_seq->n;
    PetscCall(ISColoringCreate(comm, nc, N_loc, colors_loc, PETSC_OWN_POINTER, iscoloring));
    PetscCall(ISColoringDestroy(&iscoloring_seq));
  }
  PetscFunctionReturn(PETSC_SUCCESS);
}

/*MC
  MATCOLORINGNATURAL - implements a trivial coloring routine with one color per column

  Level: beginner

  Note:
  Using this coloring would be extremely inefficient but it is useful for testing

.seealso: [](sec_fdmatrix), [](sec_matfactor), `MatColoring`, `MatColoringType`, `MatColoringCreate()`, `MatColoringSetType()`
M*/
PETSC_EXTERN PetscErrorCode MatColoringCreate_Natural(MatColoring mc)
{
  PetscFunctionBegin;
  mc->data                = NULL;
  mc->ops->apply          = MatColoringApply_Natural;
  mc->ops->view           = NULL;
  mc->ops->destroy        = NULL;
  mc->ops->setfromoptions = NULL;
  PetscFunctionReturn(PETSC_SUCCESS);
}
