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