1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 2c6db04a5SJed Brown #include <petscdm.h> 3665c2dedSJed Brown #include <petscviewer.h> 49a42bb27SBarry Smith 59a42bb27SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 6b14c0cbaSBlaise Bourdin #define dmcreatesuperdm_ DMCREATESUPERDM 79a42bb27SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8b14c0cbaSBlaise Bourdin #define dmcreatesuperdm_ dmreatesuperdm 99a42bb27SBarry Smith #endif 109a42bb27SBarry Smith 116823f3c5SBlaise Bourdin PETSC_EXTERN void dmcreatesuperdm_(DM dms[], PetscInt *len, IS ***is, DM *superdm, int *ierr) 126823f3c5SBlaise Bourdin { 136823f3c5SBlaise Bourdin *ierr = DMCreateSuperDM(dms, *len, *is, superdm); 146823f3c5SBlaise Bourdin } 15