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