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