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 7*5fdea053SToby Isaac #define petscsectionsymlabelsetstratum_ PETSCSECTIONSYMLABELSETSTRATUM 8c58f1c22SToby Isaac #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 9c58f1c22SToby Isaac #define dmlabelview_ dmlabelview 10*5fdea053SToby Isaac #define petscsectionsymlabelsetstratum_ petscsectionsymlabelsetstratum 11c58f1c22SToby Isaac #endif 12c58f1c22SToby Isaac 13c58f1c22SToby Isaac /* Definitions of Fortran Wrapper routines */ 14c58f1c22SToby Isaac 15c58f1c22SToby Isaac PETSC_EXTERN void PETSC_STDCALL 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 } 21*5fdea053SToby Isaac 22*5fdea053SToby Isaac 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*5fdea053SToby Isaac *__ierr = PetscSectionSymLabelSetStratum(*sym,*stratum,*size,*minOrient,*maxOrient,*mode,(const PetscInt **)perms,(const PetscScalar **)rots); 24*5fdea053SToby Isaac } 25