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