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