interface/ftn-custom/zviewaf.c

*6dd63270SBarry Smith#include <petsc/private/ftnimpl.h>
665c2dedSJed Brown#include <petscviewer.h>
5c6c1daeSBarry Smith
5c6c1daeSBarry Smith#if defined(PETSC_HAVE_FORTRAN_CAPS)
1cb03803SBarry Smith  #define petscviewerandformatcreate_  PETSCVIEWERANDFORMATCREATE
1cb03803SBarry Smith  #define petscviewerandformatdestroy_ PETSCVIEWERANDFORMATDESTROY
5c6c1daeSBarry Smith#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
1cb03803SBarry Smith  #define petscviewerandformatcreate_  petscviewerandformatcreate
1cb03803SBarry Smith  #define petscviewerandformatdestroy_ petscviewerandformatdestroy
5c6c1daeSBarry Smith#endif
5c6c1daeSBarry Smith
19caf8f3SSatish BalayPETSC_EXTERN void petscviewerandformatcreate_(PetscViewer *vin, PetscViewerFormat *format, PetscViewerAndFormat **vf, PetscErrorCode *ierr)
1cb03803SBarry Smith{
1cb03803SBarry Smith  PetscViewer v;
1cb03803SBarry Smith  PetscPatchDefaultViewers_Fortran(vin, v);
1cb03803SBarry Smith  *ierr = PetscViewerAndFormatCreate(v, *format, vf);
1cb03803SBarry Smith}
1cb03803SBarry Smith
732dd666SBarry SmithPETSC_EXTERN void petscviewerandformatdestroy_(PetscViewerAndFormat **vf, PetscErrorCode *ierr)
1cb03803SBarry Smith{
1cb03803SBarry Smith  *ierr = PetscViewerAndFormatDestroy(vf);
1cb03803SBarry Smith}