Actual source code: zviewaf.c

  1: #include <petsc/private/fortranimpl.h>
  2: #include <petscviewer.h>

  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

 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: }

 19: PETSC_EXTERN void petscviewerandformatdestroy_(PetscViewerAndFormat **vf, PetscErrorCode *ierr)
 20: {
 21:   *ierr = PetscViewerAndFormatDestroy(vf);
 22: }