1: #include <petsc/private/fortranimpl.h>
2: #include <petscdm.h>
3: #include <petscviewer.h>
5: #if defined(PETSC_HAVE_FORTRAN_CAPS)
6: #define dmcreatesuperdm_ DMCREATESUPERDM
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8: #define dmcreatesuperdm_ dmreatesuperdm
9: #endif
11: PETSC_EXTERN void dmcreatesuperdm_(DM dms[], PetscInt *len, IS ***is, DM *superdm, int *ierr)
12: {
13: *ierr = DMCreateSuperDM(dms, *len, *is, superdm);
14: }