1 #include <petsc/private/ftnimpl.h>
2 #include <petscviewer.h>
3
4 #if defined(PETSC_HAVE_FORTRAN_CAPS)
5 #define petscviewerandformatcreate_ PETSCVIEWERANDFORMATCREATE
6 #define petscviewerandformatdestroy_ PETSCVIEWERANDFORMATDESTROY
7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8 #define petscviewerandformatcreate_ petscviewerandformatcreate
9 #define petscviewerandformatdestroy_ petscviewerandformatdestroy
10 #endif
11
petscviewerandformatcreate_(PetscViewer * vin,PetscViewerFormat * format,PetscViewerAndFormat ** vf,PetscErrorCode * ierr)12 PETSC_EXTERN void petscviewerandformatcreate_(PetscViewer *vin, PetscViewerFormat *format, PetscViewerAndFormat **vf, PetscErrorCode *ierr)
13 {
14 PetscViewer v;
15 PetscPatchDefaultViewers_Fortran(vin, v);
16 *ierr = PetscViewerAndFormatCreate(v, *format, vf);
17 }
18
petscviewerandformatdestroy_(PetscViewerAndFormat ** vf,PetscErrorCode * ierr)19 PETSC_EXTERN void petscviewerandformatdestroy_(PetscViewerAndFormat **vf, PetscErrorCode *ierr)
20 {
21 *ierr = PetscViewerAndFormatDestroy(vf);
22 }
23