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