1: #include <petsc/private/fortranimpl.h> 2: #include <petscdmda.h> 4: #if defined(PETSC_HAVE_FORTRAN_CAPS) 5: #define dmdagetscatter_ DMDAGETSCATTER 6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7: #define dmdagetscatter_ dmdagetscatter 8: #endif 10: PETSC_EXTERN void dmdagetscatter_(DM *da, VecScatter *gtol, VecScatter *ltol, PetscErrorCode *ierr) 11: { 12: CHKFORTRANNULLOBJECT(gtol); 13: CHKFORTRANNULLOBJECT(ltol); 14: *ierr = DMDAGetScatter(*da, gtol, ltol); 15: }