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 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 8 #define dmlabelview_ dmlabelview 9 #endif 10 11 /* Definitions of Fortran Wrapper routines */ 12 13 PETSC_EXTERN void PETSC_STDCALL dmlabelview_(DMLabel *label, PetscViewer *vin, PetscErrorCode *ierr) 14 { 15 PetscViewer v; 16 PetscPatchDefaultViewers_Fortran(vin, v); 17 *ierr = DMLabelView(*label, v); 18 } 19