Date: 2025-03-28T21:11:10+00:00

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: }