1778ae69aSToby Isaac #include <petscsys.h> 2778ae69aSToby Isaac #include <petscbt.h> 3778ae69aSToby Isaac #include <petscviewer.h> 4778ae69aSToby Isaac PetscBTView(PetscCount m,const PetscBT bt,PetscViewer viewer)5*6497c311SBarry SmithPetscErrorCode PetscBTView(PetscCount m, const PetscBT bt, PetscViewer viewer) 6778ae69aSToby Isaac { 7778ae69aSToby Isaac PetscFunctionBegin; 8778ae69aSToby Isaac if (!viewer) PetscCall(PetscViewerASCIIGetStdout(PETSC_COMM_SELF, &viewer)); 9778ae69aSToby Isaac PetscCall(PetscViewerASCIIPushSynchronized(viewer)); 10*6497c311SBarry Smith for (PetscCount i = 0; i < m; ++i) PetscCall(PetscViewerASCIISynchronizedPrintf(viewer, "%" PetscCount_FMT " %hhu\n", i, PetscBTLookup(bt, i))); 11778ae69aSToby Isaac PetscCall(PetscViewerFlush(viewer)); 12778ae69aSToby Isaac PetscCall(PetscViewerASCIIPopSynchronized(viewer)); 13778ae69aSToby Isaac PetscFunctionReturn(PETSC_SUCCESS); 14778ae69aSToby Isaac } 15