1 #include <petsc/private/fortranimpl.h> 2 #include <petsc/private/sfimpl.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define sfview_ SFVIEW 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define sfview_ sfview 8 #endif 9 10 PETSC_EXTERN void PETSC_STDCALL sfview_(PetscSF *sf, PetscViewer *vin, PetscErrorCode *ierr) 11 { 12 PetscViewer v; 13 14 PetscPatchDefaultViewers_Fortran(vin, v); 15 *ierr = PetscSFView(*sf, v); 16 } 17