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 PETSC_STDCALL 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 PETSC_STDCALL petscsectionsymlabelsetstratum_(PetscSectionSym *sym,PetscInt *stratum,PetscInt *size,PetscInt *minOrient,PetscInt *maxOrient,PetscCopyMode *mode, PetscInt **perms, PetscScalar **rots, int *__ierr ){ 23 *__ierr = PetscSectionSymLabelSetStratum(*sym,*stratum,*size,*minOrient,*maxOrient,*mode,(const PetscInt **)perms,(const PetscScalar **)rots); 24 } 25