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: }