Actual source code: zdaviewf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdmda.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define dmdagetinfo_ DMDAGETINFO
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define dmdagetinfo_ dmdagetinfo
8: #endif
10: PETSC_EXTERN void dmdagetinfo_(DM *da, PetscInt *dim, PetscInt *M, PetscInt *N, PetscInt *P, PetscInt *m, PetscInt *n, PetscInt *p, PetscInt *w, PetscInt *s, DMBoundaryType *wrapx, DMBoundaryType *wrapy, DMBoundaryType *wrapz, DMDAStencilType *st, PetscErrorCode *ierr)
11: {
12: CHKFORTRANNULLINTEGER(dim);
13: CHKFORTRANNULLINTEGER(M);
14: CHKFORTRANNULLINTEGER(N);
15: CHKFORTRANNULLINTEGER(P);
16: CHKFORTRANNULLINTEGER(m);
17: CHKFORTRANNULLINTEGER(n);
18: CHKFORTRANNULLINTEGER(p);
19: CHKFORTRANNULLINTEGER(w);
20: CHKFORTRANNULLINTEGER(s);
21: CHKFORTRANNULLINTEGER(wrapx);
22: CHKFORTRANNULLINTEGER(wrapy);
23: CHKFORTRANNULLINTEGER(wrapz);
24: CHKFORTRANNULLINTEGER(st);
25: *ierr = DMDAGetInfo(*da, dim, M, N, P, m, n, p, w, s, wrapx, wrapy, wrapz, st);
26: }