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