xref: /petsc/src/dm/impls/da/grglvis.c (revision 2a8381b23c702518c6b1ccbeafee50b9375df0e4)

/* Routines to visualize DMDAs and fields through GLVis */

#include <petsc/private/dmdaimpl.h>
#include <petsc/private/glvisviewerimpl.h>

typedef struct {
  PetscBool ll;
} DMDAGhostedGLVisViewerCtx;

static PetscErrorCode DMDAGhostedDestroyGLVisViewerCtx_Private(PetscCtxRt vctx)
{
  PetscFunctionBegin;
  PetscCall(PetscFree(*(void **)vctx));
  PetscFunctionReturn(PETSC_SUCCESS);
}

typedef struct {
  Vec xlocal;
} DMDAFieldGLVisViewerCtx;

static PetscErrorCode DMDAFieldDestroyGLVisViewerCtx_Private(PetscCtxRt vctx)
{
  DMDAFieldGLVisViewerCtx *ctx = *(DMDAFieldGLVisViewerCtx **)vctx;

  PetscFunctionBegin;
  PetscCall(VecDestroy(&ctx->xlocal));
  PetscCall(PetscFree(ctx));
  PetscFunctionReturn(PETSC_SUCCESS);
}

/*
   dactx->ll is false -> all but the last proc per dimension claim the ghosted node on the right
   dactx->ll is true -> all but the first proc per dimension claim the ghosted node on the left
*/
static PetscErrorCode DMDAGetNumElementsGhosted(DM da, PetscInt *nex, PetscInt *ney, PetscInt *nez)
{
  DMDAGhostedGLVisViewerCtx *dactx;
  PetscInt                   sx, sy, sz, ien, jen, ken;

  PetscFunctionBegin;
  /* Appease -Wmaybe-uninitialized */
  if (nex) *nex = -1;
  if (ney) *ney = -1;
  if (nez) *nez = -1;
  PetscCall(DMDAGetCorners(da, &sx, &sy, &sz, &ien, &jen, &ken));
  PetscCall(DMGetApplicationContext(da, &dactx));
  if (dactx->ll) {
    PetscInt dim;

    PetscCall(DMGetDimension(da, &dim));
    if (!sx) ien--;
    if (!sy && dim > 1) jen--;
    if (!sz && dim > 2) ken--;
  } else {
    PetscInt M, N, P;

    PetscCall(DMDAGetInfo(da, NULL, &M, &N, &P, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL));
    if (sx + ien == M) ien--;
    if (sy + jen == N) jen--;
    if (sz + ken == P) ken--;
  }
  if (nex) *nex = ien;
  if (ney) *ney = jen;
  if (nez) *nez = ken;
  PetscFunctionReturn(PETSC_SUCCESS);
}

/* inherits number of vertices from DMDAGetNumElementsGhosted */
static PetscErrorCode DMDAGetNumVerticesGhosted(DM da, PetscInt *nvx, PetscInt *nvy, PetscInt *nvz)
{
  PetscInt ien = 0, jen = 0, ken = 0, dim;
  PetscInt tote;

  PetscFunctionBegin;
  PetscCall(DMGetDimension(da, &dim));
  PetscCall(DMDAGetNumElementsGhosted(da, &ien, &jen, &ken));
  tote = ien * (dim > 1 ? jen : 1) * (dim > 2 ? ken : 1);
  if (tote) {
    ien = ien + 1;
    jen = dim > 1 ? jen + 1 : 1;
    ken = dim > 2 ? ken + 1 : 1;
  }
  if (nvx) *nvx = ien;
  if (nvy) *nvy = jen;
  if (nvz) *nvz = ken;
  PetscFunctionReturn(PETSC_SUCCESS);
}

