Actual source code: zviewasetf.c

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

  3: /*
  4:    We need this stub function in a separate file that does not include petscviewer.h so that PETSc Fortran
  5:    builds do not print messages about deprecated functions
  6: */
  7: typedef PetscEnum PetscViewerFormat;

  9: PETSC_EXTERN PetscErrorCode PetscViewerSetFormat(PetscViewer, PetscViewerFormat);

 11: PETSC_EXTERN PetscErrorCode PetscViewerSetFormatDeprecated(PetscViewer v, PetscViewerFormat f)
 12: {
 13:   return PetscViewerSetFormat(v, f);
 14: }