1*c58f1c22SToby Isaac #include <petsc/private/fortranimpl.h> 2*c58f1c22SToby Isaac #include <petscdmlabel.h> 3*c58f1c22SToby Isaac #include <petscviewer.h> 4*c58f1c22SToby Isaac 5*c58f1c22SToby Isaac #if defined(PETSC_HAVE_FORTRAN_CAPS) 6*c58f1c22SToby Isaac #define dmlabelview_ DMLABELVIEW 7*c58f1c22SToby Isaac #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE) 8*c58f1c22SToby Isaac #define dmlabelview_ dmlabelview 9*c58f1c22SToby Isaac #endif 10*c58f1c22SToby Isaac 11*c58f1c22SToby Isaac /* Definitions of Fortran Wrapper routines */ 12*c58f1c22SToby Isaac 13*c58f1c22SToby Isaac PETSC_EXTERN void PETSC_STDCALL dmlabelview_(DMLabel *label, PetscViewer *vin, PetscErrorCode *ierr) 14*c58f1c22SToby Isaac { 15*c58f1c22SToby Isaac PetscViewer v; 16*c58f1c22SToby Isaac PetscPatchDefaultViewers_Fortran(vin, v); 17*c58f1c22SToby Isaac *ierr = DMLabelView(*label, v); 18*c58f1c22SToby Isaac } 19