static PetscErrorCode DMDASampleGLVisFields_Private(PetscObject oX, PetscInt nf, PetscObject oXf[], void *vctx)
{
  DM                         da;
  DMDAFieldGLVisViewerCtx   *ctx = (DMDAFieldGLVisViewerCtx *)vctx;
  DMDAGhostedGLVisViewerCtx *dactx;
  const PetscScalar         *array;
  PetscScalar              **arrayf;
  PetscInt                   i, f, ii, ien, jen, ken, ie, je, ke, bs, *bss, *nfs;
  PetscInt                   sx, sy, sz, gsx, gsy, gsz, ist, jst, kst, gm, gn, gp;

  PetscFunctionBegin;
  PetscCall(VecGetDM(ctx->xlocal, &da));
  PetscCheck(da, PetscObjectComm(oX), PETSC_ERR_ARG_WRONG, "Vector not generated from a DMDA");
  PetscCall(DMGetApplicationContext(da, &dactx));
  PetscCall(VecGetBlockSize(ctx->xlocal, &bs));
  PetscCall(DMGlobalToLocalBegin(da, (Vec)oX, INSERT_VALUES, ctx->xlocal));
  PetscCall(DMGlobalToLocalEnd(da, (Vec)oX, INSERT_VALUES, ctx->xlocal));
  PetscCall(DMDAGetNumVerticesGhosted(da, &ien, &jen, &ken));
  PetscCall(DMDAGetGhostCorners(da, &gsx, &gsy, &gsz, &gm, &gn, &gp));
  PetscCall(DMDAGetCorners(da, &sx, &sy, &sz, NULL, NULL, NULL));
  if (dactx->ll) {
    kst = jst = ist = 0;
  } else {
    kst = gsz != sz ? 1 : 0;
    jst = gsy != sy ? 1 : 0;
    ist = gsx != sx ? 1 : 0;
  }
  PetscCall(PetscMalloc3(nf, &arrayf, nf, &bss, nf, &nfs));
  PetscCall(VecGetArrayRead(ctx->xlocal, &array));
  for (f = 0; f < nf; f++) {
    PetscCall(VecGetBlockSize((Vec)oXf[f], &bss[f]));
    PetscCall(VecGetArray((Vec)oXf[f], &arrayf[f]));
    PetscCall(VecGetLocalSize((Vec)oXf[f], &nfs[f]));
  }
  for (ke = kst, ii = 0; ke < kst + ken; ke++) {
    for (je = jst; je < jst + jen; je++) {
      for (ie = ist; ie < ist + ien; ie++) {
        PetscInt cf, b;
        i = ke * gm * gn + je * gm + ie;
        for (f = 0, cf = 0; f < nf; f++) {
          if (!nfs[f]) continue;
          for (b = 0; b < bss[f]; b++) arrayf[f][bss[f] * ii + b] = array[i * bs + cf++];
        }
        ii++;
      }
    }
  }
  for (f = 0; f < nf; f++) PetscCall(VecRestoreArray((Vec)oXf[f], &arrayf[f]));
  PetscCall(VecRestoreArrayRead(ctx->xlocal, &array));
  PetscCall(PetscFree3(arrayf, bss, nfs));
  PetscFunctionReturn(PETSC_SUCCESS);
}

