1*c6db04a5SJed Brown #include <private/fortranimpl.h> 2*c6db04a5SJed Brown #include <petscdm.h> 39a42bb27SBarry Smith 49a42bb27SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 524e7ded0SBarry Smith #define dmview_ DMVIEW 69a42bb27SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 724e7ded0SBarry Smith #define dmview_ dmview 89a42bb27SBarry Smith #endif 99a42bb27SBarry Smith 109a42bb27SBarry Smith EXTERN_C_BEGIN 1124e7ded0SBarry 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