1*9a42bb27SBarry Smith #include "private/fortranimpl.h" 2*9a42bb27SBarry Smith #include "petscda.h" 3*9a42bb27SBarry Smith 4*9a42bb27SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 5*9a42bb27SBarry Smith #define daview_ DAVIEW 6*9a42bb27SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7*9a42bb27SBarry Smith #define daview_ daview 8*9a42bb27SBarry Smith #endif 9*9a42bb27SBarry Smith 10*9a42bb27SBarry Smith EXTERN_C_BEGIN 11*9a42bb27SBarry Smith void PETSC_STDCALL daview_(DM *da,PetscViewer *vin,PetscErrorCode *ierr) 12*9a42bb27SBarry Smith { 13*9a42bb27SBarry Smith PetscViewer v; 14*9a42bb27SBarry Smith PetscPatchDefaultViewers_Fortran(vin,v); 15*9a42bb27SBarry Smith *ierr = DMView(*da,v); 16*9a42bb27SBarry Smith } 17