1: #include <petscsys.h>
2: #include <petscbt.h>
3: #include <petscviewer.h>
5: PetscErrorCode PetscBTView(PetscInt m, const PetscBT bt, PetscViewer viewer)
6: {
7: PetscFunctionBegin;
8: if (m < 1) PetscFunctionReturn(PETSC_SUCCESS);
9: if (!viewer) PetscCall(PetscViewerASCIIGetStdout(PETSC_COMM_SELF, &viewer));
10: PetscCall(PetscViewerASCIIPushSynchronized(viewer));
11: for (PetscInt i = 0; i < m; ++i) PetscCall(PetscViewerASCIISynchronizedPrintf(viewer, "%" PetscInt_FMT " %hhu\n", i, PetscBTLookup(bt, i)));
12: PetscCall(PetscViewerFlush(viewer));
13: PetscCall(PetscViewerASCIIPopSynchronized(viewer));
14: PetscFunctionReturn(PETSC_SUCCESS);
15: }