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