1 #include <petsc/private/fortranimpl.h> 2 #include <petscdmlabel.h> 3 #include <petscviewer.h> 4 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define dmlabelview_ DMLABELVIEW 7 #define petscsectionsymlabelsetstratum_ PETSCSECTIONSYMLABELSETSTRATUM 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 9 #define dmlabelview_ dmlabelview 10 #define petscsectionsymlabelsetstratum_ petscsectionsymlabelsetstratum 11 #endif 12 13 /* Definitions of Fortran Wrapper routines */ 14 15 PETSC_EXTERN void dmlabelview_(DMLabel *label, PetscViewer *vin, PetscErrorCode *ierr) 16 { 17 PetscViewer v; 18 PetscPatchDefaultViewers_Fortran(vin, v); 19 *ierr = DMLabelView(*label, v); 20 } 21 22 PETSC_EXTERN void petscsectionsymlabelsetstratum_(PetscSectionSym *sym, PetscInt *stratum, PetscInt *size, PetscInt *minOrient, PetscInt *maxOrient, PetscCopyMode *mode, PetscInt **perms, PetscScalar **rots, int *__ierr) 23 { 24 *__ierr = PetscSectionSymLabelSetStratum(*sym, *stratum, *size, *minOrient, *maxOrient, *mode, (const PetscInt **)perms, (const PetscScalar **)rots); 25 } 26