PetscErrorCode DMSetUpGLVisViewer_DMDA(PetscObject oda, PetscViewer viewer)
{
  DM da = (DM)oda, daview;

  PetscFunctionBegin;
  PetscCall(PetscObjectQuery(oda, "GLVisGraphicsDMDAGhosted", (PetscObject *)&daview));
  if (!daview) {
    DMDAGhostedGLVisViewerCtx *dactx;
    DM                         dacoord = NULL;
    Vec                        xcoor, xcoorl;
    PetscBool                  hashocoord = PETSC_FALSE;
    const PetscInt            *lx, *ly, *lz;
    PetscInt                   dim, M, N, P, m, n, p, dof, s, i;

    PetscCall(PetscNew(&dactx));
    dactx->ll = PETSC_TRUE; /* default to match elements layout obtained by DMDAGetElements */
    PetscOptionsBegin(PetscObjectComm(oda), oda->prefix, "GLVis PetscViewer DMDA Options", "PetscViewer");
    PetscCall(PetscOptionsBool("-viewer_glvis_dm_da_ll", "Left-looking subdomain view", NULL, dactx->ll, &dactx->ll, NULL));
    PetscOptionsEnd();
    /* Create a properly ghosted DMDA to visualize the mesh and the fields associated with */
    PetscCall(DMDAGetInfo(da, &dim, &M, &N, &P, &m, &n, &p, &dof, &s, NULL, NULL, NULL, NULL));
    PetscCall(DMDAGetOwnershipRanges(da, &lx, &ly, &lz));
    PetscCall(PetscObjectQuery((PetscObject)da, "_glvis_mesh_coords", (PetscObject *)&xcoor));
    if (!xcoor) {
      PetscCall(DMGetCoordinates(da, &xcoor));
    } else {
      hashocoord = PETSC_TRUE;
    }
    PetscCall(PetscInfo(da, "Creating auxiliary DMDA for managing GLVis graphics\n"));
    switch (dim) {
    case 1:
      PetscCall(DMDACreate1d(PetscObjectComm((PetscObject)da), DM_BOUNDARY_NONE, M, dof, 1, lx, &daview));
      if (!hashocoord) PetscCall(DMDACreate1d(PetscObjectComm((PetscObject)da), DM_BOUNDARY_NONE, M, 1, 1, lx, &dacoord));
      break;
    case 2:
      PetscCall(DMDACreate2d(PetscObjectComm((PetscObject)da), DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_BOX, M, N, m, n, dof, 1, lx, ly, &daview));
      if (!hashocoord) PetscCall(DMDACreate2d(PetscObjectComm((PetscObject)da), DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_BOX, M, N, m, n, 2, 1, lx, ly, &dacoord));
      break;
    case 3:
      PetscCall(DMDACreate3d(PetscObjectComm((PetscObject)da), DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_BOX, M, N, P, m, n, p, dof, 1, lx, ly, lz, &daview));
      if (!hashocoord) PetscCall(DMDACreate3d(PetscObjectComm((PetscObject)da), DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_BOX, M, N, P, m, n, p, 3, 1, lx, ly, lz, &dacoord));
      break;
    default:
      SETERRQ(PetscObjectComm((PetscObject)da), PETSC_ERR_SUP, "Unsupported dimension %" PetscInt_FMT, dim);
    }
    PetscCall(DMSetApplicationContext(daview, dactx));
    PetscCall(DMSetApplicationContextDestroy(daview, DMDAGhostedDestroyGLVisViewerCtx_Private));
    PetscCall(DMSetUp(daview));
    if (!xcoor) {
      PetscCall(DMDASetUniformCoordinates(daview, 0.0, 1.0, 0.0, 1.0, 0.0, 1.0));
      PetscCall(DMGetCoordinates(daview, &xcoor));
    }
    if (dacoord) {
      PetscCall(DMSetUp(dacoord));
      PetscCall(DMCreateLocalVector(dacoord, &xcoorl));
      PetscCall(DMGlobalToLocalBegin(dacoord, xcoor, INSERT_VALUES, xcoorl));
      PetscCall(DMGlobalToLocalEnd(dacoord, xcoor, INSERT_VALUES, xcoorl));
      PetscCall(DMDestroy(&dacoord));
    } else {
      PetscInt    ien, jen, ken, nc, nl, cdof, deg;
      char        fecmesh[64];
      const char *name;
      PetscBool   flg;

      PetscCall(DMDAGetNumElementsGhosted(daview, &ien, &jen, &ken));
      nc = ien * (jen > 0 ? jen : 1) * (ken > 0 ? ken : 1);

      PetscCall(VecGetLocalSize(xcoor, &nl));
      PetscCheck(!nc || (nl % nc) == 0, PETSC_COMM_SELF, PETSC_ERR_SUP, "Incompatible local coordinate size %" PetscInt_FMT " and number of cells %" PetscInt_FMT, nl, nc);
      PetscCall(VecDuplicate(xcoor, &xcoorl));
      PetscCall(VecCopy(xcoor, xcoorl));
      PetscCall(VecSetDM(xcoorl, NULL));
      PetscCall(PetscObjectGetName((PetscObject)xcoor, &name));
      PetscCall(PetscStrbeginswith(name, "FiniteElementCollection:", &flg));
      if (!flg) {
        deg = 0;
        if (nc && nl) {
          cdof = nl / (nc * dim);
          deg  = 1;
          while (1) {
            PetscInt degd = 1;
            for (i = 0; i < dim; i++) degd *= (deg + 1);
            PetscCheck(degd <= cdof, PETSC_COMM_SELF, PETSC_ERR_SUP, "Cell dofs %" PetscInt_FMT, cdof);
            if (degd == cdof) break;
            deg++;
          }
        }
        PetscCall(PetscSNPrintf(fecmesh, sizeof(fecmesh), "FiniteElementCollection: L2_T1_%" PetscInt_FMT "D_P%" PetscInt_FMT, dim, deg));
        PetscCall(PetscObjectSetName((PetscObject)xcoorl, fecmesh));
      } else PetscCall(PetscObjectSetName((PetscObject)xcoorl, name));
    }

    /* xcoorl is composed with the ghosted DMDA, the ghosted coordinate DMDA (if present) is only available through this vector */
    PetscCall(PetscObjectCompose((PetscObject)daview, "GLVisGraphicsCoordsGhosted", (PetscObject)xcoorl));
    PetscCall(PetscObjectDereference((PetscObject)xcoorl));

    /* daview is composed with the original DMDA */
    PetscCall(PetscObjectCompose(oda, "GLVisGraphicsDMDAGhosted", (PetscObject)daview));
    PetscCall(PetscObjectDereference((PetscObject)daview));
  }

  /* customize the viewer if present */
  if (viewer) {
    DMDAFieldGLVisViewerCtx   *ctx;
    DMDAGhostedGLVisViewerCtx *dactx;
    char                       fec[64];
    Vec                        xlocal, *Ufield;
    const char               **dafieldname;
    char                     **fec_type, **fieldname;
    PetscInt                  *nlocal, *bss, *dims;
    PetscInt                   dim, M, N, P, dof, s, i, nf;
    PetscBool                  bsset;

    PetscCall(DMDAGetInfo(daview, &dim, NULL, NULL, NULL, NULL, NULL, NULL, &dof, NULL, NULL, NULL, NULL, NULL));
    PetscCall(DMGetApplicationContext(daview, &dactx));
    PetscCall(DMCreateLocalVector(daview, &xlocal));
    PetscCall(DMDAGetFieldNames(da, (const char *const **)&dafieldname));
    PetscCall(DMDAGetNumVerticesGhosted(daview, &M, &N, &P));
    PetscCall(PetscSNPrintf(fec, sizeof(fec), "FiniteElementCollection: H1_%" PetscInt_FMT "D_P1", dim));
    PetscCall(PetscMalloc6(dof, &fec_type, dof, &nlocal, dof, &bss, dof, &dims, dof, &fieldname, dof, &Ufield));
    for (i = 0; i < dof; i++) bss[i] = 1;
    nf = dof;

    PetscOptionsBegin(PetscObjectComm(oda), oda->prefix, "GLVis PetscViewer DMDA Field options", "PetscViewer");
    PetscCall(PetscOptionsIntArray("-viewer_glvis_dm_da_bs", "Block sizes for subfields; enable vector representation", NULL, bss, &nf, &bsset));
    PetscOptionsEnd();
    if (bsset) {
      PetscInt t;
      for (i = 0, t = 0; i < nf; i++) t += bss[i];
      PetscCheck(t == dof, PetscObjectComm(oda), PETSC_ERR_USER, "Sum of block sizes %" PetscInt_FMT " should equal %" PetscInt_FMT, t, dof);
    } else nf = dof;

    for (i = 0, s = 0; i < nf; i++) {
      PetscCall(PetscStrallocpy(fec, &fec_type[i]));
      if (bss[i] == 1) {
        PetscCall(PetscStrallocpy(dafieldname[s], &fieldname[i]));
      } else {
        const char     prefix[]   = "Vector-";
        const size_t   prefix_len = PETSC_STATIC_ARRAY_LENGTH(prefix);
        const PetscInt bss_i      = bss[i];
        char          *fname_i    = NULL;
        size_t         tlen       = prefix_len, cur_len;

        for (PetscInt b = 0; b < bss_i; ++b) {
          size_t len;

          PetscCall(PetscStrlen(dafieldname[s + b], &len));
          tlen += len + 1; /* field + "-" */
        }
        PetscCall(PetscMalloc1(tlen, &fname_i));
        PetscCall(PetscArraycpy(fname_i, prefix, prefix_len - 1));
        cur_len = prefix_len;
        for (PetscInt b = 0; b < bss_i; ++b) {
          const char *dafname = dafieldname[s + b];
          size_t      len;

          PetscCall(PetscStrlen(dafname, &len));
          PetscCall(PetscArraycpy(fname_i + cur_len, dafname, len + 1));
          cur_len += len + 1;
          // don't add for final iteration of the loop
          if ((b + 1) < bss_i) fname_i[cur_len++] = '-';
        }
        fname_i[cur_len] = '\0';
        fieldname[i]     = fname_i;
      }
      dims[i]   = dim;
      nlocal[i] = M * N * P * bss[i];
      s += bss[i];
    }

    /* the viewer context takes ownership of xlocal and destroys it in DMDAFieldDestroyGLVisViewerCtx_Private */
    PetscCall(PetscNew(&ctx));
    ctx->xlocal = xlocal;

    /* create work vectors */
    for (i = 0; i < nf; i++) {
      PetscCall(VecCreateMPI(PetscObjectComm((PetscObject)da), nlocal[i], PETSC_DECIDE, &Ufield[i]));
      PetscCall(PetscObjectSetName((PetscObject)Ufield[i], fieldname[i]));
      PetscCall(VecSetBlockSize(Ufield[i], PetscMax(bss[i], 1)));
      PetscCall(VecSetDM(Ufield[i], da));
    }

    PetscCall(PetscViewerGLVisSetFields(viewer, nf, (const char **)fec_type, dims, DMDASampleGLVisFields_Private, (PetscObject *)Ufield, ctx, DMDAFieldDestroyGLVisViewerCtx_Private));
    for (i = 0; i < nf; i++) {
      PetscCall(PetscFree(fec_type[i]));
      PetscCall(PetscFree(fieldname[i]));
      PetscCall(VecDestroy(&Ufield[i]));
    }
    PetscCall(PetscFree6(fec_type, nlocal, bss, dims, fieldname, Ufield));
  }
  PetscFunctionReturn(PETSC_SUCCESS);
}

