Actual source code: petscviewerams.h
petsc-3.4.2 2013-07-02
5: #include <petscviewer.h>
6: #include <ams.h>
7: PETSC_EXTERN PetscErrorCode PetscViewerAMSSetCommName(PetscViewer,const char[]);
8: PETSC_EXTERN PetscErrorCode PetscViewerAMSGetAMSComm(PetscViewer,AMS_Comm *);
9: PETSC_EXTERN PetscErrorCode PetscViewerAMSOpen(MPI_Comm,const char[],PetscViewer*);
10: PETSC_EXTERN PetscViewer PETSC_VIEWER_AMS_(MPI_Comm);
11: PETSC_EXTERN PetscErrorCode PETSC_VIEWER_AMS_Destroy(MPI_Comm);
12: #define PETSC_VIEWER_AMS_WORLD PETSC_VIEWER_AMS_(PETSC_COMM_WORLD)
13: #define PETSC_VIEWER_AMS_SELF PETSC_VIEWER_AMS_(PETSC_COMM_SELF)
15: #define PetscStackCallAMS(func,args) do {PetscErrorCode _ierr; char* err; \
16: PetscStackPush(#func);_func args;PetscStackPop; if (_ierr) {AMS_Explain_error(_ierr,&err); SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_LIB,"Error in %s() %s",#func,err);} \
17: } while (0)
19: #endif