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