static PetscErrorCode DMDAView_GLVis_ASCII(DM dm, PetscViewer viewer)
{
  DM                 da, cda;
  Vec                xcoorl;
  PetscMPIInt        size;
  const PetscScalar *array;
  PetscContainer     glvis_container;
  PetscInt           dim, sdim, i, vid[8], mid, cid, cdof;
  PetscInt           sx, sy, sz, ie, je, ke, ien, jen, ken, nel;
  PetscInt           gsx, gsy, gsz, gm, gn, gp, kst, jst, ist;
  PetscBool          enabled = PETSC_TRUE, isascii;
  const char        *fmt;

  PetscFunctionBegin;
  PetscValidHeaderSpecific(dm, DM_CLASSID, 1);
  PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 2);
  PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii));
  PetscCheck(isascii, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Viewer must be of type VIEWERASCII");
  PetscCallMPI(MPI_Comm_size(PetscObjectComm((PetscObject)viewer), &size));
  PetscCheck(size <= 1, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Use single sequential viewers for parallel visualization");
  PetscCall(DMGetDimension(dm, &dim));

  /* get container: determines if a process visualizes is portion of the data or not */
  PetscCall(PetscObjectQuery((PetscObject)viewer, "_glvis_info_container", (PetscObject *)&glvis_container));
  PetscCheck(glvis_container, PetscObjectComm((PetscObject)dm), PETSC_ERR_PLIB, "Missing GLVis container");
  {
    PetscViewerGLVisInfo glvis_info;
    PetscCall(PetscContainerGetPointer(glvis_container, &glvis_info));
    enabled = glvis_info->enabled;
    fmt     = glvis_info->fmt;
  }
  /* this can happen if we are calling DMView outside of VecView_GLVis */
  PetscCall(PetscObjectQuery((PetscObject)dm, "GLVisGraphicsDMDAGhosted", (PetscObject *)&da));
  if (!da) PetscCall(DMSetUpGLVisViewer_DMDA((PetscObject)dm, NULL));
  PetscCall(PetscObjectQuery((PetscObject)dm, "GLVisGraphicsDMDAGhosted", (PetscObject *)&da));
  PetscCheck(da, PetscObjectComm((PetscObject)dm), PETSC_ERR_PLIB, "Missing GLVis ghosted DMDA");
  PetscCall(DMGetCoordinateDim(da, &sdim));

  PetscCall(PetscViewerASCIIPrintf(viewer, "MFEM mesh v1.0\n"));
  PetscCall(PetscViewerASCIIPrintf(viewer, "\ndimension\n"));
  PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT "\n", dim));

  if (!enabled) {
    PetscCall(PetscViewerASCIIPrintf(viewer, "\nelements\n"));
    PetscCall(PetscViewerASCIIPrintf(viewer, "0\n"));
    PetscCall(PetscViewerASCIIPrintf(viewer, "\nboundary\n"));
    PetscCall(PetscViewerASCIIPrintf(viewer, "0\n"));
    PetscCall(PetscViewerASCIIPrintf(viewer, "\nvertices\n"));
    PetscCall(PetscViewerASCIIPrintf(viewer, "0\n"));
    PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT "\n", sdim));
    PetscFunctionReturn(PETSC_SUCCESS);
  }

  PetscCall(DMDAGetNumElementsGhosted(da, &ien, &jen, &ken));
  nel = ien;
  if (dim > 1) nel *= jen;
  if (dim > 2) nel *= ken;
  PetscCall(PetscViewerASCIIPrintf(viewer, "\nelements\n"));
  PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT "\n", nel));
  switch (dim) {
  case 1:
    for (ie = 0; ie < ien; ie++) {
      vid[0] = ie;
      vid[1] = ie + 1;
      mid    = 1; /* material id */
      cid    = 1; /* segment */
      PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "\n", mid, cid, vid[0], vid[1]));
    }
    break;
  case 2:
    for (je = 0; je < jen; je++) {
      for (ie = 0; ie < ien; ie++) {
        vid[0] = je * (ien + 1) + ie;
        vid[1] = je * (ien + 1) + ie + 1;
        vid[2] = (je + 1) * (ien + 1) + ie + 1;
        vid[3] = (je + 1) * (ien + 1) + ie;
        mid    = 1; /* material id */
        cid    = 3; /* quad */
        PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "\n", mid, cid, vid[0], vid[1], vid[2], vid[3]));
      }
    }
    break;
  case 3:
    for (ke = 0; ke < ken; ke++) {
      for (je = 0; je < jen; je++) {
        for (ie = 0; ie < ien; ie++) {
          vid[0] = ke * (jen + 1) * (ien + 1) + je * (ien + 1) + ie;
          vid[1] = ke * (jen + 1) * (ien + 1) + je * (ien + 1) + ie + 1;
          vid[2] = ke * (jen + 1) * (ien + 1) + (je + 1) * (ien + 1) + ie + 1;
          vid[3] = ke * (jen + 1) * (ien + 1) + (je + 1) * (ien + 1) + ie;
          vid[4] = (ke + 1) * (jen + 1) * (ien + 1) + je * (ien + 1) + ie;
          vid[5] = (ke + 1) * (jen + 1) * (ien + 1) + je * (ien + 1) + ie + 1;
          vid[6] = (ke + 1) * (jen + 1) * (ien + 1) + (je + 1) * (ien + 1) + ie + 1;
          vid[7] = (ke + 1) * (jen + 1) * (ien + 1) + (je + 1) * (ien + 1) + ie;
          mid    = 1; /* material id */
          cid    = 5; /* hex */
          PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "\n", mid, cid, vid[0], vid[1], vid[2], vid[3], vid[4], vid[5], vid[6], vid[7]));
        }
      }
    }
    break;
  default:
    SETERRQ(PetscObjectComm((PetscObject)da), PETSC_ERR_SUP, "Unsupported dimension %" PetscInt_FMT, dim);
  }
  PetscCall(PetscViewerASCIIPrintf(viewer, "\nboundary\n"));
  PetscCall(PetscViewerASCIIPrintf(viewer, "0\n"));

  /* vertex coordinates */
  PetscCall(PetscObjectQuery((PetscObject)da, "GLVisGraphicsCoordsGhosted", (PetscObject *)&xcoorl));
  PetscCheck(xcoorl, PetscObjectComm((PetscObject)dm), PETSC_ERR_PLIB, "Missing GLVis ghosted coords");
  PetscCall(DMDAGetNumVerticesGhosted(da, &ien, &jen, &ken));
  PetscCall(PetscViewerASCIIPrintf(viewer, "\nvertices\n"));
  PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT "\n", ien * jen * ken));
  if (nel) {
    PetscCall(VecGetDM(xcoorl, &cda));
    PetscCall(VecGetArrayRead(xcoorl, &array));
    if (!cda) { /* HO viz */
      const char *fecname;
      PetscInt    nc, nl;

      PetscCall(PetscObjectGetName((PetscObject)xcoorl, &fecname));
      PetscCall(PetscViewerASCIIPrintf(viewer, "nodes\n"));
      PetscCall(PetscViewerASCIIPrintf(viewer, "FiniteElementSpace\n"));
      PetscCall(PetscViewerASCIIPrintf(viewer, "%s\n", fecname));
      PetscCall(PetscViewerASCIIPrintf(viewer, "VDim: %" PetscInt_FMT "\n", sdim));
      PetscCall(PetscViewerASCIIPrintf(viewer, "Ordering: 1\n\n")); /*Ordering::byVDIM*/
      /* L2 coordinates */
      PetscCall(DMDAGetNumElementsGhosted(da, &ien, &jen, &ken));
      PetscCall(VecGetLocalSize(xcoorl, &nl));
      nc   = ien * (jen > 0 ? jen : 1) * (ken > 0 ? ken : 1);
      cdof = nc ? nl / nc : 0;
      if (!ien) ien++;
      if (!jen) jen++;
      if (!ken) ken++;
      ist = jst = kst = 0;
      gm              = ien;
      gn              = jen;
      gp              = ken;
    } else {
      DMDAGhostedGLVisViewerCtx *dactx;

      PetscCall(DMGetApplicationContext(da, &dactx));
      PetscCall(PetscViewerASCIIPrintf(viewer, "%" PetscInt_FMT "\n", sdim));
      cdof = sdim;
      PetscCall(DMDAGetCorners(da, &sx, &sy, &sz, NULL, NULL, NULL));
      PetscCall(DMDAGetGhostCorners(da, &gsx, &gsy, &gsz, &gm, &gn, &gp));
      if (dactx->ll) {
        kst = jst = ist = 0;
      } else {
        kst = gsz != sz ? 1 : 0;
        jst = gsy != sy ? 1 : 0;
        ist = gsx != sx ? 1 : 0;
      }
    }
    for (ke = kst; ke < kst + ken; ke++) {
      for (je = jst; je < jst + jen; je++) {
        for (ie = ist; ie < ist + ien; ie++) {
          PetscInt c;

          i = ke * gm * gn + je * gm + ie;
          for (c = 0; c < cdof / sdim; c++) {
            PetscInt d;
            for (d = 0; d < sdim; d++) PetscCall(PetscViewerASCIIPrintf(viewer, fmt, PetscRealPart(array[cdof * i + c * sdim + d])));
            PetscCall(PetscViewerASCIIPrintf(viewer, "\n"));
          }
        }
      }
    }
    PetscCall(VecRestoreArrayRead(xcoorl, &array));
  }
  PetscFunctionReturn(PETSC_SUCCESS);
}

PetscErrorCode DMView_DA_GLVis(DM dm, PetscViewer viewer)
{
  PetscFunctionBegin;
  PetscCall(DMView_GLVis(dm, viewer, DMDAView_GLVis_ASCII));
  PetscFunctionReturn(PETSC_SUCCESS);
}