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