1*a4963045SJacob Faibussowitsch #pragma once 2e04113cfSBarry Smith 3e04113cfSBarry Smith #include <petscviewer.h> 4e04113cfSBarry Smith #include <SAWs.h> 592081c13SBarry Smith PETSC_EXTERN PetscErrorCode PetscViewerSAWsOpen(MPI_Comm, PetscViewer *); 6e04113cfSBarry Smith PETSC_EXTERN PetscViewer PETSC_VIEWER_SAWS_(MPI_Comm); 7e04113cfSBarry Smith #define PETSC_VIEWER_SAWS_WORLD PETSC_VIEWER_SAWS_(PETSC_COMM_WORLD) 8e04113cfSBarry Smith #define PETSC_VIEWER_SAWS_SELF PETSC_VIEWER_SAWS_(PETSC_COMM_SELF) 9e04113cfSBarry Smith 109371c9d4SSatish Balay #define PetscCallSAWs(func, args) \ 119371c9d4SSatish Balay do { \ 123ba16761SJacob Faibussowitsch int _ierr; \ 139371c9d4SSatish Balay PetscStackPushExternal(#func); \ 149371c9d4SSatish Balay _ierr = func args; \ 159371c9d4SSatish Balay PetscStackPop; \ 169371c9d4SSatish Balay PetscCheck(!_ierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in %s() %d", #func, _ierr); \ 17e04113cfSBarry Smith } while (0) 18