1 #include <petscsys.h> 2 #include <petscbt.h> 3 #include <petscviewer.h> 4 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 " %d\n", i, (int)PetscBTLookup(bt, i))); 12 PetscCall(PetscViewerFlush(viewer)); 13 PetscCall(PetscViewerASCIIPopSynchronized(viewer)); 14 PetscFunctionReturn(PETSC_SUCCESS); 15 } 16