Actual source code: zdrawvf.c

  1: #include <petsc/private/fortranimpl.h>
  2: #include <petscdraw.h>
  3: #include <petscviewer.h>

  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

 11: #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE)
 12:   #define petsc_viewer_draw__ petsc_viewer_draw___
 13: #endif

 15: PETSC_EXTERN PetscViewer petsc_viewer_draw__(MPI_Comm *comm)
 16: {
 17:   return PETSC_VIEWER_DRAW_(MPI_Comm_f2c(*(MPI_Fint *)&*comm));
 18: }