19a42bb27SBarry Smith #include "private/fortranimpl.h" 2e1589f56SBarry Smith #include "petscdm.h" 39a42bb27SBarry Smith 49a42bb27SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 5*24e7ded0SBarry Smith #define dmview_ DMVIEW 69a42bb27SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7*24e7ded0SBarry Smith #define dmview_ dmview 89a42bb27SBarry Smith #endif 99a42bb27SBarry Smith 109a42bb27SBarry Smith EXTERN_C_BEGIN 11*24e7ded0SBarry Smith void PETSC_STDCALL dmview_(DM *da,PetscViewer *vin,PetscErrorCode *ierr) 129a42bb27SBarry Smith { 139a42bb27SBarry Smith PetscViewer v; 149a42bb27SBarry Smith PetscPatchDefaultViewers_Fortran(vin,v); 159a42bb27SBarry Smith *ierr = DMView(*da,v); 169a42bb27SBarry Smith } 17564755cdSBarry Smith EXTERN_C_END 18