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