Actual source code: zdaghostf.c

  1: #include <petsc/private/fortranimpl.h>
  2: #include <petsc/private/dmdaimpl.h>

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5:   #define dmdagetghostcorners_       DMDAGETGHOSTCORNERS
  6:   #define dmdagetghostcorners000000_ DMDAGETGHOSTCORNERS000000
  7:   #define dmdagetghostcorners001001_ DMDAGETGHOSTCORNERS001001
  8:   #define dmdagetghostcorners011011_ DMDAGETGHOSTCORNERS011011
  9: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 10:   #define dmdagetghostcorners_       dmdagetghostcorners
 11:   #define dmdagetghostcorners000000_ dmdagetghostcorners000000
 12:   #define dmdagetghostcorners001001_ dmdagetghostcorners001001
 13:   #define dmdagetghostcorners011011_ dmdagetghostcorners011011
 14: #endif

 16: PETSC_EXTERN void dmdagetghostcorners_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
 17: {
 18:   CHKFORTRANNULLINTEGER(y);
 19:   CHKFORTRANNULLINTEGER(z);
 20:   CHKFORTRANNULLINTEGER(n);
 21:   CHKFORTRANNULLINTEGER(p);

 23:   *ierr = DMDAGetGhostCorners(*da, x, y, z, m, n, p);
 24: }

 26: PETSC_EXTERN void dmdagetghostcorners000000_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
 27: {
 28:   dmdagetghostcorners_(da, x, y, z, m, n, p, ierr);
 29: }

 31: PETSC_EXTERN void dmdagetghostcorners001001_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
 32: {
 33:   dmdagetghostcorners_(da, x, y, z, m, n, p, ierr);
 34: }

 36: PETSC_EXTERN void dmdagetghostcorners011011_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
 37: {
 38:   dmdagetghostcorners_(da, x, y, z, m, n, p, ierr);
 39: }