1 2 #if !defined(__PETSCVIEWERSAWS_H) 3 #define __PETSCVIEWERSAWS_H 4 5 #include <petscviewer.h> 6 #include <SAWs.h> 7 extern SAWs_Directory PETSC_SAWs_ROOT_DIRECTORY; 8 extern SAWs_Directory PETSC_OBJECTS_SAWs_ROOT_DIRECTORY; 9 PETSC_EXTERN PetscErrorCode PetscViewerSAWSOpen(MPI_Comm,PetscViewer*); 10 PETSC_EXTERN PetscViewer PETSC_VIEWER_SAWS_(MPI_Comm); 11 PETSC_EXTERN PetscErrorCode PETSC_VIEWER_SAWS_Destroy(MPI_Comm); 12 #define PETSC_VIEWER_SAWS_WORLD PETSC_VIEWER_SAWS_(PETSC_COMM_WORLD) 13 #define PETSC_VIEWER_SAWS_SELF PETSC_VIEWER_SAWS_(PETSC_COMM_SELF) 14 15 #define PetscStackCallSAWs(func,args) do {PetscErrorCode _ierr; char* err; \ 16 PetscStackPush(#func);_ierr = func args;PetscStackPop; if (_ierr) {SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_LIB,"Error in %s() %s",#func,err);} \ 17 } while (0) 18 19 #endif 20