19a42bb27SBarry Smith #include "private/fortranimpl.h" 29a42bb27SBarry Smith #include "petscda.h" 39a42bb27SBarry Smith 49a42bb27SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 59a42bb27SBarry Smith #define daview_ DAVIEW 69a42bb27SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 79a42bb27SBarry Smith #define daview_ daview 89a42bb27SBarry Smith #endif 99a42bb27SBarry Smith 109a42bb27SBarry Smith EXTERN_C_BEGIN 119a42bb27SBarry Smith void PETSC_STDCALL daview_(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 } 17*564755cdSBarry Smith EXTERN_C_END 18