1 #include <petsc/private/fortranimpl.h> 2 #include <petscdraw.h> 3 #include <petscviewer.h> 4 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define petsc_viewer_draw__ PETSC_VIEWER_DRAW_BROKEN 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define petsc_viewer_draw__ petsc_viewer_draw_ 9 #endif 10 11 #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE) 12 #define petsc_viewer_draw__ petsc_viewer_draw___ 13 #endif 14 15 PETSC_EXTERN PetscViewer petsc_viewer_draw__(MPI_Comm *comm) 16 { 17 return PETSC_VIEWER_DRAW_(MPI_Comm_f2c(*(MPI_Fint *)&*comm)); 18 } 19