1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h>
2665c2dedSJed Brown #include <petscviewer.h>
35c6c1daeSBarry Smith
45c6c1daeSBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS)
51cb03803SBarry Smith #define petscviewerandformatcreate_ PETSCVIEWERANDFORMATCREATE
61cb03803SBarry Smith #define petscviewerandformatdestroy_ PETSCVIEWERANDFORMATDESTROY
75c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
81cb03803SBarry Smith #define petscviewerandformatcreate_ petscviewerandformatcreate
91cb03803SBarry Smith #define petscviewerandformatdestroy_ petscviewerandformatdestroy
105c6c1daeSBarry Smith #endif
115c6c1daeSBarry Smith
petscviewerandformatcreate_(PetscViewer * vin,PetscViewerFormat * format,PetscViewerAndFormat ** vf,PetscErrorCode * ierr)1219caf8f3SSatish Balay PETSC_EXTERN void petscviewerandformatcreate_(PetscViewer *vin, PetscViewerFormat *format, PetscViewerAndFormat **vf, PetscErrorCode *ierr)
131cb03803SBarry Smith {
141cb03803SBarry Smith PetscViewer v;
151cb03803SBarry Smith PetscPatchDefaultViewers_Fortran(vin, v);
161cb03803SBarry Smith *ierr = PetscViewerAndFormatCreate(v, *format, vf);
171cb03803SBarry Smith }
181cb03803SBarry Smith
petscviewerandformatdestroy_(PetscViewerAndFormat ** vf,PetscErrorCode * ierr)19732dd666SBarry Smith PETSC_EXTERN void petscviewerandformatdestroy_(PetscViewerAndFormat **vf, PetscErrorCode *ierr)
201cb03803SBarry Smith {
211cb03803SBarry Smith *ierr = PetscViewerAndFormatDestroy(vf);
221cb03803SBarry Smith }
23