1 #include <private/fortranimpl.h> 2 #include <petscdm.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define dmview_ DMVIEW 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define dmview_ dmview 8 #endif 9 10 EXTERN_C_BEGIN 11 void PETSC_STDCALL dmview_(DM *da,PetscViewer *vin,PetscErrorCode *ierr) 12 { 13 PetscViewer v; 14 PetscPatchDefaultViewers_Fortran(vin,v); 15 *ierr = DMView(*da,v); 16 } 17 EXTERN_C_END 18