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: }